Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
 
Const SND_ASYNC = &H1
Const SND_SYNC = &H0
Const SND_NODEFAULT = &H2
 
Private Sub Command1_Click()
    [color=green]'asynchron -> der programmablauf geht weiter während
    [color=green]'die wav noch abgespielt wird
    sndPlaySound "c:\demo.wav", SND_ASYNC Or SND_NODEFAULT
    [color=green]'synchron -> deine anwendung bekommt die kontrolle erst
    [color=green]'wieder wenn die wav komplett abgespielt wurde
    sndPlaySound "c:\demo.wav", SND_SYNC Or SND_NODEFAULT
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...