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

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

Option Explicit
'
'Mp3-Player Micro
'by the Fever Brain
'
Option Compare Text
Dim WithEvents CB As CommandButton, WithEvents vl As CommandButton
Dim WithEvents CBX As ComboBox, WithEvents pb As PictureBox
Dim CD As Object, MPlayer As Object
Dim File$, InitD$, mVol&, i&, v
 
Private Sub vl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Static yy&, Vol&
    If Button = 1 Then
        Vol = yy + Y - 90
        If Vol > 0 And Vol < 390 Then
            vl.Top = yy + Y - 90
            mVol = -((Vol - 390) * 20 + 7500)
            MPlayer.Volume = mVol
        End If
    End If
    yy = vl.Top
End Sub
 
Sub PlayerAction(Optional Action$)
    Debug.Print MPlayer.Volume
    On Error Resume Next
    Static s$, ps
    ps = MPlayer.PlayState
    Select Case Action
    Case "Open"
        If CBX.ListCount = 0 Then s = "000"
        If CD.ShowOpen Then
            File = CD.FileName
            CD.InitialDir = Left(File, InStrRev(File, "") - 1)
            Select Case Right$(File, 4)
            Case ".mp3", ".wav"
                CBX.AddItem File, 0
                s = "001":
                CBX.ListIndex = 0
            End Select
            MPlayer.Volume = mVol
        End If
    Case "Стоп": MPlayer.Open "": s = "001"
    Case "Пауза": MPlayer.Pause: s = "001"
    Case "Воспр"
        If ps = 6 Or CBX.Text <> MPlayer.FileName Then
            MPlayer.Open CBX.Text
        ElseIf ps = 0 Or ps = 1 Then
            MPlayer.Play
        End If
        s = "110"
    End Select
    For i = 1 To 3: Controls("cb" & i).Enabled = Mid$(s, i, 1): Next
End Sub
 
Private Sub CBX_Click()
    CBX.SelStart = 255
    Call PlayerAction("Воспр")
End Sub
 
Private Sub CB_Click()
    PlayerAction (CB.Caption)
End Sub
 
Private Sub Form_Load()
    Set MPlayer = CreateObject("MediaPlayer.MediaPlayer.1")
    MPlayer.AutoStart = 1
    Const w = 900
    
    Set CD = CreateObject("UserAccounts.CommonDialog")
    Const mz = "*.mp3;*.wav"
    CD.Filter = "Музыка " & mz & "|" & mz & "|Все файлы (*.*)|*.*"
    CD.FilterIndex = 1
    Set CBX = Controls.Add("vb.ComboBox", "CBX"): With CBX
        .Move 0, 0, w * 4
        .Visible = 1
    End With
    
    For Each v In Array("Open", "Стоп", "Пауза", "Воспр")
        With Controls.Add("vb.CommandButton", "cb" & i)
            .Caption = v
            .Move i * w, CBX.Height, w, 300
            .Enabled = (i = 0)
            .Visible = 1
        End With
        i = i + 1
    Next
    Set pb = Controls.Add("vb.picturebox", "pb"): With pb
        .Move w * 4, 0, 300, CBX.Height * 2
        .BackColor = vbWhite
        .Visible = 1
    End With
    Set vl = Controls.Add("vb.CommandButton", "vl", Controls("pb")): With vl
        .Move 0, 180, 260, 30
        .Visible = 1
    End With
    mVol = MPlayer.Volume
    Caption = "Mp3-Player micro"
    Width = CBX.Width + vl.Width: Width = Width + (Width - ScaleWidth)
    Height = CBX.Height * 2: Height = Height + (Height - ScaleHeight)
End Sub
 
Private Sub CB_LostFocus()
    Set v = ActiveControl
    Select Case TypeName(v)
    Case "CommandButton"
        If v.Name <> "vl" Then Set CB = v
    End Select
End Sub
Private Sub vl_LostFocus(): CB_LostFocus: End Sub
Private Sub pb_LostFocus(): CB_LostFocus: End Sub
Private Sub CBX_LostFocus(): CB_LostFocus: End Sub
Private Sub CBX_KeyPress(KeyAscii As Integer): KeyAscii = 0: End Sub
Private Sub Form_Unload(Cancel As Integer): PlayerAction "Стоп": End Sub