Работа с указателями в VB6

Public Declare Function GetMem4 Lib "msvbvm60" (src As Any, Dst As Any) As Long
Public Declare Function ArrPtr Lib "msvbvm60" Alias "VarPtr" (src() As Any) As Long

Private Type Vector
    X As Single
    Y As Single
End Type
Private Type TestRec
    Name As String
    Value As Long
    Position As Vector
    Money As Double
End Type
 
Private Sub Form_Load()
    Dim tr As TestRec
    Test tr
End Sub
 
Private Function Test(Pointer As TestRec, Optional ByVal nu As Long)
    Dim q As TestRec, z As TestRec
    
    q.Name = "The trick"
    q.Position.X = 5: q.Position.Y = 15
    q.Value = 12345: q.Money = 3.14
    
    z.Name = "Visual Basic 6.0"
    z.Position.X = 99: z.Position.Y = 105
    z.Value = 7643: z.Money = 36.6
    
    GetMem4 VarPtr(q), ByVal VarPtr(nu) - 4     ' Устанавливаем указатель на q (Pointer = &q)
    
    PrintRec Pointer
    
    GetMem4 VarPtr(z), ByVal VarPtr(nu) - 4     ' Устанавливаем указатель на z (Pointer = &z)
    
    PrintRec Pointer
    
End Function
 
Private Sub PrintRec(Pt As TestRec)
    Debug.Print "----------------"
    Debug.Print "Name = " & Pt.Name
    Debug.Print "Value = " & Pt.Value
    Debug.Print "Money = " & Pt.Money
    Debug.Print "Position.X = " & Pt.Position.X
    Debug.Print "Position.Y = " & Pt.Position.Y
End Sub

Public Type PtDat
    Prv1 As Long
    Prv2 As Long
End Type
 
' Создать указатель. 1-й параметр указатель, 2-й значение указателя
Public Function PtGet(Pointer() As Long, ByVal VarAddr As Long) As PtDat
    Dim i As Long
    i = GetSA(ArrPtr(Pointer)) + &HC
    GetMem4 ByVal i, PtGet.Prv1
    GetMem4 VarAddr + &HC, ByVal i
    PtGet.Prv2 = Pointer(0)
End Function
' Освободить указатель
Public Sub PtRelease(Pointer() As Long, prev As PtDat)
    Pointer(0) = prev.Prv2
    GetMem4 prev.Prv1, ByVal GetSA(ArrPtr(Pointer)) + &HC
End Sub
' Получить адрес SafeArray
Public Function GetSA(ByVal addr As Long) As Long
    GetMem4 ByVal addr, GetSA
End Function

Private Sub Form_Load()
    Dim pt() As Long, var() As TestRec, prev As PtDat       ' Указатель, данные указателя, данные востановления
    Dim q As TestRec, z As TestRec                          ' Структуры, на которые мы будем ссылаться
    
    ReDim pt(0): ReDim var(0)
 
    q.Name = "The trick"
    q.Position.X = 5: q.Position.Y = 15
    q.Value = 12345: q.Money = 3.14
    
    z.Name = "Visual Basic 6.0"
    z.Position.X = 99: z.Position.Y = 105
    z.Value = 7643: z.Money = 36.6
    
    prev = PtGet(pt, GetSA(ArrPtr(var)))                    ' Создаем "указатель"
 
    pt(0) = VarPtr(q)                                       ' Устанавливаем указатель на q (pt = &q)
    PrintRec var(0)
    pt(0) = VarPtr(z)                                       ' Устанавливаем указатель на z (pt = &z)
    PrintRec var(0)
 
    PtRelease pt, prev                                      ' Возвращаем все на место
 
End Sub