Private Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
Private Const SND_SYNC = &H0 ' Play synchronously (default).
Private Const SND_NODEFAULT = &H2 ' Do not use default sound.
Private Const SND_MEMORY = &H4
Private Const SND_LOOP = &H8 ' Loop the sound until next
Private Const SND_NOSTOP = &H10 ' Do not stop any currently
Private Const SND_ASYNC = &H1 ' play asynchronously
'call
PlayWave bArr, SND_NODEFAULT Or SND_SYNC Or SND_MEMORY Or SND_ASYNC
'sub
Sub PlayWave(bArr() As Byte, Optional lFlags As Long = SND_NODEFAULT Or SND_SYNC Or SND_MEMORY)
If (lFlags And SND_MEMORY) = 0 Then lFlags = lFlags Or SND_MEMORY
sndPlaySound bArr(0), lFlags
End Sub