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