Add the objects you want to cycle through to a list, and then use For...EachIn to loop through them.
Eg:
Eg:
Local typeList:TList=New TList Local objA:MyType=New MyType Local objB:MyType=New MyType ListAddLast typeList,objA ListAddLast typeList,objB For Local currentObj:MyType = EachIn typeList 'Do something with currentObj Next