Click Event for Member of Label Array

You can use AddHandler to dynamically add an eventhandler. The corresponding method to remove the event handler is RemoveHandler (which I haven't done in this example)

Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click Dim i As Integer Dim j As Integer Dim cells(8, 8) As Label For i = 0 To 8 For j = 0 To 8 cells(i, j) = New Label cells(i, j).Width = 40 cells(i, j).Height = 40 cells(i, j).Text = CStr(i * 9 + j + 1) cells(i, j).Top = 150 + i * 42 cells(i, j).Left = 200 + j * 42 cells(i, j).ForeColor = Color.Black cells(i, j).BackColor = Color.LightBlue cells(i, j).BorderStyle = BorderStyle.FixedSingle cells(i, j).TextAlign = ContentAlignment.MiddleCenter cells(i, j).AutoSize = False AddHandler cells(i, j).Click, AddressOf Me.LabelClick Me.Controls.Add(cells(i, j)) Next Next End Sub Private Sub LabelClick(ByVal sender As Object, ByVal e As EventArgs) Dim lbl As Label = TryCast(sender, Label) If lbl IsNot Nothing Then MessageBox.Show(lbl.Text) End If End Sub