FoxPro/Visual FoxPro - Ayuda en Text box

Hola comunidad, si me pudiesen ayudar con lo siguiente. Tengo un text box de captura, numerico, en el cual en el evento click, hago una busqueda de Agente de Ventas, el problema quetraigo s que cuando capturo el numero a buscar, al darle enter me pone en cero el textbox, si me hace lo que le indico, solo que me deja en cero el textbox. Esto es lo que tengo:

En el evento Valid
IF LASTKEY() = 127 AND This.SelStart = 0
NODEFAULT
ENDIF

En el evento Keypress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode=13
thisform.txtAge.Click()
thisform.Refresh
ENDIF

En el evento Click
mAGE=thisform.txtAge.value
mAGE=FNC4(mAGE)
SELECT Agente
SEEK mAGE
IF .not. FOUND()
=MESSAGEBOX("No existe este número de asesor",48,"Error",0)
thisform.txtAge.Value=0
thisform.txtAge.SetFocus()
ELSE
thisform.lblNage.Caption= ALLTRIM(C_NOM )
thisform.lblNage.Visible= .T.
thisform.cmdImprimir.Enabled= .T.
ENDIF
thisform.Refresh

Por su ayuda mil gracias...

Que extraño poniendo codigo en el click de un textbox

Que tal fermin, donde me sugieres que ponga el codigo?...es que no deseo usar un boton...yo pensaba poniendo el codigo en el click, era mas interactivo para el usuario...
Alguna sugerencia?

Saludos...

Y porqué no utilizas en vez de click la Propiedad LostFocus()

Te ahorrarías dos codigos en ves de uno, o tambien en el evento KeyPress agrega tu codigo ahI...

IF lastkey()=13

mAGE=thisform.txtAge.value
mAGE=FNC4(mAGE)
SELECT Agente
SEEK mAGE
IF .not. FOUND()
=MESSAGEBOX("No existe este número de asesor",48,"Error",0)
thisform.txtAge.Value=0
thisform.txtAge.SetFocus()
ELSE
thisform.lblNage.Caption= ALLTRIM(C_NOM )
thisform.lblNage.Visible= .T.
thisform.cmdImprimir.Enabled= .T.
ENDIF
thisform.Refresh

else
endif

Suerte►

Gracias muchachos, disculpen que no les haya regresado la nota de agradecimiento...
DE nuevo ...muchas gracias