Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        For i As Integer = 0 To 9
            Dim l As New Label
            With l
                .Height = 18
                .Top = 50 + 18 * i
                .Left = 100
                .Text = "Hello" & i.ToString
                AddHandler l.Click, AddressOf Label_Click
                Me.Controls.Add(l)
            End With
        Next
    End Sub
 
    Private Sub Label_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim MyLabel As Label
        MyLabel = CType(sender, Label)
        MyLabel.Text = "...World!"
    End Sub

fg viperbone