VB lisbox ta sürekli degişen secimi Vlc de oynatma

[chessman]

Merhaba arkadaşlar
belki basit bir soru ama VB de yeniyim kusuruma bakmayın
Aşağıdaki projede listboxtaki listedekilerden herhangi birine tıkladığımda Vlc tıklanan linki oynatıyor.
Benim yapmak istediğim seçilen vlc de aktif iken başka bir şeçim yaptığımda vlc nin yeni seçileni oynatması.

Kısaca özetlersek tv de kanal değişmesi gibi.

Yardımlarınızı bekliyorum


Test.txt nin içeriği aşağıdaki gibidir
http://31.186.24.233:8000/21
http://31.186.24.233:8000/27
http://iptv.electro-clair.net:8000/live/nader/nader/254.ts


........
........ Şeklinde devam ediyor.

Imports System.IO
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dosya As String
        Dim tmp As String

        dosya = "C:\Test.txt"
        Dim fss As FileStream = New FileStream(dosya, FileMode.Open)
        Dim r As StreamReader = New StreamReader(fss)

        Do
            tmp = r.ReadLine
            TextBox1.Text = tmp
            Dim kaynak() As String = {TextBox1.Text}
            For Each i As String In kaynak
                TextBox1.Text = Trim(ListBox1.Items.Add(i))

            Next

        Loop Until tmp Is Nothing
        r.Close()
        fss.Close()
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        TextBox1.Text = ListBox1.SelectedItem
        vlc.playlist.add(ListBox1.SelectedItem)
        vlc.playlist.play()

    End Sub
End Class