>** either way >FOR ji = 1 TO lnFCnt > lcForm = ALLTRIM(laForms[ji,1]) > WAIT WINDOW lcForm + CHR(13) + STR(ji) + " of" + STR(lnFCnt) NOWAIT > USE (lcForm) > LOCATE FOR baseclass= "dataenvironment" > IF FOUND() > ** this form has a DE > APPEND MEMO methods FROM demeth.prg <b>OVERWRITE</b> > ENDIF > USE > COMPILE FORM (lcForm) >ENDFOR>HTH