Object: Tree

Sub Tree1_EventInitialize(ByRef This)
  Dim oRoot, oMainNode
  Set oRoot = This.Nodes.Add("Tools")
  oRoot.Key = "tools"
  oRoot.Expanded = true
  Set oMainNode = oRoot.Nodes.Add("Electric Tools")
  oMainNode.Key = "electric"
  oMainNode.Nodes.Add("Drill").Key = "drill"
  oMainNode.Nodes.Add("Saw").Key = "saw"
  Set oMainNode = oRoot.Nodes.Add("Hand Tools")
  oMainNode.Key = "handtool"
  oMainNode.Nodes.Add("Dummy").Key = "dummy"
End Sub

Sub Tree1_EventNodeExpand(ByRef This, ByRef Node)
  If Node.Key = "handtool" Then
    Node.Nodes.RemoveAll
    Node.Nodes.Add("Hammer").Key = "hammer"
    Node.Nodes.Add("Screwdriver").Key = "screwdriver"
    Node.Nodes.Add("Tongs").Key = "tongs"
  End If
End Sub

Sub Tree1_EventNodeClick(ByRef This, ByRef Node)
  Call MsgBox(Node.Text & " clicked")
End Sub