[AL_BRNS]

السلام عليكم

جرب التالي بدون اظافة اي ادوات

PHP كود :

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Dim objVoice As Object

Private Sub Command1_Click()
Set objVoice = CreateObject("SAPI.spVoice")
objVoice.Speak Text1.Text
sound1 = sndPlaySound(App.Path + "\" + Text1.Text + ".WAV", 3)
End Sub 


بالتوفيق .