For playing music, I would recommend using the mciSendString API.
Example:
code:
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, _
Optional ByVal lpstrReturnString As String = 0, _
Optional ByVal uReturnLength As Long = 0, _
Optional ByVal hwndCallback As Long = 0) As Long
Private Sub Form_Load()
mciSendString "open """ & "C:\test.mp3" & """ type MPEGvideo alias PutWhatYouWantHere ", ByVal 0&, 0, ByVal 0&
mciSendString "play PutWhatYouWantHere", ByVal 0&, 0, ByVal 0&
End Sub
Private Sub Form_Unload()
mciSendString "close PutWhatYouWantHere", ByVal 0&, 0, ByVal 0&
End Sub
[/code]Note: All "PutWhatYouWantHere" must be same or, it wont work!