Dim RootNode As MSComctlLib.Node
Dim xNode As MSComctlLib.Node
Dim xNode1 As MSComctlLib.Node
Dim xNode2 As MSComctlLib.Node
 
TVStartMask.Nodes.Clear
TVStartMask.ImageList = StartMask.ImageList1
 
Set RootNode = TVStartMask.Nodes.Add(Text:="Blöcke", Image:=1, SelectedImage:=2)
    RootNode.Tag = "Blöcke"
    Set xNode = TVStartMask.Nodes.Add(RootNode.Index, tvwChild, _
      Text:="Beleuchtung", Image:=1, SelectedImage:=2)
    xNode.Tag = "Beleuchtung"
        Set xNode1 = TVStartMask.Nodes.Add(xNode.Index, tvwChild, _
          Text:="Deckenstrahler", Image:=1, SelectedImage:=2)
        xNode1.Tag = "Deckenstrahler"
            Set xNode2 = TVStartMask.Nodes.Add(xNode1.Index, tvwChild, , _
              Image:=4, SelectedImage:=3)
            xNode2.Expanded = True

Set xNode2 = TVStartMask.Nodes.Add(xNode1.Index, tvwChild, , Image:=4, _
  SelectedImage:=3)
xNode2.Expanded = True