Es un problema de logica lo tuyo, como haces el dowhile loop analiza 3 veces lo mismo y se cierra.
Asi te va a funcionar.
Código
Dim cont As Integer Private Sub Command1_Click() IF CONT = 3 THEN MsgBox "Adios...", vbInformation : END If user.Text = "user" And pass.Text = "prueba" Then Unload Me Form2.Show Else cont = cont + 1 MsgBox "Contraseña inválida No " & CStr(cont), vbCritical user.Text = "" pass.Text = "" End If End Sub Private Sub Command2_Click() Unload Me End Sub
GRACIAS POR LEER!!!