FoxPro/Visual FoxPro - AYUDA CON TEXT BOX

TENGO UN TEXTBOX DE QUE AGUANTA INGRESARLE 5 DIGITOS NUMERICOS. EL PROBLEMA ES QUE NECESITO QUE EL CURSOR SE POSICIONE O COLOQUE EN LA PRIMERA POSICION DERECHA DENTRO DEL TEXTBOX CUANDO EL CONTROL LLEGUE A ESTA CAJA DE TEXTO.

SI ALGUIEN TIENE UNA IDEA DE ANTEMANO LE AGRADEZCO.

ANTONIO.

Si es de tipo Cadena, pon esto en el GotFocus del TextBox:
x=allt(this.value)
this.value=''
for i=1 to len(x)
car=subs(x,i,1)
elasc=asc(car)
keyb chr(elasc)
endf

Si es numérico, debes poner en la propiedad "Value" del TextBox un valor 0 (cero), y en el GotFocus programas así:
x=allt(str(this.value))
this.value=0
for i=1 to len(x)
car=subs(x,i,1)
elasc=asc(car)
keyb chr(elasc)
endf