Private Sub pvAddRefMe()
Dim oUnk As olelib.IUnknown
Set oUnk = Me
oUnk.AddRef
Set oUnk = Nothing
End Sub
Public Function ObjectFromPtr(ByVal lPtr As Long) As Object
Dim oThis As Object
pvAddRefMe
CopyMemory oThis, ByVal lPtr, 4&
Set ObjectFromPtr = oThis
'CopyMemory oThis, ByVal 0&, 4&
End Function