[alma2]

ضع أداة AxWindowsMediaPlayer1
وListBox1 لأسماء قنوات القرآن الكريم (ولا اسامح من يستغل الكود لقنوات محرمة)
وButton1 للتشغيل
وButton2 للإيقاف

وادع لي بالغيب

كود :

Public Class Form1

    Private arr As New Dictionary(Of String, String)

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        arr.Add("عبد الباسط مرتل", "mms://radio.mp3quran.net/basit")
        arr.Add("عبد الباسط مجود", "mms://radio.mp3quran.net/basit_mjwd")
        arr.Add("محمد صديق المنشاوى", "mms://radio.mp3quran.net/minsh")
        arr.Add("محمود الحصرى", "mms://radio.mp3quran.net/husr")
        arr.Add("مشارى راشد العفاسى", "mms://radio.mp3quran.net/afs")
        arr.Add("ماهر المعيقلى", "mms://radio.mp3quran.net/maher")
        arr.Add("احمد بن على العجمى", "mms://radio.mp3quran.net/ajm")
        arr.Add("الشيخ سعد الغامدى", "mms://radio.mp3quran.net/s_gmd")

        ListBox1.Items.AddRange(arr.Select(Function(x) x.Key).ToArray)

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If AxWindowsMediaPlayer1.currentMedia IsNot Nothing Then AxWindowsMediaPlayer1.Ctlcontrols.stop()
        Dim index As Integer = ListBox1.SelectedIndex
        If index <> -1 Then
            If AxWindowsMediaPlayer1.playState <> WMPLib.WMPPlayState.wmppsPlaying Then
                AxWindowsMediaPlayer1.URL = arr(ListBox1.Text)
                AxWindowsMediaPlayer1.Ctlcontrols.play()
            End If
        End If
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        If AxWindowsMediaPlayer1.currentMedia IsNot Nothing Then AxWindowsMediaPlayer1.Ctlcontrols.stop()
    End Sub

End Class