FoxPro/Visual FoxPro - ayuda con el form de clave

hay por favor necesito saber como validar si esta mal la contraseña con mas de 3 intentos que se salga del programa
este es el codigo:

public cod as integer
with thisform
a= .combo1.value
contra = .text2.value
cod = val(.combo1.value)
select contraseña as con into cursor conrs from passwords where cod = codigo
if isblank(a) then
= messagebox("Debe seleccionar una cuenta.",48,"ERROR DE ACCESO")
else
if contra = con then
messagebox ("Bienvenido al Sistema de procesos de matricula",64,"BIENVENIDO AL SISTEMA")
RELEASE thisform
do form "C:\matriculas\forms\menuprincipal.scx"
else
messagebox ("la contraseña es incorrecta, vuelva a intentarlo",48,"ERROR DE ACCESO")
endif
endif
endwith

ayudita pleace

PUEDES utilizar un contador y cuando se cumpla la condicion sacarlo

Suerte

si pero es que no me acuerdo de la sintaxis del while
ayudame no seas malito
si es con while o con el for? o con q?

en el Click puedes poner

store .T. TO Z_AVANZA
IF LEN(ALLTRIM(THISFORM.W_CLAVE.VALUE))=0 .OR. THISFORM.W_CLAVE.VALUE<>CLAVE
=MESSAGEBOX("Intente otra clave",0+0+48,"Clave erronea")
STORE .F. TO Z_AVANZA
THISFORM.W_CLAVE.SETFOCUS
return
ENDIF
THISFORM.RELEASE


Suerte

NO ENTENDI NADA
EN DONDE ESTA EL CONTADOR?

esa es otra forma de hacerlo AHI LO controlas con z_avanza
pruebalo y me dices

Suerte

Yo estoy realisando un pequeño software en visual foxpro y necesito ayudapor que necesito realisar sumas y no se cual es el codigo para realizar una suma ¿me ayudarian?

un ejemplo simple, a la antigua, que te puede orientar:

clave = space (20)
hasta=3 && aca pones la cantidad de veces que podras intentar
intentos=1

use base_clave
do while.t.
@ 10,10 say 'Ingrese su clave: ' + get clave
read
locate for nom_clave=alltrim(clave)
******************* esto es lo que te interesa*****************************
if.not. found()
if intento>=hasta
wait windo nowait 'LLEGO AL MAXIMO DE SUS INTENTOS'
return
endif

wait windo nowait 'Clave Incorrecta, '+str(intentos, 1)+' /'+str(hasta, 1)
intento=intento+1 to intento && Cuenta los intentos de ingresar la clave
loop
else
exit && sale del ciclo si la clave es correcta
endif

enddo