Type badger Field var Field sheepFlag End Type Type sheep Field var2.badger End Type global sheep1.sheep = New sheep sheep1\var2.badger = New badger sheep1\var2\sheepFlag=1 sheep1\var2.badger = New badger sheep1\var2\sheepFlag=1 sheep1\var2.badger = New badger sheep1\var2\sheepFlag=1 global sheep2.sheep = New sheep sheep2\var2.badger = New badger sheep2\var2\sheepFlag=2 sheep2\var2.badger = New badger sheep2\var2\sheepFlag=2 sheep2\var2.badger = New badger sheep2\var2\sheepFlag=2 For b.badger=Each badger If b\sheepFlag=1 Then ;do something EndIf Next For b.badger=Each badger If b\sheepFlag=2 Then ;do something EndIf Next