Public Class MainForm
    Dim Speech As New Object
    Dim txtSpeech As String = Nothing

    Private Sub MainForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Speech = CreateObject("sapi.spvoice")
    End Sub

    Private Sub btnRead_Click(sender As System.Object, e As System.EventArgs) Handles btnRead.Click
        txtSpeech = txtTextToSpeech.Text
        bWorker.RunWorkerAsync()
    End Sub

    Private Sub bWorker_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles bWorker.DoWork
        Speech.Speak(txtSpeech)
    End Sub

    Private Sub btnCancel_Click(sender As System.Object, e As System.EventArgs) Handles btnCancel.Click
        Me.Close()
    End Sub
End Class