Well, I'm not exactly sure what you're asking, but maybe this'll help.
First, you could store all of the objects' types in an array. Something like this:
`The number of objects you want to index
ObjectCount=20
`The array holding their types
dim Objects(ObjectCount)
Then, when it's time to position them based on their type, you should cycle through the entire array an position each one:
for a=1 to ObjectCount
select Objects(a)
case 1:
`Apply rules for positioning objects of type 1
endcase
case 2:
`Type 2
endcase
case 3:
`etc...
endcase
endselect
next a
Is this at least kinda what you were looking for?
