Si les sirve les paso lo que implemente en relacion al problema que tratan, por cierto.
La unica lastima es que no se puedan usar controles subclasados..
En mi caso pude hacerlo y lo use para tres cosas..
El scroll cuando se pasa con la tecla TAB y un par de cosas que quzas le sirvan..
use la propiedad TAG (aunque es cierto que si lo tuviera que reahacer definiria otra propiedad) para definir el top and bott para saber el primero y ultimo y el scroll lo hacia aprovechando la matriz controls() de esta forma

******************************************************************

HACE=1
X=0
CANTCONTROLES=this.parent.controlcount
do while X X=X+1
*** para ubicar al ultimo y saber si y llego al borde inferior
if upper(alltrim(this.parent.controls(X).tag))='BOT' and this.parent.controls(X).top <= (this.parent.height-(this.parent.controls(X).height + 10)) THEN
this.enabled=.f.
this.parent.CMD_UP.enabled=.t.
HACE=0
endif
enddo

if HACE=1 THEN
X=0
CANTCONTROLES=this.parent.controlcount
this.parent.CMD_UP.enabled=.t.
do while X X=X+1
*** no se mueven los dos botones que son los controles de scrooll y un clase que tiene otras funciones
if upper(left(this.parent.controls(X).name,3))!='CMD' and this.parent.controls(X).Baseclass!='Custom' THEN
this.parent.controls(X).top=this.parent.controls(X).top-20
endif
enddo
thisform.refresh
endif
thisform.refresh

******************************************************************

Mil disculpas por la desprolijidad del codigo, lo hice antes de "descubrir" el With.. endWith y las convenciones sobre nombres de variables.
Eso si les digo que aunque sea un poco lerdo y a veces tenga problemas al redibujar la pantalla el resultado quedo bastante interesante.


En cuanto a la cuestion de "orgullo" y sobre desarrollar las cosas en VFP... podriamos decir "Larga vida al Fox" (y sabemos que desde MicroSoft nos apoyan ;-)