C# と VB.NET の質問掲示板

Visualstudio2019、VB.NETでFORMアプリケーションを作成しています。
Treeviewを使用してリストを作成したいのですが、狙った動きになってくれません。
Treeviewは初めて使うので、悪戦苦闘しています。


        TreeView1.Nodes.Clear()

        Dim TAIHI_NODE As String

        Dim WK_CODE1(4) As String
        WK_CODE1(0) = "TEST1"
        WK_CODE1(1) = "TEST1"
        WK_CODE1(2) = "TEST1"
        WK_CODE1(3) = "TEST1"
        WK_CODE1(4) = "TEST2"


        Dim WK_CODE2(4) As String
        WK_CODE2(0) = "TEST1-A"
        WK_CODE2(1) = "TEST1-B"
        WK_CODE2(2) = "TEST1-C"
        WK_CODE2(3) = "TEST1-D"
        WK_CODE2(4) = "TEST2-A"

        Dim WK_TEXT1(4) As String
        WK_TEXT1(0) = "LIST1-AA"
        WK_TEXT1(1) = "LIST1-BB"
        WK_TEXT1(2) = "LIST1-CC"
        WK_TEXT1(3) = "LIST1-DD"
        WK_TEXT1(4) = "LIST2-AA"

        Dim WK_TEXT2(4) As String
        WK_TEXT2(0) = "LIST1-AAA"
        WK_TEXT2(1) = "LIST1-BBB"
        WK_TEXT2(2) = "LIST1-CCC"
        WK_TEXT2(3) = "LIST1-DDD"
        WK_TEXT2(4) = "LIST2-AAA"


        Dim DO_COUNT As Integer = 5    '配列数

        For i = 0 To DO_COUNT
            Dim rootNode As New TreeNode
            If TAIHI_NODE <> WK_CODE1(i) Then
               rootNode.Text = WK_CODE1(i)
               TreeView1.Nodes.Add(rootNode)
            End If

            Dim rootNode1 As New TreeNode      '子ノード
            Dim rootNode2_1 As New TreeNode    '孫ノード1
            Dim rootNode2_2 As New TreeNode    '孫ノード2

            '子ノードの作成
            rootNode1.Text = WK_CODE2(i)
            '★★★子ノードを親ノードに追加★★★
            rootNode.Nodes.Add(rootNode1)

            '孫ノードの作成
            rootNode2_1.Text = WK_TEXT1(i)
            rootNode2_2.Text = WK_TEXT2(i)
            '★★★孫ノードを子ノードに追加★★★
            rootNode1.Nodes.Add(rootNode2_1)
            rootNode1.Nodes.Add(rootNode2_2)

            TAIHI_NODE = WK_CODE1(i)
        Next

上記のようなロジックで実行したのですが、以下のような結果になりました。


TEST1
┗TEST1-A
　┗LIST1-AA
　┗LIST1-AAA
TEST2
┗TEST2-A
　┗LIST2-AA
　┗LIST2-AAA

自分が目指している形としては、以下の通りです。
TEST1
┣TEST1-A
┃┗LIST1-AA
┃┗LIST1-AAA
┣TEST1-B
┃┗LIST1-BB
┃┗LIST1-BBB
┣TEST1-C
┃┗LIST1-CC
┃┗LIST1-CCC
┗TEST1-S
　┗LIST1-DD
　┗LIST1-DDD
TEST2
┗TEST2-A
　┗LIST2-AA
　┗LIST2-AAA


望んだ結果にできるやり方があれば教えていただけたらと思います。
よろしくお願いします。

構築方法が非常に難解なものになっている印象ですが。

>         For i = 0 To DO_COUNT
>             Dim rootNode As New TreeNode

問題となっている原因はここですね。
ループのたびにノードをNewしているので、iが1のときもrootNodeは新しいインスタンスが作られ、
その作られたノードに子ノード以降が追加され、そしてrootNode自体ははどこにも追加されず
そのままメモリの海に消えていくことになります。
TAIHIみたいなやり方ではなく、TreeView1.Nodes.Findで検索し、見つかればそれをrootNodeとし、
見つからなければNewしたTreeNodeをrootNodeとする、といった方法はどうでしょうか。

今提示されているツリーを作成するのなら、私であれば
WK_CODE1はTEST1とTEST2の2要素にして、
WK_CODE2をDictionary(Of Stirng, String())にするかなぁ。