'Class2
Option Explicit

Public i As Long
Public j As Long
Public k As Long

Const clsBytes As Long = 32 * 4
'///////////////////////////////////




'///////////////////////////////////
Sub ExampleForClass()
Dim objCls As Class2
Dim str As String
     
    Set objCls = New Class2
    objCls.i = &HAAAAAA
    objCls.j = &HABABAB
    objCls.k = &HBCBCBC
    
    lng_ObjPtr = ObjPtr(objCls)
                     
    str = PionterToSomething("objCls", lng_ObjPtr, clsBytes)
    Debug.Print str

    'Set objCls = Nothing
End Sub
'///////////////////////////////////


'///////////////////////////////////
Sub classIsGone()
    Debug.Print
    ExampleForClass
    DoEvents
    printPionterToSomething "objCls", lng_ObjPtr, clsBytes
End Sub