>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