PlayWaveSrc

Dim bytSound() As Byte ' Always store binary data in byte arrays!
'*********************************************************
' Plays a wave file from a resource.
'*********************************************************
Public Sub PlayWaveRes(vntResourceID As Variant, Optional vntFlags)
    bytSound = LoadResData(vntResourceID, "WAVE")
    If IsMissing(vntFlags) Then
        vntFlags = SND_NODEFAULT Or SND_SYNC Or SND_MEMORY
    End If
    If (vntFlags And SND_MEMORY) = 0 Then
        vntFlags = vntFlags Or SND_MEMORY
    End If
    sndPlaySound bytSound(0), vntFlags
End Sub

Option Explicit
Private Declare Function sndPlaySound Lib "winmm" Alias _
"sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) _
As Long
'*********************************************************

' Flag values for wFlags parameter.

'*********************************************************

Public Const SND_SYNC = &H0 ' Play synchronously (default).
'Public Const SND_ASYNC = &H1 ' Play asynchronously (see

' note below).

Public Const SND_NODEFAULT = &H2 ' Do not use default sound.
Public Const SND_MEMORY = &H4 ' lpszSoundName points to a
' memory file.

Public Const SND_LOOP = &H8 ' Loop the sound until next
' sndPlaySound.

Public Const SND_NOSTOP = &H10 ' Do not stop any currently
' playing sound.

Dim bytSound() As Byte ' Always store binary data in byte arrays!
'*********************************************************

' Plays a wave file from a resource.

'*********************************************************

Public Sub PlayWaveRes(vntResourceID As Variant, Optional vntFlags)
bytSound = LoadResData(vntResourceID, "WAVE")
If IsMissing(vntFlags) Then
vntFlags = SND_NODEFAULT Or SND_SYNC Or SND_MEMORY
End If
If (vntFlags And SND_MEMORY) = 0 Then
vntFlags = vntFlags Or SND_MEMORY
End If
sndPlaySound bytSound(0), vntFlags
End Sub