[VB 6] creare matrice di controlli a runtime

[NRG]

ciao a tutti
devo creare un programmino VB dove sia possibile disegnare e spostare delle forme geometriche
ho creato una picturebox, riesco a disegnare dei rettangoli e a spostarli (come oggetti shape) ma dandogli un nome ben definito ad ognuno (p.es. rect1 rect2 rect3...).

qualcuno sa dirmi come creare questi oggetti shape interni alla picturebox come elementi di una matrice di controlli???
(p.es. rect1(0) rect1(1) rect1(2)...)

ho provato con questo codice ma va in errore nella fase di aggiunta del controllo perchè non accetta il nome con l'indice

Dim Shape2() As Control
...
Private Sub Form_Load()

ReDim Shape2(1) As Control

End Sub
...
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim I As Byte
...
I = UBound(Shape2)
ReDim Shape2(I + 1) As Control

Set Shape(I) = Controls.Add ("VB.Shape", "Shape2(" & I & ")", Picture1)

Shape2(I).Visible = True
...
End Sub


datemi una mano

grazie

...