[مساعدة]

تفضل الكود

كود :

Private channelList As New List(Of String)

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim lines() As String = File.ReadAllLines("C:\channellist.txt")
    For Each l As String In lines
        Dim data() As String = l.Split(",")
        If data.Length = 2 Then
            Me.ListBox1.Items.Add(data(0))
            channelList.Add(data(1))
        End If
    Next

End Sub

Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
    If Me.ListBox1.SelectedIndex >= 0 Then
        Me.WebBrowser1.Navigate(channelList(Me.ListBox1.SelectedIndex))
    End If
End Sub