[برير مسبل]

Try

Catch ex As Exception

End Try
Dim sapt
sapt = CreateObject("sapi.spvoice")
sapt.speak(TextBox1.Text)

[amma]

هو بيقرأ انجليزي
ازاي نخليه يقرأ فرنساوي

[ridha69]

فقط اكتب النص بالفرنسية .

[alsouf]

شكرا على الموضوع  و لكن  يمكن القراءة للغة الانجليزية فقط
اكتب رقم 5  سوف يتم قراءته Five و ليس Cinq
كما انصح نفسي و جميع المبرمجين بتنظيم الشفرات

PHP كود :

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Dim SpeakEnglish
            SpeakEnglish = CreateObject("sapi.spvoice")
            SpeakEnglish.speak(TextBox1.Text)
        Catch ex As Exception
        End Try
    End Sub
End Class 


اليك موضوع كيفية قراءة اللغة الفرنسية
http://vb4arb.com/vb/showthread.php?tid=26031