How to add additional object to form through code

[Hack]

You would do something like

Private Sub lblLabel_Click(Index As Integer)
Select Case Index
    Case 0
      lblLabel(0).Caption = "Hello"
    Case 1
      lblLabel(1).Caption = "GoodBye"
    'etc
End Select
End Sub