Создание музыкального плеера

Private Sub Form_Load()
 
End Sub
 
Private Sub Старт_1_Click()
Песня_1.DeviceType = "WaveAudio"
Песня_1.FileName = "**\*********\********\*****.mp3"
Песня_1.Command = "Open"
Песня_1.Command = "Play"
Form1.Picture = LoadPicture("*******************.WMF")
End Sub

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Long, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Dim Temp2 As Long
Dim Temp1 As String
Dim aFile As String
Private Function GetShortName(ByVal fFileName As String) As String
  Dim bufTxt As String * 261
  Dim RetLen As Long
  RetLen = GetShortPathName(fFileName, bufTxt, 260)
  GetShortName = Left$(bufTxt, RetLen)
End Function
 
Private Sub Form_Load()
aFile = "D:\Музыка\5ivesta_family_and_2345_-_ya_budu.mp3" 'путь к mp3 файлу
aFile = GetShortName(aFile)
Temp1 = "play " & aFile
Temp2 = mciSendString(Temp1, 0, 0, 0)
End Sub

'Ôóíêöèÿ äëÿ ïðîèãðûâàíèÿ ôàéëîâ â ôîðìàòå *.mp3
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
 
Private Sub Command1_Click()
Call mciExecute("play D:\Ìóçûêà\5ivesta_family_and_2345_-_ya_budu.mp3") '÷òîáû âîñïðîèçâåñòè ôàéë
End Sub
 
Private Sub Command2_Click()
Call mciExecute("close D:\Ìóçûêà\5ivesta_family_and_2345_-_ya_budu.mp3") '÷òîáû çàêðûòü ôàéë
End Sub

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Песня_1.DeviceType = "WaveAudio"

Помещаем на форму   Компонент    Microsoft Multimedia Control  6.0
Щелкаем по нему правой кнопкой мыши выбираем - Properties - Controls
и ставим по 2 галочки напротив нужных нам клавиш - это если нужно чтобы
можно было управлять музыкой при помощи кнопок на проигрывателе,
при этом дополнительных операторов для работы кнопок писать не надо. 
 
 
Private Sub Form_Load()
 
MMControl1.Command = "Close"
MMControl1.FileName = App.Path + "\5.mp3"
MMControl1.Command = "Open"
MMControl1.Command = "PLAY"      ' Отличается от SOUND тем что не задерживает +_
                                                   ' работу до тех пор пока не кончится мелодия
                                                                     
 
End Sub
 
 
 
Private Sub Form_Terminate()
 
MMControl1.Command = "Close"
 
End Sub

MMControl1.FileName = App.Path + "\5.mp3"

Песня_1.FileName = "**\*********\********\*****.mp3"

MMControl1.FileName = App.Path + "\5.mp3"

MMControl1.FileName = "5.mp3"