WITH ThisForm.oleTreeView

  ** This adds a parent node
  oRootNode = ThisForm.oleTreeView.Nodes.Add(,, "RootKey", "This is the 1st node")

  ** This adds 10 nodes to the parent
  FOR x = 1  TO 10
    cMyKey = "X" + + TRANSFORM(x)
    cCaption = "This is the node " + TRANSFORM(x)
    oChildKey = .Nodes.Add(oRootNode, 4, cMyKey, cCaption)
  ENDFOR

  ** This adds a child node to node 5
  cMyKey = "X" + SUBSTR(SYS(2015), 2)
  oParentNode = .Nodes(5)
  oRootNode = .Nodes.Add(oParentNode, 4, cMyKey, "Child of node 5")

ENDWITH