[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
تفضل اخي هذا الكود يقرأ الاحرف اللاتينية فقط 

كود :

Try
           Dim sapt
           sapt = CreateObject("sapi.spvoice")
           sapt.speak(TextBox1.Text)
       Catch ex As Exception

       End Try