Private sub pvaddrefme () DIM OUNK AS OLELIB.IUNKNOWN
Set OUNK = Me OUNK.ADDREFSET OUNK = Nothing
End Sub
Public Function ObjectFromPtr (Byval LPtr As Long) As Objectdim OtiS as Object
PvaddRefme CopyMemory, Byval LPTR, 4 & Set ObjectFromPtr = Otis' CopyMemory Othis, Byval 0 &, 4 & End Function