RESPONDER UNA PREGUNTA

Si para responder la pregunta, crees necesario enviar un archivo adjunto, puedes hacerlo a traves del correo [email protected]

    Pregunta:  66702 - CERRAR PROYECTO AL 3ER INTENTO. SENTENCIA: FOR
Autor:  Roberto
Pues bien, el problema que tengo es básicamente que no se usar bien la SENTENCIA FOR, y en esta ocasión debo emplear para que a la tercera vez que el usuario introduzca la contraseña aparezca un MsgBox "Contraseña errónea"

Este es el código que yo tengo (SOLO ME DEJA ERRAR UNA VEZ Y ME SACA DEL PROGRAMA)

Código:

Dim intentos As Integer


Private Sub Validar_Click()
If Text1 = "getready123" Then
intentos = 0
MsgBox "Contraseña correcta"
Form2.Show
Hide

Else

For intentos = intentos + 1 To 3
MsgBox "Contraseña errónea"
Text1 = ""
Text1.SetFocus
Exit For
Next
End

End If

End Sub

Nota:
Se debe usar .SetFocus
Programa creado en Visual Basic 6.0


Nombre
Apellidos
Correo
Comentarios