Direct Text-To-Speech - Simultaneous Voices?

[PGBSoft]

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

Hello,

How about the following then?

Option Explicit

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

Private Sub Form_Load()

    Set spv1 = New SpVoice
    Set spv2 = New SpVoice
    spv2.Priority = SVPOver
    
    Set spv1.Voice = spv1.GetVoices.Item(0)  'male voice
    Set spv2.Voice = spv2.GetVoices.Item(1)  'female voice

End Sub

Private Sub Command1_Click()
    
    spv1.Speak "Hello, First voice goes here. Did you hear the second voice too?", SVSFlagsAsync
    spv2.Speak "Hi, This is second voice", SVSFlagsAsync

End Sub