[محمد كريّم]

كود :

       Dim i As Integer
       For i = 0 To tex1.Text.Length - 1
           Try
               My.Computer.Audio.Play(My.Resources.ResourceManager.GetObject(tex1.Text.Chars(i)), AudioPlayMode.Background)
               Thread.Sleep(1000) 'مطلوب تحديد الزمن بناء على طول المقطع الصوتي
           Catch ex As Exception
               MessageBox.Show(ex.Message)
           End Try
       Next