Play ".wav" files using VB

***************************************************************
*         http://developer.ecorp.net         *
***************************************************************

Auhor: EM Dixson
This code shows how to play a wave file from VB.
Call the sub like this:
  PlaySound "C:\MyFolder\MySound.wav"
Note that if the file is not found the windows default sound 
will be played instead.

Paste the following code into a module:
'//*********************************//'
Public Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Sub PlaySound(strFileName As String)
  sndPlaySound strFileName, 1
End Sub