Direct Text-To-Speech - Simultaneous Voices?

[mcoulter876]

Hello,

This is a quick answer and just an idea, tested on Win7, it works.
The key is to using separate speech objects with asynchronous speaking.
You might enhance the idea for your need, may be with events.

Option Explicit

Private spv1 As SpeechLib.SpVoice
Private spv2 As SpeechLib.SpVoice

Private Sub Command1_Click()
    
    Set spv1 = New SpVoice
    Set spv1.Voice = spv1.GetVoices.Item(0) 'set your first voice
    spv1.Speak "Hello, Did you hear the second voice too?", SVSFlagsAsync
    
    
    Set spv2 = New SpVoice
    Set spv2.Voice = spv2.GetVoices.Item(0) 'set your second voice
    spv2.Speak "Hi, This is the second voice", SVSFlagsAsync
    
End Sub

This doesn't do what I need. This code speaks one after the other. It does not speak the text simultaneously, as is needed.