Button1: ep.speak(TextBox1.Text)Form1: Dim ep = CreateObject("sapi.spvoice")Button2:نكتب End
Dim ep = CreateObject("sapi.spvoice") Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ep.speak(TextBox1.Text) End Sub