FoxPro/Visual FoxPro - recorrido de una pelotita - porfavor caballeros

hola amigos necesito resolver este problema, tengo una pelotita que se dirige desde una distancia a otra y no se como mostrar que se esta desplazando, yo hice lo siguiente y no me muestra el recorrido solamente me muestra cuando inicia y cuando termina, yo tengo este codigo en el init del form
----------
n=100
for n= 1 to 400 time=3000
thisform.shape3.move(n+1,66)

endfor

1 Alternativa :

n=100
for n= 1 to 400
thisform.shape3.move(n+1,66)
=INKEY("h",0.01) && temporizador
endfor

2 Alternativa

n=100
for n= 1 to 400
thisform.shape3.move(n+1,66)
For T=1 to 25000
Endfor
Endfor

saludos

Lanor