[mne3000]

(29-03-20, 04:15 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
تفضل اخي هذا الكود يقرأ الاحرف اللاتينية فقط 

كود :

شكرا اخى الكريم عى الكود بس لو كان النص مكتوب بلغة غير الانجليزية مثل العربية او مثلا اخليه الصوت بلغة الجهاز  مثلا  

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

       End Try