>>IF _Screen.FormCount > 0 >> lnFormCount = _Screen.FormCount >> DO WHILE lnFormCount > 0 >> IF !INLIST(UPPER(_Screen.Forms(lnFormCount).Name),"MAINTOOLBAR","CHECKINGTOOLBAR","SAVINGSTOOLBAR","CREDITTOOLBAR","LOANTOOLBAR","QUICKBAR") >> _Screen.Forms(lnFormCount).Release() >> ENDIF >> lnFormCount = lnFormCount - 1 >> IF lnFormCount > _Screen.FormCount >> lnFormCount = _Screen.FormCount >> ENDIF >> ENDDO >>ENDIF >>>