PROCEDURE /* NodeCheck */ EVENT6(interface OleObj, Node IN MSComctlLib_CONSTANTS.Node) IS
	  x_nodes  MSComctlLib_CONSTANTS.INodes;
	  x_node   MSComctlLib_CONSTANTS.INode;
 	  x_node2  MSComctlLib_CONSTANTS.INode;
BEGIN
if MSComctlLib_INode.checked(x_node) = 0
then
MSComctlLib_INode.checked(x_node2,0);
else
MSComctlLib_INode.checked(x_node2,0);
end if;

END;

what i use to create the child-nodes is in when-new-forms instance and is:
for k in 1..10 loop
            x_node2 :=  MSCOMCTLLIB_iNodes.ole_add 
            (x_nodes,to_variant('A1'),to_variant(4),
            to_variant('B' || '' || LTRIM(k)), 
            to_variant('Teil_' || '' || LTRIM(k)), 
            to_variant(1),to_variant(2));
            MSComctlLib_INode.bold(x_node2,1);   
end loop;

-- Dieses Programm ermöglich der Aufbau eines TreeView 
-- mit den Eigenschaften "Drag and Drop", "Checkboxes", "ImageList"
-- ohne die Nutzung einer Datenbank.
-- Deklaration der Variabeln
declare
            
-- Variablen für die Aufbau des Baums
            x_tree   oleobj;
            x_nodes  MSComctlLib_CONSTANTS.INodes;
            x_node   MSComctlLib_CONSTANTS.INode;
            x_node2  MSComctlLib_CONSTANTS.INode;
            
-- Variable für die ImageList
   x_imli           Oleobj;  
  
begin

-- Diese Labeln sind für die temporale Objekte
   :Label1 := 'Knoten';
   :Label2 := 'Zielposition';
   :Label3 := 'Position im X';
   :Label4 := 'Position im Y';
 
-- Der Abruf des Interfaces des OcxObjektes
   x_tree:= GET_INTERFACE_POINTER ('BL_TREE.TREE');
 
-- ImageList
-- Hier setzen wir das ImageList-Objekt in x_imli
x_imli:= GET_INTERFACE_POINTER ('BL_TREE.IMAGES');
-- Wir müssen dieses Objekt in unseren Baum einsetzen.
MSCOMCTLLIB_ITREEVIEW.IMAGELIST(x_tree,x_imli);
 
-- Die Einsetzung der Eingenschaften für die Expandierung und das Unterstreichen des Knotens
   MSCOMCTLLIB_ITREEVIEW.Style(x_tree,7);
   
-- Die Einsetzung der Eingenschaften für die Editierung des Textes der Knoten
   MSCOMCTLLIB_ITREEVIEW.StartLabelEdit(x_tree);
   MSCOMCTLLIB_ITREEVIEW.LabelEdit(x_tree,0);
 
-- x_nodes haben die Eigenschaften aus den Knoten
   x_nodes:= MSComctlLib_ITreeView.Nodes(x_tree);
            
-- Um die Knoten zu aktualizieren
            MSComctlLib_INodes.clear(x_nodes);
            
-- Checkbox Eigenschaft einsetzen
   MSComctlLib_ITreeView.Checkboxes(x_tree, 1);
 
--  Add NODES, jeder Knoten muss verschiedene "Key" haben
--  und sollen nicht mit numeriches- sondern mit alpha Schriftzeichen beginnen.
/* 
Jeder Teil ist:
x_node := MSCOMCTLLIB_iNodes.ole_add
(Interface    => x_nodes,
 Angehörige   => olevar_empty,
 Verbindung   => to_variant(1), -> 1 Vater, 4 Kind
 Schlüssel    => to_variant('A1'),
 Text         => to_variant('Auftrag');
 Image        => to_variant(3));  <- # index in unserem ImageList-Objekt
 Image2       => to_variant(3));  <- # index in unserem ImageList-Objekt
*/
 
 
-- Das Einfügen des Vaterknotens
            x_node :=  MSCOMCTLLIB_iNodes.ole_add(x_nodes, OleVar_empty, to_variant(1),
                       to_variant('A1'), to_variant('Auftrag'),to_variant(3));
            MSComctlLib_INode.bold(x_node,1);
            MSComctlLib_INode.checked(x_node,1);
            
 
-- Das Einfügen der Kinderknoten
-- K ist Anzahl von Knoten
-- Achtung: es ist möglich bis zum 65,534 Knoten in das Objekt einfügen
-- Dieses Einfügen dauert 6 Minuten und 55 Sekunden.
for k in 1..10 loop
            x_node2 :=  MSCOMCTLLIB_iNodes.ole_add(x_nodes,to_variant('A1'),to_variant(4),
            to_variant('B' || '' || LTRIM(k)), 
            to_variant('Teil_' || '' || LTRIM(k)), 
            to_variant(1),to_variant(2));
            MSComctlLib_INode.bold(x_node2,1);    
