FoxPro/Visual FoxPro - Scroll en un form

Tengo un formulario el cual es bastante grande y por tal razon tuve que agregarle la barra de scroll vertical, pero encuentro que el scroll no es automatico, hay alguna forma de hacer esto ???

es un formulario que se usara bastante por un equipo de digitadores de informacion y es muy complicado que usen el mouse para movere.. la idea es que se mueva automaticamente...

como puedo hacer esto ???

gracias

No te gusta la idea de usar PageFrames. Se pueden programar facilmente para que use el teclado.

Esa era la opcion que no queria utilizar, ya que me tocaria mover varios objetos y ademas corregir parte del codigo.. pero creo que no hay otra manera

igual gracias.

CArlos

Hay algunas cosas que te pueden ayudar.
1- Cambiar resolucion del monitor aumenta considerablemente la cantidad de objectos que se ven en una pantalla.

2- Lo que deseas puedes hacerlo, con algo de programación. Yo hice algo hace un tiempo pero no recuerdo los codigos. Creo que tiene que ver con SetViewPort, viewporttop, viewportleft, viewportheight, ect . puedes verlos en la ayuda.

"El siguiente codigo no es mio"

El siguiente ejemplo nos muestra la forma de hacer esto usando las teclas de Avance de Página y de Retroceso de Página:

PUBLIC oform
oform=NewObject("ScrollForm")
oform.show

DEFINE CLASS ScrollForm AS form
Top = 0
Left = 0
Height = 101
Width = 168
ScrollBars = 2
Caption = "Use PgUp/PgDwn to Scroll Form"
vertscrollpos = 0
Name = "Form1"
ADD OBJECT shape1 AS shape WITH ;
Top = 12, ;
Left = 12, ;
Height = 421, ;
Width = 553, ;
Name = "Shape1"
ADD OBJECT command1 AS ;
commandbutton WITH ;
Top = 24, ;
Left = 36, ;
Height = 27, ;
Width = 84, ;
Caption = "Close", ;
Name = "Command1"

PROCEDURE KeyPress
LPARAMETERS nKeyCode,;
nShiftAltCtrl
IF nKeyCode=3
Thisform.vertscrollpos=;
Thisform.;
vertscrollpos+;
Thisform.height
Thisform.SetViewPort(;
0,Thisform.;
vertscrollpos)
Thisform.Refresh
ENDIF
IF nKeyCode=18
Thisform.vertscrollpos;
=Thisform.;
vertscrollpos-thisform.;
height
Thisform.SetViewPort(;
0,Thisform.;
vertscrollpos)
Thisform.Refresh
ENDIF
ENDPROC
PROCEDURE command1.Click
thisform.release
ENDPROC
ENDDEFINE