control array events

[vfiroiu]

In VB6, I want to create a control array (labels) at startup and then be able to have one event procedure (click) for all of them that returns an index. This works with the copy-paste method of making a label array, but i have over 100 labels and don't want to copy-paste anyways. the code i have is as follows:

__________________________________________________ ________________

(General)
Dim Square() as Control

(Load)
Redim Square(0 to Num)

For count = 0 to num
Set Square(count) = VB.Controls.Add("VBLabel", "Square" & count, "frmForm")
With Square(count)
'position in form
end With
next

' section 1
Private Sub Square()_Click(Index as Integer. Button as integer, Shift as Integer...etc.)
square(index).caption = button
end sub
__________________________________________________ ________________

The exact same code in section 1 works if the array is instead copy-pasted. Currently, the labels display correctly, but nothing happens when i click on them (section 1). Any help is appreciated.

[Killer42]

The easy way is to create the control array at design time with a single entry (index 0) and create the event procedures for it. Then at runtime, you just use the Load statement to add more entries to the control array.

[vfiroiu]

Thanks Killer42, but could you please shop me the specific code for doing that? That would help alot. thanks.