（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

        If StartPoint >= AxWindowsMediaPlayer1.currentMedia.duration Then

            BtStartUp.Enabled = False

        End If

    End Sub

3)中止点控制区向下微调按钮鼠标单击事件核心代码

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

        If e.Button = Windows.Forms.MouseButtons.Right Then '按右键取消，设置结束点为媒体长度

            EndPoint = AxWindowsMediaPlayer1.currentMedia.duration

        Else

            EndPoint = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition '按左键，设置结束点为当前值

        End If

    End Sub

4)中止点控制区向下微调按钮单击事件核心代码

Private Sub BtEndDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtEndDown.Click

        EndPoint = EndPoint – 1 ‘每单击一次，开始递减一秒

        If EndPoint < 0 Then‘如果结束点为文件开始，则向下微调按钮无效

            BtSartDown.Enabled = False

        End If

    End Sub