FOR lnCompteur=1 TO This.ColumnCount MESSAGEBOX(STR(lnCompteur)+' '+STR(This.ColumnCount)) ... MESSAGEBOX(STR(lnCompteur)+' '+STR(This.ColumnCount)) NEXTI put a messagebox to show the FOR NEXT value and the number of maximum occurence. It goes like this: