52:
Is there a way to define a default Editor which is assigned to each node when the string is loaded (method 2)

// Fires when the user changes the selection.
Procedure OnComSelectionChanged 
	Forward Send OnComSelectionChanged 
	// SelectedNode(0).Editor = "edit"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voEditors
	Get ComEditors to voEditors
	Handle hoEditors
	Get Create (RefClass(cComEditors)) to hoEditors
	Set pvComObject of hoEditors to voEditors
		Get ComAdd of hoEditors "edit" OLEEditType to Nothing
	Send Destroy to hoEditors
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Parent 1" Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Variant voNodes1
	Get ComNodes to voNodes1
	Handle hoNodes1
	Get Create (RefClass(cComNodes)) to hoNodes1
	Set pvComObject of hoNodes1 to voNodes1
		Variant voNode
		Get ComAdd of hoNodes1 "Parent 2" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComPicture of hoNode to "pic1"
			Variant voNodes2
			Get ComNodes of hoNode to voNodes2
			Handle hoNodes2
			Get Create (RefClass(cComNodes)) to hoNodes2
			Set pvComObject of hoNodes2 to voNodes2
				Variant voNode1
				Get ComAdd of hoNodes2 "Child <b>1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to 100
				Send Destroy to hoNode1
				Variant voNode2
				Get ComAdd of hoNodes2 "Child <b>2" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Set ComValue of hoNode2 to 102
				Send Destroy to hoNode2
				Variant voNode3
				Get ComAdd of hoNodes2 "Child <b>3" Nothing Nothing to voNode3
				Handle hoNode3
				Get Create (RefClass(cComNode)) to hoNode3
				Set pvComObject of hoNode3 to voNode3
					Set ComValue of hoNode3 to 103
				Send Destroy to hoNode3
			Send Destroy to hoNodes2
			Set ComExpanded of hoNode to True
		Send Destroy to hoNode
	Send Destroy to hoNodes1
End_Procedure
51:
How can I specify a default editor

// Occurs when a node is added to the nodes collection.
Procedure OnComAddNode Variant llNewNode
	Forward Send OnComAddNode llNewNode
	// NewNode.Editor = "calc"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voEditors
	Get ComEditors to voEditors
	Handle hoEditors
	Get Create (RefClass(cComEditors)) to hoEditors
	Set pvComObject of hoEditors to voEditors
		Get ComAdd of hoEditors "calc" OLECalculatorType to Nothing
	Send Destroy to hoEditors
	Get ComLoadXML "<numbers><first_number>100</first_number><second_number>200</second_number></numbers>" to Nothing
	Send ComExpandAll
End_Procedure
50:
Is there a way to define a default Editor which is assigned to each node when the string is loaded (method 1)

// Occurs when a node is added to the nodes collection.
Procedure OnComAddNode Variant llNewNode
	Forward Send OnComAddNode llNewNode
	// NewNode.Editor = "edit"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelForeColorChild to (RGB(128,128,128))
	Variant voEditors
	Get ComEditors to voEditors
	Handle hoEditors
	Get Create (RefClass(cComEditors)) to hoEditors
	Set pvComObject of hoEditors to voEditors
		Get ComAdd of hoEditors "edit" OLEEditType to Nothing
	Send Destroy to hoEditors
	Get ComLoadXML "http://www.exontrol.net/testing.xml" to Nothing
	Send ComExpandAll
End_Procedure
49:
How can I assign editors to nodes

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAllowDuplicateEntries to True
	Variant voEditors
	Get ComEditors to voEditors
	Handle hoEditors
	Get Create (RefClass(cComEditors)) to hoEditors
	Set pvComObject of hoEditors to voEditors
		Variant voEditor
		Get ComAdd of hoEditors "name" OLEEditType to voEditor
		Handle hoEditor
		Get Create (RefClass(cComEditor)) to hoEditor
		Set pvComObject of hoEditor to voEditor
			Set ComAppearance of hoEditor to OLEEtchedApp
		Send Destroy to hoEditor
		Variant voEditor1
		Get ComAdd of hoEditors "phone" OLEMaskType to voEditor1
		Handle hoEditor1
		Get Create (RefClass(cComEditor)) to hoEditor1
		Set pvComObject of hoEditor1 to voEditor1
			Set ComMask of hoEditor1 to "(###)-######"
			Set ComAppearance of hoEditor1 to OLEEtchedApp
		Send Destroy to hoEditor1
		Variant voEditor2
		Get ComAdd of hoEditors "date" OLEDateType to voEditor2
		Handle hoEditor2
		Get Create (RefClass(cComEditor)) to hoEditor2
		Set pvComObject of hoEditor2 to voEditor2
			Set ComAppearance of hoEditor2 to OLEEtchedApp
		Send Destroy to hoEditor2
	Send Destroy to hoEditors
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Customer" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComPicture of hoNode to "mihai"
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Variant voNode1
				Get ComAdd of hoNodes1 "Name" "Mihai Filimon" Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComEditor of hoNode1 to "name"
				Send Destroy to hoNode1
				Variant voNode2
				Get ComAdd of hoNodes1 "Phone" "(0744)-845287" Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Set ComEditor of hoNode2 to "phone"
				Send Destroy to hoNode2
				Variant voNode3
				Get ComAdd of hoNodes1 "BirthDay" "12/31/1971" Nothing to voNode3
				Handle hoNode3
				Get Create (RefClass(cComNode)) to hoNode3
				Set pvComObject of hoNode3 to voNode3
					Set ComEditor of hoNode3 to "date"
				Send Destroy to hoNode3
			Send Destroy to hoNodes1
			Set ComExpanded of hoNode to True
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Set ComLevelWidth 0 to 82
	Send ComEndUpdate
End_Procedure
48:
I use LoadXml, then inside onNodeAdd event, I add the picture. But the picture doesnt show up. Does the picture have to be a bitmap

// Occurs when a node is added to the nodes collection.
Procedure OnComAddNode Variant llNewNode
	Forward Send OnComAddNode llNewNode
	// NewNode.Picture = LoadPicture("c:\exontrol\images\colorize.gif")
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Parent 1" Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Variant voNodes1
	Get ComNodes to voNodes1
	Handle hoNodes1
	Get Create (RefClass(cComNodes)) to hoNodes1
	Set pvComObject of hoNodes1 to voNodes1
		Variant voNode
		Get ComAdd of hoNodes1 "Parent 2" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes2
			Get ComNodes of hoNode to voNodes2
			Handle hoNodes2
			Get Create (RefClass(cComNodes)) to hoNodes2
			Set pvComObject of hoNodes2 to voNodes2
				Variant voNode1
				Get ComAdd of hoNodes2 "Child <b>1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to 100
				Send Destroy to hoNode1
				Variant voNode2
				Get ComAdd of hoNodes2 "Child <b>2" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Set ComValue of hoNode2 to 102
				Send Destroy to hoNode2
				Variant voNode3
				Get ComAdd of hoNodes2 "Child <b>3" Nothing Nothing to voNode3
				Handle hoNode3
				Get Create (RefClass(cComNode)) to hoNode3
				Set pvComObject of hoNode3 to voNode3
					Set ComValue of hoNode3 to 103
				Send Destroy to hoNode3
			Send Destroy to hoNodes2
			Set ComExpanded of hoNode to True
		Send Destroy to hoNode
	Send Destroy to hoNodes1
End_Procedure
47:
How can I assign a picture to a node ( method 3 )

Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Parent 1" Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Variant voNodes1
	Get ComNodes to voNodes1
	Handle hoNodes1
	Get Create (RefClass(cComNodes)) to hoNodes1
	Set pvComObject of hoNodes1 to voNodes1
		Variant voNode
		Get ComAdd of hoNodes1 "Parent 2" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComPicture of hoNode to "pic1"
			Variant voNodes2
			Get ComNodes of hoNode to voNodes2
			Handle hoNodes2
			Get Create (RefClass(cComNodes)) to hoNodes2
			Set pvComObject of hoNodes2 to voNodes2
				Variant voNode1
				Get ComAdd of hoNodes2 "Child <b>1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to 100
				Send Destroy to hoNode1
				Variant voNode2
				Get ComAdd of hoNodes2 "Child <b>2" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Set ComValue of hoNode2 to 102
				Send Destroy to hoNode2
				Variant voNode3
				Get ComAdd of hoNodes2 "Child <b>3" Nothing Nothing to voNode3
				Handle hoNode3
				Get Create (RefClass(cComNode)) to hoNode3
				Set pvComObject of hoNode3 to voNode3
					Set ComValue of hoNode3 to 103
				Send Destroy to hoNode3
			Send Destroy to hoNodes2
			Set ComExpanded of hoNode to True
		Send Destroy to hoNode
	Send Destroy to hoNodes1
End_Procedure
46:
How can I save the control's content using a different version of XML DOM
Procedure OnCreate
	Forward Send OnCreate
	Variant d
	Get Comcreateobject "Msxml2.DOMDocument.3.0" to d
	Get ComLoadXML "<customer><first_name>Joe</first_name><last_name>Smith</last_name></customer>" to Nothing
	Get ComSaveXML d to Nothing
	Showln d
	Send ComExpandAll
End_Procedure
45:
How can I load the control's content using a different version of XML DOM
Procedure OnCreate
	Forward Send OnCreate
	Variant d
	Get Comcreateobject "Msxml2.DOMDocument.3.0" to d
		Set Comasync to False
		Get ComloadXML "<customer><first_name>Joe</first_name><last_name>Smith</last_name></customer>" to Nothing
	Get ComLoadXML d to Nothing
	Send ComExpandAll
End_Procedure
44:
How can I get the XML string from the control's content
Procedure OnCreate
	Forward Send OnCreate
	Variant d
	Get Comcreateobject "MSXML.DOMDocument" to d
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Root" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComImage of hoNode to 1
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Variant voNode1
				Get ComAdd of hoNodes1 "Child1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComImage of hoNode1 to 2
					Set ComValue of hoNode1 to "Value <b>1"
				Send Destroy to hoNode1
			Send Destroy to hoNodes1
			Variant voNodes2
			Get ComNodes of hoNode to voNodes2
			Handle hoNodes2
			Get Create (RefClass(cComNodes)) to hoNodes2
			Set pvComObject of hoNodes2 to voNodes2
				Variant voNode2
				Get ComAdd of hoNodes2 "Child2" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Set ComImage of hoNode2 to 2
					Set ComValue of hoNode2 to "Value <b>2"
				Send Destroy to hoNode2
			Send Destroy to hoNodes2
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Send ComExpandAll
	Send ComResizeToFit 0 Nothing
	Get ComSaveXML d to Nothing
	Showln d
End_Procedure
43:
How can I load the control from a XML DOM object

Procedure OnCreate
	Forward Send OnCreate
	Variant d
	Get Comcreateobject "Msxml2.DOMDocument.3.0" to d
		Get ComappendChild (ComcreateElement(Self,"Root")) to Nothing
		Variant voIXMLDOMNodeList
		Get ComchildNodes to voIXMLDOMNodeList
		Handle hoIXMLDOMNodeList
		Get Create (RefClass(cComIXMLDOMNodeList)) to hoIXMLDOMNodeList
		Set pvComObject of hoIXMLDOMNodeList to voIXMLDOMNodeList
			Variant voIXMLDOMElement
			Get Comitem of hoIXMLDOMNodeList 0 to voIXMLDOMElement
			Handle hoIXMLDOMElement
			Get Create (RefClass(cComIXMLDOMElement)) to hoIXMLDOMElement
			Set pvComObject of hoIXMLDOMElement to voIXMLDOMElement
				Variant voIXMLDOMNamedNodeMap
				Get Comattributes of hoIXMLDOMElement to voIXMLDOMNamedNodeMap
				Handle hoIXMLDOMNamedNodeMap
				Get Create (RefClass(cComIXMLDOMNamedNodeMap)) to hoIXMLDOMNamedNodeMap
				Set pvComObject of hoIXMLDOMNamedNodeMap to voIXMLDOMNamedNodeMap
					Get ComsetNamedItem of hoIXMLDOMNamedNodeMap d to Nothing
					Variant voIXMLDOMAttribute
					Get Comitem of hoIXMLDOMNamedNodeMap 0 to voIXMLDOMAttribute
					Handle hoIXMLDOMAttribute
					Get Create (RefClass(cComIXMLDOMAttribute)) to hoIXMLDOMAttribute
					Set pvComObject of hoIXMLDOMAttribute to voIXMLDOMAttribute
						Set Comvalue of hoIXMLDOMAttribute to "value <b>1"
					Send Destroy to hoIXMLDOMAttribute
					Get ComsetNamedItem of hoIXMLDOMNamedNodeMap d to Nothing
					Variant voIXMLDOMAttribute1
					Get Comitem of hoIXMLDOMNamedNodeMap 1 to voIXMLDOMAttribute1
					Handle hoIXMLDOMAttribute1
					Get Create (RefClass(cComIXMLDOMAttribute)) to hoIXMLDOMAttribute1
					Set pvComObject of hoIXMLDOMAttribute1 to voIXMLDOMAttribute1
						Set Comvalue of hoIXMLDOMAttribute1 to "value <b>2"
					Send Destroy to hoIXMLDOMAttribute1
				Send Destroy to hoIXMLDOMNamedNodeMap
			Send Destroy to hoIXMLDOMElement
		Send Destroy to hoIXMLDOMNodeList
	Get ComLoadXML d to Nothing
	Send ComExpandAll
	Send ComResizeToFit 0 Nothing
	Showln d
End_Procedure
42:
How can I load XML from http or URL

Procedure OnCreate
	Forward Send OnCreate
	Get ComLoadXML "http://www.exontrol.net/testing.xml" to Nothing
	Send ComExpandAll
End_Procedure
41:
How can I load XML from a supplied string

Procedure OnCreate
	Forward Send OnCreate
	Get ComLoadXML "<customer><first_name>Joe</first_name><last_name>Smith</last_name></customer>" to Nothing
	Send ComExpandAll
End_Procedure
40:
How do I programatically search for a node
Procedure OnCreate
	Forward Send OnCreate
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Parent 1" Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Variant voNodes1
	Get ComNodes to voNodes1
	Handle hoNodes1
	Get Create (RefClass(cComNodes)) to hoNodes1
	Set pvComObject of hoNodes1 to voNodes1
		Variant voNode
		Get ComAdd of hoNodes1 "Parent 2" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes2
			Get ComNodes of hoNode to voNodes2
			Handle hoNodes2
			Get Create (RefClass(cComNodes)) to hoNodes2
			Set pvComObject of hoNodes2 to voNodes2
				Variant voNode1
				Get ComAdd of hoNodes2 "Child <b>1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to 100
				Send Destroy to hoNode1
				Variant voNode2
				Get ComAdd of hoNodes2 "Child <b>2" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Set ComValue of hoNode2 to 102
				Send Destroy to hoNode2
			Send Destroy to hoNodes2
		Send Destroy to hoNode
	Send Destroy to hoNodes1
	Variant voNodes3
	Get ComNodes to voNodes3
	Handle hoNodes3
	Get Create (RefClass(cComNodes)) to hoNodes3
	Set pvComObject of hoNodes3 to voNodes3
		Get ComAdd of hoNodes3 "Parent 3" Nothing Nothing to Nothing
	Send Destroy to hoNodes3
	Variant voNode3
	Get ComSearch "Child 1" -1 to voNode3
	Handle hoNode3
	Get Create (RefClass(cComNode)) to hoNode3
	Set pvComObject of hoNode3 to voNode3
		Set ComSelected of hoNode3 to True
	Send Destroy to hoNode3
End_Procedure
39:
How can I show the control's selection using your EBN technology

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 ("gBFLBCJwBAEHhEJAAChABUgIg6AADACAxRDQNABQKAAzQFAYaBiG6GAAGIYxWgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjAIoBQSGYZAIkGY4ah2A42RhNETyHDkUx7E6EZToCA6ChGOozThOEgUOAsExRIaJJ6oSTJAjGR46UjHdTwHCNHyfEAZZSqSaqLhuEYuQLZNZ1dL9KzFFqyIRQaK0IgmaI5VrFVqTPSQASLIKWKKjObIarOA53XjFd51DSFBTuGIYaZxGZYeqmeZdT7Xcr2fZUdw2EinIRFeqsHglbQcaBpegXVjNWw5N7EMDuKCdLACdYDaLlWiwHpQAZ7Vi+KgkXDcBwCUIhYQAGy4MAGcwvO7ed70HgOGoBxhmMZxilmW48Eca4TmmYw6jELYFkYB5MjubZ5F2fBWjeKZGjeYIkF4C4/DOPZrm0QhBBCEoBiSRh0B0RwhhQMRIAGYQtAMEIElgFQaEUUAwiECR6FyZAgBgRZOgEKZfAkAZDjYGIGiGGBuB6BxiAgcgigeYg4gYJIJmIaIkm0PpikiNJ1guYwDjYMoMk6GJWDaDZjFOIg6g6Y4zioPoPk8KQGEIPgkEkFJ+hGZIIiIJYSmSKQ2CqE4kkkPhShQZRJEIVoUmUeRWFiFplikdhZheZZJgIXoYGIGI2GaCwOGmJhqDOZpJjSOobmcAoWHKHJJmmVh2CeZ4JmSIoemeSZ2H6H5nnKBoCiCZxpliHYhmiCgOgMLQokoNJJiOaQDHKEokmISQiEmGQmDoZhiiaaYKHKGonGoCh+iKJ4qEiKJ5imaoDGqKoqksao2i4KQrAqRoxh+SpqlaNgwiuCpkliLprkOCo+i+ThLAaQoOA6GJ+4gbIIn4PIOg4Ow2k6L5rnMVpSjSS57FaVgqm2CxmHmNptkKNpejeZpbgYbIyCYc5uiWKJqBuHpqjobpLiKbo6mSM4unKPJLjuVp2CgL4LmSKo+m+ShChCNAwAOUwCkCTx8BcBpAnAOQKEIPBwkwNwOkMDwMEcEpEnETBXBaRQwnwZJxkKJAYkIMIRGQXBwnIN5yEyFJFkmcoJk8KocgmTI3C4LAzJrSpPlyVw2jwM4LjcOY7nOLJ3DyFQOF0BwxiyKwDCMRpRmyA5bEqUpwgwCwihCMR9EcUpUnUTRXFaVZ1FyCwegudI9HcSoaiaIwDGKWNuCCMpZnaAwzGqWpzj2Nw+luM59kKZ4LGqHkOIpRdieD2M4eorwPDZAsLEX48AOAPAKMEeAmhbD1F6OsY4fwKjFHaHwN4HQ3ATHMJ9SA4wTjnVIO4LYfwai4HmHQewRAvh0AoB4DYlALi9BYJERqewnhVGqPUTob2OD2A6I8Mo2RwvUCCCINgEwkiVG6PcQoH21iUH8A8QocQMjnDuI0cY9h8gFBaCMeYPBzidHMMQSInAzBeD0J4V4fxvjsDIG8WoiQ0D9BSHsKgdhPgPGKPEfgnwXjNGsOofgPh5iDDAN8KI5gzh+A+I4RAUgoCzFSG8fY/wPjBFSP0f4nhKBkHkFwXYlw8hjHyOgHI1QhDiHAEMRQeBBCmAMEAaoFBQCGBIBEQQUASB3FoLEFYBRuBbG6HQV4gR5jBGwD0A44QCAhEGM8WIghZAmDMKQQozAUiFCgKkH4rxKjyBWOEQhsx4DOA0CsYoeBoBhGAOUQQjQaB6B4JUZQiwwAMCCHId4JRWiPCsCoWQxwhj8D+IsbIeweAnEKAsUQghbBWGiokXgdxIDtGwMsRYghxBWAYLQM4QAXiHGoGEQgURHAyCMFgZoGRvh0CKFUCIrQpiyBCLMDY4xCASEEEsMobBfhRB6AMYoCxrh3GSP0SoigsCdA+OQAggBHixHQFEY4hguDLFGOsaoehWjeCMA0EI2QRjkEIJARi7w+g3GONwdYGBKBbEWKMEQLxkg2E+CccoBBQiUCkI4KQSgshNBSOUIgqRKhMDkDMXwJxuDfBCCAe4jRBjmBEKwconAajlGILkLQawmjHAYMcPILxu0fEwFMBwYgmAnBMOQYwtBki" + ;
"ZCYJUSQsRMhmHkFscgPAwgyFcFAJImAYDiE0DwTojAZhSDcE0bIvQbjnAIOETgUhWjyCUJgaQ1hyiMFiHkGYrg7A8EyNMBIJBZjqE4HMRQawisaAuJ0AgnhPBzHcH4J42VoDnBGOMUAFAHTBCyOsEw5hoD6FALQFwhgoDaA6EMdAhQIiiCaEERAyRUjuBkBYWQLRRB0DcI4KI2gehHHSAQfoYRaBYmIHoGQiwUgNBSKUKgrhLBSG0CEJA5heglDQNQTgfRfDqDaE0dIxQcinOEJ4KaZwnjqWqKgGguhLBUBUI0KI6llimAmNoTIURCiqHKOoJoURVBVCdm0LQjwogpC6FYVYVQ2j3BICoJISRVB7EsKsSojhZBWC0M0LI6RiDeFaBUV1FwdC9CYGsAAvw5DzCULoK4Wh2hdHWMUPIrwqjuF8FcbQ/QvjaDaG0WAVRPDACwFsBoYR1i1DeKkRoHRYizDWBEMY7BCiR0KE4Xo2AdgtCwOwUomRZhMAaL0BIawegmHYGsGosw7COGkFoLYTQ0jsHKEkWoFhXDWCyEsHYZx0C9FCB8WwthtBbC2G0NYahGi3FuFYdwuhtDxBaCYYwDRghJAiBYcQXAtiNDiO6+ouQrguHMFwbYnb+B9F4LoKwFh0BdC2K0OsKgBizGsP4RY3AIiDDgO4Yo4ReBXEcPILwWxmh5GiIURAvQLiuHsF4bYqw7CtEKE0XY1xBD3C+FsdofR3jFyEFccw/gvjbGOHwFw5R5C4BGP8AQNxmN5HgEYBIwQsAvAMGAbgHRBjwEMBEYQNx9gKC8MwEohR4DGAyMEVAwh2jcAYAcQIcBrAhGIFgR4EgxBcBfFsIsaxsCvAt1wHIfAtA9G8MAQY/wLDjC4G0Ro8RjA5GCBcQ4HQxjcD7woPwAQ0DqHOBkZw/BGiRHkEYJIyQsgvBMGQbgnRJjyEMEkY4+QngcHKBwVs5xjBHDSHgOwixyBMASJYOYBgwjMCyI8GQZBmCpEyPEVwZdECtEGGUXgYBoiyHgP8ZomRng6DOFwdonR5huA0M8DI7wfBmC4N0SAmgYBhhoAsBnA7ONgGhQh6AjBEhogtAXgjA0BugOhRh5h3BIhnBNAfglA0gugWhQgsAbAuBUhdAEAwh0AmgXhTh6gDBQhqM4giB0gWgmhNBagTBUhqgkgLgmBzB4hIhTgaB7BVhrAtBnrSgug2AfAZBnBbhrgtB3gpA1BugAhVh6APACBrhNgHgxA2Aug8r0AbBkhsgphZgvgkhegwhAgShPBot4gng1A2guhWhah7BjBshtgtg3g3A2hmhLhbh6BTBupkhHg5POBNgih7A8B/huBdhXg7A3Buhuhdh7hDB4hGg9Avg8oiB2heh7gLBzhpg9gDg6g3hGh+hfh8ADgAhvAdhpu/gvAGhdg7hpgjhBAsBnu0hvAOhhh8BDgIuDgng3gSAggXhihyBvgFjmgphHA4hvAevggDgQhtBUgLhFhEg/AZgCHaARByguBXhLA5BvAuhdg8gTgMBRB+A0A/hkgnQ8h8hjgchzguB3r9hvA+hnh9ADgguNgHhOg5B/AghogdAjgkh0guB+gqA5AvAnAYgYhPglh1AugnhVA6gvBWhpA9AbgPh1B+g3hXA5g/BNhmBVA3gaB1hehHhZA7AvBmhsh9Oqh2gOhXhbA7AfBfhkhOApgUBTBNhBhdA7gugrgIBTA/g7B3guh3glgYSFBvhqggBwh4Auh+AmAjhHgGhwh+AjhEh4gvAXhjA8BvgOhxh+BDvZAvAVAhAjhEB2hyB+BjhMh5gvA3hnA8hvgeAUAsg4BZh6AkBaBABACAg") to Nothing
		Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAEGg4BFIDg6AADACAxRDAMgBQKAAzQFAYahsGCGAAGIYxUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQGhsCYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU8lORLUi+M4zSBPcZVTRtGShPDBKTjMKKYgkG4lVpRNa0PC1GTzQ6mazkKQLRADDIDVbAeL3LiMBy9LyLLItSIrFqqaJma7ccgRDj4AY7Ua+czufBZbozOqDYzAey7TDWLRXFDNIzzTgQAyHHrETbHGqzFxMAEa5YGqYpVj2HwzDuQ5oHKIQgggSRAlIYw6B0ThGFGDIAFUDAhBMfZRiGNAkFECZnG4IQdneJwmnsSQrGAAhWAIJBJBIQgFCQIBiEIAglgqYo0i4V4MEgRI9gSToYFSb4Fk6Y4+BmBZhFOJgTC8TBogQAArgqco4muCZOkOMJtgmYpIjYKg7GKE4uCUK4AAKKg2DwI4DiCZw5k6KJ2D6D4OHiag4DwIxiiQAArAqMosnEPBPAOIhOg+DozjIJ4PGSY4iEwPAkhKLhHUUSQsnKFCnkYU9MjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMhZKEwA5jC6SIyEqfh0kuD4MjAAAwcwBw0iKDwjlKVozmyChPDSThyiMDxGk6awbB6XY1iwfQInkPg0GMEAADEdRDmcVovm8ex3FkPJrH0WJ5w4UAAkcMYMHOaxmjGTxNGcao1jWbYMkcAAMk2RJ7lycxMgMdpEHMTZMnuXBM7uMAOAG1jAED8HAQ47wGjDHgPwEI+RggcGOAmAAqxDj8DoHMTY3BUi7GWPOCAKg3jIBOEIXggBAEBA" to Nothing
	Send Destroy to hoAppearance
	Set ComShowFocusRect to False
	Set ComSelBackColor to |CI$1000000
	Set ComSelForeColor to -1
	Set ComSelBackColorCollapse to |CI$2000000
	Set ComSelBackColorChild to -1
	Set ComSelForeColorChild to -1
	Set ComAllowDuplicateEntries to True
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Parent 1" Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Variant voNodes1
	Get ComNodes to voNodes1
	Handle hoNodes1
	Get Create (RefClass(cComNodes)) to hoNodes1
	Set pvComObject of hoNodes1 to voNodes1
		Variant voNode
		Get ComAdd of hoNodes1 "Parent 2" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes2
			Get ComNodes of hoNode to voNodes2
			Handle hoNodes2
			Get Create (RefClass(cComNodes)) to hoNodes2
			Set pvComObject of hoNodes2 to voNodes2
				Variant voNode1
				Get ComAdd of hoNodes2 "Child <b>1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to 100
				Send Destroy to hoNode1
				Variant voNode2
				Get ComAdd of hoNodes2 "Child <b>2" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Set ComValue of hoNode2 to 102
				Send Destroy to hoNode2
			Send Destroy to hoNodes2
			Set ComExpanded of hoNode to True
			Set ComSelected of hoNode to True
		Send Destroy to hoNode
	Send Destroy to hoNodes1
	Variant voNodes3
	Get ComNodes to voNodes3
	Handle hoNodes3
	Get Create (RefClass(cComNodes)) to hoNodes3
	Set pvComObject of hoNodes3 to voNodes3
		Variant voNode3
		Get ComAdd of hoNodes3 "Parent 3" Nothing Nothing to voNode3
		Handle hoNode3
		Get Create (RefClass(cComNode)) to hoNode3
		Set pvComObject of hoNode3 to voNode3
			Variant voNodes4
			Get ComNodes of hoNode3 to voNodes4
			Handle hoNodes4
			Get Create (RefClass(cComNodes)) to hoNodes4
			Set pvComObject of hoNodes4 to voNodes4
				Variant voNode4
				Get ComAdd of hoNodes4 "Child <b>1" Nothing Nothing to voNode4
				Handle hoNode4
				Get Create (RefClass(cComNode)) to hoNode4
				Set pvComObject of hoNode4 to voNode4
					Set ComValue of hoNode4 to 103
				Send Destroy to hoNode4
				Variant voNode5
				Get ComAdd of hoNodes4 "Child <b>2" Nothing Nothing to voNode5
				Handle hoNode5
				Get Create (RefClass(cComNode)) to hoNode5
				Set pvComObject of hoNode5 to voNode5
					Set ComValue of hoNode5 to 104
				Send Destroy to hoNode5
			Send Destroy to hoNodes4
		Send Destroy to hoNode3
	Send Destroy to hoNodes3
	Variant voNodes5
	Get ComNodes to voNodes5
	Handle hoNodes5
	Get Create (RefClass(cComNodes)) to hoNodes5
	Set pvComObject of hoNodes5 to voNodes5
		Get ComAdd of hoNodes5 "Parent 4" Nothing Nothing to Nothing
	Send Destroy to hoNodes5
	Send ComEndUpdate
	Set ComLevelWidth 0 to 96
