تلفظ کلمات و جمله ها در ویژوال بیسیک

ابتدا بر روی یک دکمه قرار می دهیم یا در یک تکس باکس کد زیر را می نویسم تا ویژوال ان را بخواند

Dim ras, sapi

ras = Text1.Text

Set sapi = CreateObject("sapi.spvoice")

sapi.Speak ras

Text1.SetFocus