Option Explicit
Private Sub CommandButton1_Click()
'Es wird das eingegebene Passwort angezeigt
MsgBox "Das eingegebene Passwort lautet:" & vbCr & Me.TextBox1.Value
End Sub
Private Sub UserForm_Initialize()
'Beim Aufruf des Userforms wird die Eigenschaft für Textbox1 gesetzt
Me.TextBox1.PasswordChar = "*"
Me.TextBox1.SetFocus
End Sub
|
||||||
