Type t_unit_loc Field x Field y Field z End Type Dim unit_loc.t_unit_loc(5) For val=0 To 1 unit_loc.t_unit_loc(val) = New t_unit_loc Next unit_loc(0)\x=5 unit_loc(0)\y=10 unit_loc(1)\x=15 unit_loc(1)\y=20 For val=0 To 1 DebugLog "Unit loc:"+val DebugLog unit_loc(val)\x DebugLog unit_loc(val)\y Next WaitKey
Here is how to do it.