для этого выкладываешь _
на форме один контрол нужного типа, _
устанавливаешь его свойство Index, например к 0. _
Для добавления к массиву нового элемента:
Load Label1(1)
Label1(1).Top = 100
Label1(1).Visible = True
Load Label1(2)
Label1(2).Top = 1000
Label1(2).Visible = True
'загруженный контрол наследует _
все значения свойств, от последнего элемента _
в массиве кроме Visible, которое всегда устанавливается к False.
'для выгрузки соответственно:
'Unload Control(I)
|