End_Procedure
38:
Is it possible to assing a picture to a node (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComAlignChildContent to True
	Set ComAllowDuplicateEntries to True
	Set ComSelBackMode to OLEexTransparent
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Parent 1" Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Variant voNodes1
	Get ComNodes to voNodes1
	Handle hoNodes1
	Get Create (RefClass(cComNodes)) to hoNodes1
	Set pvComObject of hoNodes1 to voNodes1
		Variant voNode
		Get ComAdd of hoNodes1 "Parent 2" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes2
			Get ComNodes of hoNode to voNodes2
			Handle hoNodes2
			Get Create (RefClass(cComNodes)) to hoNodes2
			Set pvComObject of hoNodes2 to voNodes2
				Variant voNode1
				Get ComAdd of hoNodes2 "Child <b>1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to 100
				Send Destroy to hoNode1
				Variant voNode2
				Get ComAdd of hoNodes2 "Child <b>2" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Set ComValue of hoNode2 to 102
				Send Destroy to hoNode2
			Send Destroy to hoNodes2
			Set ComBackgroundExt of hoNode OLEexExpandBackgroundExtState to "left[18],client[text=`<img>pic1</img>`,align=0x20]"
			Set ComExpanded of hoNode to True
		Send Destroy to hoNode
	Send Destroy to hoNodes1
	Variant voNodes3
	Get ComNodes to voNodes3
	Handle hoNodes3
	Get Create (RefClass(cComNodes)) to hoNodes3
	Set pvComObject of hoNodes3 to voNodes3
		Variant voNode3
		Get ComAdd of hoNodes3 "Parent 3" Nothing Nothing to voNode3
		Handle hoNode3
		Get Create (RefClass(cComNode)) to hoNode3
		Set pvComObject of hoNode3 to voNode3
			Variant voNodes4
			Get ComNodes of hoNode3 to voNodes4
			Handle hoNodes4
			Get Create (RefClass(cComNodes)) to hoNodes4
			Set pvComObject of hoNodes4 to voNodes4
				Variant voNode4
				Get ComAdd of hoNodes4 "Child <b>1" Nothing Nothing to voNode4
				Handle hoNode4
				Get Create (RefClass(cComNode)) to hoNode4
				Set pvComObject of hoNode4 to voNode4
					Set ComValue of hoNode4 to 103
				Send Destroy to hoNode4
				Variant voNode5
				Get ComAdd of hoNodes4 "Child <b>2" Nothing Nothing to voNode5
				Handle hoNode5
				Get Create (RefClass(cComNode)) to hoNode5
				Set pvComObject of hoNode5 to voNode5
					Set ComValue of hoNode5 to 104
				Send Destroy to hoNode5
			Send Destroy to hoNodes4
			Set ComBackgroundExt of hoNode3 OLEexExpandBackgroundExtState to "left[18],client[text=`<img>pic1</img>`,align=0x20]"
			Set ComBackgroundExt of hoNode3 OLEexCollapseBackgroundExtState to "right[4],client[text=`<img>pic1:19</img>`,align=0x12]"
		Send Destroy to hoNode3
	Send Destroy to hoNodes3
	Variant voNodes5
	Get ComNodes to voNodes5
	Handle hoNodes5
	Get Create (RefClass(cComNodes)) to hoNodes5
	Set pvComObject of hoNodes5 to voNodes5
		Get ComAdd of hoNodes5 "Parent 4" Nothing Nothing to Nothing
	Send Destroy to hoNodes5
	Send ComEndUpdate
	Set ComLevelWidth 0 to 96
End_Procedure
37:
Is it possible to assing a picture to a node (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComAlignChildContent to True
	Set ComAllowDuplicateEntries to True
	Set ComSelBackMode to OLEexTransparent
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Parent 1" Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Variant voNodes1
	Get ComNodes to voNodes1
	Handle hoNodes1
	Get Create (RefClass(cComNodes)) to hoNodes1
	Set pvComObject of hoNodes1 to voNodes1
		Variant voNode
		Get ComAdd of hoNodes1 "Parent 2" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant v
				Get ComHTMLPicture "pic1" to v
			Set ComPicture of hoNode to v
			Variant voNodes2
			Get ComNodes of hoNode to voNodes2
			Handle hoNodes2
			Get Create (RefClass(cComNodes)) to hoNodes2
			Set pvComObject of hoNodes2 to voNodes2
				Variant voNode1
				Get ComAdd of hoNodes2 "Child <b>1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to 100
				Send Destroy to hoNode1
				Variant voNode2
				Get ComAdd of hoNodes2 "Child <b>2" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Set ComValue of hoNode2 to 102
				Send Destroy to hoNode2
				Variant voNode3
				Get ComAdd of hoNodes2 "Child <b>3" Nothing Nothing to voNode3
				Handle hoNode3
				Get Create (RefClass(cComNode)) to hoNode3
				Set pvComObject of hoNode3 to voNode3
					Set ComValue of hoNode3 to 103
				Send Destroy to hoNode3
			Send Destroy to hoNodes2
			Set ComExpanded of hoNode to True
		Send Destroy to hoNode
	Send Destroy to hoNodes1
	Variant voNodes3
	Get ComNodes to voNodes3
	Handle hoNodes3
	Get Create (RefClass(cComNodes)) to hoNodes3
	Set pvComObject of hoNodes3 to voNodes3
		Get ComAdd of hoNodes3 "Parent 3" Nothing Nothing to Nothing
	Send Destroy to hoNodes3
	Send ComEndUpdate
End_Procedure
36:
I get "The key already exists" when adding a new node. What can I do ( method 2 )
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Item" "Key1" to Nothing
		Get ComAdd of hoNodes "Item" "Key2" to Nothing
		Get ComAdd of hoNodes "Item" "Key3" to Nothing
	Send Destroy to hoNodes
	Send ComEndUpdate
End_Procedure
35:
I get "The key already exists" when adding a new node. What can I do ( method 1 )
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAllowDuplicateEntries to True
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Item" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Item" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Item" Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Send ComEndUpdate
End_Procedure
34:
How can I mark the node only, without its child

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAlignChildContent to True
	Set ComAllowDuplicateEntries to True
	Set ComSelBackMode to OLEexTransparent
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Parent 1" Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Variant voNodes1
	Get ComNodes to voNodes1
	Handle hoNodes1
	Get Create (RefClass(cComNodes)) to hoNodes1
	Set pvComObject of hoNodes1 to voNodes1
		Variant voNode
		Get ComAdd of hoNodes1 "Parent 2" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes2
			Get ComNodes of hoNode to voNodes2
			Handle hoNodes2
			Get Create (RefClass(cComNodes)) to hoNodes2
			Set pvComObject of hoNodes2 to voNodes2
				Variant voNode1
				Get ComAdd of hoNodes2 "Child <b>1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to 100
				Send Destroy to hoNode1
				Variant voNode2
				Get ComAdd of hoNodes2 "Child <b>2" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Set ComValue of hoNode2 to 102
				Send Destroy to hoNode2
			Send Destroy to hoNodes2
			Set ComBackgroundExt of hoNode OLEexExpandBackgroundExtState to "top[20,frame=RGB(0,0,0),framethick]"
			Set ComBackgroundExt of hoNode OLEexCollapseBackgroundExtState to (ComBackgroundExt(hoNode,OLEexExpandBackgroundExtState))
			Set ComExpanded of hoNode to True
		Send Destroy to hoNode
	Send Destroy to hoNodes1
	Variant voNodes3
	Get ComNodes to voNodes3
	Handle hoNodes3
	Get Create (RefClass(cComNodes)) to hoNodes3
	Set pvComObject of hoNodes3 to voNodes3
		Get ComAdd of hoNodes3 "Parent 3" Nothing Nothing to Nothing
	Send Destroy to hoNodes3
	Send ComEndUpdate
End_Procedure
33:
How can I mark the entire node

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAlignChildContent to True
	Set ComAllowDuplicateEntries to True
	Set ComSelBackMode to OLEexTransparent
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Parent 1" Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Variant voNodes1
	Get ComNodes to voNodes1
	Handle hoNodes1
	Get Create (RefClass(cComNodes)) to hoNodes1
	Set pvComObject of hoNodes1 to voNodes1
		Variant voNode
		Get ComAdd of hoNodes1 "Parent 2" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes2
			Get ComNodes of hoNode to voNodes2
			Handle hoNodes2
			Get Create (RefClass(cComNodes)) to hoNodes2
			Set pvComObject of hoNodes2 to voNodes2
				Variant voNode1
				Get ComAdd of hoNodes2 "Child <b>1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to 100
				Send Destroy to hoNode1
				Variant voNode2
				Get ComAdd of hoNodes2 "Child <b>2" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Set ComValue of hoNode2 to 102
				Send Destroy to hoNode2
			Send Destroy to hoNodes2
			Set ComBackgroundExt of hoNode OLEexExpandBackgroundExtState to "[frame=RGB(0,0,0),framethick]"
			Set ComBackgroundExt of hoNode OLEexCollapseBackgroundExtState to (ComBackgroundExt(hoNode,OLEexExpandBackgroundExtState))
			Set ComExpanded of hoNode to True
		Send Destroy to hoNode
	Send Destroy to hoNodes1
	Variant voNodes3
	Get ComNodes to voNodes3
	Handle hoNodes3
	Get Create (RefClass(cComNodes)) to hoNodes3
	Set pvComObject of hoNodes3 to voNodes3
		Get ComAdd of hoNodes3 "Parent 3" Nothing Nothing to Nothing
	Send Destroy to hoNodes3
	Send ComEndUpdate
End_Procedure
32:
How can I specify aditional information for a node, when it is expanded

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAlignChildContent to True
	Set ComSelBackMode to OLEexTransparent
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Variant voNode1
				Get ComAdd of hoNodes1 "Child <b>1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to 100
					Set ComBackgroundExt of hoNode1 OLEexCollapseBackgroundExtState to "top[2],bottom[2],left[2],right[2],client[pattern=6,frame]"
				Send Destroy to hoNode1
				Variant voNode2
				Get ComAdd of hoNodes1 "Child <b>2" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Set ComValue of hoNode2 to 102
				Send Destroy to hoNode2
			Send Destroy to hoNodes1
			Set ComBackgroundExt of hoNode OLEexExpandBackgroundExtState to "top[4],bottom[4],left[17],right[4],client[text=`<font ;6><fgcolor A0A0A0>Count: 2`,align=0x20]"
			Set ComBackgroundExt of hoNode OLEexCollapseBackgroundExtState to "top[4],bottom[4],left[4],right[4],client[text=`<font ;6><fgcolor A0A0A0>Count: 2`,align=0x02]"
			Set ComExpanded of hoNode to True
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Send ComResizeToFit 0 Nothing
	Send ComEndUpdate
End_Procedure
31:
Is it possible to show aditional information for a node

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAlignChildContent to True
	Set ComSelBackMode to OLEexTransparent
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Variant voNode1
				Get ComAdd of hoNodes1 "Child <b>1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to 100
				Send Destroy to hoNode1
				Variant voNode2
				Get ComAdd of hoNodes1 "Child <b>2" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Set ComValue of hoNode2 to 102
				Send Destroy to hoNode2
			Send Destroy to hoNodes1
			Set ComBackgroundExt of hoNode OLEexExpandBackgroundExtState to "top[4],bottom[4],left[4],right[4],client[text=`<font ;6><fgcolor A0A0A0>Count: 2`,align=0x02]"
			Set ComBackgroundExt of hoNode OLEexCollapseBackgroundExtState to (ComBackgroundExt(hoNode,OLEexExpandBackgroundExtState))
			Set ComExpanded of hoNode to True
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Send ComResizeToFit 0 Nothing
	Send ComEndUpdate
End_Procedure
30:
How can I hide the expanding bars under each parent node (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComBackground OLEexExpandButtonUp to -1
	Set ComBackground OLEexExpandButtonDown to -1
	Set ComAlignChildContent to True
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Variant voNode1
				Get ComAdd of hoNodes1 "Child <b>1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to 100
				Send Destroy to hoNode1
				Variant voNode2
				Get ComAdd of hoNodes1 "Child <b>2" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Variant voNodes2
					Get ComNodes of hoNode2 to voNodes2
					Handle hoNodes2
					Get Create (RefClass(cComNodes)) to hoNodes2
					Set pvComObject of hoNodes2 to voNodes2
						Variant voNode3
						Get ComAdd of hoNodes2 "Sub Child <b>2.1" Nothing Nothing to voNode3
						Handle hoNode3
						Get Create (RefClass(cComNode)) to hoNode3
						Set pvComObject of hoNode3 to voNode3
							Set ComValue of hoNode3 to 101
						Send Destroy to hoNode3
						Variant voNode4
						Get ComAdd of hoNodes2 "Sub Child <b>2.2" Nothing Nothing to voNode4
						Handle hoNode4
						Get Create (RefClass(cComNode)) to hoNode4
						Set pvComObject of hoNode4 to voNode4
							Variant voNodes3
							Get ComNodes of hoNode4 to voNodes3
							Handle hoNodes3
							Get Create (RefClass(cComNodes)) to hoNodes3
							Set pvComObject of hoNodes3 to voNodes3
								Variant voNode5
								Get ComAdd of hoNodes3 "Sub Child <b>2.1.1" Nothing Nothing to voNode5
								Handle hoNode5
								Get Create (RefClass(cComNode)) to hoNode5
								Set pvComObject of hoNode5 to voNode5
									Set ComValue of hoNode5 to 101
								Send Destroy to hoNode5
								Variant voNode6
								Get ComAdd of hoNodes3 "Sub Child <b>2.2.2" Nothing Nothing to voNode6
								Handle hoNode6
								Get Create (RefClass(cComNode)) to hoNode6
								Set pvComObject of hoNode6 to voNode6
									Set ComValue of hoNode6 to 102
								Send Destroy to hoNode6
							Send Destroy to hoNodes3
							Set ComExpanded of hoNode4 to False
						Send Destroy to hoNode4
					Send Destroy to hoNodes2
					Set ComExpanded of hoNode2 to True
				Send Destroy to hoNode2
			Send Destroy to hoNodes1
			Set ComSelected of hoNode to True
			Set ComExpanded of hoNode to True
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Set ComLevelWidth 0 to 64
	Set ComLevelWidth 1 to 96
	Set ComLevelWidth 2 to 96
	Send ComEndUpdate
End_Procedure
29:
How can I align the child nodes

Procedure OnCreate
	Forward Send OnCreate
	Set ComAlignChildContent to True
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent A" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComValue of hoNode to 100
		Send Destroy to hoNode
		Variant voNode1
		Get ComAdd of hoNodes "Parent B" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Variant voNodes1
			Get ComNodes of hoNode1 to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Variant voNode2
				Get ComAdd of hoNodes1 "Child<font ;6><off -4><b>1" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Set ComValue of hoNode2 to 101
				Send Destroy to hoNode2
				Variant voNode3
				Get ComAdd of hoNodes1 "Child<font ;6><off -4><b>2" Nothing Nothing to voNode3
				Handle hoNode3
				Get Create (RefClass(cComNode)) to hoNode3
				Set pvComObject of hoNode3 to voNode3
					Set ComValue of hoNode3 to 102
				Send Destroy to hoNode3
				Variant voNode4
				Get ComAdd of hoNodes1 "Child<font ;6><off -4><b>3" Nothing Nothing to voNode4
				Handle hoNode4
				Get Create (RefClass(cComNode)) to hoNode4
				Set pvComObject of hoNode4 to voNode4
					Variant voNodes2
					Get ComNodes of hoNode4 to voNodes2
					Handle hoNodes2
					Get Create (RefClass(cComNodes)) to hoNodes2
					Set pvComObject of hoNodes2 to voNodes2
						Variant voNode5
						Get ComAdd of hoNodes2 "Node<font ;6><off -4><b>1" Nothing Nothing to voNode5
						Handle hoNode5
						Get Create (RefClass(cComNode)) to hoNode5
						Set pvComObject of hoNode5 to voNode5
							Set ComValue of hoNode5 to 103
						Send Destroy to hoNode5
						Variant voNode6
						Get ComAdd of hoNodes2 "Node<font ;6><off -4><b>2" Nothing Nothing to voNode6
						Handle hoNode6
						Get Create (RefClass(cComNode)) to hoNode6
						Set pvComObject of hoNode6 to voNode6
							Set ComValue of hoNode6 to 104
						Send Destroy to hoNode6
					Send Destroy to hoNodes2
				Send Destroy to hoNode4
			Send Destroy to hoNodes1
			Set ComExpanded of hoNode1 to True
			Set ComSelected of hoNode1 to True
		Send Destroy to hoNode1
	Send Destroy to hoNodes
End_Procedure
28:
How do I change the control's visual appearance using the UI Visual Designer
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAllowDuplicateEntries to True
	Set ComShowFocusRect to False
	Set ComGridLinesColor to (RGB(128,128,128))
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent A" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Variant voNode1
				Get ComAdd of hoNodes1 "Child<font ;6><off -4><b>1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to 100
				Send Destroy to hoNode1
				Variant voNode2
				Get ComAdd of hoNodes1 "Child<font ;6><off -4><b>2" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Set ComValue of hoNode2 to 101
				Send Destroy to hoNode2
				Variant voNode3
				Get ComAdd of hoNodes1 "Child<font ;6><off -4><b>3" Nothing Nothing to voNode3
				Handle hoNode3
				Get Create (RefClass(cComNode)) to hoNode3
				Set pvComObject of hoNode3 to voNode3
					Variant voNodes2
					Get ComNodes of hoNode3 to voNodes2
					Handle hoNodes2
					Get Create (RefClass(cComNodes)) to hoNodes2
					Set pvComObject of hoNodes2 to voNodes2
						Variant voNode4
						Get ComAdd of hoNodes2 "Node<font ;6><off -4><b>1" Nothing Nothing to voNode4
						Handle hoNode4
						Get Create (RefClass(cComNode)) to hoNode4
						Set pvComObject of hoNode4 to voNode4
							Set ComValue of hoNode4 to 102
						Send Destroy to hoNode4
						Variant voNode5
						Get ComAdd of hoNodes2 "Node<font ;6><off -4><b>2" Nothing Nothing to voNode5
						Handle hoNode5
						Get Create (RefClass(cComNode)) to hoNode5
						Set pvComObject of hoNode5 to voNode5
							Set ComValue of hoNode5 to 103
						Send Destroy to hoNode5
					Send Destroy to hoNodes2
				Send Destroy to hoNode3
			Send Destroy to hoNodes1
			Set ComExpanded of hoNode to True
			Set ComSelected of hoNode to True
		Send Destroy to hoNode
		Variant voNode6
		Get ComAdd of hoNodes "Parent B" Nothing Nothing to voNode6
		Handle hoNode6
		Get Create (RefClass(cComNode)) to hoNode6
		Set pvComObject of hoNode6 to voNode6
			Variant voNodes3
			Get ComNodes of hoNode6 to voNodes3
			Handle hoNodes3
			Get Create (RefClass(cComNodes)) to hoNodes3
			Set pvComObject of hoNodes3 to voNodes3
				Get ComAdd of hoNodes3 1 Nothing Nothing to Nothing
			Send Destroy to hoNodes3
		Send Destroy to hoNode6
	Send Destroy to hoNodes
	Set ComLevelWidth 0 to 96
	Set ComVisualDesign to ("gBFLBWIgBAEHhEJAEGg6oBUHSTNAgAA8IZ7/jEZf78jUZicKAYOhULB8jAQxhEaGUjAkfhcICIgg4vAUHgRCJ0MkcInQBC01ACAADACAxRDAMgBQKAAzQFAYahmG6GAAGEZhYgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzXIUBxAAqXZZFUaKAg2Qg4TLBAzUTCQbR7HieQghGoqPpWF4gAhCJQGSYZaDqOQyRhkCC4DIITZkRbTUBiRSdWx8AAMIyiGpoJbudjyXg6V5OTblez9P7AMBvS6nKrhcp2PrhTSYWr+Gp5R7IMhyLI8Uw/DS/Yq1GDYIiuOoIQhCUD0LQ9EyXJqnaIzmgXJqFcCR9lUMZYGwFgCnUdJAF4bY3BsfZOnMd4+l0bR2CwHRWAMRpEGEL5WmsRYPCkZZNmeLQ5l0HoHEuJIxmOL50HgBAWgmDpEGGLJWAqbwPg+RZkH+eg9D4TxfhuRZeGGdwQH2PQTCmDpFFaKoVB+D5Xmed5pHoX44AWfR+F8UwVnEdpdkMMJKDIChygyIQpAoEh4iIJ5JlgTIcH+XoIFoEwnGEAh6A0KBgiMIICHdRgIlAM4MlKAIcCaIYIjYLoLGKIhqCcMxiTgJQ1A0IxEhsJgJFiPg+guI4yFYOA0GMWIUloNhNGIaIXCUI5CE4SwkEkchMhGCxlBkQIUCQZJZCiFIRk0aQVH8IBmAOBJeDcZJYmyFgnAmAhaGaCxmGmIhqhoZJZgiXYYAgFgCHQOYOFOEITCQCJpCyEoTW6NoACUZJiFCEoekiaZgmSHQXlYEh0DuDpTjCDQiEgchAg0IpJBoXoZiYKYqHaHAimkYguhMIZpAOMh0GEGBmg6JYqmkGowmyK4rAqNoyDsGg2BmCApCuAgNh8agrkqdYkGea4ChGCBAEAoAAJig4YqAm6cp2hKegwoChKIoykKUpinKgqSqKsrCtK4rywLEsizLQtS2LcuC5Louy8L0vi/MAwTCMMxDFMYxzIMkyjLMwzTOM80DRNI0zUNU1jXNg2TaNs3DdN43zgOE4jjOQ5TmOc6DpOo6zsO07jvPA8TyPM9D1PY9z4Pk+j7Pw/T+P9AEBQJA0EQVBkHQhCUKQtDENQ5D0QRFEkTRRFUWRdGEZRpG0cR1HkfSBIRFmSc55yQXxfHmB5cEGdp0EyJg7BUWoqFQfY/B8f5PnOd5+H6EAB4mRFD3F2G4cImAygZAKDkIwUBKCFASDwKIExyDsBAE4IQcBUg/AUEIGAaQegFAoDAHIkAgg7EgCkAgaAMjGDSEBcIRx+BVAqMUSKmgKjEHINQJCoQCAUCIqVU6qVVqtA+MdWKs1agRVwrpXivlgLCWIJwUIKQlAyE4KAJQEgZBsEoEoJA5haCKF+JAGYCRhBvA2LINgdglgTEIMEFoMxmiTCoM8GgzQ5hUE2DETYswEgCGAE4Y4MRlByAkGQQIHS3BSDaAQJQkg6AdAWEIKAEx0gdB6BwSYsh9DCkIHEbQdgIikCSA5fQpAsgjCYNMOg1QchPGmygGDJhSA9BIHYJwzARgMGiNQeobQThXA6JUQoZQrjWEOGMIwwwYgFBKHQIIsx2hFD6F8WgjB+h0CkDEBACABkwJkAAKc4QANbJ010noOpzNiKKUcpJSymlPGoHIGDawRiBEI24rpXywljLKWcYAWB+AkDCCASYyRSADBgCQRQXQNCOGAOYGQGAOCCCKBESgTgwgjByNQXwbQNiIGcCEEAKAli0BwCQAAURUgRDSOgAU5RPBJFQJMdASAjA2AoIQaAoA6g6CaB4XYSxWDHAMKILAiBlDHAiBoRgLBICbCaK4VIAxEDFFUNcBIfRrBrBULwIA6RwABE4JIdoLxMjMHIBMfA1Q1CdCaKgbwsBIh8CwEIYYAwEjJDWHQLQ9QVgZDyMMZw5QKjJAoIIcwABjhAHWBkBgkABC5EsYsVgtg9gVFwAENotAtCuBiLkAgRwhAAGeOQN48h1BtHeBMTItxijoBgJ0Xw7gai" + ;
"9EqOYdwuR2B4AGEcUA4wmj1F0L0OwwhsiyEaNcGwvBuD/AuKMUtlAQglAGEkRg6A6g5AyEYGQBQqC0AAEIEw+wxhDDQEguozxuhIUwHMU4uxRASAGIcNI+A7CZDOOkYQURPimHiDMAgwQ4BUAyAcYI0BGAbjQBAUgHQBifGOHkTYAAgBHDiJgPwnIbD6DyJwE46R1BzV2nkCkNguBdAqEZTIY4ciHHiM4LIngjghEJh0IoJAjBwE+IcRItg/AdHMKwRIIwkCyB4JUEgyRJBEE6CUZI8gmCED+B4Q4ER3BuAmNAPI7A6BIEMLQXYLxOjyHoMMGDIQWDJBmMwOYSRWZXHOEkeQbQJCyGiNMEQGh5ikHYHcZwsxiDvB4M8SY3B+g9CgAYXg2A6hNHmIwDgewOhHHCOANoUQqBlAuEYaQFA+glCOFISgjQVhJGiLMMI1whDLCOFwQQbgpj1ASV8KgdQKhJCmNQaoTWaCbEmzgJwQRjjBGwH4DwRh6hpC2FYWovQ6hcGuJUYofQujXHqO0NwfwPgnDaGEAonwDhxHyBILIcgC38GyNYRomw0jaAsKUUoaAsCHD6I4P25BCBGDkFse4CRzhwC4HexIcxuDXCaMsOqwQQjjDaJ8E4jAmBzC8HcVI6w9BeHuLUeIfRvhXHaPMP4nBjjxHoHkLwBxIj7BaOAc4RgJiFHCBgNwFRDhhw4CURA4QcARHPxEI4ngHB1DGHgdoERHhjEwP4IrGBMgGCaESI42R0iMywOkdwdgyjZEMF8TA5hMieDbfwDIrg5ibHMDkJI6+sDWHCN8UIaBDjGEOKMNAugfCVFIOkTQRhOB3HKCcXotg+joBsO0XIbw1DaGcLEVo6h9DuFqK8NYmhoj8D8GoKYhAGgECziMeYjQPgHESPYPY6wLiWQiG4LYrh0i7HcHsZ3ih2h2GSO4NqewOAKDmBYGIMRjB+HUJwIwgxiDxE4F8DoxQ5AcDeCMY4nhTgcDYFkDwRwMiDlQCYXI+g5CVGgK8IoCQ6BwFuE0A49ADjxHMGwYYiAEEuauAAQrWq8tca6QcnobGwihp3myp5G0BsA3AaG1ghhIheJ+G4J/m5qBKCKDKEKFKGKHKIKJKKKLKMKNKOKPKQKRKSKTAUAlAVBGAABRgRBRB5hoACBTADgeBJgogThoBIBGA2AUgEhQggB1AqBFD9AXgIgMgGgiBbAFogA1AYBYhhA2B7BNBOAHFjhVBthSh7gchWBVB2gBhTiqg5AlhSBfAzgZhIAnhxgqhNA2gZBQg8BggpBxgwgFBiASATgShWgog1haA8BagZB5hDhTBrByApAFhEABgMgBhVhgB4h7guBGAHBegvBFgsgWhIgVgWhVBogzBrhuByAIgOB8ABgdhRhfLeB8AshugZg6hBhjBgB7BdhMBrAtArgUBmgjB5hOAIADBDgehiBNhjgahZgXBMABBrhYBqhihVg9gfAzA7hDhoBkAmiDhEAkggBpAxgdAOgnAjAohGBAgqgWgAAIBEhfB8BoBtAJAUBCB5hbmpBiAuB0B8AdAFAkhlgAhNIUhQgBhggIAmAKgChghIA2ALgBBNBDgeASBSBOBoBUhbgFhOh4BkhygGhhhIB2AegHhiAIgGAfgGEKhyAmgJhNBYgmAkA6hihDgmAugLhjAIhGIEhjCwgsA6hPAIhkhPgOhggDhOA+gNBkAJAGBCgMgPBJAUhNvpBYh+BDspBIhGBFA9Iwg2BJA8hjB5BWBWgVhlgJBmBagVsphGBTA7AmAJgGBigYhmBJgWBms3gZB2BIgBhPBZg0htgbhnAJhGBygchnBJhWGSAPBphmBegbD+g6B+gfhoAKAGgCgghoBKAWB/jNhphshQgiAiBKA2tLtQhGtSBPB6BWgKglBPBzhGgagmhphKB2gegnhqAKgGgbA+AqBKBegVgPoaAmgqgqhqhKg2gugqBqBDhigKgsBqh6hWg2gthjhjhmg6gshqBJA+prhsALAGhCgwhsAKhoh5iBBqAihKuuhLA2hOgzhshDhqhSgyGdBChWg1ht" + ;
"gJhmhSA+glAYBCBtA9BrAaAihfg2BuTuhhgeBMhrgmADA5BNgrg2A5A8AsBrhGhyg8hvBLhWh2g7hhB7hkhbBSBOgrh0hZg/tkAHAChAhvhzBmBhBSBQAQCAg")
	Send ComEndUpdate
End_Procedure
27:
How do I specify to search for name of the nodes only, when the user filters the control

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComFilterBarPromptVisible to OLEexFilterBarVisible
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Variant voNode1
				Get ComAdd of hoNodes1 "Child<font ;6><off -4><b>1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to 100
				Send Destroy to hoNode1
				Variant voNode2
				Get ComAdd of hoNodes1 "Child<font ;6><off -4><b>2" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Set ComValue of hoNode2 to 101
				Send Destroy to hoNode2
				Variant voNode3
				Get ComAdd of hoNodes1 "Child<font ;6><off -4><b>3" Nothing Nothing to voNode3
				Handle hoNode3
				Get Create (RefClass(cComNode)) to hoNode3
				Set pvComObject of hoNode3 to voNode3
					Variant voNodes2
					Get ComNodes of hoNode3 to voNodes2
					Handle hoNodes2
					Get Create (RefClass(cComNodes)) to hoNodes2
					Set pvComObject of hoNodes2 to voNodes2
						Variant voNode4
						Get ComAdd of hoNodes2 "Node<font ;6><off -4><b>1" Nothing Nothing to voNode4
						Handle hoNode4
						Get Create (RefClass(cComNode)) to hoNode4
						Set pvComObject of hoNode4 to voNode4
							Set ComValue of hoNode4 to 102
						Send Destroy to hoNode4
						Variant voNode5
						Get ComAdd of hoNodes2 "Node<font ;6><off -4><b>2" Nothing Nothing to voNode5
						Handle hoNode5
						Get Create (RefClass(cComNode)) to hoNode5
						Set pvComObject of hoNode5 to voNode5
							Set ComValue of hoNode5 to 103
						Send Destroy to hoNode5
					Send Destroy to hoNodes2
				Send Destroy to hoNode3
			Send Destroy to hoNodes1
			Set ComExpanded of hoNode to True
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Set ComAutoSearch to OLEexContains
	Set ComFilterBarPromptType to (OLEexFilterPromptApplyOnName + OLEexFilterPromptStartWith)
	Set ComFilterBarPromptPattern to "No"
	Send ComEndUpdate
End_Procedure
26:
Is it possible to include child-nodes, when do filtering

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComFilterBarPromptVisible to OLEexFilterBarVisible
	Set ComHideSelection to OLEexHideAlways
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Variant voNode1
				Get ComAdd of hoNodes1 "Child<font ;6><off -4><b>1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to 100
				Send Destroy to hoNode1
				Variant voNode2
				Get ComAdd of hoNodes1 "Child<font ;6><off -4><b>2" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Set ComValue of hoNode2 to 101
				Send Destroy to hoNode2
				Variant voNode3
				Get ComAdd of hoNodes1 "Child<font ;6><off -4><b>3" Nothing Nothing to voNode3
				Handle hoNode3
				Get Create (RefClass(cComNode)) to hoNode3
				Set pvComObject of hoNode3 to voNode3
					Variant voNodes2
					Get ComNodes of hoNode3 to voNodes2
					Handle hoNodes2
					Get Create (RefClass(cComNodes)) to hoNodes2
					Set pvComObject of hoNodes2 to voNodes2
						Variant voNode4
						Get ComAdd of hoNodes2 "Node<font ;6><off -4><b>1" Nothing Nothing to voNode4
						Handle hoNode4
						Get Create (RefClass(cComNode)) to hoNode4
						Set pvComObject of hoNode4 to voNode4
							Set ComValue of hoNode4 to 102
						Send Destroy to hoNode4
						Variant voNode5
						Get ComAdd of hoNodes2 "Node<font ;6><off -4><b>2" Nothing Nothing to voNode5
						Handle hoNode5
						Get Create (RefClass(cComNode)) to hoNode5
						Set pvComObject of hoNode5 to voNode5
							Set ComValue of hoNode5 to 103
						Send Destroy to hoNode5
					Send Destroy to hoNodes2
				Send Destroy to hoNode3
			Send Destroy to hoNodes1
			Set ComExpanded of hoNode to True
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Set ComAutoSearch to OLEexAnyContains
	Set ComFilterBarPromptType to (OLEexFilterPromptIncludeChild + OLEexFilterPromptApplyOnValue + OLEexFilterPromptApplyOnName + OLEexFilterPromptContainsAny)
	Set ComFilterBarPromptPattern to "Child3"
	Send ComEndUpdate
End_Procedure
25:
How can I change the control's filtering so it searches for Contains rather than Start

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComFilterBarPromptVisible to OLEexFilterBarVisible
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Variant voNode1
				Get ComAdd of hoNodes1 "Child<font ;6><off -4><b>1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to 100
				Send Destroy to hoNode1
				Variant voNode2
				Get ComAdd of hoNodes1 "Child<font ;6><off -4><b>2" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Set ComValue of hoNode2 to 101
				Send Destroy to hoNode2
				Variant voNode3
				Get ComAdd of hoNodes1 "Child<font ;6><off -4><b>3" Nothing Nothing to voNode3
				Handle hoNode3
				Get Create (RefClass(cComNode)) to hoNode3
				Set pvComObject of hoNode3 to voNode3
					Variant voNodes2
					Get ComNodes of hoNode3 to voNodes2
					Handle hoNodes2
					Get Create (RefClass(cComNodes)) to hoNodes2
					Set pvComObject of hoNodes2 to voNodes2
						Variant voNode4
						Get ComAdd of hoNodes2 "Node<font ;6><off -4><b>1" Nothing Nothing to voNode4
						Handle hoNode4
						Get Create (RefClass(cComNode)) to hoNode4
						Set pvComObject of hoNode4 to voNode4
							Set ComValue of hoNode4 to 102
						Send Destroy to hoNode4
						Variant voNode5
						Get ComAdd of hoNodes2 "Node<font ;6><off -4><b>2" Nothing Nothing to voNode5
						Handle hoNode5
						Get Create (RefClass(cComNode)) to hoNode5
						Set pvComObject of hoNode5 to voNode5
							Set ComValue of hoNode5 to 103
						Send Destroy to hoNode5
					Send Destroy to hoNodes2
				Send Destroy to hoNode3
			Send Destroy to hoNodes1
			Set ComExpanded of hoNode to True
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Set ComAutoSearch to OLEexAnyContains
	Set ComFilterBarPromptType to (OLEexFilterPromptApplyOnValue + OLEexFilterPromptApplyOnName + OLEexFilterPromptContainsAny)
	Set ComFilterBarPromptPattern to "Child3"
	Send ComEndUpdate
End_Procedure
24:
How do I enable the control's filtering support

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComFilterBarPromptVisible to OLEexFilterBarVisible
	Set ComHideSelection to OLEexHideAlways
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Variant voNode1
				Get ComAdd of hoNodes1 "Child <b>1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to 100
				Send Destroy to hoNode1
				Variant voNode2
				Get ComAdd of hoNodes1 "Child <b>2" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Set ComValue of hoNode2 to 101
				Send Destroy to hoNode2
				Variant voNode3
				Get ComAdd of hoNodes1 "Child <b>3" Nothing Nothing to voNode3
				Handle hoNode3
				Get Create (RefClass(cComNode)) to hoNode3
				Set pvComObject of hoNode3 to voNode3
					Set ComValue of hoNode3 to 102
				Send Destroy to hoNode3
			Send Destroy to hoNodes1
			Set ComExpanded of hoNode to True
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Send ComEndUpdate
End_Procedure
23:
How can I hide the expanding bars under each parent node (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAChABDEMACAADACAxRDQNABQKAAzQFAYaBmGqGAAGEaRWgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzXIUBxAAqXZZFUaKAgOMJDTLBAzUTCUKx7HynQACCCaTpGVo8hYhEoDJKMdB1HIZIwyBBcqBNWTFdLAAJFKTdKAMIyiGp4DbudjyXg6V5OTblez9P7AMBvS6nKrhcp2PrhTSYWr+Gp5R7IMhyLI8Uw/DS/Yq1GDYIiuOoIQhCUD0LQ9EyXJqnaJnaC5aiuCT7VRjWDYFgFdTpQC8bZuGz7Trmd59XTadhYHSsAyNRDCL6tayLDxSZabZ5aOa6HoOS4kjGY4vnQeAEBaCYOkQYYslYCpvA+D5FmSc55j0PhfF8eYHlwQZ2nQTImDsFRaioVB9j8Hx/k+c53n4fogAeTJFHuXY3HCTAygyAociMKBKEKBIeCiCZyHYEAnCEOBUh+BQhBgNIegKCgYBySAgh2SAUgINAMmMNIgCcCYjn4KoKmKSI2C6CpiHIagkDMYgCAoIg1A0IxEhsJgJFiPg+g+Y4yFYOA0GMWIIloNhNGIaIXCUI5CE4SwkEkchOFCFIlBkThQCUCQZDYSglCQcxaEUX5IBmBJhDeDZZDYOwlgmQhghaGZmkmKhnhoZo5ioTYYk2WYEgEYAnGOGJlDkCQyECDqfCkNoCCUSQ6A6BYhCgCZ0g6HoOEmWR9GFYw4m0OwIlIJIHCRc4shGJhpjoaocieaZiC6GAimkUgehIOwnGYEYGGiah6jaE4rg6SpCjKK5rEOMYjGGGIChKOgglmdoij6L5aEYfo6CkGIEAQgIA==" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 2 "gBFLBCJwBAEHhEJAAChABC0MACAADACAxRDQNABQKAAzQFAYaBmGqGAAGEaRWgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzXIUBxAAqXZZFUaKAgOMJDTLBAzUTCUKx7HynQACCCaTpGVo8hYhEoDJKMdB1HIZIwyBBcqBNWTFdLAAJFKTdKAMIyiGp4DbudjyXg6V5OTblez9P7AMBvS6nKrhcp2PrhTSYWr+Gp5R7IMhyLI8Uw/DS/Yq1GDYIiuOoIQhCUD0LQ9EyXJqnaJnaC5aiuCT7VRjWDYFgFdTpQC8bZuGz7Trmd59XTadhYHSsAyNRDCL6tayLDxSZabZ5aOa6HoOS4kjGY4vnQeAEBaCYOkQYYslYCpvA+D5FmQf56D0PhPF+G5Fl4YZ3BAfY9BMKYOkUVoqhUH4PleZ53mkehfjgBZ9H4XxTBWcR2l2QwwkoMgKHKDIhCkCgSHiIgnkmWBMhwf5egglInGEAh6A0KBgiMIICHdLIIlAM4MlKAIcCaIYIjYLoLGKIhqCcMxiR8JQ1A0IxEhsJgJFiPg+guI4yFYOA0GMWIUloNhNGIaIXCUI5CE4SwkEkchMhGCxlBkQIUCQZJZCiFIRk0aQVH8IBmAOBJeDcZJYmyFgnAmAhaGaCxmGmIhqhoZJZgiXYYAgFgCHQOYOFOEITCQCJpCyEoTVUNoACUZJiFCEoekiaZgmSHQXlYEh0DuDpTjCDQiEgchAg0IpJBoXoZiYKYqHaHAimkYguhMIZpAOMh0GEGBmg6JYqmkGowmyK4rAqNoyDsGg2BmCApCuAgNh8agrkqdYkGea4ChGCBAEAgI" to Nothing
	Send Destroy to hoAppearance1
	Variant voAppearance2
	Get ComVisualAppearance to voAppearance2
	Handle hoAppearance2
	Get Create (RefClass(cComAppearance)) to hoAppearance2
	Set pvComObject of hoAppearance2 to voAppearance2
		Get ComAdd of hoAppearance2 3 "gBFLBCJwBAEHhEJAAChABa8GACAADACAxRDQNABQKAAzQFAYaBmGqGAAGEaRWgmFgAQhFcZQSKUOQTDKMIzkKJpAAiCRQGiYZyHKcxMYgQrAZBEbKMLwrAYUIRCCaofAAGIaRDIcZPXQjZSMdSkHRpKi6Mo2TpPUpSDpUM6VCL3KhqKxXeq1cp2XpfWBYNhVbTafyyaiqKiSWy0EQRBSDXBcNxXHalazhNpCbTSWoqLrhRzDMCwC6rUwCeYJQzCcLxLCcMwjA5/MDeFLXCwjBJ+W5aFhzBYsbx1NKcZ7nWgaAqOKp/OKnECuBh2EYNMywK5rew7BqTf5tW7ZNx2TYNMYPKiDajcDJMOwqWpUVDjOQ4fidXzfSbPcrxfBsLp/FOKhmDKGQKHUGoFEiIRPCiE5pl8ChzhuNpyHgU49mSdxtEOWBkCCNRdGQExBhyTRQCcExeG+X5zneeAmh8Uw1nEIIfDMUJSDQSYyGCFR/GCR5yAkJRgGMRgDHyTYjGSVgmgkchSAoJJhhIRIXCSSQXm4H4HgkQhGBuBgJEgVJWgSVJSAYLg4E2Yx2BuAhJGIcIYCWIxHm4NINiOCJeBuDANliOIBFOJAjhiZQ5AkMhAg6BhJCgbgbH6ZJiFYHAlAkKQkg6EYOEkCRLFTQw4m0OwIlIJIHCRVAshGGRmHmGhohqZoiC4ZAimYEgeF4OwkCUSRUFwZw5mYX4eg6SZyH6HpoAOMRxFUFRihKBgglaVZagqIpXCWNoGCkFRkAQgI" to Nothing
	Send Destroy to hoAppearance2
	Set ComHideSelection to OLEexHideAlways
	Set ComExpandButtons to OLEexCustom
	Set ComExpandButtonsCustom True to 16777216
	Set ComExpandButtonsCustom False to 33554432
	Set ComBackground OLEexExpandButtonUp to |CI$3000000
	Set ComBackground OLEexExpandButtonDown to |CI$3000000
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Variant voNode1
				Get ComAdd of hoNodes1 "Child <b>1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to 100
				Send Destroy to hoNode1
				Variant voNode2
				Get ComAdd of hoNodes1 "Child <b>2" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Variant voNodes2
					Get ComNodes of hoNode2 to voNodes2
					Handle hoNodes2
					Get Create (RefClass(cComNodes)) to hoNodes2
					Set pvComObject of hoNodes2 to voNodes2
						Variant voNode3
						Get ComAdd of hoNodes2 "Sub Child <b>2.1" Nothing Nothing to voNode3
						Handle hoNode3
						Get Create (RefClass(cComNode)) to hoNode3
						Set pvComObject of hoNode3 to voNode3
							Set ComValue of hoNode3 to 101
						Send Destroy to hoNode3
						Variant voNode4
						Get ComAdd of hoNodes2 "Sub Child <b>2.2" Nothing Nothing to voNode4
						Handle hoNode4
						Get Create (RefClass(cComNode)) to hoNode4
						Set pvComObject of hoNode4 to voNode4
							Variant voNodes3
							Get ComNodes of hoNode4 to voNodes3
							Handle hoNodes3
							Get Create (RefClass(cComNodes)) to hoNodes3
							Set pvComObject of hoNodes3 to voNodes3
								Variant voNode5
								Get ComAdd of hoNodes3 "Sub Child <b>2.1.1" Nothing Nothing to voNode5
								Handle hoNode5
								Get Create (RefClass(cComNode)) to hoNode5
								Set pvComObject of hoNode5 to voNode5
									Set ComValue of hoNode5 to 101
								Send Destroy to hoNode5
								Variant voNode6
								Get ComAdd of hoNodes3 "Sub Child <b>2.2.2" Nothing Nothing to voNode6
								Handle hoNode6
								Get Create (RefClass(cComNode)) to hoNode6
								Set pvComObject of hoNode6 to voNode6
									Set ComValue of hoNode6 to 102
								Send Destroy to hoNode6
							Send Destroy to hoNodes3
							Set ComExpanded of hoNode4 to False
						Send Destroy to hoNode4
					Send Destroy to hoNodes2
					Set ComExpanded of hoNode2 to True
				Send Destroy to hoNode2
			Send Destroy to hoNodes1
			Set ComSelected of hoNode to True
			Set ComExpanded of hoNode to True
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Set ComLevelWidth 0 to 64
	Set ComLevelWidth 1 to 96
	Set ComLevelWidth 2 to 96
	Send ComEndUpdate
End_Procedure
22:
How can I change the visual appearance for expand/collapse buttons

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAChABDEMACAADACAxRDQNABQKAAzQFAYaBmGqGAAGEaRWgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzXIUBxAAqXZZFUaKAgOMJDTLBAzUTCUKx7HynQACCCaTpGVo8hYhEoDJKMdB1HIZIwyBBcqBNWTFdLAAJFKTdKAMIyiGp4DbudjyXg6V5OTblez9P7AMBvS6nKrhcp2PrhTSYWr+Gp5R7IMhyLI8Uw/DS/Yq1GDYIiuOoIQhCUD0LQ9EyXJqnaJnaC5aiuCT7VRjWDYFgFdTpQC8bZuGz7Trmd59XTadhYHSsAyNRDCL6tayLDxSZabZ5aOa6HoOS4kjGY4vnQeAEBaCYOkQYYslYCpvA+D5FmSc55j0PhfF8eYHlwQZ2nQTImDsFRaioVB9j8Hx/k+c53n4fogAeTJFHuXY3HCTAygyAociMKBKEKBIeCiCZyHYEAnCEOBUh+BQhBgNIegKCgYBySAgh2SAUgINAMmMNIgCcCYjn4KoKmKSI2C6CpiHIagkDMYgCAoIg1A0IxEhsJgJFiPg+g+Y4yFYOA0GMWIIloNhNGIaIXCUI5CE4SwkEkchOFCFIlBkThQCUCQZDYSglCQcxaEUX5IBmBJhDeDZZDYOwlgmQhghaGZmkmKhnhoZo5ioTYYk2WYEgEYAnGOGJlDkCQyECDqfCkNoCCUSQ6A6BYhCgCZ0g6HoOEmWR9GFYw4m0OwIlIJIHCRc4shGJhpjoaocieaZiC6GAimkUgehIOwnGYEYGGiah6jaE4rg6SpCjKK5rEOMYjGGGIChKOgglmdoij6L5aEYfo6CkGIEAQgIA==" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 2 "gBFLBCJwBAEHhEJAAChABC0MACAADACAxRDQNABQKAAzQFAYaBmGqGAAGEaRWgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzXIUBxAAqXZZFUaKAgOMJDTLBAzUTCUKx7HynQACCCaTpGVo8hYhEoDJKMdB1HIZIwyBBcqBNWTFdLAAJFKTdKAMIyiGp4DbudjyXg6V5OTblez9P7AMBvS6nKrhcp2PrhTSYWr+Gp5R7IMhyLI8Uw/DS/Yq1GDYIiuOoIQhCUD0LQ9EyXJqnaJnaC5aiuCT7VRjWDYFgFdTpQC8bZuGz7Trmd59XTadhYHSsAyNRDCL6tayLDxSZabZ5aOa6HoOS4kjGY4vnQeAEBaCYOkQYYslYCpvA+D5FmQf56D0PhPF+G5Fl4YZ3BAfY9BMKYOkUVoqhUH4PleZ53mkehfjgBZ9H4XxTBWcR2l2QwwkoMgKHKDIhCkCgSHiIgnkmWBMhwf5egglInGEAh6A0KBgiMIICHdLIIlAM4MlKAIcCaIYIjYLoLGKIhqCcMxiR8JQ1A0IxEhsJgJFiPg+guI4yFYOA0GMWIUloNhNGIaIXCUI5CE4SwkEkchMhGCxlBkQIUCQZJZCiFIRk0aQVH8IBmAOBJeDcZJYmyFgnAmAhaGaCxmGmIhqhoZJZgiXYYAgFgCHQOYOFOEITCQCJpCyEoTVUNoACUZJiFCEoekiaZgmSHQXlYEh0DuDpTjCDQiEgchAg0IpJBoXoZiYKYqHaHAimkYguhMIZpAOMh0GEGBmg6JYqmkGowmyK4rAqNoyDsGg2BmCApCuAgNh8agrkqdYkGea4ChGCBAEAgI" to Nothing
	Send Destroy to hoAppearance1
	Set ComHideSelection to OLEexHideAlways
	Set ComExpandButtons to OLEexCustom
	Set ComExpandButtonsCustom True to 16777216
	Set ComExpandButtonsCustom False to 33554432
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Variant voNode1
				Get ComAdd of hoNodes1 "Child <b>1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to 100
				Send Destroy to hoNode1
				Variant voNode2
				Get ComAdd of hoNodes1 "Child <b>2" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Variant voNodes2
					Get ComNodes of hoNode2 to voNodes2
					Handle hoNodes2
					Get Create (RefClass(cComNodes)) to hoNodes2
					Set pvComObject of hoNodes2 to voNodes2
						Variant voNode3
						Get ComAdd of hoNodes2 "Sub Child <b>2.1" Nothing Nothing to voNode3
						Handle hoNode3
						Get Create (RefClass(cComNode)) to hoNode3
						Set pvComObject of hoNode3 to voNode3
							Set ComValue of hoNode3 to 101
						Send Destroy to hoNode3
						Variant voNode4
						Get ComAdd of hoNodes2 "Sub Child <b>2.2" Nothing Nothing to voNode4
						Handle hoNode4
						Get Create (RefClass(cComNode)) to hoNode4
						Set pvComObject of hoNode4 to voNode4
							Variant voNodes3
							Get ComNodes of hoNode4 to voNodes3
							Handle hoNodes3
							Get Create (RefClass(cComNodes)) to hoNodes3
							Set pvComObject of hoNodes3 to voNodes3
								Variant voNode5
								Get ComAdd of hoNodes3 "Sub Child <b>2.1.1" Nothing Nothing to voNode5
								Handle hoNode5
								Get Create (RefClass(cComNode)) to hoNode5
								Set pvComObject of hoNode5 to voNode5
									Set ComValue of hoNode5 to 101
								Send Destroy to hoNode5
								Variant voNode6
								Get ComAdd of hoNodes3 "Sub Child <b>2.2.2" Nothing Nothing to voNode6
								Handle hoNode6
								Get Create (RefClass(cComNode)) to hoNode6
								Set pvComObject of hoNode6 to voNode6
									Set ComValue of hoNode6 to 102
								Send Destroy to hoNode6
							Send Destroy to hoNodes3
							Set ComExpanded of hoNode4 to False
						Send Destroy to hoNode4
					Send Destroy to hoNodes2
					Set ComExpanded of hoNode2 to True
				Send Destroy to hoNode2
			Send Destroy to hoNodes1
			Set ComSelected of hoNode to True
			Set ComExpanded of hoNode to True
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Set ComLevelWidth 0 to 64
	Set ComLevelWidth 1 to 96
	Set ComLevelWidth 2 to 96
	Send ComEndUpdate
End_Procedure
21:
Does your control support transparent selection

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSelBackMode to OLEexTransparent
	Set ComSelBackColorChild to (ComSelBackColor(Self))
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Variant voNode1
				Get ComAdd of hoNodes1 "Child <b>1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to 100
				Send Destroy to hoNode1
				Variant voNode2
				Get ComAdd of hoNodes1 "Child <b>2" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Variant voNodes2
					Get ComNodes of hoNode2 to voNodes2
					Handle hoNodes2
					Get Create (RefClass(cComNodes)) to hoNodes2
					Set pvComObject of hoNodes2 to voNodes2
						Variant voNode3
						Get ComAdd of hoNodes2 "Sub Child <b>2.1" Nothing Nothing to voNode3
						Handle hoNode3
						Get Create (RefClass(cComNode)) to hoNode3
						Set pvComObject of hoNode3 to voNode3
							Set ComValue of hoNode3 to 101
						Send Destroy to hoNode3
						Variant voNode4
						Get ComAdd of hoNodes2 "Sub Child <b>2.2" Nothing Nothing to voNode4
						Handle hoNode4
						Get Create (RefClass(cComNode)) to hoNode4
						Set pvComObject of hoNode4 to voNode4
							Variant voNodes3
							Get ComNodes of hoNode4 to voNodes3
							Handle hoNodes3
							Get Create (RefClass(cComNodes)) to hoNodes3
							Set pvComObject of hoNodes3 to voNodes3
								Variant voNode5
								Get ComAdd of hoNodes3 "Sub Child <b>2.1.1" Nothing Nothing to voNode5
								Handle hoNode5
								Get Create (RefClass(cComNode)) to hoNode5
								Set pvComObject of hoNode5 to voNode5
									Set ComValue of hoNode5 to 101
								Send Destroy to hoNode5
								Variant voNode6
								Get ComAdd of hoNodes3 "Sub Child <b>2.2.2" Nothing Nothing to voNode6
								Handle hoNode6
								Get Create (RefClass(cComNode)) to hoNode6
								Set pvComObject of hoNode6 to voNode6
									Set ComValue of hoNode6 to 102
								Send Destroy to hoNode6
							Send Destroy to hoNodes3
							Set ComExpanded of hoNode4 to True
						Send Destroy to hoNode4
					Send Destroy to hoNodes2
					Set ComExpanded of hoNode2 to True
				Send Destroy to hoNode2
			Send Destroy to hoNodes1
			Set ComSelected of hoNode to True
			Set ComExpanded of hoNode to True
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Set ComLevelWidth 0 to 64
	Set ComLevelWidth 1 to 96
	Set ComLevelWidth 2 to 96
	Send ComEndUpdate
End_Procedure
20:
How can I show the selection with some transparent marker

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAllowDuplicateEntries to True
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Variant voNode1
				Get ComAdd of hoNodes1 "Child <b>1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to 100
				Send Destroy to hoNode1
				Variant voNode2
				Get ComAdd of hoNodes1 "Child <b>2" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Set ComValue of hoNode2 to 101
				Send Destroy to hoNode2
			Send Destroy to hoNodes1
			Set ComSelected of hoNode to True
			Set ComExpanded of hoNode to True
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Variant voNodes2
	Get ComNodes to voNodes2
	Handle hoNodes2
	Get Create (RefClass(cComNodes)) to hoNodes2
	Set pvComObject of hoNodes2 to voNodes2
		Variant voNode3
		Get ComAdd of hoNodes2 "Parent" Nothing Nothing to voNode3
		Handle hoNode3
		Get Create (RefClass(cComNode)) to hoNode3
		Set pvComObject of hoNode3 to voNode3
			Variant voNodes3
			Get ComNodes of hoNode3 to voNodes3
			Handle hoNodes3
			Get Create (RefClass(cComNodes)) to hoNodes3
			Set pvComObject of hoNodes3 to voNodes3
				Variant voNode4
				Get ComAdd of hoNodes3 "Child <b>1" Nothing Nothing to voNode4
				Handle hoNode4
				Get Create (RefClass(cComNode)) to hoNode4
				Set pvComObject of hoNode4 to voNode4
					Set ComValue of hoNode4 to 100
				Send Destroy to hoNode4
				Variant voNode5
				Get ComAdd of hoNodes3 "Child <b>2" Nothing Nothing to voNode5
				Handle hoNode5
				Get Create (RefClass(cComNode)) to hoNode5
				Set pvComObject of hoNode5 to voNode5
					Set ComValue of hoNode5 to 101
				Send Destroy to hoNode5
			Send Destroy to hoNodes3
		Send Destroy to hoNode3
	Send Destroy to hoNodes2
	Set ComLevelWidth 0 to 64
	Set ComLevelWidth 1 to 96
	Set ComLevelWidth 2 to 96
	Set ComShowFocusRect to False
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAChABdcGACAADACAxRDQNABQKAAzQFAYaBmGqGAAGEaRWgmFgAQhFcZQSKUOQTDKMIziYBYJhGBQxAJCI4DBCIZBwGKQBjASQpUhqHYDTbIMByBIUIxMGiYIRoGAxTiAMo8RrSEZTdD8ExTAZ/XzfMAKRpOFo/ULEUw0NR8aRABiNQbkWjYDp1f5nVRaFTxYKoSxbNqIRpGCzoJrKdI1SBEMTWBAddSdBKzX7tHArLgSQJdSrLMrzDIka4cACcZxkCioXozBpZVjRMaZJC2KAbMaBQgsQALGqjAaVUJQEgZTTmHS/BLPYDsLQdDyXAqnYTkFwWZa4ATtOK5b6jK6dQgmfAAaJGWzYHpGL4QGCYZKGapMgsKaVmwYp8j2RoCCWB4VHQIQjD6FIjF2RpumyewRj6XYrjoMpdk4Pgbm4DZXmmSpRnWeJ9hiN4zAkSRCECBAkFAGhGDGUB1ByBhVGUCxAkQIQ2AsRZRFQDAoEIXoXCUIQGBSNg9BoYBNjMbJ/DGTBznyQAwCIKISCOCRigiHgqgmIhIgCfw3k2dgFn6DAihiMg1g2Yo4mINoNBCEwMkOCgPDOTgyhCZBJBYRIQTGmYOGQaQ2E6EQjhkLg2hOZRJDoURAmSSRWFqEJlHAAhZhaZgJHYX4YCWKYKFOGQljmGgohoJoYloUoambTxqgmZwZkoboWCYeZWFaHaOBDRIkCmahDhIIh5nmfoHGOKgmDmIpjGiHoIEIVQjnyXA3A+cwgkiIooloZgoiWD5zgCYIMhCFAEIC" to Nothing
	Send Destroy to hoAppearance
	Set ComSelBackColor to |CI$1000000
	Set ComSelForeColor to -1
	Set ComSelBackColorChild to -1
	Set ComSelForeColorChild to -1
	Send ComEndUpdate
End_Procedure
19:
How can I highlight the focused/selected node only, instead highlighting its childrend collection (method 3)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Variant voNode1
				Get ComAdd of hoNodes1 "Child <b>1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to 100
				Send Destroy to hoNode1
				Variant voNode2
				Get ComAdd of hoNodes1 "Child <b>2" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Set ComValue of hoNode2 to 101
				Send Destroy to hoNode2
			Send Destroy to hoNodes1
			Set ComSelected of hoNode to True
			Set ComExpanded of hoNode to True
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Set ComLevelWidth 0 to 64
	Set ComLevelWidth 1 to 96
	Set ComLevelWidth 2 to 96
	Set ComShowFocusRect to False
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAChABGYDg6AADACAxRDQNABQKAAzQFAYaBmGqGAAGEaRWgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjAIoBQ4GACJBmKKodgONYYTLFYCwTJETw5FKEZTEWQBTjGOY5TbNcgUPCMex7IiVJYpOK6ThqTYfQjLUBvfTgAS4f6Laaneg4JDOUYtTjIADRWBMeSxAatK6rWr7BqOYoDUJZcQyDIcNzXAa9aLjO5wAiWPp4VJZM54FKVEzfQSrZqoDIrEgOZpBYjMdSgADFXQGDbHbhuS5IWwTBpQZhaGZQTb+mZtZ7oMI6HTuSztW7EMLAC6bJx7LoDazoGKSDo0TZRXLNYqzPIdf4OVq4YTxVi2PZGnmLJfGwOY8m2NhTAmPJcmAZBbmiDo3DuW4ZEgAQQhKAYkkYdA6hyDIjBkAIqBgQgmn0YxRFgGIjF8CRwhOB4ZAkPQdFYMRfCsYICFYCgkEkEhCA0JDeEICglgqYo0i4XQMEgZI9gaToYHSb4Hk6Y4+CGB5hlOJgbC8TBoiQAArgqco4muC5OkOMJtguYxIlYMg7GME4uC0K4AAKKg+DwJADiCZw5k6KQWEaEYOHkChADwI5izIKwKjKzQ8E8A4iFaEYOjOMgvhEZRjiIVA8CUEouE9SRJEycoWCMCJmFvUAzkYZArAACAgi0PInEkGhauKCYsmqHQPCmSAAgsSp5lCc4dg6WgUm6DkQhicw8g8OiDiwKQDk6EoNCgU40m6JZpFiUoSDyaQCokLIqAobh3iWKRogaB4MmWKhsjMLJLCAAorCyagokYIoImsM46DEOwPEoSovABZR0nSL5pFgfgfhALAqFaPw9CuUrgC2CxSlidQ9E8SoSkSEpsZXj5LFsNAAC2bZLDydYwiaW4GFOMIPGsPpcC2QACmSOQuA8a42EvYoZnKcVsAOPJwD0bpSmKagAAuO52m0PYsCmcoLkCLhLjSOwuguIAAjyQpvnkLobkOaQpC6f5CkuQAAj6BpPHwZwCkQKYzkqcQ9k8Y5cj2RejH8JpGE8eZykeSprnmcwoC+TADAAAJMEwA5jDaSoyksHh8rmDLgDBzoHDyJIPCOUpejWbQKG8PJQHMIwPE6UJrhsPpljeLJ9CieQ+DSYwQAAMR1kOZxejGb57hcYQ8mufR4nmVwMFAAJHDGDBzmsbozk8TYHHKN42G2LJHAADJNmSe5enOTIjH6Rhzk2Nke4vBMt8GAHADY5wbgUD8HEQ47wOjHHiPwMI+RigcGOAmAorgjj8EIHMTY3B0i7GePQDoBwdBvGSCcIQ6BACAIC" to Nothing
	Send Destroy to hoAppearance
	Set ComSelBackColor to |CI$1000000
	Set ComSelForeColor to -1
	Set ComSelBackColorChild to -1
	Set ComSelForeColorChild to -1
	Send ComEndUpdate
End_Procedure
18:
How can I highlight the focused/selected node only, instead highlighting its childrend collection (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Variant voNode1
				Get ComAdd of hoNodes1 "Child <b>1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to 100
				Send Destroy to hoNode1
				Variant voNode2
				Get ComAdd of hoNodes1 "Child <b>2" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Set ComValue of hoNode2 to 101
				Send Destroy to hoNode2
			Send Destroy to hoNodes1
			Set ComSelected of hoNode to True
			Set ComExpanded of hoNode to True
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Set ComLevelWidth 0 to 64
	Set ComLevelWidth 1 to 96
	Set ComLevelWidth 2 to 96
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAChABJUIQAAYAQGKIaBoAKBQAGaAoDDQMw1QwAAwjSK0EwsACEIrjKCRShyCYZRhGcTSAAUEhiGKQBgiGDhViWAwyDABEbwS78agBFyRlqyfKccx9DaAQEBA" to Nothing
	Send Destroy to hoAppearance
	Set ComShowFocusRect to False
	Set ComSelBackColor to |CI$1a0a0a0
	Set ComSelForeColor to -1
	Set ComSelBackColorChild to -1
	Set ComSelForeColorChild to -1
	Send ComEndUpdate
End_Procedure
17:
How can I highlight the focused/selected node only, instead highlighting its childrend collection (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Variant voNode1
				Get ComAdd of hoNodes1 "Child <b>1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to 100
				Send Destroy to hoNode1
				Variant voNode2
				Get ComAdd of hoNodes1 "Child <b>2" Nothing Nothing to voNode2
				Handle hoNode2
				Get Create (RefClass(cComNode)) to hoNode2
				Set pvComObject of hoNode2 to voNode2
					Set ComValue of hoNode2 to 101
				Send Destroy to hoNode2
			Send Destroy to hoNodes1
			Set ComSelected of hoNode to True
			Set ComExpanded of hoNode to True
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Set ComLevelWidth 0 to 64
	Set ComLevelWidth 1 to 96
	Set ComLevelWidth 2 to 96
	Set ComHideSelection to OLEexHideAlways
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAChABdcGACAADACAxRDQNABQKAAzQFAYaBmGqGAAGEaRWgmFgAQhFcZQSKUOQTDKMIziYBYJhGBQxAJCI4DBCIZBwGKQBjASQpUhqHYDTbIMByBIUIxMGiYIRoGAxTiAMo8RrSEZTdD8ExTAZ/XzfMAKRpOFo/ULEUw0NR8aRABiNQbkWjYDp1f5nVRaFTxYKoSxbNqIRpGCzoJrKdI1SBEMTWBAddSdBKzX7tHArLgSQJdSrLMrzDIka4cACcZxkCioXozBpZVjRMaZJC2KAbMaBQgsQALGqjAaVUJQEgZTTmHS/BLPYDsLQdDyXAqnYTkFwWZa4ATtOK5b6jK6dQgmfAAaJGWzYHpGL4QGCYZKGapMgsKaVmwYp8j2RoCCWB4VHQIQjD6FIjF2RpumyewRj6XYrjoMpdk4Pgbm4DZXmmSpRnWeJ9hiN4zAkSRCECBAkFAGhGDGUB1ByBhVGUCxAkQIQ2AsRZRFQDAoEIXoXCUIQGBSNg9BoYBNjMbJ/DGTBznyQAwCIKISCOCRigiHgqgmIhIgCfw3k2dgFn6DAihiMg1g2Yo4mINoNBCEwMkOCgPDOTgyhCZBJBYRIQTGmYOGQaQ2E6EQjhkLg2hOZRJDoURAmSSRWFqEJlHAAhZhaZgJHYX4YCWKYKFOGQljmGgohoJoYloUoambTxqgmZwZkoboWCYeZWFaHaOBDRIkCmahDhIIh5nmfoHGOKgmDmIpjGiHoIEIVQjnyXA3A+cwgkiIooloZgoiWD5zgCYIMhCFAEIC" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexShowFocusRect to |CI$1000000
	Send ComEndUpdate
End_Procedure
16:
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent <font ;6><off 4>1" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Variant voNode1
				Get ComAdd of hoNodes1 "Child 1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to "<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1"
				Send Destroy to hoNode1
				Get ComAdd of hoNodes1 "Child 2" Nothing Nothing to Nothing
			Send Destroy to hoNodes1
			Send ComExpandAll of hoNode
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Variant voNodes2
	Get ComNodes to voNodes2
	Handle hoNodes2
	Get Create (RefClass(cComNodes)) to hoNodes2
	Set pvComObject of hoNodes2 to voNodes2
		Variant voNode2
		Get ComAdd of hoNodes2 "Parent <font ;6><off 4>2" Nothing Nothing to voNode2
		Handle hoNode2
		Get Create (RefClass(cComNode)) to hoNode2
		Set pvComObject of hoNode2 to voNode2
			Variant voNodes3
			Get ComNodes of hoNode2 to voNodes3
			Handle hoNodes3
			Get Create (RefClass(cComNodes)) to hoNodes3
			Set pvComObject of hoNodes3 to voNodes3
				Get ComAdd of hoNodes3 "Child 1" Nothing Nothing to Nothing
				Get ComAdd of hoNodes3 "Child 2" Nothing Nothing to Nothing
			Send Destroy to hoNodes3
		Send Destroy to hoNode2
	Send Destroy to hoNodes2
	Set ComScrollBars to OLEexBoth
	Set ComScrollPartVisible OLEexVScroll OLEexExtentThumbPart to True
	Set ComScrollPartVisible OLEexHScroll OLEexExtentThumbPart to True
	Set ComScrollPartVisible |CI$2 OLEexExtentThumbPart to True
	Set ComScrollWidth to 4
	Set ComBackground OLEexVSBack to (RGB(240,240,240))
	Set ComBackground OLEexVSThumb to (RGB(128,128,128))
	Set ComScrollHeight to 4
	Set ComBackground OLEexHSBack to (ComBackground(Self,OLEexVSBack))
	Set ComBackground OLEexHSThumb to (ComBackground(Self,OLEexVSThumb))
	Set ComBackground OLEexScrollSizeGrip to (ComBackground(Self,OLEexVSBack))
	Send ComEndUpdate
End_Procedure
15:
Does your control support Fit-To-Page, Print and Print-Preview

Procedure OnCreate
	Forward Send OnCreate
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent <b>1" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Variant voNode1
				Get ComAdd of hoNodes1 "Child 1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComSelected of hoNode1 to True
				Send Destroy to hoNode1
				Get ComAdd of hoNodes1 "Child 2" Nothing Nothing to Nothing
			Send Destroy to hoNodes1
			Send ComExpandAll of hoNode
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Variant voNodes2
	Get ComNodes to voNodes2
	Handle hoNodes2
	Get Create (RefClass(cComNodes)) to hoNodes2
	Set pvComObject of hoNodes2 to voNodes2
		Variant voNode2
		Get ComAdd of hoNodes2 "Parent <b>2" Nothing Nothing to voNode2
		Handle hoNode2
		Get Create (RefClass(cComNode)) to hoNode2
		Set pvComObject of hoNode2 to voNode2
			Variant voNodes3
			Get ComNodes of hoNode2 to voNodes3
			Handle hoNodes3
			Get Create (RefClass(cComNodes)) to hoNodes3
			Set pvComObject of hoNodes3 to voNodes3
				Get ComAdd of hoNodes3 "Child 1" Nothing Nothing to Nothing
				Get ComAdd of hoNodes3 "Child 2" Nothing Nothing to Nothing
			Send Destroy to hoNodes3
		Send Destroy to hoNode2
	Send Destroy to hoNodes2
	Handle hoPrint
	Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
		Set ComOptions of hoPrint to "FitToPage = 1x1"
		Set ComPrintExt of hoPrint to (pvComObject(Self))
		Send ComPreview of hoPrint
	Send Destroy to hoPrint
End_Procedure
14:
How do I print the control
Procedure OnCreate
	Forward Send OnCreate
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent <b>1" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Variant voNode1
				Get ComAdd of hoNodes1 "Child 1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComSelected of hoNode1 to True
				Send Destroy to hoNode1
				Get ComAdd of hoNodes1 "Child 2" Nothing Nothing to Nothing
			Send Destroy to hoNodes1
			Send ComExpandAll of hoNode
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Variant voNodes2
	Get ComNodes to voNodes2
	Handle hoNodes2
	Get Create (RefClass(cComNodes)) to hoNodes2
	Set pvComObject of hoNodes2 to voNodes2
		Variant voNode2
		Get ComAdd of hoNodes2 "Parent <b>2" Nothing Nothing to voNode2
		Handle hoNode2
		Get Create (RefClass(cComNode)) to hoNode2
		Set pvComObject of hoNode2 to voNode2
			Variant voNodes3
			Get ComNodes of hoNode2 to voNodes3
			Handle hoNodes3
			Get Create (RefClass(cComNodes)) to hoNodes3
			Set pvComObject of hoNodes3 to voNodes3
				Get ComAdd of hoNodes3 "Child 1" Nothing Nothing to Nothing
				Get ComAdd of hoNodes3 "Child 2" Nothing Nothing to Nothing
			Send Destroy to hoNodes3
		Send Destroy to hoNode2
	Send Destroy to hoNodes2
	Handle hoPrint
	Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
		Set ComPrintExt of hoPrint to (pvComObject(Self))
		Send ComPreview of hoPrint
	Send Destroy to hoPrint
End_Procedure
13:
How can we can customize a context menu based on the node type

// Occurs when the user releases a mouse button.
Procedure OnComMouseUp Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
	Forward Send OnComMouseUp llButton llShift llX llY
	Showln "Node:" (ComNodeFromPoint(Self,llX,llY))
	Handle hoExContextMenu
	Get Create (RefClass(cComExContextMenu)) to hoExContextMenu // Import the 'ExContextMenu 1.0 Type Library' library
		Variant voItems
		Get ComItems of hoExContextMenu to voItems
		Handle hoItems
		Get Create (RefClass(cComItems)) to hoItems
		Set pvComObject of hoItems to voItems
			Set ComToString of hoItems to "Calendar[id=20][img=0],MSChart[id=30],Record[id=40],Slider[id=50],Radio 1[id=100][typ=2][edit=],Radio 2[id=101][typ=2][edit=],Radio 3[id=102][typ=2][edit=],ComboBox[id=90]"
		Send Destroy to hoItems
		Showln (ComSelect(hoExContextMenu,Nothing,Nothing,Nothing))
	Send Destroy to hoExContextMenu
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Get ComAdd of hoNodes1 "Child 1" Nothing Nothing to Nothing
				Get ComAdd of hoNodes1 "Child 2" Nothing Nothing to Nothing
			Send Destroy to hoNodes1
			Set ComExpanded of hoNode to True
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
12:
How we can attach a customized editor, for example, a date-time picker dialog for a date-time attribute using eXMLGrid

// Fired the user editor is about to be opened.
Procedure OnComUserEditorClose Variant llObject Variant llNode
	Forward Send OnComUserEditorClose llObject llNode
	// Node.Value = Object.Value
End_Procedure

// Occurs when an user editor is about to be opened.
Procedure OnComUserEditorOpen Variant llObject Variant llNode
	Forward Send OnComUserEditorOpen llObject llNode
	// Object.Value = Node.Value
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComNodeHeight to 24
	Variant voEditors
	Get ComEditors to voEditors
	Handle hoEditors
	Get Create (RefClass(cComEditors)) to hoEditors
	Set pvComObject of hoEditors to voEditors
		Variant voEditor
		Get ComAdd of hoEditors "ExCalendarUserEditor" OLEUserEditorType to voEditor
		Handle hoEditor
		Get Create (RefClass(cComEditor)) to hoEditor
		Set pvComObject of hoEditor to voEditor
			Send ComUserEditor of hoEditor "ExCalendar.CalendarCombo" ""
Get ComUserEditorObject of hoEditor to Nothing			Send Destroy to hoEditor
		Send Destroy to hoEditors
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Date" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComEditor of hoNode to "ExCalendarUserEditor"
			Set ComValue of hoNode to "1/1/2001"
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
11:
How can change the visual appearance of the expand/collapse buttons

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance1
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent <b>1" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Variant voNode1
				Get ComAdd of hoNodes1 "Child 1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to "<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1"
					Set ComSelected of hoNode1 to True
				Send Destroy to hoNode1
				Get ComAdd of hoNodes1 "Child 2" Nothing Nothing to Nothing
			Send Destroy to hoNodes1
			Send ComExpandAll of hoNode
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Variant voNodes2
	Get ComNodes to voNodes2
	Handle hoNodes2
	Get Create (RefClass(cComNodes)) to hoNodes2
	Set pvComObject of hoNodes2 to voNodes2
		Variant voNode2
		Get ComAdd of hoNodes2 "Parent <b>2" Nothing Nothing to voNode2
		Handle hoNode2
		Get Create (RefClass(cComNode)) to hoNode2
		Set pvComObject of hoNode2 to voNode2
			Variant voNodes3
			Get ComNodes of hoNode2 to voNodes3
			Handle hoNodes3
			Get Create (RefClass(cComNodes)) to hoNodes3
			Set pvComObject of hoNodes3 to voNodes3
				Get ComAdd of hoNodes3 "Child 1" Nothing Nothing to Nothing
				Get ComAdd of hoNodes3 "Child 2" Nothing Nothing to Nothing
			Send Destroy to hoNodes3
		Send Destroy to hoNode2
	Send Destroy to hoNodes2
	Set ComExpandBarVisible to True
	Set ComExpandButtons to OLEexCustom
	Set ComExpandButtonsCustom False to 1
	Set ComExpandButtonsCustom True to 2
	Set ComBackground OLEexExpandButtonDown to |CI$1808080
	Set ComBackground OLEexExpandButtonUp to |CI$1000000
	Set ComBackground OLEexExpandBarButtonDown to |CI$2808080
	Set ComBackground OLEexExpandBarButtonUp to |CI$2000000
	Set ComShowFocusRect to False
	Set ComSelBackColor to (RGB(0,0,0))
	Set ComSelBackColorChild to (ComSelBackColor(Self))
	Set ComSelForeColor to (RGB(255,255,255))
	Set ComSelForeColorChild to (ComSelForeColor(Self))
End_Procedure
10:
How can change the visual appearance of the selected node

Procedure OnCreate
	Forward Send OnCreate
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent <b>1" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Variant voNode1
				Get ComAdd of hoNodes1 "Child 1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to "<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1"
					Set ComSelected of hoNode1 to True
				Send Destroy to hoNode1
				Get ComAdd of hoNodes1 "Child 2" Nothing Nothing to Nothing
			Send Destroy to hoNodes1
			Send ComExpandAll of hoNode
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Variant voNodes2
	Get ComNodes to voNodes2
	Handle hoNodes2
	Get Create (RefClass(cComNodes)) to hoNodes2
	Set pvComObject of hoNodes2 to voNodes2
		Variant voNode2
		Get ComAdd of hoNodes2 "Parent <b>2" Nothing Nothing to voNode2
		Handle hoNode2
		Get Create (RefClass(cComNode)) to hoNode2
		Set pvComObject of hoNode2 to voNode2
			Variant voNodes3
			Get ComNodes of hoNode2 to voNodes3
			Handle hoNodes3
			Get Create (RefClass(cComNodes)) to hoNodes3
			Set pvComObject of hoNodes3 to voNodes3
				Get ComAdd of hoNodes3 "Child 1" Nothing Nothing to Nothing
				Get ComAdd of hoNodes3 "Child 2" Nothing Nothing to Nothing
			Send Destroy to hoNodes3
		Send Destroy to hoNode2
	Send Destroy to hoNodes2
	Set ComShowFocusRect to False
	Set ComSelBackColor to (RGB(0,0,0))
	Set ComSelBackColorChild to (ComSelBackColor(Self))
	Set ComSelForeColor to (RGB(255,255,255))
	Set ComSelForeColorChild to (ComSelForeColor(Self))
End_Procedure
9:
How can I select programatically a node

Procedure OnCreate
	Forward Send OnCreate
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent <b>1" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Variant voNode1
				Get ComAdd of hoNodes1 "Child 1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComSelected of hoNode1 to True
				Send Destroy to hoNode1
				Get ComAdd of hoNodes1 "Child 2" Nothing Nothing to Nothing
			Send Destroy to hoNodes1
			Send ComExpandAll of hoNode
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Variant voNodes2
	Get ComNodes to voNodes2
	Handle hoNodes2
	Get Create (RefClass(cComNodes)) to hoNodes2
	Set pvComObject of hoNodes2 to voNodes2
		Variant voNode2
		Get ComAdd of hoNodes2 "Parent <b>2" Nothing Nothing to voNode2
		Handle hoNode2
		Get Create (RefClass(cComNode)) to hoNode2
		Set pvComObject of hoNode2 to voNode2
			Variant voNodes3
			Get ComNodes of hoNode2 to voNodes3
			Handle hoNodes3
			Get Create (RefClass(cComNodes)) to hoNodes3
			Set pvComObject of hoNodes3 to voNodes3
				Get ComAdd of hoNodes3 "Child 1" Nothing Nothing to Nothing
				Get ComAdd of hoNodes3 "Child 2" Nothing Nothing to Nothing
			Send Destroy to hoNodes3
		Send Destroy to hoNode2
	Send Destroy to hoNodes2
End_Procedure
8:
How can I expand all nodes

Procedure OnCreate
	Forward Send OnCreate
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Get ComAdd of hoNodes1 "Child 1" Nothing Nothing to Nothing
				Get ComAdd of hoNodes1 "Child 2" Nothing Nothing to Nothing
			Send Destroy to hoNodes1
			Send ComExpandAll of hoNode
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
7:
Does your control support subscript or superscript

Procedure OnCreate
	Forward Send OnCreate
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent <font ;6><off 4>1" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Variant voNode1
				Get ComAdd of hoNodes1 "Child 1" Nothing Nothing to voNode1
				Handle hoNode1
				Get Create (RefClass(cComNode)) to hoNode1
				Set pvComObject of hoNode1 to voNode1
					Set ComValue of hoNode1 to "<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1"
				Send Destroy to hoNode1
				Get ComAdd of hoNodes1 "Child 2" Nothing Nothing to Nothing
			Send Destroy to hoNodes1
			Send ComExpandAll of hoNode
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Variant voNodes2
	Get ComNodes to voNodes2
	Handle hoNodes2
	Get Create (RefClass(cComNodes)) to hoNodes2
	Set pvComObject of hoNodes2 to voNodes2
		Variant voNode2
		Get ComAdd of hoNodes2 "Parent <font ;6><off 4>2" Nothing Nothing to voNode2
		Handle hoNode2
		Get Create (RefClass(cComNode)) to hoNode2
		Set pvComObject of hoNode2 to voNode2
			Variant voNodes3
			Get ComNodes of hoNode2 to voNodes3
			Handle hoNodes3
			Get Create (RefClass(cComNodes)) to hoNodes3
			Set pvComObject of hoNodes3 to voNodes3
				Get ComAdd of hoNodes3 "Child 1" Nothing Nothing to Nothing
				Get ComAdd of hoNodes3 "Child 2" Nothing Nothing to Nothing
			Send Destroy to hoNodes3
		Send Destroy to hoNode2
	Send Destroy to hoNodes2
End_Procedure
6:
How can I add a UserType editor ( ActiveX )

// Fired the user editor is about to be opened.
Procedure OnComUserEditorClose Variant llObject Variant llNode
	Forward Send OnComUserEditorClose llObject llNode
	// Node.Value = Object.Value
End_Procedure

// Occurs when an user editor is about to be opened.
Procedure OnComUserEditorOpen Variant llObject Variant llNode
	Forward Send OnComUserEditorOpen llObject llNode
	// Object.Value = Node.Value
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComNodeHeight to 24
	Variant voEditors
	Get ComEditors to voEditors
	Handle hoEditors
	Get Create (RefClass(cComEditors)) to hoEditors
	Set pvComObject of hoEditors to voEditors
		Variant voEditor
		Get ComAdd of hoEditors "ExComboUserEditor" OLEUserEditorType to voEditor
		Handle hoEditor
		Get Create (RefClass(cComEditor)) to hoEditor
		Set pvComObject of hoEditor to voEditor
			Send ComUserEditor of hoEditor "Exontrol.ComboBox" ""
			Variant voComboBox
			Get ComUserEditorObject of hoEditor to voComboBox
			Handle hoComboBox
			Get Create (RefClass(cComComboBox)) to hoComboBox
			Set pvComObject of hoComboBox to voComboBox
				Set ComMinHeightList of hoComboBox to 164
				Set ComMinWidthList of hoComboBox to 264
				Set ComAllowSizeGrip of hoComboBox to True
				Set ComIntegralHeight of hoComboBox to True
				Set ComAlignment of hoComboBox to OLELeftAlignment
				Set ComColumnAutoResize of hoComboBox to True
				Send ComBeginUpdate of hoComboBox
				Set ComMarkSearchColumn of hoComboBox to False
				Variant voColumns
				Get ComColumns of hoComboBox to voColumns
				Handle hoColumns
				Get Create (RefClass(cComColumns)) to hoColumns
				Set pvComObject of hoColumns to voColumns
					Variant voColumn
					Get ComAdd of hoColumns "Car" to voColumn
					Handle hoColumn
					Get Create (RefClass(cComColumn)) to hoColumn
					Set pvComObject of hoColumn to voColumn
						Set ComWidth of hoColumn to 32
						Set ComDisplayFilterButton of hoColumn to True
					Send Destroy to hoColumn
					Variant voColumn1
					Get ComAdd of hoColumns "Equipment" to voColumn1
					Handle hoColumn1
					Get Create (RefClass(cComColumn)) to hoColumn1
					Set pvComObject of hoColumn1 to voColumn1
						Set ComDisplayFilterButton of hoColumn1 to True
						Set ComDisplayFilterPattern of hoColumn1 to False
						Set ComCustomFilter of hoColumn1 to "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
						Set ComFilterType of hoColumn1 to OLEexPattern
					Send Destroy to hoColumn1
				Send Destroy to hoColumns
				Variant voItems
				Get ComItems of hoComboBox to voItems
				Handle hoItems
				Get Create (RefClass(cComItems)) to hoItems
				Set pvComObject of hoItems to voItems
					Set ComCellCaption of hoItems (ComAddItem(hoItems,"Mazda")) 1 to "Air Bag"
					Set ComCellCaption of hoItems (ComAddItem(hoItems,"Toyota")) 1 to "Air Bag,Air condition"
					Set ComCellCaption of hoItems (ComAddItem(hoItems,"Ford")) 1 to "Air condition"
					Set ComCellCaption of hoItems (ComAddItem(hoItems,"Nissan")) 1 to "Air Bag,ABS,ESP"
				Send Destroy to hoItems
				Send ComEndUpdate of hoComboBox
			Send Destroy to hoComboBox
		Send Destroy to hoEditor
	Send Destroy to hoEditors
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Car" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComEditor of hoNode to "ExComboUserEditor"
			Set ComValue of hoNode to "Mazda"
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
5:
How can I load a XML file

Procedure OnCreate
	Forward Send OnCreate
	Get ComLoadXML "C:\Windows\Ultimate.xml" to Nothing
End_Procedure
4:
How can I assign a tooltip to a node

Procedure OnCreate
	Forward Send OnCreate
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Title" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComValue of hoNode to "value"
			Set ComToolTip of hoNode to "This is a bit of <b>HTML</b> text to be shown when the cursor hovers the node."
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
3:
How can I edit the node using a DateType editor

Procedure OnCreate
	Forward Send OnCreate
	Variant voEditors
	Get ComEditors to voEditors
	Handle hoEditors
	Get Create (RefClass(cComEditors)) to hoEditors
	Set pvComObject of hoEditors to voEditors
		Variant voEditor
		Get ComAdd of hoEditors "DateEditor" OLEDateType to voEditor
		Handle hoEditor
		Get Create (RefClass(cComEditor)) to hoEditor
		Set pvComObject of hoEditor to voEditor
			Set ComOption of hoEditor OLEexDateMarkToday to True
		Send Destroy to hoEditor
	Send Destroy to hoEditors
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Date" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComEditor of hoNode to "DateEditor"
			Set ComValue of hoNode to "1/1/2001"
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
2:
How can I expand a node

Procedure OnCreate
	Forward Send OnCreate
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Get ComAdd of hoNodes1 "Child 1" Nothing Nothing to Nothing
				Get ComAdd of hoNodes1 "Child 2" Nothing Nothing to Nothing
			Send Destroy to hoNodes1
			Set ComExpanded of hoNode to True
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
1:
How can I add a node

Procedure OnCreate
	Forward Send OnCreate
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "Parent" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNodes1
			Get ComNodes of hoNode to voNodes1
			Handle hoNodes1
			Get Create (RefClass(cComNodes)) to hoNodes1
			Set pvComObject of hoNodes1 to voNodes1
				Get ComAdd of hoNodes1 "Child 1" Nothing Nothing to Nothing
				Get ComAdd of hoNodes1 "Child 2" Nothing Nothing to Nothing
			Send Destroy to hoNodes1
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure