> >lnRetVal = adir(laForms, '*.SCX') >for i = 1 to lnRetVal > lcForm = laForms[i, 1] > use (lcForm) > locate for 'PROCEDURE REFRESH' $upper(methods) > if !eof() > * found a refresh method. put code here > use > compile form (lcForm) > endif > use >endfor>