FOR lnI = 1 TO _SCREEN.FORMCOUNT IF PEMSTATUS(_SCREEN.FORMS[lnI], 'QueryUnload', 5) llOK = llOK AND _SCREEN.FORMS[lnI].QUERYUNLOAD() ENDIF PEMSTATUS(_SCREEN.FORMS[lnI], 'QueryUnload', 5) NEXT lnI DO zz CLEAR RESOURCES CLEAR MEMORY CLEAR CLASS ALL CLEAR ERROR CLEAR PROGRAM CLEAR CLASS ALL CLEAR DLLS * CLEAR debug RELEASE ALL EXTENDED CLEAR ALL