Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     
        OpenFileDialog1.InitialDirectory = "c:\"
        OpenFileDialog1.Filter = "mp3 文件(*.mp3)|*.mp3|CD音频文件(*.wav)|*.wav|" & "视频（*.asf)|*.asf|所有文件(*.*)|*.*"

        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
            ListBox1.Items.Add(OpenFileDialog1.FileName)
        End If
End Sub

     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        AxWindowsMediaPlayer1.Ctlcontrols.stop() '停止
        AxWindowsMediaPlayer1.Ctlcontrols.currentPosition() = 0 '重新开始
        AxWindowsMediaPlayer1.URL = ""
End Sub

    Private Sub 打开目录ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打开目录ToolStripMenuItem.Click

     If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim fi As IO.FileInfo
            Dim dir As IO.DirectoryInfo = New IO.DirectoryInfo(FolderBrowserDialog1.SelectedPath)
            Dim file As String
            For Each fi In dir.GetFiles("*.mp3")
                file = fi.FullName
                ListBox1.Items.Add(file)
            Next
        End If
End Sub
 
进入关闭ToolStripMenuItem_Click事件

Private Sub 关闭ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 关闭ToolStripMenuItem.Click
        ''关闭
        If MessageBox.Show("请确定你要关闭吗？", "关闭", MessageBoxButtons.OKCancel) = Windows.Forms.DialogResult.OK Then
            Close()
        Else

            Return
        End If
    End Sub

   Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
        ''进度条
        AxWindowsMediaPlayer1.Ctlcontrols.currentPosition() = HScrollBar1.Value
    End Sub

进入ListBox1_DoubleClick事件

 Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
        AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem.ToString
End Sub