[Anas Mahmoud]

بارك الله فيك اخي وجزاك الله خيرا

فقط لي ملاحظة اذا سمحت لي 

لاحظت انك تستخدم If و else if لتحديد رابط الملف المطلوب تشغيله ، وكنتيجة لذلك هناك كود مكرر 114 مرة بدون داعي ، 


بينما يمكن الوصول لنفس النتيجة بطريقة ابسط باستخدام String.Format 

كود :

   Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
       Dim index As Integer = ComboBox2.SelectedIndex + 1
       Dim URL As String = String.Format("https://download.tvquran.com/download/TvQuran.com__Fares.Abbad/{0:D3}.mp3", index)
       AxWindowsMediaPlayer1.URL = URL
       AxWindowsMediaPlayer1.Ctlcontrols.play()
   End Sub

هكذا نحن لم نخالف مبدأ لا تكرر نفسك DRY