Private Declare Ansi Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" ( _
ByVal lpstrCommand As String, _
ByVal lpstrReturnString As StringBuilder, _
ByVal uReturnLength As Integer, _
ByVal hwndCallback As Integer) As Integer
Dim sReturn As StringBuilder = New StringBuilder(128)
Dim sInput As String = "play C:\Test.wav"
Dim iReturn As Integer = mciSendString(sInput, sReturn, sReturn.Capacity, 0)