5) “清除”按钮单击事件代码

Private Sub BtClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtClear.Click

        TxtListen.Text = Nothing

End Sub

（9）参数设置区核心代码

 1) “左声道”单选按钮单击事件代码

  Private Sub RbtLeft_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RbtLeft.CheckedChanged

        AxWindowsMediaPlayer1.settings.balance = -1‘-1表示设置左声道发声

    End Sub

2) “右声道”单选按钮单击事件代码

Private Sub RbtRight_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RbtRight.CheckedChanged

        AxWindowsMediaPlayer1.settings.balance = 1 ‘1表示设置右声道发声

    End Sub

3) “平衡声道”单选按钮点击事件代码

Private Sub RbtBalance_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RbtBalance.CheckedChanged

        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