Binaryworld - PlayWAV - Playing a WAV file ... [ VB.net -> Multimedia ]

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