主题：[求助] 如何可以将朗读结果录制为一个wav文件

按照示例六的代码，我想用示例七 朗读出来的结果，自定义保存路径，请问如何做呢？
此主题相关图片如下：捕获.jpg

根据示例可以列出已经安装的语音库，客户用已选择语音库，设置语速，并可选择是异步还是同步朗读，然后自定义保存路径。

 做一个按钮

Dim dlg As new SaveFileDialog
dlg.Filter = "语音|*.wav"
If dlg.ShowDialog = DialogResult.OK Then
    Dim yy As WinForm.ListBox = e.Form.Controls("ListBox1")
    Dim vl As String = e.Form.Controls("txtContent").Value '获得要朗读的文本
    Speaker.Rate = e.Form.Controls("boxSpeed").Value '设置语速
    Speaker.Voice = Speaker.GetVoices(String.Empty,String.Empty).Item(yy.SelectedIndex) '选择语音库
    Speaker.Speak("", DotNetSpeech.SpeechVoiceSpeakFlags.SVSFPurgeBeforeSpeak) '停止之前的朗读
   
    Dim Stream As new DotNetSpeech.SpFileStreamClass()
    Stream.Open(dlg.FileName, DotNetSpeech.SpeechStreamFileMode.SSFMCreateForWrite, False)
    Speaker.AudioOutputStream = Stream
   
    If  e.Form.Controls("rdoAsync").Checked Then
        Speaker.Speak(vl, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync) '异步朗读
    Else
        Speaker.Speak(vl, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault) '同步朗读
    End If
    Stream.Close()
End If

哦，不能用异步，必须用同步

Dim dlg As new SaveFileDialog
dlg.Filter = "语音|*.wav"
If dlg.ShowDialog = DialogResult.OK Then
    Dim yy As WinForm.ListBox = e.Form.Controls("ListBox1")
    Dim vl As String = e.Form.Controls("txtContent").Value '获得要朗读的文本
    Speaker.Rate = e.Form.Controls("boxSpeed").Value '设置语速
    Speaker.Voice = Speaker.GetVoices(String.Empty,String.Empty).Item(yy.SelectedIndex) '选择语音库
    Speaker.Speak("", DotNetSpeech.SpeechVoiceSpeakFlags.SVSFPurgeBeforeSpeak) '停止之前的朗读
   
    Dim Stream As new DotNetSpeech.SpFileStreamClass()
    Stream.Open(dlg.FileName, DotNetSpeech.SpeechStreamFileMode.SSFMCreateForWrite, False)
    Speaker.AudioOutputStream = Stream
   
   
    Speaker.Speak(vl, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault) '同步朗读
    Stream.Close()
End If

 试听，第一行，加上

speaker = New DotNetSpeech.SpVoice()