C# / VB.NET - Inizializzare una TreeView con VB.Net

        Dim wkNode As TreeNode

        With Tree1

            .Nodes.Clear()

            .Nodes.Add("KeyA", "Text A")
            .Nodes.Add("KeyB", "Text B")
            .Nodes.Add("KeyC", "Text C")

            wkNode = .Nodes("KeyA")
            wkNode.Nodes.Add("KeyA1", "Text A1")
            wkNode.Nodes.Add("KeyA2", "Text A2")

            wkNode = .Nodes("KeyB")
            wkNode.Nodes.Add("KeyB1", "Text B1")
            wkNode.Nodes.Add("KeyB2", "Text B2")
            wkNode.Nodes.Add("KeyB3", "Text B3")

            wkNode = .Nodes("KeyA")
            wkNode = wkNode.Nodes("KeyA1")
            wkNode.EnsureVisible()
            wkNode.Nodes.Add("KeyA11", "Text A11")
            wkNode.Nodes.Add("KeyA12", "Text A12")

            wkNode = .Nodes("KeyA")
            wkNode = wkNode.Nodes("KeyA1")
            wkNode = wkNode.Nodes("KeyA12")
            wkNode.EnsureVisible()
            wkNode.Nodes.Add("KeyA121", "Text A121")
            wkNode.Nodes.Add("KeyA122", "Text A122")

        End With

Un saluto a tutti.
Ho un problema abbastanza banale.
Per cercare di capire come si inizializza una TreeView con Visual Basic 2008 Express Edition sto facendo alcune prove con il codice che ho riportato.
Gli elementi a livello maggiore di 1 spariscono quando chiudo e riapro i nodi cliccando sul [+] e successivamente sul [-].
Qualcuno sa dirmi per favore dove sto sbagliando??
Spero di essere stato abbastanza chiaro.
Grazie comunque in anticipo.

Allora, non ho ben capito cosa desideri, ma posso dirti che con le operazioni delle righe 11 ; 20 ; 26 stai rimuovendo i nodi da Tree1 per inserirli in WkNode.

Se vuoi costruire questa struttura:
-Text A
--Text A1
--Text A2
--Text A11
---Text A121
--Text A12
---Text A122
-Text B
--Text B1
--Text B2
--Text B3
-Text C

Devi fare semplicemente:

Dim A As New TreeNode("Text A")
Dim A1 As New TreeNode("Text A1")
Dim A2 As New TreeNode("Text A2")
Dim A11 As New TreeNode("Text A11")
Dim A121 As New TreeNode("Text A121")
Dim A12 As New TreeNode("Text A12")
Dim A122 As New TreeNode("TextA122")
Dim B As New TreeNode("Text B")
Dim B1 As New TreeNode("Text B1")
Dim B2 As New TreeNode("Text B2")
Dim B3 As New TreeNode("Text B3")
Dim C As New TreeNode("Text C")
A11.Nodes.Add(A121)
A12.Nodes.Add(A122)
A.Nodes.Add(A1)
A.Nodes.Add(A2)
A.Nodes.Add(A11)
A.Nodes.Add(A12)
B.Nodes.Add(B1)
B.Nodes.Add(B2)
B.Nodes.Add(B3)
Tree1.Nodes.Add(A)
Tree1.Nodes.Add(B)
Tree1.Nodes.Add(C)