Музыка в проекте Visual Basic 6.0

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
 
'воспроизводим файл
Private Sub Command2_Click()
Call mciExecute("play c:\Путь\Имя.mp3")
End Sub
 
'стоп
Private Sub Command1_Click()
Call mciExecute("close c:\Путь\Имя.mp3")
End Sub

Option Explicit
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Dim p As String
Private Sub Form_Load()
p = "c:\101.mp3"
End Sub
'воспроизводим файл
Private Sub Command2_Click()
Dim f As Long, s As String
s = StrConv(LoadResData(101, "CUSTOM"), vbUnicode)
f = FreeFile
Open p For Binary As #f
Put #f, , s
Close #f
Call mciExecute("play " & p)
End Sub
 
'стоп
Private Sub Command1_Click()
On Error Resume Next
Call mciExecute("close " & p)
Kill p
End Sub

Private Sub Form_Load()
p = "c:\101.mp3"
End Sub