vb.net dynamic link lable

Question

How can i find out which dynamic link has been clicked on Visual Basic? I have some LinkLabels created dynamically according to a dataset, and i want to open a new form that contains the information from that dataset, but i need to know how to load the form according to the link clicked.. code below... //This function creates linklabels according to the rows in the datatable

Sub DynamicLabels()
    Dim i As Integer
    Dim x As Integer = 14
    Dim y As Integer = 50
    Dim tp As TabPage = tabControl1.TabPages(1)
    If db.HasConnection() Then
        If db.SQLDS IsNot Nothing Then
            db.SQLDS.Clear()
        End If
        db.RunQuery("SELECT c.courseSubj AS Subject, c.courseNum AS CourseNum, r.className AS ClassName, t.tName AS Professor
                    FROM course c, classRoom r, teacher t, classroom_student u, student s
                    WHERE c.courseId=r.course_id AND t.teacherId=r.teacher_id AND s.studentId=u.student_id AND u.classroom_id=r.classId AND s.sUsername='" & Login.Usr.Text & "' ")
        For i = 0 To db.SQLDS.Tables(0).Rows.Count - 1
            ReDim MyLabel(db.SQLDS.Tables(0).Rows.Count)
            y += 50
            With MyLabel(i)
                MyLabel(i) = New LinkLabel()
                MyLabel(i).Name = "linklabel" & i.ToString
                MyLabel(i).Location = New Point(x, y)
                MyLabel(i).Size = New Size(700, 40)
                MyLabel(i).Font = New Font("Microsoft Sans Serif", 14)
                MyLabel(i).Text = String.Format(CType(db.SQLDS.Tables(0).Rows(i).Item("Subject"), String) & " " & CType(db.SQLDS.Tables(0).Rows(i).Item("CourseNum"), String) & " " & CType(db.SQLDS.Tables(0).Rows(i).Item("ClassName"), String) & ": " & CType(db.SQLDS.Tables(0).Rows(i).Item("Professor"), String))
                AddHandler MyLabel(i).LinkClicked, AddressOf label_LinkClicked
            End With
            tp.Controls.Add(MyLabel(i))
        Next
    End If
End Sub

I want to load a new form containing some information from the dataset.

Answer 1

I just added one label to demonstrate. Each Label you add would have the same Event procedure (the AddressOf part) but the Add Handler refers directly to the new label variable (mylabel.Click)

Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim mylabel As New Label With {
            .Text = "New Label",
            .Name = "newLabel",
            .Location = New Point(400, 100)
        }
        AddHandler mylabel.Click, AddressOf aLabel_Click
        Controls.Add(mylabel)
End Sub

And here is your event procedure

Private Sub aLabel_Click(sender As Object, e As EventArgs)
        Dim EventLabel As Label = DirectCast(sender, Label)
        Dim LabelText As String = EventLabel.Text
        'or any other property of the label you need to use
        MessageBox.Show(LabelText)
End Sub