Hi Larry ----

OK...I see some other createobjects....Ensure that these objects are released/destroyed before the final THIS.Release in the main object.


>>Larry ---
>>
>>Are you passing an object reference to the form as in oOtherObject.DoThis(THISFORM)? I just don't see any external calls and that's weird.
>
>I'm not sure I understand your question... but here's some more code for ya.
>
>This is the "Option" object which calls the SnrKeyEntry object...
>
>----------------------------------------------------------------------
>

>
>* create and run the option object
>oOptUPDAAPVMO1 = CREATEOBJECT("UPDAAPVMO1_Option")
>oOptUPDAAPVMO1.Execute()
>
>**********************************************************************
>* Option Class definition
>**********************************************************************
>DEFINE CLASS UPDAAPVMO1_Option AS CUSTOM
>
>    lSuccess   = .F.
>    lQueActive = .F.
>    cRights    = ""
>
>    *------------------------------------------------------------
>    * UPDAAPVMO1_Option
>    PROCEDURE Execute
>
>        * open files array
>        DIMENSION aUPDAAPVMO1_OpenFiles(4,7)
>
>        * process queue
>        IF THIS.lQueActive
>
>            * the attached listing is being processed in the queue
>
>            * set required files
>            THIS.SetReqFiles( @aUPDAAPVMO1_OpenFiles )
>
>            * open required files
>            IF OpenFiles( @aUPDAAPVMO1_OpenFiles )
>
>                oUPDAAPVMO1_LISTING_LISTING = CREATEOBJECT( "UPDAAPVMO1_LISTING" )
>                oUPDAAPVMO1.Execute()
>            ENDIF
>        ELSE
>
>            * process parameters
>            IF EMPTY(cOpTitle)
>                cOpTitle = "Module Privileges"
>            ENDIF
>
>            * access / rights
>            THIS.cRights = ValidOpt( goApp.cCPvSet, goApp.cOpAlias )
>            IF ! EMPTY( THIS.cRights )
>
>                * set required files
>                THIS.SetReqFiles( @aUPDAAPVMO1_OpenFiles )
>
>                * open required files
>                IF OpenFiles( @aUPDAAPVMO1_OpenFiles )
>
>                    * create and run the senior key entry object
>                    oPUPDAAPVMO1 = CREATEOBJECT( "UPDAAPVMO1_SnrKeyEntry" )
>                    oPUPDAAPVMO1.SHOW
>
>                    IF goApp.lSuccess
>
>                        * create and run the browse object
>                        oBUPDAAPVMO1 = CREATEOBJECT("UPDAAPVMO1_BrowseSelect")
>                        oBUPDAAPVMO1.SHOW
>                    ENDIF
>                ENDIF
>            ENDIF
>        ENDIF
>
>        * close
>        THIS.CLOSE()
>    ENDPROC
>
>    *------------------------------------------------------------
>    * UPDAAPVMO1_Option
>    PROCEDURE SetReqFiles( aOpenFiles )
>
>        * populate required file array
>        *
>        * 1 = File name
>        * 2 = Open Mode ( "S"hared, "E"xclusive, etc)
>        * 3 = Index file to open
>        * 4 = File Alias
>        * 5 = Database Driver ( not used in VFP )
>        * 6 = Index Order Name
>        * 7 = "Close" flag
>
>        aOpenFiles(1,1) = "AAMDULE"
>        aOpenFiles(2,1) = "AAPVMOD"
>        aOpenFiles(3,1) = "AAPVSET"
>        aOpenFiles(4,1) = goApp.cSysCode+"CODES"
>        aOpenFiles(4,2) = "R"
>        aOpenFiles(4,3) = goApp.cSysCode+"CODES"
>        aOpenFiles(4,4) = "CODES"
>    ENDPROC
>
>    *------------------------------------------------------------
>    * UPDAAPVMO1_Option
>    PROCEDURE CLOSE
>
>        * close opened files
>        USE IN AAMDULE
>        USE IN AAPVMOD
>        USE IN AAPVSET
>    ENDPROC
>ENDDEFINE
>*
>*-- EndDefine: UPDAAPVMO1_Option
>**************************************************
>

>
>Thanks again