FoxPro/Visual FoxPro - Problema con Valid de un TextBox

Hola les cuento que estoy creando un formulario donde el usuario tiene que validar su contraseña (colocarla por segunda vez) escribo la contraseña en el primer textbox despues en la segunda la dejo en blanco y no hace la comparacion, esto esta en el lostFocus de la caja de texto

If Alltrim(ThisForm.txtPassUsu.Value) = Alltrim(ThisForm.txtConfirmPassUsu.Value) Then
ThisForm.imgAcept.Visible = .T.
ThisForm.txtCodServ.Enabled = .T.
ThisForm.cboServicio.Enabled = .T.
ThisForm.cboModulo.Enabled = .T.
ThisForm.lblMensaje.Caption = "Correcto"
Else
ThisForm.imgCancel.Visible = .T.
ThisForm.lblMensaje.Caption = "Password Inválida"
ThisForm.txtPassUsu.SetFocus
EndIf

Ese If no funciona y no se por que razon, pense en hacerlo en el valid o sea asi

If Empty(Alltrim(ThisForm.txtConfirmPassUsu.Value)) Then
Messagebox("Debe Confirmar su Contraseña")
EndIf

Pero tampoco funciona, a que se debe esto?, que estoy haciendo mal?

lei en la ayuda de MSDN que el evento valid si devuelve .T. pierde el enfoque y si devuelve .F. no lo pierde, pero en que momento veo eso, tampoco puedo controlarlo por un tema de que es solo de lectura

espero me ayuden antes que lo solucione yo xD, de ser asi dejare la respuesta

pone un SUSPEND antes del IF y luego entra en el debug y comproba el valor de los dos VALUE, creo que el problema es que el txtConfirmPassUsu.Value no es caracter al momento de compararlo.

Buenas tardes:

Mira, si te entendí me imagino que a de ser algún formulario para crear usuarios y deseas que se confirme la contraseña. Yo tuve algo de problemas hace unos días y lo resolví de la siguiente manera:

1 - En el evento valid del textbox a verificar use el siguiente código:

***//*** cpassword -- Evento Valid del campo confirmar contraseña
if empty(this.value) and editar_usuario = 0
messagebox("Debe confirmar la contraseña",48,"Advertencia del Sistema")
endif

2 - En el evento Gotfocus del elemento siguiente (textbox en este caso) hice la comparación:

***//*** nombre_usuario1 -- Evento Gotfocus del elemento siguiente
if allt(thisform.cpassword.value) <> allt(thisform.password.value) and editar_usuario = 0
messagebox("No coinciden las contraseñas, vuelva a digitarlas!";
,64,"Aviso del Sistema")
thisform.password.value = ""
thisform.cpassword.value = ""
thisform.password.setfocus
endif

Y tal como vez, envió el enfoque de nuevo al campo inicial de la nueva contraseña para que los escribas de nuevo.

Espero te ayude esto, te remito una copia a tu dirección de mail.

Atte.,

Carlos Ardón
Santa Ana, El Salvador, C.A.