Private linkList As New Dictionary(Of LinkLabel, String)
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        Dim link As New LinkLabel
        link.Name = "lnkLabel1"
        link.Text = "vb@rchiv"
 
        linkList.Add(link, "http://www.vbarchiv.net/home/index.php")
        AddHandler link.LinkClicked, AddressOf LinkLabel_LinkClicked
 
        Me.Controls.Add(link)
    End Sub
 
    Private Sub LinkLabel_LinkClicked(sender As System.Object, e As _
      System.Windows.Forms.LinkLabelLinkClickedEventArgs)
        If TypeOf sender Is LinkLabel Then
            Dim link As LinkLabel = DirectCast(sender, LinkLabel)
 
            If linkList.ContainsKey(link) Then
                Process.Start(linkList(link))
            End If
        End If
    End Sub