Clear
Local oVoz As "SAPI.SpVoice"
oVoz = Createobject("SAPI.SpVoice")
For ln = 0 To oVoz.GetVoices().Count - 1
? ln
? oVoz.GetVoices().Item(ln).GetDescription
? oVoz.GetVoices().Item(ln).Id
oVoz.Voice = oVoz.GetVoices().Item(ln)
oVoz.Speak("Esto es una prueba")
Endfor
Un saludo.