TreeView/ Dim x as node x=treeview1.Nodes(...) do until x=Nothing x=x.Next loop - VB

Формулировка задачи:

Проблема такая: есть деревяшка - я хожу по ней через Next, Previous, Child, LastSibling и т.д. Но когда я делаю вот так

Dim x as node
x=treeview1.Nodes(...)
do until x=Nothing
x=x.Next
loop

кричиит об ошибке - неправильное использование объекта. Я так понимаю из-за Nothing'а. Как мне реализавть такую фишку (см. прогу)?

Решение задачи: «TreeView/ Dim x as node x=treeview1.Nodes(...) do until x=Nothing x=x.Next loop»

textual
                            Листинг программы 
                        

                            Dim myNode As node
Dim i As Integer
 
TreeView1.Nodes.Add
TreeView1.Nodes.Add
 
For Each myNode In TreeView1.Nodes
   i = i + 1
 
Next myNode
                        