Wen das Passwort richtig ist
24.11.2002 17:41:22
Thomas
Geöffnet werden
Private Sub CommandButton1_Click()
Dim sWord As String
Do While InputBox("Passwort:") <> "1"
Beep
If MsgBox("War wohl nix!", vbOKCancel) = vbCancel Then End
Loop
?
End Sub
Anzeige