text-to-speech findings

[emari]

If I reference de Microsoft speech library
and I use this code

' Creates the voice object first
Voice = New SpeechLib.SpVoice

Dim Token As SpeechLib.ISpeechObjectToken
For Each Token In Voice.GetVoices
VoiceCB.Items.Add((Token.GetDescription()))
Next Token
VoiceCB.SelectedIndex = 1

I only can get the voices: Mike, Mary and Sam that are in the directory
Program files\common files\speechengines\tts\1003

But If I put the Direct speech syntesis control ( the one with leeps) and I program
with this code( name the control as tts)

For ing = 1 To tts.CountEngines
Debug.Print tts.ModeName(ing)
Next

then I have a lot of voices (29)
that you can find in
Hkey_Local_machine\software\microsoft\speech\voices\software\L&H

My questions are

Can I found the same last voices with code like the one above?
Can I select one the the below voices via code?. I cannot do it