>>FOR EACH loForm IN _SCREEN.FORMS >> loForm.RELEASE() >>NEXT >>>>
>FOR x=_SCREEN.FormCount TO 1 STEP -1 > _SCREEN.Forms(x).Release() >ENDFOR >I check too for toolbars and queryUnload() method:
for lnForm = _screen.FormCount to 1 step -1 if type('_screen.Forms(lnForm)') == 'O' if lower(_screen.Forms(lnForm).baseClass) <> 'toolbar' if _screen.Forms(lnForm).Closable if _screen.Forms(lnForm).QueryUnload() _screen.Forms(lnForm).Release() else return .f. endif endif endif endif endfor