HELP I WANT IT TO PLAY THE WAV FILE gokukame1.wav when u click the button cmdhm. It doesnt play, please help




Private 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
Private Sub Cmdhm_Click()
Dim i As Long, RS As String, cb As Long
RS = Space$(128)
i = mciSendString("stop sound", RS, 128, cb)
i = mciSendString("close sound", RS, 128, cb)
End Sub

Private Sub Command1_Click()
Cmdhm_Click
Dim i As Long, RS As String, cb As Long, W$
RS = Space$(128)
W$ = "c:\westwood\gokukame1.wav"
i = mciSendString("open waveaudio!" & W$ & " alias sound", RS, 128, cb)
If i Then MsgBox "Error! Probably file not found. Modify the code to point to a .WAV file on your system."
i = mciSendString("play sound", RS, 128, cb)