Can someone tell me what's wrong with this code to play an mp3 file. I have found it on this forum with more code but it's always the same. I can't hear anything.


'this is in a module

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long


'this is on a form with one button

Private Sub Command1_Click()
Dim cmdToDo As String
Dim wat As String, dwReturm As Long

wat = "C:\My Music\a1\a1brand.mp3"
cmdToDo = "open " & wat & " type MPEGVideo Alias MP3Play"

dwReturn = mciSendString(cmdToDo, 0&, 0&, 0&)
mciSendString "play MP3Play", 0, 0, 0
End Sub