Texte à la parole vb.net

Dim SAPI As Object
sAPI = CreateObject("SAPI.spvoice")
SAPI.speak(TextBox1.Text)
Helpful Hawk