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

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

Private Type TypeA
    A As Long
    B As Long
End Type
 
Private Type TypeB
    C As Long
    D As Long
End Type
 
Private Type TypeC
    E As TypeA
    F As TypeB
End Type
 
Private Type RealTypeC
    ' Ïîëå E
    A As Long
    B As Long
    ' Ïîëå F
    C As Long
    D As Long
End Type

Public TYPE_WPC_TITLE As TYPE_WPC_TITLE
 
' Структура заголовка программы
Public Type TYPE_WPC_TITLE
  CRC As Byte
  LowBits As Byte
  HiBits As Byte
  ProgName(1 To PROG_NAME_LENGTH) As Byte
  reserved(1 To 2) As Byte
End Type
 
' Общая структура шага
Public Type TYPE_WPC_STEP
  Bits As Integer
  
  reserved(1 To 14) As Byte
End Type
 
' Структура программы
Public Type TYPE_WPC_PROG
  Title As TYPE_WPC_TITLE
  Step(1 To MAX_NUMBER_OF_STEPS) As TYPE_WPC_STEP
End Type

'  struct {
'    unsigned int Type:4;             // код типа операции
'    unsigned int Pause:1;            // разрешение паузы до выполнения шага
'    unsigned int ColdWaterGate:1;    // разрешение клапана подачи холодной воды
'    unsigned int HotWaterGate:1;     // разрешение клапана подачи горячей воды
'    unsigned int RecycledWaterGate:1;// разрешение клапана подачи рециркулированной воды
'    unsigned int Rotation:1;          // вращения во время налива
'    unsigned int Reserved:7;   //
'  } Bits;

            Case COOL_FAST_FIELD:
 
                Select Case .ComboCell.ListIndex
                    Case 0: RecordCool.Bits = RecordCool.Bits And &HFFDF
                    Case 1: RecordCool.Bits = RecordCool.Bits Or &H20
                End Select

                Case FILL_ROTATION_FIELD:
 
                    If (RecordFill.Bits And &H100) / &H100 Then
                        .PropertyTable.Text = STRING_YES
                    Else
                        .PropertyTable.Text = STRING_NO
                    End If

Option Explicit
 
'  struct {
'    unsigned int Type:4;             // êîä òèïà îïåðàöèè
'    unsigned int Pause:1;            // ðàçðåøåíèå ïàóçû äî âûïîëíåíèÿ øàãà
'    unsigned int ColdWaterGate:1;    // ðàçðåøåíèå êëàïàíà ïîäà÷è õîëîäíîé âîäû
'    unsigned int HotWaterGate:1;     // ðàçðåøåíèå êëàïàíà ïîäà÷è ãîðÿ÷åé âîäû
'    unsigned int RecycledWaterGate:1;// ðàçðåøåíèå êëàïàíà ïîäà÷è ðåöèðêóëèðîâàííîé âîäû
'    unsigned int Rotation:1;          // âðàùåíèÿ âî âðåìÿ íàëèâà
'    unsigned int Reserved:7;   //
'  } Bits;
 
Public Enum Bits
    pType = &HF
    Pause = &H10&
    ColdWaterGate = &H20
    HotWaterGate = &H40
    RecycledWaterGate = &H80
    Rotation = &H100
    Reserved = &HFE0&
End Enum
 
Private Sub Form_Load()
 
    Dim z As Bits
    
    If z And HotWaterGate Then
        ' Åñëè ïîëå HotWaterGate óñòàíîâëåíî
    ElseIf (z And pType) = 4 Then
        ' Åñëè pType ñîäåðæèò 4
    ElseIf z And (Not Rotation) Then
        ' Åñëè ïîëå Rotation ñáðîøåíî
    End If
    
    ' Óñòàíàâàëèâàåì ïîëå Pause
    z = z Or Pause
    ' Ñáðàñûâàåì ïîëå RecycledWaterGate
    z = z And Not RecycledWaterGate
    
End Sub

If CBool(Z) And CBool(X) Then

If Z And X Then