Can anyone help me to use FOR EACH command

eg. FOR EACH column IN THISFORM.GRID1 ?????


Now I am using

FOR mCnt = 1 TO THISFORM.grid1.columncount
THISFORM.grid1.columns(mCnt).READONLY = 'DDD'
ENDFOR

TIA.