Ping pon en Fox

Hola estoy haciendo un como tipo juego en este lenguaje no se mucho de fox
apenas soy estudiante pero le hecho todas las ganas porque me gusta mucho
bueno lo que pasa es que tengo un container un shape circular y dos shapes
en forma de barra uno en cada lado bueno lo que quiero hacer es que la
bola al momento de chocar contra estas barras rebote osea me explico si la
bola se mueve para la izquierda que se valla para la derecha pero si no
choca que se valla hasta donde iria si no estuviera la barra este es mi
codigo ya hice que se moviera pero quisiera que me ayudaran para saber
como hacerla rebotar con las barras este es mi codigo en el timer

<><><><><><><><><>

If VDIRV = "ABAJO" Then
vtop = vtop + 5
If vtop >= (THISFORM.cancha.Height - THISFORM.BOLA.Height) Then
VDIRV = "ARRIBA"
EndIF
ENDIF

IF VDIRV = "ARRIBA" THEN
VTOP = VTOP - 5
IF VTOP <= 0 THEN
VDIRV = "ABAJO"
ENDIF
ENDIF

IF VDIRH = "DERECHA" THEN
VLEFT = VLEFT + 5
IF VLEFT >= (THISFORm.cancha.WIDTH - THISFORM.BOLA.WIDTH) THEN
VDIRH = "IZQUIERDA"
ENDIF
ENDIF

IF VDIRH = "IZQUIERDA" THEN
VLEFT = VLEFT - 5
IF VLEFT <= 0 THEN
VDIRH = "DERECHA"
ENDIF
ENDIF
THISFORM.BOLA.TOP = VTOP
THISFORM.BOLA.LEFT = VLEFT

<><><><><><><><><>

mis variables son estas:

PUBLIC VTOP,VLEFT,VDIRV,VDIRH
VTOP = 0
VLEFT = 0
VDIRV = "ABAJO"
VDIRH = "DERECHA"

espero que me puedan ayudar saludos gracias




PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway