vb.net text to speech code example

Example: text to speech vb.net

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