при запуске формы создаётся toolbar:

#DEFINE C_TOOLBAR_S4 "tlb_s4"

DEFINE CLASS MyForm AS Form
PROCEDURE Init
WITH This
.Formtoolbar(C_TOOLBAR_S4)
ENDWITH
ENDPROC

PROCEDURE Formtoolbar
LPARAMETERS tcTlb

WITH _Screen
.AddProperty(tcTlb)
.&tcTlb=CREATEOBJECT(tcTlb)
.&tcTlb..Show()
.&tcTlb..Dock(0)
ENDWITH

ENDPROC
ENDDEFINE

На форме есть дерево, метод NodeClick создаётся ещё один toolbar, таким же способо. Проблема в том, что новый tollbar появляется после существующего, а нужно чтобы в начале.
Как поместить tollbar в переди существующих?

Как в цикле перебрать все элементы toolbar?
Большое спасибо!

Оказывается всё просто:

FOR nI=1 TO _Screen.Objects.count
cClass=_Screen.Objects(nI).Class
cName=_Screen.Objects(nI).Name
ENDFOR