FoxPro/Visual FoxPro - pelotita

hola amigos tengo creada una pelotita q se desplaza por el form, todo bien hasta ahi pero cuando le doy enter quisiera q se detenga antes de terminar pero no se como hacerlo les mando el codigo
en elclick del formf
for n= 1 to 800 && la distancia de la pelotita
thisform.shape3.move(n+1,99)
For T=1 to 250000 && es la velocidad de desplazamiento
if nkeycode=13 && me tira el error
l=n
thisform.release

endif
endfor
endfor

intenta en keyprees en ves de click
mira en la ayuda los codigo de tecla en INKEY() lo encuenta toditos

if lastkey() = tecla k kieras
bla bla bla
endif

tambien puedes usar INKEY()