¿Cómo llamar al sistema TTS para leer el contenido del cuadro de texto en vb?

Primero cree un objeto TTS, luego configure el tipo de idioma, configure el volumen y finalmente llame a hablar para leer el contenido en el cuadro de texto 1. El código es el siguiente

¿Establecer? objVoice?=?CreateObject("SAPI .SpVoice")

Set?colVoice?=?objVoice.GetVoices()

objVoice.Volume?=?100?

Para?i?=? 0?Para?colVoice.Count?-?

Para?i?=?0?Para?colVoice.Count?-?1?Si?Derecha(colVoice(i ).Id,?Len(" MSSimplifiedChineseVoice")? =?"Entonces, cnVoice =i

Siguiente

¿Establecer?objVoice.Voice?=?colVoice.Item(cnVoice)?

objVoice .Speak? (text1.text)

Establecer objVoice.Voice?