Private Declare Function BringWindowToTop Lib "user32" _
(ByVal hwnd As Long) As Long
Private Declare Function sndPlaySound Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_ASYNC = &H1
 
Dim jetzt


Private Sub Command1_Click()
' Starte Reminder-Funktion
' ACHTUNG: Die CPU-Belastung liegt bei 100 Prozent...

' Kein Wert eingegeben ?
If Text1.Text = "" Then Unload Me
 
    newtime = Val(Text1.Text) * 60
    jetzt = Timer
 
    Do While Timer < jetzt + newtime
        ' Steuerung an das System abgeben
        DoEvents
        ' Anwendung verstecken / nicht beenden
        Me.Hide
    Loop
 
 
BringWindowToTop Me.hwnd
 
' Die Datei "reminder.wav" muss sich in diesem Fall in Ihrem
' Anwendungsverzeichnis befinden:
sndPlaySound App.Path & "\reminder.wav", SND_ASYNC
End Sub