Добавление узлов в TreeView

[Boss]

вот столкнулся с такой проблеммой:
разместил дерево на форме и в form_load пишу:


Dim categor As Node
With tvwGategories.Nodes
Set categor = .Add(, , "TeoriyaInfo", "Теория информатики", 1)
Set categor = .Add("TeoriyaInfo", tvwChild, , "Теория информации", 1)

 но немогу сделать,  чтобы из узла "Теория и информация" вылез например еще один раздел "информация и знания"
Помоги срочно надо!

[HandKot]

Boss,
вроде надо так

Set categor = .Add("TeoriyaInfo", tvwChild, "ключ узла", "Теория информации", 1)

...
и чтобы добывить к нему подузел пишешь
Set categor = .Add("ключ узла", tvwChild, "Опять какой-то другой ключ", "Название узла", 1)

главное чтобы ключи не совпадали, а то выдаст ошибку

[RomCom]

(комент)
добавлено в FAQ_VB/VBA