test

Html code posted
created at 05 Feb 03:57

Edit | Back 
1
2
3
4
5
6
7
8
9
10
11
12
 
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim SAPI
        SAPI = CreateObject("SAPI.spvoice")

        SAPI.Speak("textbox1.text")

    End Sub

End Class
265 Bytes in 1 ms with coderay