[elgokr]

(08-06-18, 06:23 PM)hichem1 كتب : ايمكنك التعديل على هذا المشروع لأن الطريقة لم تعمل معي 
في هذا المشروع إستبدلت radiobox ب combobox لأأني أحتاج إلى مساحة أكبر
البرنامج في الملحقات و شكرا للمساعدة

---

http://www.mediafire.com/file/2l3bpjglo0...1.rar/file

بما انك مفعل Timer2

قم باستخدام هذا الكود

كود :

   Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
       Label1.Text = Now.ToString("HH:mm:ss")
       If TimeSpan.Parse(Label1.Text) = TimeSpan.Parse(Label2.Text) Then
           Dim aa As String = ComboBox1.SelectedItem
           If aa = "azan1" Then
               My.Computer.Audio.Play(My.Resources.azan1, AudioPlayMode.Background)
           ElseIf aa = "azan2" Then
               My.Computer.Audio.Play(My.Resources.azan2, AudioPlayMode.Background)
           ElseIf aa = "azan3" Then
               My.Computer.Audio.Play(My.Resources.azan3, AudioPlayMode.Background)
           ElseIf aa = "azan4" Then
               My.Computer.Audio.Play(My.Resources.azan4, AudioPlayMode.Background)
           ElseIf aa = "azan5" Then
               My.Computer.Audio.Play(My.Resources.azan5, AudioPlayMode.Background)
           Else
               ComboBox1.SelectedItem = "azan1"
           End If
       End If
   End Sub

الكود بناءاً على المشروع المرفق بالرابط 

تحياتى لك