Index
Modifier la propriété PasswordChar
Private Sub b_ok_Click() If Me.TextBox1 = "toto" Then MsgBox "ok" Unload Me Else MsgBox "erreur" Me.TextBox1 = "" Me.TextBox1.SetFocus End If End Sub
Exemples