Как добавлять узлы в treeview

[shest]

Подскажите пожалуйста, как добавлять узлы в treeview
Два уровня я пишу так

Private Sub Form_Load()
Dim cat As Node


With TreeView1.Nodes
Set cat = .Add(, ,"root", "text1")
Set cat = .Add("root", tvwChild, ,"text2")
end With

А третий уровень (дочерний узел для text2) как добавить?

И ещё: подскажите, как динамически изменять ширину элемента при перемещении мыши.
На форме TreeView и текстовое поле. Я так понимаю, это обработка процедур MouseDown и
DragDrop? А как их обработать?

Заране спасибо

[alibek]

Код: Выделить всё

With TreeView1.Nodes
Set cat = .Add(, ,"root", "text1")
Set cat = .Add("root", tvwChild, "subroot","text2")
Set cat = .Add("subroot", tvwChild, "subsubroot","text3")
End With

[shest]

Огромное спасибо.
Склько книг смотрел, а не нашёл