LbProgress.Text = Format(m5, "00") & ":" & Format(s5, "00.0") & "/" & Format(m4, "00") & ":" & Format(s4, "00.0")

            LbRate.Text = "速度" + (AxWindowsMediaPlayer1.settings.rate * 16).ToString + "kbs"

        End If

    End Sub

（5）滑块对应的鼠标拖动事件核心代码

Private Sub TkProgress_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TkProgress.Scroll

        AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = TkProgress.Value

End Sub

（6）复读区开始点鼠标点击核心代码

  Private Sub BtStart_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BtStart.MouseDown

        If e.Button = Windows.Forms.MouseButtons.Right Then

            StartPoint = 0 '按右键取消，返回开始点

        Else

            StartPoint = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition '按左键，设置开始点为当前值

        End If

End Sub

1)向下微调按钮单击事件核心代码

Private Sub BtSartDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtSartDown.Click

        StartPoint = StartPoint - 1

        If StartPoint <= 0 Then

            BtSartDown.Enabled = False

        End If

    End Sub

2)向上微调按钮单击事件核心代码

  Private Sub BtStartUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtStartUp.Click

        StartPoint = StartPoint + 1