Mengubah Teks ke Suara

Kode berikut ini akan menunjukkan bagaimana suatu teks diubah menjadi suara.

Dim s
Set s = CreateObject("sapi.spvoice")
s.Speak Text1.Text