[VB.NET] طلب كود تعامل مع الاحداث على link label

PHP كود :

Public Class Form1

    Dim links As New List(Of String)
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ListBox1.Items.Add("منتدى فيجوال بيسك لكل العرب")
        links.Add("http://vb4arb.com")

        ListBox1.Items.Add("الفريق العربي للبرمجة")
        links.Add("http://arabteam2000-forum.com/")

        ListBox1.Items.Add("المحيط العربي للبرمجة")
        links.Add("http://www.arabmoheet.net")

        ListBox1.Items.Add("يوتيوب")
        links.Add("http://www.youtube.com")


        ListBox1.Items.Add("تويتر")
        links.Add("http://www.twitter.com")


        ListBox1.Items.Add("فيس بوك")
        links.Add("http://www.facebook.com")

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim p As Integer = 0
        For a = 0 To ListBox1.Items.Count - 1
            Dim lnk As New LinkLabel
            lnk.Cursor = Cursors.Hand
            With lnk
                .Text = ListBox1.Items.Item(a).ToString
                .Top = p
                .Width = Panel1.Width
            End With
            Panel1.Controls.Add(lnk)
            p += lnk.Height
            AddHandler lnk.Click, AddressOf gotourl

        Next
    End Sub
    Private Sub gotourl(sender As Object, e As EventArgs)
        MsgBox(links(ListBox1.Items.IndexOf(sender.text)))

        Process.Start(links(ListBox1.Items.IndexOf(sender.text)))
    End Sub
End Class

PHP كود :

       Dim p As Integer = 0
        For a = 0 To ListBox1.Items.Count - 1
            Dim lnk As New LinkLabel
            lnk.Cursor = Cursors.Hand
            With lnk
                .Text = ListBox1.Items.Item(a).ToString
                .Top = p
                .AutoSize = True
            End With
            Panel1.Controls.Add(lnk)
            p += lnk.Height
            AddHandler lnk.Click, AddressOf gotourl
        Next

حاولت على السريع بس تحتاج شوي تفكير عمل حدث كلك لكن المشكلة ياخذ اخر قيمة من الروابط
ولو انك تستخدم اي اداة جاهزة مثلا ليست او ليست فيو كان افضل لو فرضنا صار عدد الروابط خمس مية كيف راح يكون شكل الفورم؟

PHP كود :

Imports System.Data.OleDb
Imports System.IO

Public Class Form1
    Public con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\db.accdb")
    Dim li As LinkLabel
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Dim cmd As New OleDbCommand
        Dim a As String

        cmd = New OleDbCommand("select max(id) from test ", con)
        con.Open()
        a = cmd.ExecuteScalar




        'ــــــــــــــــــــــــــــــــــــــــــــــ


        'وهوارقم صفر a1حلقة تكرارية تبداء من 
        'فى قاعدىة البيانات idوهوا  اخر رقم فى حقل   a تنتهى عند
        For a1 As Integer = 0 To a - 1
            li = New LinkLabel
            'link  على انها  li الاعلان عن 


            'من خللو بستطيع وضع مسافات بين كل لنك فى مرحلة التشغيل int الاعلان عن 
            Dim int As Integer
            int = int + 50

            li.Location = New Point(10, 0 + int - 30)
            li.Text = a1
            Controls.Add(li)

            'ادراج قيمة كل لينك
            Dim dtp As New OleDbDataAdapter("select * from test ", con)
            Dim ds As New DataSet
            dtp.Fill(ds, "ur")
            li.Text = ds.Tables(0).Rows(a1).Item(1)

            AddHandler li.Click, AddressOf HandleDynamicButtonClick
        Next
        'ــــــــــــــــــــــــــــــــــــ
    End Sub

    'المطلوب لما ادوس على اى لنك يودينى على الموقع 




    Private Sub HandleDynamicButtonClick(ByVal sender As Object, ByVal e As EventArgs)
        Dim btn As LinkLabel = DirectCast(sender, LinkLabel)
        Process.Start(li.Text)
    End Sub

End Class 