主题：[求助]语音朗读

每台电脑的语音库都不一样。你可以这样写

Dim sp As New DotNetSpeech.SpVoice()

For Each v As object In sp.getVoices
    If v.GetDescription Like "*Chinese*" Then
        sp.Voice  = v
        Exit For
    End If
Next
sp.Speak("I am from china.", DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)