VB Snippet - Play wav file

[James Stanich]

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
 
Sub PlayWave()
  
    fileName = "C:\Windows\Media\MicrosoftSound.Wav"
 
    sndPlaySound fileName,0
 
End Sub