（7）播放控制区核心代码

   1) “快进”按钮单击事件代码

  Private Sub BtForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtForward.Click

     AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition + NUDInterval.value

    End Sub

2) “快退“按钮单击事件代码

  Private Sub BtBackward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtBackward.Click

        AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition - NUDInterval.value

    End Sub

3) “回到起点”按钮单击事件代码

Private Sub BtBackStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtBackStart.Click

        AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 0

    End Sub

4) “等距离跳进”按钮单击事件代码

Private Sub BtEqual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtEqual.Click

        Dim temp As Single

        temp = EndPoint - StartPoint

        StartPoint = EndPoint

        EndPoint = EndPoint + temp

        If EndPoint > AxWindowsMediaPlayer1.currentMedia.duration Then

            EndPoint = AxWindowsMediaPlayer1.currentMedia.duration

        End If

        AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = StartPoint

    End Sub

（8）记录区核心代码

1) “背景颜色”按钮单击事件代码

Private Sub BtBackColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtBackColor.Click