Реализовать плейлист радиостанций для AxWindowsMediaPlayer

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "Дорожное радио" Then Me.Label1.Text = "http://dor64no.streamr.ru/"
        If ComboBox1.Text = "Русское радио" Then Me.Label1.Text = "http://rr.fmtuner.ru/"
        If ComboBox1.Text = "Наше радио" Then Me.Label1.Text = "http://nashe1.hostingradio.ru:80/nashe-128.mp3"
        'И так далее---->78 URL
    End Sub
 
    Private Sub Play1_MouseDown(sender As Object, e As MouseEventArgs) Handles Play1.MouseDown
        AxWindowsMediaPlayer1.URL = Label1.Text
    End Sub

Imports System.Xml
Public Class Form1
    Dim fileName = "test.xml"
 
'ЧТО ТУТ ПИСАТЬ Я НЕ ЗНАЮ?
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        AxWindowsMediaPlayer1.URL = TextBox1.Text
    End Sub
End Class

Public Class Form1
    Dim list_name As New ListBox 'создаем список имен станций
    Dim list_source As New ListBox ' создаем список ссылок
    Function replace(ByVal s As String) ' функция для удаления "
        Dim str As String = s.Replace(Chr(34), "")
        Return str
    End Function
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ComboBox1.Items.Clear() 'Очищаем
        Me.list_name.Items.Clear() 'Очищаем
        Me.list_source.Items.Clear() 'Очищаем
        Dim source As String = IO.File.ReadAllText("D:\playlist.txt") 'считфываем файл со списком
        Dim max() As String = Split(source, "#$") ' находим общее количество записей
        '
        For i = 0 To max.Count - 2 ' цикл от 0 до максимального количества записей -2
            Dim res() As String = Split(max(i), "=") ' пилим строку по знаку = (слева название станции, справа ссылка)
            list_name.Items.Add(replace(res(0))) ' добавляем имя станции в список имен станций
            list_source.Items.Add(replace(res(1))) ' аналогично для ссылок
            ComboBox1.Items.Add(replace(res(0))) ' заполняем combobox именами
            If ComboBox1.Items.Count > 0 Then ' если хоть что-то загрузили, то выберем первую запись
                ComboBox1.SelectedIndex = 0
            End If
        Next
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        list_source.SelectedIndex = ComboBox1.SelectedIndex ' выбирем тот же индекс в списке ссылок, что выбран в combobox
        Label1.Text = list_source.Items.Item(list_source.SelectedIndex) ' присваиваем label1 значение из списка ссылок под выбранным индексом
    End Sub
End Class

Dim source As String = IO.File.ReadAllText("D:\radio.m3u") 'считфываем файл со списком
        Dim max() As String = Split(source, "#EXTINF:0,")
        TextBox1.Text = source
        For i = 1 To max.Count - 3
            Dim res() As String = Split(max(i), "http")
            'MsgBox(res(0))
            list_name.Items.Add(res(0)) ' добавляем имя станции в список имен станций
            list_source.Items.Add("http" & res(1)) ' аналогично для ссылок
            ComboBox1.Items.Add(res(0)) ' заполняем combobox именами
            If ComboBox1.Items.Count > 0 Then ' если хоть что-то загрузили, то выберем первую запись
                ComboBox1.SelectedIndex = 0
            End If
        Next
    End Sub

Dim source As String = IO.File.ReadAllText("D:\radio.m3u") 'считфываем файл со списком

Dim source As String = IO.File.ReadAllText("D:\radio.m3u", System.Text.Encoding.Default) 'считфываем файл со списком

 Dim source As String = IO.File.ReadAllText(Application.StartupPath & "\radio.m3u", System.Text.Encoding.Default) 'считфываем файл со списком
        Dim max() As String = Split(source, "#EXTINF:0,")
        For i = 1 To max.Count - 1
            Dim res() As String = Split(max(i), "http")
            list_name.Items.Add(res(0)) ' добавляем имя станции в список имен станций
            list_source.Items.Add("http" & res(1)) ' аналогично для ссылок
            ComboBox1.Items.Add(res(0)) ' заполняем combobox именами
            If ComboBox1.Items.Count > 0 Then ' если хоть что-то загрузили, то выберем первую запись
                ComboBox1.SelectedIndex = 0
            End If
        Next