FoxPro/Visual FoxPro - rectas - algun caballero

solicito ayuda de algun axperimentado, o laguien q ya probo esto,quero hacer los siguiente:
tengo un form y este grafico: -------------------------------
-----------------------______________-------------------
0 _________________
______________----------------------
----------------------
necesito que esta esfera se desplaze hasta el fin del formulario y yo poder moverla con las fechas para q no se choq el camino¿ se entiende?

creas un shape o forma y le pones en la propiedad curvature = 50 para que se muestre en forma de rueda

despues insertas un timer con interval = 100
dentro del timer pon cualquiera de estos codigos;

*para la derecha
thisform.shape1.Left = thisform.shape1.Left + 5

*para la izquierda
thisform.shape1.Left = thisform.shape1.Left - 5

**para abajo
thisform.shape1.top = thisform.shape1.top + 5

**para arriba
thisform.shape1.top = thisform.shape1.top - 5

Saludes
Espero haberte entendido...