如何设置:语音中的男女声选择

'首先要引用:Microsoft Speech Object Library

'代码如下:

Function MySpeak(strSpeak As String, _
                Optional intRate As Integer = 0, _
                Optional intVolume As Integer = 50, _
                Optional intVoiceID As Integer = 0) As Boolean
               
On Error GoTo Err_MySpeak

    Dim oVoise As New SpeechLib.SpVoice
    Dim intTotalSpeech As Integer
        intTotalSpeech = oVoise.GetVoices.Count '获取朗读者的数量
     If intTotalSpeech = 0 Then Exit Function
    '设置朗读者
    If intVoiceID > intTotalSpeech - 1 Then intVoiceID = 0
    Set oVoise.Voice = oVoise.GetVoices.Item(intVoiceID)
    '设置朗读速度
    If intRate > 10 Then intRate = 10
    If intRate < -10 Then intRate = -10
        oVoise.Rate = intRate
    '设置朗读音量
    If intVolume > 100 Then intVolume = 100
    If intVolume < 0 Then intVolume = 0
        oVoise.Volume = intVolume
        oVoise.Speak strSpeak
    MySpeak = True
   
Exit_MySpeak:
    Exit Function

Err_MySpeak:
    MySpeak = False
    MsgBox err.Description, 64, "wyh提示"
    Resume Exit_MySpeak

End Function

*******

调用: Call MySpeak(str, 0, 100, 0)

但不知怎样设置男女声的选择?