Microsoft Office Forums - View Single Post

CoolBlue · 06-20-2014, 06:36 AM

Maybe this will do it for you...

Create a Custom Class

Code:

'Class2
Option Explicit

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

Then add to the standard Module with other XXXIsGone code

Code:

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

And try with and without the set to nothing...
No difference.