Могут ли быть взамосвязаны массивы?

       MsgBox("items " & items(0, 3)(0, 0) & " - " & items(0, 3)(0, 1) & "     item " & item(0, 3)(0, 0) & " - " & item(0, 3)(0, 1))
       For strItem = 0 To UBound(itemsCopied)
            For strCoord = 0 To UBound(itemsCopied(strItem, 3), 1)
                itemsCopied(strItem, 3)(strCoord, 0) = itemsCopied(strItem, 3)(strCoord, 0) - Xmin
                itemsCopied(strItem, 3)(strCoord, 1) = itemsCopied(strItem, 3)(strCoord, 1) - Ymin
            Next
        Next
        MsgBox("items " & items(0, 3)(0, 0) & " - " & items(0, 3)(0, 1) & "     item " & item(0, 3)(0, 0) & " - " & item(0, 3)(0, 1))

ReDim itemsCopied(UBound(item), uboundItem2)
Array.Copy(item, itemsCopied, item.Length)

For strItem = 0 To uboundItem1
    If items(strItem, 0) = Nothing Then Exit For
        If items(strItem, 4) = False Then Continue For  
        For q As Byte = 0 To uboundItem2 : item(a, q) = items(strItem, q) : Next
        a += 1
Next

Type ShapeRec
    Type As Byte    ' тип объекта - круг, прямоугольник, полигон текст и т.д.
    Options as Long ' здесь могут храниться любых 32 логических переменных (флага)
    LeftX as Double  'Координаты углов объекта
    TopY as Double
    RightX as Double
    BottomY as Double
    Angle as Double  'угол поворота
    ID as Integer 'уникальный номер объекта, например, для доступа к массиву координат
End Type
 
'описываем массив объектов
Public item() As ShapeRec
 
' описываем флаги
const flagSelection = 1, flagCanFinishItem = 2
const flagItemForMove = 4, flagMouseDownMiddle = 8,
const flagMouseDownLeft = 16, LShiftButDown = 32
const flagPasting = 64
 
'доступ к свойствам осуществляется, например, таким образом
if item(n).Options and flagPasting <> 0 then ...
 
или же можно описать функцию для наглядности
Function SetFlag(AOptions&, Flag&) as Boolean
   SetFlag = (AOptions and Flag) <> 0
End Function
' и использовать как
If SetFlag(item(n).Options, flagSelection) then
 
'доступ к координатам
With item(n)
  .LeftX = .LeftX - XMin : .RightX = .RightX - XMin
  .TopY = .TopY - YMin : .BottomY = .BottomY - YMin
End With
 
'или же 
item(n).LeftX = item(n).LeftX - XMin