参考：
x7net.com/~access/AcTipsFrmUsingTreeView1.html
x7net.com/~access/AcTipsFrmUsingTreeView2.html
www.naka-net.com/y-mac/45.html
www.philly.ne.jp/~hanya/vb/treeview.htm

●TreeViewの設定

Option Explicit
'ImageListのKey
Private Const cstrCatImgClose As String = "CATOPEN"
Private Const cstrCatImgClose As String = "CATCLOSE"

Private Sub TreeViewLoad()
    Dim nodNode As Node

    'ツリービューにイメージリストをセットする
    'イメージリストはフォームのコントロールを用意しておいて
    'あらかじめプロパティからイメージを追加・Keyの設定をしておく
    trvTest.ImageList = ImageList1

    'ツリービューを表示する
    'ツリー1段階目
    Set nodNode = trvTest.Nodes.Add(, , "Yea", "Rot")
    nodNode.Image = cstrCatImgClose
    'ツリー2段階目
    Set nodNode = trvTest.Nodes.Add("Yea", tvwChild, "Mon", "Mon")
    nodNode.Image = cstrCatImgClose
    'ツリー3段階目
    Set nodNode = trvTest.Nodes.Add("Mon", tvwChild, "Day", "Day")

End Sub

---

●ツリービューの展開にあわせてアイコンを変更する
①イベントハンドラで設定する方法

Private Sub trvTest_Collapse(ByVal Node As MSComctlLib.Node)
    Node.Image = cstrCatImgClose
End Sub

---

Private Sub trvTest_Expand(ByVal Node As MSComctlLib.Node)
    Node.Image = cstrCatImgOpen
End Sub

---

②ツリービュー作成時に一緒に記述する方法
    Set nodNode = trvTest.Nodes.Add(, , "Yea", "Rot",cstrCatImgClose)
    nodNode.ExpandedImage = cstrCatImgOpen

---

●"Day"を含むKeyが選択されたときだけラベルに表示してみる

Private Sub trvTest_NodeClick(ByVal Node As MSComctlLib.Node)
    Dim strKey As String
   
    strKey = Node.Key
    If Not strKey = "Yea" Then
        If Not strKey = "Mon" Then
            lblDay.Caption = Node.Text
        Else
            lblDay.Caption = ""
        End If
    End If
End Sub

---