Dim WithEvents Links As New ListBox With {.Parent = Me}
 
Dim linklist As New List(Of LinkLabel)
 
 
Private Sub Form1_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
     'Einige Links
     linklist.Add(New LinkLabel With {.Text = "www.vbarchiv.net"})
     linklist.Add(New LinkLabel With {.Text = "www.startpage.com"})
     linklist.Add(New LinkLabel With {.Text = "www.firefox.com"})
 
     'Datenbindung der Liste
     Links.DisplayMember = "Text"
     Links.DataSource = linklist
 
End Sub
 
 
Private Sub Links_SelectedIndexChanged(sender As Object, e As EventArgs) _
     Handles Links.SelectedIndexChanged
 
     Dim ind As Integer = Links.SelectedIndex
     If ind < 0 then Exit Sub
 
     Dim ll As LinkLabel = DirectCast(Links.Items(ind), LinkLabel)
     System.Diagnostics.Process.Start(ll.Text)
 
End Sub