Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Sub PlayWav(WaveFileName As String)
Dim N As Long
N = sndPlaySound(WaveFileName, 0)
End Sub