PlayWAV - Playing a WAV file

Const SND_ASYNC = &H1

<System.Runtime.InteropServices.DllImport("winmm.dll")> Shared Function _
    PlaySound(ByVal lpszName As String, ByVal hModule As Integer, _
    ByVal dwFlags As Integer) As Integer
End Function

' Play a WAV file.
'
' fileName is a string containing the full path of the file.
' If synchronousMode is true, the sound is played synchronously
' Returns true if no errors occurred

Function PlayWAV(ByVal fileName As String) As Boolean
    ' play the file asynchronously
    PlayWAV = (PlaySound(FileName, 0, SND_ASYNC) = 0)
End Function

Function PlayWAV(ByVal fileName As String, ByVal synchronousMode As Boolean) As _
    Boolean
    If synchronousMode Then
        ' play the file synchronously
        PlayWAV = (PlaySound(fileName, 0, 0) = 0)
    Else
        ' play the file asynchronously
        PlayWAV = (PlaySound(fileName, 0, SND_ASYNC) = 0)
    End If
End Function