Как скопировать структуру или сменить указатель новой переменной на ее адрес

type Struct_inside
    a as long
    b as long
end type
 
type Struct_main
    count as long
    arr() as Struct_inside
end type
 
public BIDS() as Struct_main

sub form_load()
    Redim BIDS(0 to 1) as Struct_main
    Redim BIDS(0).arr(0) as Struct_inside
    BIDS(0).arr(0).a = 11
    BIDS(0).arr(0).b = 22
end sub

msgbox BIDS(0).arr(0).a
'я конечно могу сделать вот так:
with BIDS(0).arr(0)
   msgbox .a
end with
'но мне хочется поизвращаться :)

Dim SI as Struct_inside
' и скопировать в нее структуру BIDS(0).arr(0)
' чтобы потом обращаться к переменным a и b вот так:
msgbox SI.a
msgbox SI.b

SI.a = BIDS(0).arr(0).a
SI.b = BIDS(0).arr(0).b

SI = BIDS(0).arr(0)

Private Type STRUCT_Header
    HeaderSize As Long
    GUID As String * 16
    Flags As Long
End Type
    
Private Sub Form_Load()
    Dim ff      As Integer
    Dim sFile   As String
    Dim Header  As STRUCT_Header
    ff = FreeFile()
    
    sFile = "c:\users\alex\desktop\avz.lnk"
    
    Open sFile For Binary Access Read As #ff
        Get #ff, 1, Header
    Close #ff
End Sub

Option Explicit
 
Private Sub Form_Load()
 
    Dim col_spec As Object
    Dim col_anim As Object
    Dim cols
    Dim col
    Dim NC As Object
    Dim i As Long
    
    Set col_anim = New Collection
    Set col_spec = New Collection
    col_anim.Add "1"
    col_spec.Add "1"
    
    Debug.Print "col_anim addr=" & ObjPtr(col_anim)
    Debug.Print "col_spec addr=" & ObjPtr(col_spec)
    
    ' Создаем массив объектов (а на самом деле, я так понял объекты просто были скопированы)
    cols = Array(col_anim, col_spec)
    
    ' Создаем временный объект
    Set NC = New Collection
    NC.Add "2"
    Debug.Print "NC addr="; ObjPtr(NC)
    
    For i = 0 To UBound(cols)
        Debug.Print "old col addr=" & ObjPtr(cols(i))
        Set cols(i) = NC    ' <--- как здесь для объектов, которые содержатся в массиве cols, переназначить ссылку на коллекцию NC
        
        Debug.Print "new col addr=" & ObjPtr(cols(i))
    Next
    
    Set NC = Nothing
    
    Debug.Print "-----------"
    
    For i = 0 To UBound(cols)
        Debug.Print "col addr="; ObjPtr(cols(i))
        Debug.Print cols(i).Item(1)
    Next
    
    Debug.Print "col_anim addr=" & ObjPtr(col_anim)
    Debug.Print "col_spec addr=" & ObjPtr(col_spec)
    Debug.Print col_anim.Item(1)
 
End Sub

Private Sub Form_Load()
    Dim p As New Collection
    Dim q As New Collection
    
    p.Add "4"
    q.Add "8"
    
    Foo p, q
    
End Sub
 
Private Sub Foo(ParamArray z())
    Set z(0) = New Collection   ' p
    Set z(1) = New Collection   ' q
    z(0).Add "t"
    z(1).Add "u"
End Sub

for each key in .keys

For i = 0 to UBound(z)
set z(i) = new collection
...

' Функция-посредник
Private Sub func_SetDefaults(frm As FormMain, _
       ByVal begin_of_pointers As Long, _
       ByRef RecordFill As TYPE_WPC_FILL)
 
    Dim StepPointer As Long
 
    StepPointer = Manager.DataPointer + _
       Manager.ProgramIndex * PROGRAM_SIZE_IN_BYTES + _
       HEADER_SIZE_IN_BYTES + _
       Manager.StepIndex * STEP_SIZE_IN_BYTES
 
    PutMem4 VarPtr(begin_of_pointers) + 4, ByVal StepPointer
 
'...
 
    ' Аналоговые типы
    RecordFill.Level = Level.DefaultValue
    RecordFill.RotationTime = RotationTime.DefaultValue
    RecordFill.PauseTime = PauseTime.DefaultValue
    RecordFill.DrumSpeed = DrumSpeed.DefaultValue
 
End Sub
 
Public Sub SetDefaults(frm As FormMain)
    Dim RecordFill As TYPE_WPC_FILL
 
    func_SetDefaults frm, 0&, RecordFill
End Sub

Option Explicit
 
Private Declare Function PutMem4 Lib "msvbvm60" (Src As Any, ByVal Dst As Long) As Long
 
Private Sub MakeByRefPointer(Pointer As Variant, ByVal VarType As VbVarType, ByVal Address As Long)
    PutMem4 Pointer, CInt(VarType Or &H4000)
    PutMem4 ByVal VarPtr(Pointer) + 8, Address
End Sub
Private Sub ChangePointer(Pointer As Variant, ByVal Address As Long)
    PutMem4 ByVal VarPtr(Pointer) + 8, Address
End Sub
 
Private Sub Form_Load()
    Dim z As Variant
    Dim s As String
    Dim q As String
    
    s = "The trick"
    q = "Visual basic 6"
    
    MakeByRefPointer z, VarType(s), VarPtr(s)
    ' z óêàçûâàåò íà s
    ChangePointer z, VarPtr(q)
    ' z óêàçûâàåò íà q
    
End Sub