FoxPro/Visual FoxPro - validar password

Hola a todos, si alguien me puede ayudar por favor con lo siguiente:
En un text box pregunto un password, si es correcto entonces me pone Enabed=.t. otro textbox para cambiar el valor, si no es correcto quiero que se regrese a preguntar de nuevo y que si son mas de tres intentos, entonces se salga y que siga el textbox de precio =.f.. Ya hice mi rutina pero no me esta funcionando...por su ayuda gracias.
Esto tengo en el textbox del password
evento click()
mPASA="N"
DO whil mIT <=3
IF mUSUARIO="CAMBIA"
mPASA="S"
EXIT
ELSE
=MESSAGEBOX("Contraseña Incorrecta",48,"Error",0)
mIT=mIT+1
thisform.txtPasw.Value=""
thisform.txtPasw.SetFocus
thisform.refresh
RETURN .f.
ENDIF
ENDD
thisform.txtPasw.Value=""
thisform.txtPasw.Visible= .F.
thisform.lblPasw.Visible= .F.
thisform.txtpcr.Enabled= .T.
thisform.txtpcr.SetFocus
thisform.Refresh

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

evento valid
IF LASTKEY() = 127 AND This.SelStart = 0
NODEFAULT
ENDIF

Cuando valida y si esta correcta la contrasena no me hablita el campo txtpcr.
Saludos

Cuando valida y si esta correcta la contrasena no me hablita el campo txtpcr.
y en ese momento donde esta el cursor

thisform.txtPasw.Value=""
thisform.txtPasw.Visible= .F.
thisform.lblPasw.Visible= .F.
thisform.txtpcr.Enabled= .T.

RETURN TO MASTER
thisform.txtpcr.SetFocus
thisform.Refresh

Suerte