If you need to keep track of the current index of an array then why use EachIn?
Type mytype Field fred End type Local myarray:mytype[50] For counter = 0 Until myarray.length myarray[counter] = New mytype myarray[counter].fred = counter Next For counter = 0 Until myarray.length Print counter + " = " + myarray[counter].fred NextOr have I got the wrong end of the stick?