FOR iFields = 1 TO EVALUATE('loObj'+LTRIM(STR(m.ix))+".FieldCount") ? ALLTRIM(UPPER(EVALUATE('loObj'+LTRIM(STR(m.ix))+".NextProperty"))) ENDFOR