Crea un array con posizione e dimensione di tutti gli oggetti...
codice:
Private Type Obj
    Left As Single
    Top As Single
    Width As Integer
    Height As Integer
End Type

Dim PosObj() As Obj
Ciao