>FOR lnCompteur=lnFormCount TO 1 STEP -1 > * We don't do the release for a toolbar or a memo > IF UPPER(_screen.Forms(lnCompteur).BaseClass)='FORM' > IF _screen.Forms(lnCompteur).QueryUnload() > _screen.Forms(lnCompteur).Release() > ENDIF > ELSE Take a second look to this ELSE branch: if lnCompteur = 1, the FOR loop will be exit anyway and is almost sure you don't want to modify the FOR variable (lnCompteur) here (one value will be skiped without beeing tested). > IF lnCompteur=1 > EXIT > ELSE > lnCompteur=lnCompteur-1 > ENDIF > ENDIF >NEXT >