'   'End If

            '  FilePath = .FileName

           '   End With

            '  Dim MyStreamWriter As IO.StreamWriter

            '  MyStreamWriter = IO.File.CreateText(FilePath)

            '  Dim MyOutput As String

            '  While MyOutput Is Nothing

            '  MyOutput = TxtListen.Text

            '  MyStreamWriter.WriteLine(MyOutput)

            '   TxtListen.Text = TxtListen.Text.Remove(0, MyOutput.Length)

            '  End While

            '   MyStreamWriter.Close()

            My.Computer.FileSystem.WriteAllText(FilePath, TxtListen.Text, True)

        End If

    End Sub

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