主题：语音朗读 选择语音库问题

Dim Speaker As New DotNetSpeech.SpVoice()
For Each st As Dotnetspeech.SpObjectToken In Speaker.GetVoices
    If st.GetDescription = "Microsoft Sam" Then
        Speaker.Voice = st
        Exit For
    End If
Next

Speaker.Speak("ABC", DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)