Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (lpszSoundName _
  As Any, ByVal uFlags As Long) As Long
 
Private Const SND_SYNC = &H0
Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2
Private Const SND_MEMORY = &H4
Private Const SND_LOOP = &H8
Private Const SND_NOSTOP = &H10
 
Sub PlayWaveResource(vntResourceID As Variant, Optional vntFlags As Variant)
    Static bytSound() As Byte
 
    bytSound = LoadResData(vntResourceID, "WAVE")
 
    If IsMissing(vntFlags) Then
        vntFlags = SND_NODEFAULT Or SND_ASYNC Or SND_MEMORY
    End If
    If (vntFlags And SND_MEMORY) = 0 Then
        vntFlags = vntFlags Or SND_MEMORY
    End If
 
    Call sndPlaySound(bytSound(0), vntFlags)
End Sub