[سعود]

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