Semar's code is slightly wrong. Try this:
Dim Arse.moo(10) For N = 0 To 10 Arse.moo(N) = New moo Arse.moo(N)\Tits = Rand(4,8) Next Type moo Field Tits% End Type ;You can retrieve info like this: For N = 3 To 7 DebugLog Arse(N)\Tits Next DebugLog "" ;...Or like this: For A.moo = Each moo DebugLog A\Tits Next