Gruppe
Dialog
Bereich
UserForm
Thema
Anzeigen einer UserForm für den Zeitraum von 5 Sekunden
Problem
Wie kann ich eine UserForm für den Zeitraum von 5 Sekunden anzeigen lassen?
Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
ClassModule: frmMsg
Private Sub UserForm_Activate()
Application.Wait Now + TimeSerial(0, 0, 5)
Unload Me
End Sub
StandardModule: basMain
Sub CallForm()
frmMsg.Show
End Sub