Private Function ResolvePointer(ByVal lpObj&) As CChildForms
' this function takes a dumb numeric pointer and turns it into
' a valid object reference. do not end your project while in
' this sub unless you like to crash.
Dim oCF As CChildForms
CopyMemory oCF, lpObj, 4&
Set ResolvePointer = oCF
CopyMemory oCF, 0&, 4&