declare

  hNodes    MSComctlLib_CONSTANTS.iNodes;
  hNode     MSComctlLib_CONSTANTS.iNode;

 -- Error Handler variables
  errCode             pls_integer;
  errSrc              varchar2(200);
  errDescription      varchar2(2000);
  errHelpfile         varchar2(200);
  errHelpContext      pls_integer;

begin 

--  Show the Expansion Indicators and Lines and Text
MSCOMCTLLIB_ITREEVIEW.Style(:item('BLK_TREE.ACX_TREE').interface,6);

--  Get the Handle to the Nodes Collection
hNodes := MSCOMCTLLIB_ITREEVIEW.nodes(:item('BLK_TREE.ACX_TREE').interface);

--  Add NODES, every node should have a different "key"
--  and should begin with a Alpha Char not a numeric

--ROOT NODE 
hNode := MSCOMCTLLIB_iNodes.ole_add
(
interface    => hNodes,
Relative     => olevar_empty,
Relationship => to_variant(1),
Key          => to_variant('Node1'),
Text         => to_variant('Node 1')
);
release_obj(hNode);

-- Add child NODES
hNode :=  MSCOMCTLLIB_iNodes.ole_add
(
Interface    => hNodes,
Relative     => to_variant('Node1'),
Relationship => to_variant(4),
Key          => to_variant('Node 1.1'),
Text         => to_variant('Node 1.1')
);
release_obj(hNode);

hNode :=  MSCOMCTLLIB_iNodes.ole_add
(
Interface    => hNodes,
Relative     => to_variant('Node1'),
Relationship => to_variant(4),
Key          => to_variant('Node 1.2'),
Text         => to_variant('Node 1.2')
);
release_obj(hNode);

hNode :=  MSCOMCTLLIB_iNodes.ole_add
(
Interface    => hNodes,
Relative     => to_variant('Node1'),
Relationship => to_variant(4),
Key          => to_variant('Node 1.3'),
Text         => to_variant('Node 1.3')
);
release_obj(hNode);

        
release_obj(hNodes);
      

exception
  when form_ole_failure then 
        errCode := last_ole_exception( errSrc,
                                      errDescription,
                                      errHelpfile,
                                      errHelpContext);
        message('Error Raised by ->'||errSrc||': '||errDescription); 

END;