This smells of aweso

Type YourTypeAnyway
	`your normal crap...
	`blah blah blah
	`
	Children(256) as integer
	Owner as integer
EndType


Dim BigFuckingArray(1280) As YourTypeAnyway


` example:
` we shall make #4 the child of #1

For i = 1 to 256
	if BigFuckingArray(1).Children(i) = 0
		` yay! this one's free ^_^
		found=1:exit
	endif
Next i

if found <> 1 then end

` found = 1, we have a free entry..

BigFuckingArray(1).Children(i) = 4
BigFuckingArray(4).Owner = 1