* Evaluates to .F.
WAIT WINDOW '1: ' + IIF(THISFORM.lIsOkToSave, 'T', 'F')

oForm = NEWOBJECT('cfrmDetailListing',    ;
                  'MCSForms_DetailInput', ;
                  NULL,                   ;
                  cProvider)

*Still .F.
WAIT WINDOW '1: ' + IIF(.lIsOkToSave, 'T', 'F')
   
IF VARTYPE(oForm) = 'O'
      WITH oForm
         .SHOW(1)
         WAIT WINDOW '2: ' + IIF(THISFORM.lIsOkToSave, 'T', 'F')

         IF .lSelected
            cRetVal = .cCode
            THISFORM.cPCAdd = '4'
         ENDIF   
         
         * All of sudden true and remains .t. when it should not be.
         * should be .f.
         WAIT WINDOW '3: ' + IIF(THISFORM.lIsOkToSave, 'T', 'F')

      ENDWITH
ENDIF