Programación vb: crear 2 formularios, contraseña correcta para ingresar al formulario 2, formulario 1 oculto, contraseña incorrecta, permitir 3 veces incorrectas, finalizar.
Private Sub Command1_Click()
Estático como entero
Si Text1 = "mi ma" Entonces
Descárgame
Form2.Show
Salir de Sub
Finalizar si
a = a + 1
Si a = 3 entonces
MsgBox "3 contraseñas incorrectas, programa finalizado!"
End If
Si a = 3 Then
MsgBox "¡3 contraseñas incorrectas, programa finalizado!
Finalizar si
Si a = 3 Entonces
MsgBox "¡3 contraseñas incorrectas, programa finalizado!
p>Fin
Finalizar si
Finalizar sub