PROTECTED PROCEDURE ReleaseObjects >>> IF THIS.FormList.COUNT = 0 >>> RETURN .T. >>> ENDIF >>> LOCAL lnItem, loForm >>> lnItem = 0 >>> IF NOT EMPTY(THIS.FormList.ActiveFormHwnd) >>> lnItem = THIS.FormList.GETKEY(THIS.FormList.ActiveFormHwnd) >>> ENDIF >>> IF lnItem > 0 >>> loForm = THIS.FormList.ITEM(lnItem) >>> IF loForm.SHOWWINDOW = 2 >>> *!* Do not close the top-level form >>> LOOP >>> ENDIF >>> IF loForm.WINDOWTYPE = 1 >>> *!* if the active form is modal, do not shutdown >>> RETURN .F. >>> ENDIF >>> ENDIF >>> LOCAL lnI, lnKount, loForm >>> lnKount = THIS.FormList.COUNT >>> FOR lnI = lnKount TO 1 STEP -1 >>> loForm = THIS.FormList.ITEM(lnI) >>> loForm.QUERYUNLOAD() >>> ENDFOR >>>ENDPROC>>