Userform nach OK - LAnge Wartezeit
14.08.2003 08:27:58
Thomas Schulze
Kann mir jemand von euch helfen?
Vielen dank!
Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub
Private Sub Label1_Click()
End Sub
Private Sub UserForm_Activate()
Dim Pausenlänge, Start, Ende, Gesamtdauer
Pausenlänge = 16 ' Dauer festlegen.
Start = Timer ' Anfangszeit setzen.
UserForm1.Caption = "Informationen"
Do While Timer < Start + Pausenlänge
DoEvents ' Steuerung an andere Prozesse
' abgeben.
Loop
Ende = Timer ' Ende festlegen.
Gesamtdauer = Ende - Start ' Gesamtdauer berechnen.
UserForm1.Hide
End Sub
Private Sub UserForm_Initialize()
UserForm1.Caption = "INFO"
End Sub