AxWindowsMediaPlayer1.settings.balance = 0 ‘0表示平衡声道

    End Sub

4) “窗体总在最前”复选框按钮单击事件代码

Private Sub ChkTopMost_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChkTopMost.CheckedChanged

        If ChkTopMost.Checked = True Then

            Me.TopMost = True

        Else

            Me.TopMost = False

        End If

    End Sub

5) “总是显示提示”复选狂按钮点击事件代码

  Private Sub ShowTips_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChkShowTips.CheckedChanged

        If ChkShowTips.Checked = True Then

            TipsFlag = True

        Else

            TipsFlag = False

        End If

    End Sub

6) “BtStart按钮”MouseHover事件代码

If TipsFlag = True Then

            ToolTip1.SetToolTip(BtStart, "左键设置开始点，右键取消设置")

            Else

            ToolTip1.SetToolTip(BtStart, "")

        End If