Размножение

[Ramauf]

Как можно сделать массив из SHAPEов типа
dim sss as new collection
и т. п.
Т. е. надо сделать так, чтобы можно было бы создавать эти SHAPE

[_Мика_]

У Shape'а ставиш Index=0 и вперед

For coun = 1 To 10
Load Shape1(coun)
Shape1(coun).Left = 10 координаты новых Shape'ов
Shape1(coun).Visible = True
Next

[Ramauf]

спасибо чувак!!!