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&

End Function