Gruppe
Ereignis
Problem
Nach einer in einer UserForm-TextBox einzugebenden Minutenzahl soll eine Meldung erfolgen.
StandardModule: basMain
Sub DialogAufruf()
frmMessage.Show
End Sub
Sub Meldung()
MsgBox "Ich sollte mich melden!"
End Sub
ClassModule: frmMessage
Private Sub cmdOK_Click()
Application.OnTime Now + _
TimeSerial(0, CInt(txtMinute.Text), 0), "Meldung"
Unload Me
End Sub