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