Voice Text Application (in urdu)

By:Hamzakhaliq

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

msg=InputBox(''Enter your text''MessageBox'')

Set sapi=CreatObject(''sapl.spvoice'')

sapl.Speak msg