---------start-----------------------------
Private Sub Command1_Click()
Call ReadText(Form1.Text1.Text)
End Sub
Public Sub ReadText(ByVal TextString As String)
Set Textsound = CreateObject("SAPI.SpVoice")
Call Textsound.Speak(TextString, SPF_DEFAULT)
End Sub
---------------end-------------------------

enjoy it...
source XCode magazine
No comments:
Post a Comment