Attribute VB_Name = "Wecke"
'Bringt aufgerufene Form in den Vordergrund
'(vor alle anderen Fenster, auch bei Word, VB, Access usw.)
Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long

'Prüft, ob Soundkarte vorhanden
Declare Function waveOutGetNumDevs Lib "winmm.dll" _
() As Long

'Gibt Sound aus
Declare Function sndPlaySound Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

'Const SND_SYNC = &H0            'synchron
Const SND_ASYNC = &H1           'asynchron


