ERFORDERLICHE OBJEKTE

   1 Commandbutton (Command1)

FORM-CODE

   Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 
   Private Sub Command1_Click()
      Command1.Enabled = False
      Sleep 5000
      Command1.Enabled = True
      MsgBox "Jetzt geht's weiter !"
   End Sub