USE getfile('scx') * go top DO WHILE NOT EOF() IF INLIST(UPPER(CLASS),'LABEL','EMBOSSEDLABEL','TEXTBOX','EDITBOX') mfind = 'BackStyle' mreplacewith = ' = 0' =fixit(mfind,mreplacewith) ENDIF SKIP ENDDO use ********************************* FUNCTION fixit() PARA mfind,mreplacewith * mpos = AT(mfind,properties) IF mpos > 0 mtmp = properties mbegstring = SUBSTR(mtmp,1,(mpos-1)) mmidstring = mfind+mreplacewith mtmp = SUBSTR(mtmp,mpos+1) mchr13 = AT(CHR(13),mtmp) mendstring = SUBSTR(mtmp,mchr13) m.properties = mbegstring+mmidstring+mendstring ELSE m.properties = properties+CHR(13)+CHR(10)+mfind+mreplacewith ENDIF REPL properties WITH m.properties RETURN *********************************It seems to never work.