Private Sub Command1_Click()

clave = 65426

If Val(Text2) = clave Then

MsgBox "clave correcta"

Unload Me

ALUMNOS.Show

Else

MsgBox "clave incorrecta"

contador = contador + 1

Text1 = " "

End If

If contador = 3 Then

MsgBox "tu eres un intruso..."

End

End If

End Sub