MOT DU PASS SIMPLE

'il vous faut créer 2 formes (frm1 et frm2) ainsi que 2 textBox(txt1 et txt2) et un bouton(cmd1)
'et finalement en executant le prog et en entrant le nom d'utilisateur "moi" dans dans txt1 ainsi que le pass "salut" dans txt2 et en apuyant sur cmd1, la 2e forme va apparaitre

Private Sub cmd1_Click()
    utilisateur = "moi" 'j'ai utilisé les variables(pass et Utilisateur) qui en verité ne sont pas necesaires, mais j'aime me compliquer la vie :P
    pass = "salut"
    If txt1.Text = utilisateur And txt2.Text = pass Then 'il faut que le nom d'utilisateur et le pass soient vrai pour que vous puissiez entrer dans la 2e forme, sinon vouz devez recommencer
    MsgBox ("Bien Venue!")
    Frm2.Show
    Else
    MsgBox ("reessayez!!") 'ici, après avoir recu le message "reessayez", tout texte est effacé des 2 "textbox"
    txt1.Text = ""
    txt2.Text = ""
    txt1.SetFocus
    End If
End Sub

Private Sub txt2_Change()
    If txt2 = "" Then 'de cette manière s'il n'ya pas du texte, le bouton "valider" ne fonctionjne pas
    cmd1.Enabled = False
    Else
      cmd1.Enabled = True
    End If
End Sub