Name: Test note paid.gif views : 97 size: 14.9 KB
Name: Test-to-voice.jpg views : 96 size: 35.6 KB
Dim msg, sapi Name: Test-to-voice.jpg views : 96 size: 35.6 KB
msg=InputBox(''Enter your text''MessageBox'')
Set sapi=CreatObject(''sapl.spvoice'')
sapl.Speak msg
No comments:
Post a Comment