AddLinear(_BranchList,IconID@RootIcon ^", 0")
repeat while ListCount(_BranchList)>0
_ParentIcon:=GetNumber(1, _BranchList[1])
repeat with _ChildNum :=1 to IconNumChildren(_ParentIcon, GetNumber(2, _BranchList[1]))
_ChildIcon:=ChildNumToID(_ParentIcon,_ChildNum, GetNumber(2, _BranchList[1]))
if IconType(_ChildIcon) = 4 |=5 |=6 then
AddLinear(_BranchList,_ChildIcon ^", 0")
else if IconType(_ChildIcon) = 12 then
AddLinear(_BranchList,_ChildIcon ^", 0")
AddLinear(_BranchList,_ChildIcon ^", 1")
AddLinear(_BranchList,_ChildIcon ^", 2")
end if
Movable@_ChildIcon:=FALSE
end repeat
DeleteAtIndex(_BranchList, 1)
end repeat