Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim speech
        speech = CreateObject("sapi.spvoice")
        speech.speak(TextBox1.Text)
    End Sub
End Class

According to your Codes:
It will work definately But when you have written the big lines almost 5 line and try to move/drag your form from 1 place to another then it will not respond any more....

• What to be done to stop this?

► Add the Backgroundworker to your form.

Button1 code:

BackgroundWorker1.RunWorkerAsync 

Background Worker Code:

    Dim speech
    speech = CreateObject("sapi.spvoice")
    speech.speak(TextBox1.Text)


► This would be the best idea as to read the Text in VB,
► Now I am in Search of: What we speak that writes itself.

I found videos on it but dll files to be downloaded and it also complicated then too in am in search...

Thank You

This question has already been answered. Start a new discussion instead.