Public Class Form1
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        Dim sum, n As Int64
        sum = TextBox2.Text
 
 
        Do
            n += 1
            sum += 1
 
 
            ListBox1.Items.Add("URL" & sum)
 
            If n = TextBox1.Text Then
                Exit Do
            End If
        Loop
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles _
      Button2.Click
        Clipboard.SetText(Me.ListBox1.SelectedItem)
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles _
      Button3.Click
        ListBox1.Items.Clear()
    End Sub
End Class

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

Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles _
  ListBox1.DoubleClick
        Process.Start(ListBox1.SelectedItem.ToString)
    End Sub