LOCAL ii, mi FOR ii = 1 TO 12 FOR mi = 1 TO 5 STORE EVALUATE("THIS.Chk" + LTRIM(STR(ii)) + ".VALUE") = 1 TO ('THISFORM.ClickF'+ALLTR(STR(ii))+'.Btn'+LTRIM(STR(mi))+'.ENABLED') ENDFOR ENDFOR >LOCAL ii, mi >FOR ii = 1 TO 12 > FOR mi = 1 TO 5 > lcStrin='THISFORM.ClickF'+ALLTR(STR(ii))+'.Btn'+ALLTR(STR(mi))+'.ENABLED' > llResult = EVALUATE("THIS.Chk" + ALLTR(STR(ii)) + ".VALUE") = 1 > &lcString = llResult > ENDFOR >ENDFOR