Dim WithEvents PLR As Microsoft.DirectX.AudioVideoPlayback.Audio
 
'Кнопка для выбора mp3-файла
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using FBD As New OpenFileDialog
            With FBD
                .Filter = "Аудио|*.mp3"
                .Multiselect = True
                .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
            End With
            If FBD.ShowDialog = Windows.Forms.DialogResult.OK Then
                If MsgBox("Очистить список предварительно?", MsgBoxStyle.OkCancel Or MsgBoxStyle.Question) = MsgBoxResult.Ok Then
                    Me.ListBox1.ClearSelected()
                    Me.ListBox1.Items.AddRange(FBD.FileNames)
                Else
                    Me.ListBox1.Items.AddRange(FBD.FileNames)
                End If
            End If
        End Using
End Sub
 
'кнопка воспроизведения mp3-файла
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If PLR Is Nothing = False Then PLR.Stop()
        PLR = New Microsoft.DirectX.AudioVideoPlayback.Audio(Me.ListBox1.SelectedItem)
        PLR.Play()
        Me.HScrollBar1.Maximum = PLR.Duration
End Sub

'пауза 
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        PLR.Pause()
End Sub
 
'остановка
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        PLR.Stop()
End Sub