end loop;
 
 
-- Expanded Eigenschaft für den Vaterknoten und die Kinderknoten
   MSComctlLib_INode.expanded(x_node,0);
--   MSComctlLib_INode.expanded(x_node2,0);
 
-- Selection Eigenschaft
   MSComctlLib_ITreeView.HotTracking(x_tree, 1);
 
-- Drag und Drop Verfahren
 MSComctlLib_ITreeView.OLEDragMode(x_tree, 1);  -- 1-Automatic
 MSComctlLib_ITreeView.OLEDropMode(x_tree, 1);  -- 1-Manual
 
 
end;

PACKAGE MSComctlLib_TreeCtrl_2_EVENTS IS

-- The Events Package:

PROCEDURE /* BeforeLabelEdit */ EVENT1(interface OleObj, Cancel IN NUMBER);

PROCEDURE /* AfterLabelEdit */ EVENT2(interface OleObj, Cancel IN NUMBER, NewString IN VARCHAR2);

PROCEDURE /* Collapse */ EVENT3(interface OleObj, Node IN MSComctlLib_CONSTANTS.Node);

PROCEDURE /* Expand */ EVENT4(interface OleObj, Node IN MSComctlLib_CONSTANTS.Node);

PROCEDURE /* NodeClick */ EVENT5(interface OleObj, Node IN MSComctlLib_CONSTANTS.Node);

PROCEDURE /* KeyDown */ EVENT4294966694(interface OleObj, KeyCode IN NUMBER, Shift IN NUMBER);

PROCEDURE /* KeyUp */ EVENT4294966692(interface OleObj, KeyCode IN NUMBER, Shift IN NUMBER);

PROCEDURE /* KeyPress */ EVENT4294966693(interface OleObj, KeyAscii IN NUMBER);

PROCEDURE /* MouseDown */ EVENT4294966691(interface OleObj, Button IN NUMBER, Shift IN NUMBER,
	x IN /* stdole_CONSTANTS.OLE_XPOS_PIXELS */ NUMBER, y IN /* stdole_CONSTANTS.OLE_YPOS_PIXELS */ NUMBER);


PROCEDURE /* MouseMove */ EVENT4294966690(interface OleObj, Button IN NUMBER, Shift IN NUMBER,
	x IN /* stdole_CONSTANTS.OLE_XPOS_PIXELS */ NUMBER, y IN /* stdole_CONSTANTS.OLE_YPOS_PIXELS */ NUMBER);

PROCEDURE /* MouseUp */ EVENT4294966689(interface OleObj, Button IN NUMBER, Shift IN NUMBER,
	x IN /* stdole_CONSTANTS.OLE_XPOS_PIXELS */ NUMBER, y IN /* stdole_CONSTANTS.OLE_YPOS_PIXELS */ NUMBER);

PROCEDURE /* Click */ EVENT4294966696(interface OleObj);

PROCEDURE /* DblClick */ EVENT4294966695(interface OleObj);

PROCEDURE /* NodeCheck */ EVENT6(interface OleObj, Node IN MSComctlLib_CONSTANTS.Node);

PROCEDURE /* OLEStartDrag */ EVENT1550(interface OleObj, Data IN OleVar, AllowedEffects IN NUMBER);

PROCEDURE /* OLEGiveFeedback */ EVENT1551(interface OleObj, Effect IN NUMBER, DefaultCursors IN NUMBER);

PROCEDURE /* OLESetData */ EVENT1552(interface OleObj, Data IN OleVar, DataFormat IN NUMBER);

PROCEDURE /* OLECompleteDrag */ EVENT1553(interface OleObj, Effect IN NUMBER);

PROCEDURE /* OLEDragOver */ EVENT1554(interface OleObj, Data IN OleVar, Effect IN NUMBER,
	Button IN NUMBER, Shift IN NUMBER, x IN NUMBER,
	y IN NUMBER, State IN NUMBER);

PROCEDURE /* OLEDragDrop */ EVENT1555(interface OleObj, Data IN OleVar, Effect IN NUMBER,
	Button IN NUMBER, Shift IN NUMBER, x IN NUMBER,
	y IN NUMBER);

END;

-- Parent node
x_node :=  MSCOMCTLLIB_iNodes.ole_add(x_nodes, OleVar_empty, to_variant(1),to_variant('A1'),
           to_variant('Auftrag'),to_variant(3));
MSComctlLib_INode.bold(x_node,1);
            
-- Child Nodes
for k in 1..10 loop
            x_node2 :=  MSCOMCTLLIB_iNodes.ole_add(x_nodes,to_variant('A1'),to_variant(4),
            to_variant('B' || '' || LTRIM(k)), 
            to_variant('Teil_' || '' || LTRIM(k)), 
            to_variant(1),to_variant(2));
            MSComctlLib_INode.bold(x_node2,1);    
end loop;