ویژوال بیسیک

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

Dim ras, sapi

ras = Text1.Text

Set sapi = CreateObject("sapi.spvoice")

sapi.Speak ras

Text1.SetFocus