hola.
alguilen podría decirme que está mal en este código??
gracias!
Private Sub cmdOK_Click()
If Contador <= 1 Then
If txtUserName = "Admin" Then
If txtPassword = "Password" Then
LoginSucceeded = True
Timer1.Enabled = False
frm2.Show
Unload Me
Else
MsgBox "Clave de acceso o Usuario incorrecto", vbCritical, "Login"
txtUserName.SetFocus
SendKeys "{Home}+{End}"
Contador = Contador + 1
End If
End If
Else
Mensaje = MsgBox("Acceso denegado", vbCritical, "Login")
End
End If
End Sub