[Amin_Mansouri]

با سورس زیر در ویژوال بیسیک 6 میتونید یه متن رو به صدا تبدیل کنید اونم بدون چیزهای اضافی
این سورس خودم نوشتم.

کد:

'Coder Amin Mansouri
Public Sub SPEAK(Text As String)
   Dim AminVoice, sapi
AminVoice = Text
    Set sapi = CreateObject("sapi.spvoice")
    sapi.SPEAK AminVoice
End Sub

Private Sub Form_Load()
SPEAK ("Coder By Amin www.parsicoders.com")
End Sub