Private Declare Sub RtlMoveMemory Lib "kernel32" _
(Destination As Any, Source As Any, ByVal Length As Long)
Function ObjFromPtr(ByVal wPtr As Long) As Object
Dim vTmp As Object
RtlMoveMemory vTmp, wPtr, 4
Set ObjFromPtr = vTmp
RtlMoveMemory vTmp, 0&, 4
End Function