229
Fullfit the caption on the element's width

// Occurs when an anchor element is clicked.
Procedure OnComAnchorClick String   llAnchorID String   llOptions
	Forward Send OnComAnchorClick llAnchorID llOptions
	Showln llAnchorID
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowSelectNothing to True
	Set ComAllowEdit to OLEexDisallow
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComFixedWidth of hoNode to 256
			Set ComCaptionSingleLine of hoNode to OLEexCaptionBreakWrap
			Set ComCaption of hoNode to "<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)"
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
228
Break-wrap the caption (truncated)

// Occurs when an anchor element is clicked.
Procedure OnComAnchorClick String   llAnchorID String   llOptions
	Forward Send OnComAnchorClick llAnchorID llOptions
	Showln llAnchorID
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowSelectNothing to True
	Set ComAllowEdit to OLEexDisallow
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComFixedWidth of hoNode to 96
			Set ComCaptionSingleLine of hoNode to OLEexCaptionBreakWrap
			Set ComCaption of hoNode to "<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)"
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
227
Break-wrap the caption

Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowSelectNothing 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 "Child" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComCaptionSingleLine of hoNode to OLEexCaptionBreakWrap
			Set ComCaption of hoNode to "<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)"
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
226
Wrap the caption by <br> or "\r\n" sequence only

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 "Child" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComCaptionSingleLine of hoNode to OLEexCaptionBreakWrap
			Set ComCaption of hoNode to "This is a bit of long text is displayed on first line.<br>The second line."
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
225
Word-wrap the caption (specify the width to wrap)

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 "Child" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComWidth of hoNode to 96
			Set ComCaptionSingleLine of hoNode to OLEexCaptionWordWrap
			Set ComCaption of hoNode to "This is a bit of long text that should break into words."
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
224
Word-wrap the caption

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 "Child" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComCaptionSingleLine of hoNode to OLEexCaptionWordWrap
			Set ComCaption of hoNode to "This is a bit of long text that should break into words."
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
223
Caption on a single line (truncated)

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 "Child" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComCaptionSingleLine of hoNode to OLEexCaptionSingleLine
			Set ComCaption of hoNode to "This is a bit of long text that should be truncated."
			Set ComFixedWidth of hoNode to 128
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
222
Caption on a single line

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 "Child" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComCaptionSingleLine of hoNode to OLEexCaptionSingleLine
			Set ComCaption of hoNode to "This is a bit of long text that should not be broken."
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
221
Force hover-all feature
Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexScrollHoverAll to -1
End_Procedure
220
Disable hover-all feature (Windows 11 or greater)
Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexScrollHoverAll to (RGB(1,0,0))
End_Procedure
219
Display a custom tooltip
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Send ComShowToolTip "new content" "" "+8" "+8"
End_Procedure


218
Shows the tooltip of the object moved relative to its default position
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
	Send ComShowToolTip "<null>" "<null>" "+8" "+8"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Set ComToolTip of hoNode to "This is a bit of text that's shown when the cursor hovers the node."
	Send Destroy to hoNode
End_Procedure
217
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComImageSize to 32
	Variant voStdFont
	Get ComFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComSize of hoStdFont to 16
	Send Destroy to hoStdFont
	Send ComImages ("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" + ;
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexNodeFrame to |CI$4000000
	Set ComHasButtons to OLEexPlus
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Set ComImage of hoNode to 1
		Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
		Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
	Send Destroy to hoNode
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Variant voNode1
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComImage of hoNode1 to 2
		Send Destroy to hoNode1
		Variant voNode2
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode2
		Handle hoNode2
		Get Create (RefClass(cComNode)) to hoNode2
		Set pvComObject of hoNode2 to voNode2
			Set ComImage of hoNode2 to 3
		Send Destroy to hoNode2
		Variant voNode3
		Get ComAdd of hoNodes "Child <b>2</b>" "1235" Nothing Nothing to voNode3
		Handle hoNode3
		Get Create (RefClass(cComNode)) to hoNode3
		Set pvComObject of hoNode3 to voNode3
			Set ComExpanded of hoNode3 to False
		Send Destroy to hoNode3
		Get ComAdd of hoNodes "Sub 2" "1235" Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Send ComEndUpdate
End_Procedure
216
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComImageSize to 16
	Send ComImages "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexNodeFrame to |CI$4000000
	Set ComHasButtons to OLEexPlus
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Set ComImage of hoNode to 1
		Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
		Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
	Send Destroy to hoNode
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Variant voNode1
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComImage of hoNode1 to 2
		Send Destroy to hoNode1
		Variant voNode2
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode2
		Handle hoNode2
		Get Create (RefClass(cComNode)) to hoNode2
		Set pvComObject of hoNode2 to voNode2
			Set ComImage of hoNode2 to 3
		Send Destroy to hoNode2
		Variant voNode3
		Get ComAdd of hoNodes "Child <b>2</b>" "1235" Nothing Nothing to voNode3
		Handle hoNode3
		Get Create (RefClass(cComNode)) to hoNode3
		Set pvComObject of hoNode3 to voNode3
			Set ComExpanded of hoNode3 to False
		Send Destroy to hoNode3
		Get ComAdd of hoNodes "Sub 2" "1235" Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Send ComEndUpdate
End_Procedure
215
Is it possible to show a percent/progress-bar associated with a node (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultNodePadding OLEexPaddingAll to 4
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Sub 1<br>" "1234" "AK1" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComBackgroundExt of hoNode to "none[(4,100%-22,100%-8,18)](bottom[4](left[10%,back=RGB(255,0,0)]),none[(0,100%-4,100%,4),pattern=0x000,frame=RGB(192,192,192)],none[(2,100%-22,100%-4,22),text=`10%`,align=0x11]])"
		Send Destroy to hoNode
		Variant voNode1
		Get ComAdd of hoNodes "Sub 2<br>" "1234" "AK2" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComBackgroundExt of hoNode1 to "none[(4,100%-22,100%-8,18)](bottom[4](left[50%,back=RGB(0,255,0)]),none[(0,100%-4,100%,4),pattern=0x000,frame=RGB(192,192,192)],none[(2,100%-22,100%-4,22),text=`50%`,align=0x11]])"
		Send Destroy to hoNode1
		Variant voNode2
		Get ComAdd of hoNodes "Sub 3<br>" "1234" "AK3" Nothing Nothing to voNode2
		Handle hoNode2
		Get Create (RefClass(cComNode)) to hoNode2
		Set pvComObject of hoNode2 to voNode2
			Set ComBackgroundExt of hoNode2 to "none[(4,100%-22,100%-8,18)](bottom[4](left[100%,back=RGB(0,0,255)]),none[(0,100%-4,100%,4),pattern=0x000,frame=RGB(192,192,192)],none[(2,100%-22,100%-4,22),text=`100%`,align=0x11]])"
		Send Destroy to hoNode2
		Variant voNode3
		Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode3
		Handle hoNode3
		Get Create (RefClass(cComNode)) to hoNode3
		Set pvComObject of hoNode3 to voNode3
			Get ComAddGroup of hoNode3 "Child <b>2.2</b>" Nothing Nothing to Nothing
		Send Destroy to hoNode3
	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 voNode4
		Get ComItem of hoNodes1 "AK1" to voNode4
		Handle hoNode4
		Get Create (RefClass(cComNode)) to hoNode4
		Set pvComObject of hoNode4 to voNode4
			Set ComBackgroundExtValue of hoNode4 OLEexIndexExt3 OLEexClientExt to "25%"
			Set ComBackgroundExtValue of hoNode4 OLEexIndexExt5 OLEexTextExt to (ComBackgroundExtValue(hoNode4,OLEexIndexExt3,OLEexClientExt))
		Send Destroy to hoNode4
	Send Destroy to hoNodes1
	Send ComEndUpdate
End_Procedure
214
Is it possible to show a percent/progress-bar associated with a node (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComIndentSiblingY to 32
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Get ComAddGroup of hoNode "Child <b>2.2</b>" Nothing Nothing to Nothing
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Variant voFrames
	Get ComFrames to voFrames
	Handle hoFrames
	Get Create (RefClass(cComFrames)) to hoFrames
	Set pvComObject of hoFrames to voFrames
		Variant voFrame
		Get ComAdd of hoFrames "AK1" to voFrame
		Handle hoFrame
		Get Create (RefClass(cComFrame)) to hoFrame
		Set pvComObject of hoFrame to voFrame
			Variant voPattern
			Get ComPattern of hoFrame to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternEmpty
			Send Destroy to hoPattern
			Set ComPadding of hoFrame OLEexPaddingBottom to 20
			Set ComBackgroundExt of hoFrame to "bottom[4](left[50%,back=RGB(255,0,0)]),none[(0,100%-4,100%,4),pattern=0x000,frame=RGB(192,192,192)],none[(2,100%-22,100%-4,22),text=`50%`]"
			Variant f1
			Get ComIndex of hoFrame to f1
		Send Destroy to hoFrame
	Send Destroy to hoFrames
	Variant voFrames1
	Get ComFrames to voFrames1
	Handle hoFrames1
	Get Create (RefClass(cComFrames)) to hoFrames1
	Set pvComObject of hoFrames1 to voFrames1
		Variant voFrame1
		Get ComItem of hoFrames1 f1 to voFrame1
		Handle hoFrame1
		Get Create (RefClass(cComFrame)) to hoFrame1
		Set pvComObject of hoFrame1 to voFrame1
			Set ComBackgroundExtValue of hoFrame1 OLEexIndexExt2 OLEexClientExt to "25%"
			Set ComBackgroundExtValue of hoFrame1 OLEexIndexExt4 OLEexTextExt to (ComBackgroundExtValue(hoFrame1,OLEexIndexExt2,OLEexClientExt))
		Send Destroy to hoFrame1
	Send Destroy to hoFrames1
	Variant voFrames2
	Get ComFrames to voFrames2
	Handle hoFrames2
	Get Create (RefClass(cComFrames)) to hoFrames2
	Set pvComObject of hoFrames2 to voFrames2
		Variant voFrame2
		Get ComAdd of hoFrames2 "AK2" to voFrame2
		Handle hoFrame2
		Get Create (RefClass(cComFrame)) to hoFrame2
		Set pvComObject of hoFrame2 to voFrame2
			Variant voPattern1
			Get ComPattern of hoFrame2 to voPattern1
			Handle hoPattern1
			Get Create (RefClass(cComPattern)) to hoPattern1
			Set pvComObject of hoPattern1 to voPattern1
				Set ComType of hoPattern1 to OLEexPatternEmpty
			Send Destroy to hoPattern1
			Set ComPadding of hoFrame2 OLEexPaddingBottom to 20
			Set ComBackgroundExt of hoFrame2 to "bottom[12](left[50%,back=RGB(255,0,0)]),none[(0,100%-12,100%,12),pattern=0x000,frame=RGB(192,192,192)],none[(2,100%-22,100%-4,22),text=`50%`]"
			Variant f2
			Get ComIndex of hoFrame2 to f2
		Send Destroy to hoFrame2
	Send Destroy to hoFrames2
	Variant voFrames3
	Get ComFrames to voFrames3
	Handle hoFrames3
	Get Create (RefClass(cComFrames)) to hoFrames3
	Set pvComObject of hoFrames3 to voFrames3
		Variant voFrame3
		Get ComItem of hoFrames3 f2 to voFrame3
		Handle hoFrame3
		Get Create (RefClass(cComFrame)) to hoFrame3
		Set pvComObject of hoFrame3 to voFrame3
			Set ComBackgroundExtValue of hoFrame3 OLEexIndexExt2 OLEexClientExt to "75%"
			Set ComBackgroundExtValue of hoFrame3 OLEexIndexExt2 OLEexBackColorExt to 65280
			Set ComBackgroundExtValue of hoFrame3 OLEexIndexExt4 OLEexTextExt to (ComBackgroundExtValue(hoFrame3,OLEexIndexExt2,OLEexClientExt))
		Send Destroy to hoFrame3
	Send Destroy to hoFrames3
	Send ComEndUpdate
End_Procedure
213
How can I display the node's caption on multiple lines

Procedure OnCreate
	Forward Send OnCreate
	Set ComWidthNode to 64
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Set ComCaption of hoNode to "This is a bit of text that should break the line"
	Send Destroy to hoNode
End_Procedure
212
Is it possible to show some text/caption on the frame's background

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComIndentSiblingY to 32
	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 "gBFLBCJwBAEHhEJAADhABWMMACAADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDENAxAJCI4DBCAZBwGKPRiASQZUhmHIDTbIEBxfIMIRLE6PZgjOYZchqRYZSjAdIzUAFFr1J4AKbfKJpfoKBJERrScgxeBUNAZBKlY7paoKSpSGw1CTLNoRAKoYTTBK2bbmWwoap2So1XhAdS0XJcWxfGKRbxmWaZZh+R5mXpCMjVMAGGQPIa8MLCSwIJBaHqUQLZNixLStAyxHCtKKhG+vJwHL6BcqnPKKRqSUKcWbcQADFZdYTdNjbch1TWvSZVQSecSke7BQjGJQ2YxWcZUXReeaBDK9ZS4WK+HhRjqAZpCkeoNC8P4DDiWp3nYVwdkaSgrGGVhSnSHJum6CgGAiBIUA0JgziGVJkGWRgTiGBAiG+ZgyDYQhCgQJZbG+UIAGEFgGBEBw9FILJNAMXgMgOIJYD4EoEGESBCBYVIKGMIJTCiDpDliNQ+A+eB+CGCAiCiFgkgmT54HCdoGE0MhgkAM4LhOWJ/CQThIk4NQik4I5+DgP5IDOBJ/B2TgDnwaQ3k+cR0l4P5jBOfguDOCIimCSgwCMKJuDsIRjmkUJ/B8JBBkIRAYmQcRglwP5lAOfhNDKCAikSRgxE8WJyEQIJkEGdhHhuD5xlSXYQicMR0lsP5FBmXhoD+ZhTBgfQrgwMwUnQP5HikfoFhwZxxlYdwbW0CJaWKag8EuI5oTufwwkeIoskIMYPDOfB0iOaZznwbw2GoKoQGaKQFjqEBQikBBjGCf4nCgShoLyTCZnIP5GlqOo5YgAxejyL4GAqeBWi+BI6ngQYvisY5+jMMBHHKHJAjIRoDFqPI0gYOxSlIFptCERpSBGbQgn6SItmyUwAHaM4MgqXBljSLl7GANRuiuMBajsBQLEgRY0gOSxKmUP5uDuCpODIaxxgqbI/g+cR8lSQBwDEYpsBObpBBabAPG6S5yniM4HHKIJBDiT4TnyKQ6nEbBjBeRhPnKGwYCkMYCgcGAnnGDBSD+RIHhKKJDDmMRSkSbg/nKY58jAOxzCyUIuk0CpMlCKfXAyUwsdIEwMHxZ5TiieoSA6fQjEoLh0hKWxJC0NISksSQsDSHQaFeUQIAKRJIDuT5DnyQ4tnWfR7GCLZMBqXI+i2S5KlyOvukOfxZDICAylSSg8jWUwyGmXYPnMNhpl6/sLg0gxjNBmNkRIQR3CRHMOQIYlwjBxHQH4T45hSBBGO/sVgQRkv7EyO4P4mgeC5E+MsTIvBfgWD+PFBIFgvgaTaPwP4mxdA/CmNQOoWgci5FGJsLAqRYiKE0PgV4TQOh0EIHkQ4xw6DnBMLsb4Hx/AHEAHEdYpwIj2D+JwDwORfjjE+B0H4dA1ASKcK8UYnxzhXAyOsPQvhfgYDoPEQ4RwMBziqDYXY6g9AmFyCwMomwThxHkH0fA5x/jbHuJ8f4dxxj4D8Ecf41A+j8HMMoUgTBMjGG+Pgf4nx1j/EAFAAwAggAIAYFQQ4WgEggDIAQgI=" to Nothing
	Send Destroy to hoAppearance
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Get ComAddGroup of hoNode "Child <b>2.2</b>" Nothing Nothing to Nothing
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Variant voFrames
	Get ComFrames to voFrames
	Handle hoFrames
	Get Create (RefClass(cComFrames)) to hoFrames
	Set pvComObject of hoFrames to voFrames
		Variant voFrame
		Get ComAdd of hoFrames "AK1,AK2" to voFrame
		Handle hoFrame
		Get Create (RefClass(cComFrame)) to hoFrame
		Set pvComObject of hoFrame to voFrame
			Set ComPadding of hoFrame OLEexPaddingAll to 8
			Set ComPadding of hoFrame OLEexPaddingBottom to 22
			Set ComBackColor of hoFrame to |CI$1000000
			Variant voPattern
			Get ComPattern of hoFrame to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternEmpty
			Send Destroy to hoPattern
			Set ComBackgroundExt of hoFrame to "top[4],left[4],right[4],client,bottom[4],bottom[16,back=0x01000000,text=`<sha ;;0>attention`,align=0x11]"
		Send Destroy to hoFrame
	Send Destroy to hoFrames
	Send ComEndUpdate
End_Procedure
211
How can I draw the pattern with no frame

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComIndentSiblingY to 32
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Get ComAddGroup of hoNode "Child <b>2.2</b>" Nothing Nothing to Nothing
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Variant voFrames
	Get ComFrames to voFrames
	Handle hoFrames
	Get Create (RefClass(cComFrames)) to hoFrames
	Set pvComObject of hoFrames to voFrames
		Variant voFrame
		Get ComAdd of hoFrames "AK1,AK2" to voFrame
		Handle hoFrame
		Get Create (RefClass(cComFrame)) to hoFrame
		Set pvComObject of hoFrame to voFrame
			Set ComPadding of hoFrame OLEexPaddingAll to 8
			Variant voPattern
			Get ComPattern of hoFrame to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternCross
				Set ComColor of hoPattern to (RGB(190,190,190))
			Send Destroy to hoPattern
		Send Destroy to hoFrame
	Send Destroy to hoFrames
	Send ComEndUpdate
End_Procedure
210
How can I show the frame with an EBN color

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComIndentSiblingY to 32
	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 "gBFLBCJwBAEHhEJAADhABWMMACAADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDENAxAJCI4DBCAZBwGKPRiASQZUhmHIDTbIEBxfIMIRLE6PZgjOYZchqRYZSjAdIzUAFFr1J4AKbfKJpfoKBJERrScgxeBUNAZBKlY7paoKSpSGw1CTLNoRAKoYTTBK2bbmWwoap2So1XhAdS0XJcWxfGKRbxmWaZZh+R5mXpCMjVMAGGQPIa8MLCSwIJBaHqUQLZNixLStAyxHCtKKhG+vJwHL6BcqnPKKRqSUKcWbcQADFZdYTdNjbch1TWvSZVQSecSke7BQjGJQ2YxWcZUXReeaBDK9ZS4WK+HhRjqAZpCkeoNC8P4DDiWp3nYVwdkaSgrGGVhSnSHJum6CgGAiBIUA0JgziGVJkGWRgTiGBAiG+ZgyDYQhCgQJZbG+UIAGEFgGBEBw9FILJNAMXgMgOIJYD4EoEGESBCBYVIKGMIJTCiDpDliNQ+A+eB+CGCAiCiFgkgmT54HCdoGE0MhgkAM4LhOWJ/CQThIk4NQik4I5+DgP5IDOBJ/B2TgDnwaQ3k+cR0l4P5jBOfguDOCIimCSgwCMKJuDsIRjmkUJ/B8JBBkIRAYmQcRglwP5lAOfhNDKCAikSRgxE8WJyEQIJkEGdhHhuD5xlSXYQicMR0lsP5FBmXhoD+ZhTBgfQrgwMwUnQP5HikfoFhwZxxlYdwbW0CJaWKag8EuI5oTufwwkeIoskIMYPDOfB0iOaZznwbw2GoKoQGaKQFjqEBQikBBjGCf4nCgShoLyTCZnIP5GlqOo5YgAxejyL4GAqeBWi+BI6ngQYvisY5+jMMBHHKHJAjIRoDFqPI0gYOxSlIFptCERpSBGbQgn6SItmyUwAHaM4MgqXBljSLl7GANRuiuMBajsBQLEgRY0gOSxKmUP5uDuCpODIaxxgqbI/g+cR8lSQBwDEYpsBObpBBabAPG6S5yniM4HHKIJBDiT4TnyKQ6nEbBjBeRhPnKGwYCkMYCgcGAnnGDBSD+RIHhKKJDDmMRSkSbg/nKY58jAOxzCyUIuk0CpMlCKfXAyUwsdIEwMHxZ5TiieoSA6fQjEoLh0hKWxJC0NISksSQsDSHQaFeUQIAKRJIDuT5DnyQ4tnWfR7GCLZMBqXI+i2S5KlyOvukOfxZDICAylSSg8jWUwyGmXYPnMNhpl6/sLg0gxjNBmNkRIQR3CRHMOQIYlwjBxHQH4T45hSBBGO/sVgQRkv7EyO4P4mgeC5E+MsTIvBfgWD+PFBIFgvgaTaPwP4mxdA/CmNQOoWgci5FGJsLAqRYiKE0PgV4TQOh0EIHkQ4xw6DnBMLsb4Hx/AHEAHEdYpwIj2D+JwDwORfjjE+B0H4dA1ASKcK8UYnxzhXAyOsPQvhfgYDoPEQ4RwMBziqDYXY6g9AmFyCwMomwThxHkH0fA5x/jbHuJ8f4dxxj4D8Ecf41A+j8HMMoUgTBMjGG+Pgf4nx1j/EAFAAwAggAIAYFQQ4WgEggDIAQgI=" to Nothing
	Send Destroy to hoAppearance
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Get ComAddGroup of hoNode "Child <b>2.2</b>" Nothing Nothing to Nothing
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Variant voFrames
	Get ComFrames to voFrames
	Handle hoFrames
	Get Create (RefClass(cComFrames)) to hoFrames
	Set pvComObject of hoFrames to voFrames
		Variant voFrame
		Get ComAdd of hoFrames "AK1,AK2" to voFrame
		Handle hoFrame
		Get Create (RefClass(cComFrame)) to hoFrame
		Set pvComObject of hoFrame to voFrame
			Set ComPadding of hoFrame OLEexPaddingAll to 8
			Set ComBackColor of hoFrame to |CI$1000000
			Variant voPattern
			Get ComPattern of hoFrame to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternEmpty
			Send Destroy to hoPattern
		Send Destroy to hoFrame
	Send Destroy to hoFrames
	Send ComEndUpdate
End_Procedure
209
How can I show the frame with an EBN color

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComIndentSiblingY to 32
	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 ("gBFLBCJwBAEHhEJAADhABDYGg6AADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDEMw0AJCIyDFCAZBsHKPRoASQZUhmHIDTbIEBxfIMIRLE6PRhmGL4HjWOo0TLAdI0PJMBr3J4AKbfOJpfDSQZDRrTMyReDkNBBBKlY7rKoqRpCFYtDSJNoWVBIahhNiGbbiCQYfouFZdUpRV5VLTUVxbF6YZDvKZZZjmH48RpPUIyNS2FyxHDEIxyEALYACS5fTrCNZPVjgAY4fSqMToDDpKoSWp0QjlOS5jiyYoJZ7nWa2PDdUzXCC3LgADabThqdapcBAeqYHhORRRFSiYD4eAxYw2NaTUrSeS8JBmnmSIYlaOY6H2dwHC0CZWHSeobEmRpbGuOpeFsbhRmgS5/loAJtl4fg5E6b4LFEAwEEISgGhMGZQmocgZMWJA2AMEAxAgTYAlGEJZAkCgdngNYZAYEYYBGdRnk8CBUmqBZOhgZgagaYZIHYHoHmICIGCKCJhiOPgmgUIRTEYKgviKQpyC6C5jAiRgygyYxIlYNoNmOAp2DoM5jwEb8miIUhCCGJBCBIRoRmSCQmEqEpkkkNhOhOZQJBCBgjmUSB0zCSBnjYWoWmWSR2F6F5mAmBhihiZZpFyBoHGQc54n4PxPCOSJxDwZppkIb4cGcSZOHaHInwWeYdmeKZ2HyH5nCmNJxhqD5ZB4aIRg+E5kngOpOiOJoMiOKJaD6EokGkShChaJJpHoVoYiaaYqHaGQ6GiE5i1aJRyBSdA9A8M4QmQOJqiqMorisawKj7ggrEqRo1iyaxqmaOIumsc4OicPJqFkWhXDwIhjHiXQ3GwawikeMhsksLpOjKLQLDaUYzm0KxWlSNZtDMdpEDubAahIVw7A6Q4slYNYNFMXJXDWLhriKZ46G6S4um6OovAuNpxjubwrladI9m4O4SmAOptlgbhSDoMADECUAzmKIxDAWQZNBwGwJkIMIsDcDJDnCPBHA6RIxAwTwCkCcADiIUoHGUI4WioMhMhMIJKTeHIPCWSWUCcKJKnIfI3CqS4ykyPwykwcxMgMIZHg4TBuByFIOCOBJhDCDAjASRHB34RZRDQbQnEiUp0H0NxKlONJND8UpUHUQwPEAMBzlOBw6gaSB9HSXpXkuQpsjoL4LlKcxklmNhdh8apaHaTYjG6Wp2n2NxwlydwtlYLpYjWcx7F0EMYYuxsi4DaJsMoqQ1MuHKLkNowh4D8BuBEYo8QuBvAmMceInBDgdGQPITgnwWBbDgEUUw/g2jvD2O4XSdATDBC4wsUoiQwBYagEcJ41B6idC+F0arQQ3hjGuPYLorw0jbEsB0DIWxoAbA4OwHIvRuDmFiFAKYlBihZCoFQfA3gjiPc+J43g5V+BvFGOcfQXhXipHWJUHwGQmjgHuNocIEAiNHFCKgKAlACgBCQFESgfwfjTHoH0L4bxsj3H6H8R43R8h+A+J8do+h/gFA+MgKAfATChAcPcaA6xvgRAGEwNIDQQg0BMEQZAngJiiDsAUIAyALgDDAIQB4ggoA6AUEEDAKwCDgFoBkQYEA2BOGAHEGYAQDCUAEIAF4fgBANACCgEgxBICYAkOILQFQhDICuAsMIhAXiGCgLoDQQwMBrAYOEWgORDgQHYEsIQcQSgJDCBIDggAmAkDQAgYIFgRDEEQJACQEQTAlGIKgTIExxB0CiIkWITgUBFCQKUCoYhiBXEWEIIQIwEC4ESBAKA3AhgZHGEAIYCAogIn+FARIjQIiqBoMYXA3QNhjEIGwRwURfA5GOckDo4xaB5AiDESgQgGgYp6BAagAgwBjB4D8Q40B9AhCIBgQYkQJAqlQLkDoIwyCEEYJIKQPgkjJAyCkEo5BaCZAgHICgPhkA5AAIYMAEBngZGGDgHgBw4DsA+IMdAfBKgSFUFQZQuQugrDKIQVglgpC+CyMsDIaQWjlFoLkB4khKA7CUCFSAxwmChEoGEZAOADgAHgB0QYtBjiZBmCIMoTBs2uHMFwaImRph" + ;
"KDQE0HIrQahmGAHYTAgRhBfCYAkQgMxBhQlGCEYwYhnBAHCDkU4RByidCmJ4OozhMjZB2OcOg8ROizGcSgLIwgNBmHYAARATw/BBEMDAYQGAhhcHEKAEIphAjQC0AUII6ASgIFANQE04hdAdCEKgQoDROBTHwDAZKDQMBnHEDwBYoQ2AtnEMYDA6B6ggFGPQQ1YgdBNCQKkIoJRSg0E8JUKQ2gshLGGB0DYCw6BYCIEIGIEhg4JCoAoQIeAXCFG0HkJ4qR2g/FQFUAwosfiNCgOoHoRRUgVBcKUKg0BdhOCEKMAoexxAmAiMAGIogaCCDhccQIXAVCFCgLEK4ah+heFYBURwsQrBaGGFkdYJQ0CsGqKYWwVhdDLCuAIVoWQEiDCcKsYwBBA1zEmAkA4wB6AeEIGARQEQ1j1EAK8ewBhhBYB2A0MArEzixBsB4YoWBtgZDGMIFoewDi1L0EAEggBNhHEgIkWYQwkiBCEAUZANQ2D9FCBoWwghojaBWEkNI7QaipFoLYVw1AtDLCqGsIwrAQCzEGEIZoCBNgwCoJ0EArRbCwAUN4LY2w+hvHcAUYIuArgOHEEAFYaw3BKEgOsG4oAACAEAQEA==") to Nothing
	Send Destroy to hoAppearance
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Get ComAddGroup of hoNode "Child <b>2.2</b>" Nothing Nothing to Nothing
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Variant voFrames
	Get ComFrames to voFrames
	Handle hoFrames
	Get Create (RefClass(cComFrames)) to hoFrames
	Set pvComObject of hoFrames to voFrames
		Variant voFrame
		Get ComAdd of hoFrames "AK1,AK2" to voFrame
		Handle hoFrame
		Get Create (RefClass(cComFrame)) to hoFrame
		Set pvComObject of hoFrame to voFrame
			Set ComPadding of hoFrame OLEexPaddingAll to 8
			Set ComBackColor of hoFrame to |CI$1000000
			Variant voPattern
			Get ComPattern of hoFrame to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternEmpty
			Send Destroy to hoPattern
		Send Destroy to hoFrame
	Send Destroy to hoFrames
	Send ComEndUpdate
End_Procedure
208
How can I show the frame with a solid color

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 "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Get ComAddGroup of hoNode "Child <b>2.2</b>" Nothing Nothing to Nothing
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Variant voFrames
	Get ComFrames to voFrames
	Handle hoFrames
	Get Create (RefClass(cComFrames)) to hoFrames
	Set pvComObject of hoFrames to voFrames
		Variant voFrame
		Get ComAdd of hoFrames "AK1,AK2" to voFrame
		Handle hoFrame
		Get Create (RefClass(cComFrame)) to hoFrame
		Set pvComObject of hoFrame to voFrame
			Set ComBackColor of hoFrame to (RGB(255,0,0))
			Variant voPattern
			Get ComPattern of hoFrame to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternEmpty
			Send Destroy to hoPattern
		Send Destroy to hoFrame
	Send Destroy to hoFrames
	Send ComEndUpdate
End_Procedure
207
Is it possible to enlarge/shrink the frame

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 "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Get ComAddGroup of hoNode "Child <b>2.2</b>" Nothing Nothing to Nothing
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Variant voFrames
	Get ComFrames to voFrames
	Handle hoFrames
	Get Create (RefClass(cComFrames)) to hoFrames
	Set pvComObject of hoFrames to voFrames
		Variant voFrame
		Get ComAdd of hoFrames "AK1,AK2" to voFrame
		Handle hoFrame
		Get Create (RefClass(cComFrame)) to hoFrame
		Set pvComObject of hoFrame to voFrame
			Set ComShowOnBackground of hoFrame to False
			Set ComPadding of hoFrame OLEexPaddingAll to -4
			Variant voPattern
			Get ComPattern of hoFrame to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to (OLEexPatternFrame + OLEexPatternFDiagonal)
				Set ComColor of hoPattern to (RGB(190,190,190))
				Set ComFrameColor of hoPattern to (RGB(128,128,128))
			Send Destroy to hoPattern
		Send Destroy to hoFrame
	Send Destroy to hoFrames
	Send ComEndUpdate
End_Procedure
206
Is it possible to draw the frame in front, rather than showing it on the control's background

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 "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Get ComAddGroup of hoNode "Child <b>2.2</b>" Nothing Nothing to Nothing
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Variant voFrames
	Get ComFrames to voFrames
	Handle hoFrames
	Get Create (RefClass(cComFrames)) to hoFrames
	Set pvComObject of hoFrames to voFrames
		Variant voFrame
		Get ComAdd of hoFrames "AK1,AK2" to voFrame
		Handle hoFrame
		Get Create (RefClass(cComFrame)) to hoFrame
		Set pvComObject of hoFrame to voFrame
			Set ComShowOnBackground of hoFrame to False
			Variant voPattern
			Get ComPattern of hoFrame to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to (OLEexPatternFrame + OLEexPatternFDiagonal)
				Set ComColor of hoPattern to (RGB(190,190,190))
				Set ComFrameColor of hoPattern to (RGB(128,128,128))
			Send Destroy to hoPattern
		Send Destroy to hoFrame
	Send Destroy to hoFrames
	Send ComEndUpdate
End_Procedure
205
How do I show or hide a frame

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 "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Get ComAddGroup of hoNode "Child <b>2.2</b>" Nothing Nothing to Nothing
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Variant voFrames
	Get ComFrames to voFrames
	Handle hoFrames
	Get Create (RefClass(cComFrames)) to hoFrames
	Set pvComObject of hoFrames to voFrames
		Variant voFrame
		Get ComAdd of hoFrames "AK1,AK2" to voFrame
		Handle hoFrame
		Get Create (RefClass(cComFrame)) to hoFrame
		Set pvComObject of hoFrame to voFrame
			Set ComVisible of hoFrame to True
			Variant voPattern
			Get ComPattern of hoFrame to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to (OLEexPatternFrame + OLEexPatternFDiagonal)
				Set ComColor of hoPattern to (RGB(190,190,190))
				Set ComFrameColor of hoPattern to (RGB(128,128,128))
			Send Destroy to hoPattern
		Send Destroy to hoFrame
	Send Destroy to hoFrames
	Send ComEndUpdate
End_Procedure
204
How can I display the frame arround the node itself

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
		Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
	Send Destroy to hoNode
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode1
		Get ComAdd of hoNodes "Child <b>2.1</b>" "GR1" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Variant voNode2
			Get ComAddGroup of hoNode1 "Child <b>2.2</b>" Nothing Nothing to voNode2
			Handle hoNode2
			Get Create (RefClass(cComNode)) to hoNode2
			Set pvComObject of hoNode2 to voNode2
				Set ComKey of hoNode2 to "GR2"
			Send Destroy to hoNode2
		Send Destroy to hoNode1
	Send Destroy to hoNodes
	Variant voFrames
	Get ComFrames to voFrames
	Handle hoFrames
	Get Create (RefClass(cComFrames)) to hoFrames
	Set pvComObject of hoFrames to voFrames
		Variant voFrame
		Get ComAdd of hoFrames "1234" to voFrame
		Handle hoFrame
		Get Create (RefClass(cComFrame)) to hoFrame
		Set pvComObject of hoFrame to voFrame
			Variant voPattern
			Get ComPattern of hoFrame to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to (OLEexPatternFrame + OLEexPatternFDiagonal)
				Set ComColor of hoPattern to (RGB(190,190,190))
				Set ComFrameColor of hoPattern to (RGB(128,128,128))
			Send Destroy to hoPattern
		Send Destroy to hoFrame
	Send Destroy to hoFrames
	Variant voFrames1
	Get ComFrames to voFrames1
	Handle hoFrames1
	Get Create (RefClass(cComFrames)) to hoFrames1
	Set pvComObject of hoFrames1 to voFrames1
		Variant voFrame1
		Get ComAdd of hoFrames1 "GR2" to voFrame1
		Handle hoFrame1
		Get Create (RefClass(cComFrame)) to hoFrame1
		Set pvComObject of hoFrame1 to voFrame1
			Variant voPattern1
			Get ComPattern of hoFrame1 to voPattern1
			Handle hoPattern1
			Get Create (RefClass(cComPattern)) to hoPattern1
			Set pvComObject of hoPattern1 to voPattern1
				Set ComType of hoPattern1 to (OLEexPatternFrame + OLEexPatternFDiagonal)
				Set ComColor of hoPattern1 to (RGB(190,190,190))
				Set ComFrameColor of hoPattern1 to (RGB(128,128,128))
			Send Destroy to hoPattern1
		Send Destroy to hoFrame1
	Send Destroy to hoFrames1
	Send ComEndUpdate
End_Procedure
203
How can I display the frame arround group nodes only

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
		Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
	Send Destroy to hoNode
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode1
		Get ComAdd of hoNodes "Child <b>2.1</b>" "GR1" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Variant voNode2
			Get ComAddGroup of hoNode1 "Child <b>2.2</b>" Nothing Nothing to voNode2
			Handle hoNode2
			Get Create (RefClass(cComNode)) to hoNode2
			Set pvComObject of hoNode2 to voNode2
				Set ComKey of hoNode2 to "GR2"
			Send Destroy to hoNode2
		Send Destroy to hoNode1
	Send Destroy to hoNodes
	Variant voFrames
	Get ComFrames to voFrames
	Handle hoFrames
	Get Create (RefClass(cComFrames)) to hoFrames
	Set pvComObject of hoFrames to voFrames
		Variant voFrame
		Get ComAdd of hoFrames "root" to voFrame
		Handle hoFrame
		Get Create (RefClass(cComFrame)) to hoFrame
		Set pvComObject of hoFrame to voFrame
			Set ComNodes of hoFrame to "GR1(group)"
			Variant voPattern
			Get ComPattern of hoFrame to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to (OLEexPatternFrame + OLEexPatternFDiagonal)
				Set ComColor of hoPattern to (RGB(190,190,190))
				Set ComFrameColor of hoPattern to (RGB(128,128,128))
			Send Destroy to hoPattern
		Send Destroy to hoFrame
	Send Destroy to hoFrames
	Send ComEndUpdate
End_Procedure
202
How can I display the frame arround assistant nodes only

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
		Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
	Send Destroy to hoNode
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode1
		Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Get ComAddGroup of hoNode1 "Child <b>2.2</b>" Nothing Nothing to Nothing
		Send Destroy to hoNode1
	Send Destroy to hoNodes
	Variant voFrames
	Get ComFrames to voFrames
	Handle hoFrames
	Get Create (RefClass(cComFrames)) to hoFrames
	Set pvComObject of hoFrames to voFrames
		Variant voFrame
		Get ComAdd of hoFrames "root" to voFrame
		Handle hoFrame
		Get Create (RefClass(cComFrame)) to hoFrame
		Set pvComObject of hoFrame to voFrame
			Set ComNodes of hoFrame to "root(assistant)"
			Variant voPattern
			Get ComPattern of hoFrame to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to (OLEexPatternFrame + OLEexPatternFDiagonal)
				Set ComColor of hoPattern to (RGB(190,190,190))
				Set ComFrameColor of hoPattern to (RGB(128,128,128))
			Send Destroy to hoPattern
		Send Destroy to hoFrame
	Send Destroy to hoFrames
	Send ComEndUpdate
End_Procedure
201
How can I display the frame arround child nodes only

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
		Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
	Send Destroy to hoNode
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode1
		Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Get ComAddGroup of hoNode1 "Child <b>2.2</b>" Nothing Nothing to Nothing
		Send Destroy to hoNode1
	Send Destroy to hoNodes
	Variant voFrames
	Get ComFrames to voFrames
	Handle hoFrames
	Get Create (RefClass(cComFrames)) to hoFrames
	Set pvComObject of hoFrames to voFrames
		Variant voFrame
		Get ComAdd of hoFrames "root" to voFrame
		Handle hoFrame
		Get Create (RefClass(cComFrame)) to hoFrame
		Set pvComObject of hoFrame to voFrame
			Set ComNodes of hoFrame to "root(child)"
			Variant voPattern
			Get ComPattern of hoFrame to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to (OLEexPatternFrame + OLEexPatternFDiagonal)
				Set ComColor of hoPattern to (RGB(190,190,190))
				Set ComFrameColor of hoPattern to (RGB(128,128,128))
			Send Destroy to hoPattern
		Send Destroy to hoFrame
	Send Destroy to hoFrames
	Send ComEndUpdate
End_Procedure
200
How can I show the frame arround all child, assistant, group nodes

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
		Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
	Send Destroy to hoNode
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode1
		Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Get ComAddGroup of hoNode1 "Child <b>2.2</b>" Nothing Nothing to Nothing
		Send Destroy to hoNode1
	Send Destroy to hoNodes
	Variant voFrames
	Get ComFrames to voFrames
	Handle hoFrames
	Get Create (RefClass(cComFrames)) to hoFrames
	Set pvComObject of hoFrames to voFrames
		Variant voFrame
		Get ComAdd of hoFrames "root" to voFrame
		Handle hoFrame
		Get Create (RefClass(cComFrame)) to hoFrame
		Set pvComObject of hoFrame to voFrame
			Set ComNodes of hoFrame to "root(all)"
			Variant voPattern
			Get ComPattern of hoFrame to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to (OLEexPatternFrame + OLEexPatternFDiagonal)
				Set ComColor of hoPattern to (RGB(190,190,190))
				Set ComFrameColor of hoPattern to (RGB(128,128,128))
			Send Destroy to hoPattern
		Send Destroy to hoFrame
	Send Destroy to hoFrames
	Send ComEndUpdate
End_Procedure
199
We need to visualy group nodes that have the same parent but also have other siblings. Is it anyway possible to draw an additional border around a group of nodes in this control

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
		Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
	Send Destroy to hoNode
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode1
		Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Get ComAddGroup of hoNode1 "Child <b>2.2</b>" Nothing Nothing to Nothing
		Send Destroy to hoNode1
	Send Destroy to hoNodes
	Variant voFrames
	Get ComFrames to voFrames
	Handle hoFrames
	Get Create (RefClass(cComFrames)) to hoFrames
	Set pvComObject of hoFrames to voFrames
		Variant voFrame
		Get ComAdd of hoFrames "AK1,AK2" to voFrame
		Handle hoFrame
		Get Create (RefClass(cComFrame)) to hoFrame
		Set pvComObject of hoFrame to voFrame
			Variant voPattern
			Get ComPattern of hoFrame to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to (OLEexPatternFrame + OLEexPatternFDiagonal)
				Set ComColor of hoPattern to (RGB(190,190,190))
				Set ComFrameColor of hoPattern to (RGB(128,128,128))
			Send Destroy to hoPattern
		Send Destroy to hoFrame
	Send Destroy to hoFrames
	Send ComEndUpdate
End_Procedure
198
How can I draw a pattern on a node

Procedure OnCreate
	Forward Send OnCreate
	Set ComIndentSiblingY to 30
	Set ComShowLinksDir to True
	Set ComPenWidthLink to 2
	Set ComLinkColor to (RGB(0,0,0))
	Set ComAntiAliasing 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 "L1_A" "LA" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComShowLinkDir of hoNode to False
		Send Destroy to hoNode
		Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Variant voFrames
	Get ComFrames to voFrames
	Handle hoFrames
	Get Create (RefClass(cComFrames)) to hoFrames
	Set pvComObject of hoFrames to voFrames
		Variant voFrame
		Get ComAdd of hoFrames "LB" to voFrame
		Handle hoFrame
		Get Create (RefClass(cComFrame)) to hoFrame
		Set pvComObject of hoFrame to voFrame
			Set ComPadding of hoFrame OLEexPaddingAll to -2
			Variant voPattern
			Get ComPattern of hoFrame to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternBDiagonal
				Set ComColor of hoPattern to (RGB(128,128,128))
			Send Destroy to hoPattern
			Set ComShowOnBackground of hoFrame to False
		Send Destroy to hoFrame
	Send Destroy to hoFrames
End_Procedure
197
How do I use as a WBS control (WBS is a hierarchical and incremental decomposition of the project into phases, deliverables and work packages )

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 ("gBFLBCJwBAEHhEJAADhABdQFg6AADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDENQwSSMMJwSKYYBiASEYJASQZUhmHIDTbIEBxfIMIRLE6PZbmEYYfgeNY6TQCcIgVD0ExhAZ2Q4EQAKRpOFY/DBQNLgAKNCQ3LaQY7BaKgZouTYDVrVNSVFC0IBkGoSbauCIJHrGCZ1RBYMI0VDNRwHJiMbRtSyqXjGJ4pSrAcq0FAgYRHI6jZxnGL5chqPqGVjMNZ1bQuKwzT0Ld5wTYsdydBK1MIkTKKaoORZgRpYUI6FAeSgBWyPcCqPSoDrKdo4XLdYwbeAFcSPD6+NBhG7tXm/NarNTgTB6DBthsGJbgYYw9AQVxBoOch2hEbh+nAARYkQdZ7CMPYGH+FxmlqbJ5lqDAdjMC5AmIW54hwaBvA4IQ8D+T8IFscgenAAZMHiEgWiWdRZlSAAhAkFAGq6dAdEcIYVF4QJKCAHQDBCBJYGUGQNhCEIhiSCJaGAYQWBsIYmEEFgJAGQ42CyC4iliPgygsT4olSXg3g2Qwwk0MpMiMLJIg8Y54niTYOmPPJMDMDIonSSU7jMJJbDaTYjlYUoMmMCRWFQAAlEkZgtDgTgjgCJQpEoIgkgkIQHnIAB7CACARnIaIaiaGYuG6GxmhmFB7CGSICAyHwoAmQxQlQNIlikWgthYIwaAYVQvAuQpsg0IxIhKTIzCwToTiiaYACkChGhKJJpEOQoWC+C5imyCgiggYpUzMZ5Yj6AIfg6UpcjgLYInIPILhOTYaEIUg9EoItfCGCByAiCV2lIKILCGK4qnKO4YggWpQgIJxJmIaJhDgDgKECaIykkUhUhILQLEKRh9iiYpzCSSQxmgcgkm2NppAKbI8C4RoBiQYgSgSMQQEEEIDjECBDA8LorjKa47EQMQSm4DpEhEKBDBeRgBGqMQnmkA5in4JAJAINoEC6JR4jyaQ6E6AhEhIIxNBMRJPiQCYyHCGAUgUMQwEgEhhkEOBHBOBJxCMHJHjGXB/CKSBxlENwaj1qgsEwERICIDB/iQDgjgiYYvE2cx8l2KIinoEI5CYSYiFqEAz0mMBZBbwIkEsEN+gMSpSHSTITEqSoEFyGBHCoSoihqEAsgsIo8ikKhKGiVJ6AADwTkicQlAkUhElA+Z4VUHpHGuRA8lMdI9DscJc8r5QQAaIYsGUOpOjoOwHCEJAUgBh8B1EAAcHIzg5gPCGNgdQfRPhnGiLINhhQEDCBcGUDYphxjLHkNgfwTARhiHEBYWAVxpI1HQDcDjthiAADoKcCgJgbs7FyG4LQagBBgE0CMOYOxLhtGY/AcAegNgTHIPkHISAHADEQNYOA2BwAHEQHABwQxMDbCQEscoEBAAgEOD0V4cR0jyGCPAPwHAvh0EAOIHIDRfA/EaGMfYfguAACiBQIg/xWAbH0F8J4bxSD6G8MUMo7Q9ieHuI8eA0gLjfG2PUPQnwvhvHsPsGABxhD8E+AMbgfhVDJH2L8U48wAjbEGPwPo7x8j4F4FccwHAhhiEgBQEQhAnCDGgHwBonxiAZD+G8Lo/hHj3H8PELIiBwgOFCNQHAqQAhYBWAUIARAECgHyKkIIqAIgGGCLgUIFAhB5CQAcFAGgcEHHKBwUYkAdiHDgOaAIKBigYCCFAFQhBzChAWKEOYzwDhCEwFMBQNxwD3C8CsPgHQhANEuA4Uw+gdhHDAOwBogRYAzFuGAQIEgQAzCSGUAIbAXAFCiKIGghhBCQAeAFIgDgwjMByEAAYXg1hiEwFgBYAQugAGIPsTodgnDSBgMca4LhqChCgD4CIYgYBDmcI4GIxgUCYAm1oPIjwgjmFQMYWA1gNCiBUqcII6gegUEAHwB4oRwhzEGLge4GAOC6HUAcMIsAbCGDqLYHYVBACTAkIIIAYigCIGcBQCArQKiiFQFERQUQhDMAOBgcIWAggUBGIMfAVAHhCBwEgBAMg+jbFqCcHYLxvg4D2A8QI3AziMHiJoUgFhACyCwIINofwHi" + ;
"JDAJUKw2B2ARGEEAIwCxIh2BaNQQA/ROBRGoFYQ48B/AeEGEt99lQOgDFgGcAtFgdgHEANIMAhAIDKAygkQAEAAjxBeIoCI7QfjUEEEwDIIgWBFEQHUSANxsAqEEEUdwlA4iJCSFYEwhBsCXE0KoIAexnj4DoDkEwaBmgYCGAwMADAkCFCMMYAQOgMhQEIHsaIVQQDXFOOgRtwAUguAcAUU1iw1CWA6OwdIOQFBxCgCkDgeBribBmIgP4KQiAAB+KoAg2QNiDDoG0BQyQzg+EGOAWAFgRC4DsEURQYAdhWFKAoKAVQAB/AcHEaAORiioFqBYMWFATCZEsBsIYcA0gMGCJwGAhg4DQAwKsDAYQGzZBkAcSA8gODEBEGQVIQhajUEeeYKY1QIDrBCIAEg0xIAwEgBNkAAADUTA6B4MQEwv0UEGLAUgzhf04AKGEg4BhYD2B0MUAABApAAvqI8WAqAdDGGwJsEIXwWDtE0AAA4fhmDZCmJMMwbBkgBIC") to Nothing
		Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAADhABEEMACAADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIgdBINQTDCLYyiUBYJhAMYSAJCI4jBCAZRXEAaQIkKY4ZDKCY2QLIEgSFCETQlEAYZgkCB5UiGNIkQLSFDABJMBraDgSAApeoYVj4NZASANFB0bKcQAVDSOKRjeCacpOUpQRZLIyiLZVWQSGoYLahW4YQiKIJKRTXdhULQtLS5FaWZbte6LchqOAAYbOV6ynSeV6NUJNc5xVicBgrBKlI6nGxIJqaZpVYzPeQQTTUby5OyEbyADJ4DqEAKaUrZNoZfhkBhlNa2YguC4gAzudaUZhCOqABpWYYLDS/JSGCYJGDcOaVRZ0FJUVwPg8GZkkCcBQDGJw0HOJ5gECdRUi0dxXi2IJbG4Jp+huHpzH0GouF2eA+B4F4bkESwEEISgGhMGZQmocgZFQFAki4TIAAECBNgCUYQsaCgRjQdRjAYERhmIBB5gIQBwm2BROlOSgaDMIZCmoHoHmICIGB8MJiEOFgmD+IoIGEA4GA4aI0kSC5NliRJrgyYxIlYNoNkyGJkliDpPlidQDD2ZADBYQg6iQQ46EaEZkgkJhKhGTw5DSSITk4eRFAMNRlEMXhWDuZYJC4WoWmWA4+CYORMGmBQDguTBDg4Zg8GaA5CGqGpmkmNhuhuZoim4chAkuaZUmmHZPBgahoh6Z5JnYfofmGI5IjmIJnEmWh3D4D0nn+IpokmboBgeaBSnodw6E+I5YnOIBpgoZoaiaJ9IHOJAAAmVoSh2aRaF6G4pmqCBqh6KAqCkEJqD6TxzlKHosmsSpWjaExPEqZosh0apqkKMotmwCwCjkPQrjKeg0D8T4TlaQ4ymySw2k6LhPFsRpFDsLRDmCdw9i0GxmlqNptksdJ2jebBTjaYoQC0ex+maOZuguJppjkLBZByeI7m4S5GnKPJvEkApvD4Jwim6EY7i8C5Wn6P4vHuZoRhcT4cBad5BnCDAnAqO5wFOZwCigZxZiyepEnCXBXBaRZxgwFwTD6MJ6goaw+nETBnCKSIxjwdh1h6T5jm8IOuEyNwukuT4siie5JguaZsn+ShzAyZw6kyMJ4hCQ44g6U5/DeTI0E0FxGlGcojnMSgvDSSROFQOANnMfxCD+dItFcVpVnWDRbFOFxMH0dQDiATItgaZpUnUOJ3GaWZ2gOdxklCDQNjYX4KmEaYYmMM43EkP0d4tR3gbBKKgOwGgtjsFQGodQuxCAvAWFIMwnwGgcEyCYC4FRijxE4Gl0AnAuCOFWBUAABwth+AACAEBAQ=" to Nothing
		Get ComAdd of hoAppearance 3 "gBFLBCJwBAEHhEJAADhABI8IQAAYAQGKIYBkAKBQAGaAoDDWDoMAANAyjPBMKgBBCLIxhEYobgmGIXRpFMbxAKQahLEiTIklBI8ExXFqMQCkGKocgONYgTLOMZOXCEEwCgI=" to Nothing
	Send Destroy to hoAppearance
	Set ComAntiAliasing to True
	Set ComIndentSiblingY to 4
	Set ComShowRoundLink to True
	Set ComPenLink to OLEexPenSolid
	Set ComSelColor to (RGB(255,255,0))
	Set ComHasButtons to OLEexPlus
	Set ComDefaultNodePadding OLEexPaddingAll to 6
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Set ComCaption of hoNode to "Constuction of a House"
		Set ComBackColor of hoNode to |CI$1000000
		Set ComForeColor of hoNode to (RGB(255,255,255))
		Variant voNode1
		Get ComAddAssistant of hoNode "<font ;6>Work:<r>100.00%<br>Budget:<r>$215,500.00" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComLeft of hoNode1 to False
			Set ComShowLinks of hoNode1 to False
			Set ComPadding of hoNode1 OLEexPaddingAll to 0
			Set ComFixedWidth of hoNode1 to 72
			Set ComBackColor of hoNode1 to |CI$2000000
		Send Destroy to hoNode1
	Send Destroy to hoNode
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode2
		Get ComAdd of hoNodes "1. Internal" "Root" "Internal" Nothing Nothing to voNode2
		Handle hoNode2
		Get Create (RefClass(cComNode)) to hoNode2
		Set pvComObject of hoNode2 to voNode2
			Set ComArrangeSiblingNodesAs of hoNode2 to OLEexTree
			Set ComShowRoundLink of hoNode2 to False
			Set ComBackColor of hoNode2 to |CI$1ff0000
			Set ComForeColor of hoNode2 to (RGB(255,255,255))
			Variant voNode3
			Get ComAddAssistant of hoNode2 "<font ;6>Work:<r>45.60%<br>Budget:<r>$86,500.00" Nothing Nothing to voNode3
			Handle hoNode3
			Get Create (RefClass(cComNode)) to hoNode3
			Set pvComObject of hoNode3 to voNode3
				Set ComLeft of hoNode3 to False
				Set ComShowLinks of hoNode3 to False
				Set ComPadding of hoNode3 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode3 to 72
				Set ComBackColor of hoNode3 to |CI$2000000
			Send Destroy to hoNode3
		Send Destroy to hoNode2
		Variant voNode4
		Get ComAdd of hoNodes "1.1 Electrical" "Internal" "Electrical" Nothing Nothing to voNode4
		Handle hoNode4
		Get Create (RefClass(cComNode)) to hoNode4
		Set pvComObject of hoNode4 to voNode4
			Set ComShowRoundLink of hoNode4 to False
			Set ComBackColor of hoNode4 to |CI$100ff00
			Set ComForeColor of hoNode4 to (RGB(255,255,255))
			Variant voNode5
			Get ComAddAssistant of hoNode4 "<font ;6>Work:<r>11.80%<br>Budget:<r>$25,000.00" Nothing Nothing to voNode5
			Handle hoNode5
			Get Create (RefClass(cComNode)) to hoNode5
			Set pvComObject of hoNode5 to voNode5
				Set ComLeft of hoNode5 to False
				Set ComShowLinks of hoNode5 to False
				Set ComPadding of hoNode5 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode5 to 72
				Set ComBackColor of hoNode5 to |CI$2000000
			Send Destroy to hoNode5
		Send Destroy to hoNode4
		Variant voNode6
		Get ComAdd of hoNodes "1.1.1 Rough-in electrical" "Electrical" "RoughElectrical" Nothing Nothing to voNode6
		Handle hoNode6
		Get Create (RefClass(cComNode)) to hoNode6
		Set pvComObject of hoNode6 to voNode6
			Set ComBackColor of hoNode6 to |CI$3000000
			Set ComPadding of hoNode6 OLEexPaddingAll to 0
			Variant voNode7
			Get ComAddAssistant of hoNode6 "<font ;6>Work:<r>2.80%<br>Budget:<r>$5,000.00" Nothing Nothing to voNode7
			Handle hoNode7
			Get Create (RefClass(cComNode)) to hoNode7
			Set pvComObject of hoNode7 to voNode7
				Set ComLeft of hoNode7 to False
				Set ComShowLinks of hoNode7 to False
				Set ComPadding of hoNode7 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode7 to 72
				Set ComBackColor of hoNode7 to |CI$2000000
			Send Destroy to hoNode7
		Send Destroy to hoNode6
		Variant voNode8
		Get ComAdd of hoNodes "1.1.2 Install and Terminate" "Electrical" "InstallTerminate" Nothing Nothing to voNode8
		Handle hoNode8
		Get Create (RefClass(cComNode)) to hoNode8
		Set pvComObject of hoNode8 to voNode8
			Set ComBackColor of hoNode8 to |CI$3000000
			Set ComPadding of hoNode8 OLEexPaddingAll to 0
			Variant voNode9
			Get ComAddAssistant of hoNode8 "<font ;6>Work:<r>1.90%<br>Budget:<r>$5,000.00" Nothing Nothing to voNode9
			Handle hoNode9
			Get Create (RefClass(cComNode)) to hoNode9
			Set pvComObject of hoNode9 to voNode9
				Set ComLeft of hoNode9 to False
				Set ComShowLinks of hoNode9 to False
				Set ComPadding of hoNode9 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode9 to 72
				Set ComBackColor of hoNode9 to |CI$2000000
			Send Destroy to hoNode9
		Send Destroy to hoNode8
		Variant voNode10
		Get ComAdd of hoNodes "1.1.3 HVAC Equipment" "Electrical" "HVAC" Nothing Nothing to voNode10
		Handle hoNode10
		Get Create (RefClass(cComNode)) to hoNode10
		Set pvComObject of hoNode10 to voNode10
			Set ComBackColor of hoNode10 to |CI$3000000
			Set ComPadding of hoNode10 OLEexPaddingAll to 0
			Variant voNode11
			Get ComAddAssistant of hoNode10 "<font ;6>Work:<r>7.10%<br>Budget:<r>$15,000.00" Nothing Nothing to voNode11
			Handle hoNode11
			Get Create (RefClass(cComNode)) to hoNode11
			Set pvComObject of hoNode11 to voNode11
				Set ComLeft of hoNode11 to False
				Set ComShowLinks of hoNode11 to False
				Set ComPadding of hoNode11 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode11 to 72
				Set ComBackColor of hoNode11 to |CI$2000000
			Send Destroy to hoNode11
		Send Destroy to hoNode10
		Variant voNode12
		Get ComAdd of hoNodes "1.2 Plumbing" "Internal" "Plumbing" Nothing Nothing to voNode12
		Handle hoNode12
		Get Create (RefClass(cComNode)) to hoNode12
		Set pvComObject of hoNode12 to voNode12
			Set ComShowRoundLink of hoNode12 to False
			Set ComBackColor of hoNode12 to |CI$100ff00
			Set ComForeColor of hoNode12 to (RGB(255,255,255))
			Variant voNode13
			Get ComAddAssistant of hoNode12 "<font ;6>Work:<r>33.80%<br>Budget:<r>$61,000.00" Nothing Nothing to voNode13
			Handle hoNode13
			Get Create (RefClass(cComNode)) to hoNode13
			Set pvComObject of hoNode13 to voNode13
				Set ComLeft of hoNode13 to False
				Set ComShowLinks of hoNode13 to False
				Set ComPadding of hoNode13 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode13 to 72
				Set ComBackColor of hoNode13 to |CI$2000000
			Send Destroy to hoNode13
		Send Destroy to hoNode12
		Variant voNode14
		Get ComAdd of hoNodes "1.2.1 Rough-in plumbing" "Plumbing" "RoughPlumbing" Nothing Nothing to voNode14
		Handle hoNode14
		Get Create (RefClass(cComNode)) to hoNode14
		Set pvComObject of hoNode14 to voNode14
			Set ComBackColor of hoNode14 to |CI$3000000
			Set ComPadding of hoNode14 OLEexPaddingAll to 0
			Variant voNode15
			Get ComAddAssistant of hoNode14 "<font ;6>Work:<r>11.30%<br>Budget:<r>$22,000.00" Nothing Nothing to voNode15
			Handle hoNode15
			Get Create (RefClass(cComNode)) to hoNode15
			Set pvComObject of hoNode15 to voNode15
				Set ComLeft of hoNode15 to False
				Set ComShowLinks of hoNode15 to False
				Set ComPadding of hoNode15 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode15 to 72
				Set ComBackColor of hoNode15 to |CI$2000000
			Send Destroy to hoNode15
		Send Destroy to hoNode14
		Variant voNode16
		Get ComAdd of hoNodes "1.2.2 Set plumbing fixtures and trim" "Plumbing" "PlumbingFixtures" Nothing Nothing to voNode16
		Handle hoNode16
		Get Create (RefClass(cComNode)) to hoNode16
		Set pvComObject of hoNode16 to voNode16
			Set ComWidth of hoNode16 to 256
			Set ComBackColor of hoNode16 to |CI$3000000
			Set ComPadding of hoNode16 OLEexPaddingAll to 0
			Variant voNode17
			Get ComAddAssistant of hoNode16 "<font ;6>Work:<r>13.20%<br>Budget:<r>$31,000.00" Nothing Nothing to voNode17
			Handle hoNode17
			Get Create (RefClass(cComNode)) to hoNode17
			Set pvComObject of hoNode17 to voNode17
				Set ComLeft of hoNode17 to False
				Set ComShowLinks of hoNode17 to False
				Set ComPadding of hoNode17 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode17 to 72
				Set ComBackColor of hoNode17 to |CI$2000000
			Send Destroy to hoNode17
		Send Destroy to hoNode16
		Variant voNode18
		Get ComAdd of hoNodes "1.2.3 Test and clean" "Plumbing" "PlumbingTest" Nothing Nothing to voNode18
		Handle hoNode18
		Get Create (RefClass(cComNode)) to hoNode18
		Set pvComObject of hoNode18 to voNode18
			Set ComBackColor of hoNode18 to |CI$3000000
			Set ComPadding of hoNode18 OLEexPaddingAll to 0
			Variant voNode19
			Get ComAddAssistant of hoNode18 "<font ;6>Work:<r>9.30%<br>Budget:<r>$8,000.00" Nothing Nothing to voNode19
			Handle hoNode19
			Get Create (RefClass(cComNode)) to hoNode19
			Set pvComObject of hoNode19 to voNode19
				Set ComLeft of hoNode19 to False
				Set ComShowLinks of hoNode19 to False
				Set ComPadding of hoNode19 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode19 to 72
				Set ComBackColor of hoNode19 to |CI$2000000
			Send Destroy to hoNode19
		Send Destroy to hoNode18
		Variant voNode20
		Get ComAdd of hoNodes "2. Foundation" "Root" "Foundation" Nothing Nothing to voNode20
		Handle hoNode20
		Get Create (RefClass(cComNode)) to hoNode20
		Set pvComObject of hoNode20 to voNode20
			Set ComArrangeSiblingNodesAs of hoNode20 to OLEexTree
			Set ComShowRoundLink of hoNode20 to False
			Set ComBackColor of hoNode20 to |CI$1ff0000
			Set ComForeColor of hoNode20 to (RGB(255,255,255))
			Variant voNode21
			Get ComAddAssistant of hoNode20 "<font ;6>Work:<r>24.00%<br>Budget:<r>$46,000.00" Nothing Nothing to voNode21
			Handle hoNode21
			Get Create (RefClass(cComNode)) to hoNode21
			Set pvComObject of hoNode21 to voNode21
				Set ComLeft of hoNode21 to False
				Set ComShowLinks of hoNode21 to False
				Set ComPadding of hoNode21 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode21 to 72
				Set ComBackColor of hoNode21 to |CI$2000000
			Send Destroy to hoNode21
		Send Destroy to hoNode20
		Variant voNode22
		Get ComAdd of hoNodes "2.1 Excavate" "Foundation" "Excavate" Nothing Nothing to voNode22
		Handle hoNode22
		Get Create (RefClass(cComNode)) to hoNode22
		Set pvComObject of hoNode22 to voNode22
			Set ComShowRoundLink of hoNode22 to False
			Set ComBackColor of hoNode22 to |CI$100ff00
			Set ComForeColor of hoNode22 to (RGB(255,255,255))
			Variant voNode23
			Get ComAddAssistant of hoNode22 "<font ;6>Work:<r>24.00%<br>Budget:<r>$46,000.00" Nothing Nothing to voNode23
			Handle hoNode23
			Get Create (RefClass(cComNode)) to hoNode23
			Set pvComObject of hoNode23 to voNode23
				Set ComLeft of hoNode23 to False
				Set ComShowLinks of hoNode23 to False
				Set ComPadding of hoNode23 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode23 to 72
				Set ComBackColor of hoNode23 to |CI$2000000
			Send Destroy to hoNode23
		Send Destroy to hoNode22
		Variant voNode24
		Get ComAdd of hoNodes "2.1.1 Pour Concrete" "Excavate" "Concrete" Nothing Nothing to voNode24
		Handle hoNode24
		Get Create (RefClass(cComNode)) to hoNode24
		Set pvComObject of hoNode24 to voNode24
			Set ComBackColor of hoNode24 to |CI$3000000
			Set ComPadding of hoNode24 OLEexPaddingAll to 0
			Variant voNode25
			Get ComAddAssistant of hoNode24 "<font ;6>Work:<r>7.90%<br>Budget:<r>$30,000.00" Nothing Nothing to voNode25
			Handle hoNode25
			Get Create (RefClass(cComNode)) to hoNode25
			Set pvComObject of hoNode25 to voNode25
				Set ComLeft of hoNode25 to False
				Set ComShowLinks of hoNode25 to False
				Set ComPadding of hoNode25 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode25 to 72
				Set ComBackColor of hoNode25 to |CI$2000000
			Send Destroy to hoNode25
		Send Destroy to hoNode24
		Variant voNode26
		Get ComAdd of hoNodes "2.1.2 Cure & Strip Forms" "Excavate" "CureForms" Nothing Nothing to voNode26
		Handle hoNode26
		Get Create (RefClass(cComNode)) to hoNode26
		Set pvComObject of hoNode26 to voNode26
			Set ComBackColor of hoNode26 to |CI$3000000
			Set ComPadding of hoNode26 OLEexPaddingAll to 0
			Variant voNode27
			Get ComAddAssistant of hoNode26 "<font ;6>Work:<r>10.30%<br>Budget:<r>$70,000.00" Nothing Nothing to voNode27
			Handle hoNode27
			Get Create (RefClass(cComNode)) to hoNode27
			Set pvComObject of hoNode27 to voNode27
				Set ComLeft of hoNode27 to False
				Set ComShowLinks of hoNode27 to False
				Set ComPadding of hoNode27 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode27 to 72
				Set ComBackColor of hoNode27 to |CI$2000000
			Send Destroy to hoNode27
		Send Destroy to hoNode26
		Variant voNode28
		Get ComAdd of hoNodes "2.2 Steel Erection" "Foundation" "Steel" Nothing Nothing to voNode28
		Handle hoNode28
		Get Create (RefClass(cComNode)) to hoNode28
		Set pvComObject of hoNode28 to voNode28
			Set ComShowRoundLink of hoNode28 to False
			Set ComBackColor of hoNode28 to |CI$100ff00
			Set ComForeColor of hoNode28 to (RGB(255,255,255))
			Variant voNode29
			Get ComAddAssistant of hoNode28 "<font ;6>Work:<r>5.00%<br>Budget:<r>$9,000.00" Nothing Nothing to voNode29
			Handle hoNode29
			Get Create (RefClass(cComNode)) to hoNode29
			Set pvComObject of hoNode29 to voNode29
				Set ComLeft of hoNode29 to False
				Set ComShowLinks of hoNode29 to False
				Set ComPadding of hoNode29 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode29 to 72
				Set ComBackColor of hoNode29 to |CI$2000000
			Send Destroy to hoNode29
		Send Destroy to hoNode28
		Variant voNode30
		Get ComAdd of hoNodes "2.2.1 Steel Columns" "Steel" "SteelColumns" Nothing Nothing to voNode30
		Handle hoNode30
		Get Create (RefClass(cComNode)) to hoNode30
		Set pvComObject of hoNode30 to voNode30
			Set ComBackColor of hoNode30 to |CI$3000000
			Set ComPadding of hoNode30 OLEexPaddingAll to 0
			Variant voNode31
			Get ComAddAssistant of hoNode30 "<font ;6>Work:<r>2.80%<br>Budget:<r>$50,000.00" Nothing Nothing to voNode31
			Handle hoNode31
			Get Create (RefClass(cComNode)) to hoNode31
			Set pvComObject of hoNode31 to voNode31
				Set ComLeft of hoNode31 to False
				Set ComShowLinks of hoNode31 to False
				Set ComPadding of hoNode31 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode31 to 72
				Set ComBackColor of hoNode31 to |CI$2000000
			Send Destroy to hoNode31
		Send Destroy to hoNode30
		Variant voNode32
		Get ComAdd of hoNodes "2.2.2 Beams" "Steel" "Beams" Nothing Nothing to voNode32
		Handle hoNode32
		Get Create (RefClass(cComNode)) to hoNode32
		Set pvComObject of hoNode32 to voNode32
			Set ComWidth of hoNode32 to 256
			Set ComBackColor of hoNode32 to |CI$3000000
			Set ComPadding of hoNode32 OLEexPaddingAll to 0
			Variant voNode33
			Get ComAddAssistant of hoNode32 "<font ;6>Work:<r>1.90%<br>Budget:<r>$2,000.00" Nothing Nothing to voNode33
			Handle hoNode33
			Get Create (RefClass(cComNode)) to hoNode33
			Set pvComObject of hoNode33 to voNode33
				Set ComLeft of hoNode33 to False
				Set ComShowLinks of hoNode33 to False
				Set ComPadding of hoNode33 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode33 to 72
				Set ComBackColor of hoNode33 to |CI$2000000
			Send Destroy to hoNode33
		Send Destroy to hoNode32
		Variant voNode34
		Get ComAdd of hoNodes "2.2.3 Joist" "Steel" "Joist" Nothing Nothing to voNode34
		Handle hoNode34
		Get Create (RefClass(cComNode)) to hoNode34
		Set pvComObject of hoNode34 to voNode34
			Set ComBackColor of hoNode34 to |CI$3000000
			Set ComPadding of hoNode34 OLEexPaddingAll to 0
			Variant voNode35
			Get ComAddAssistant of hoNode34 "<font ;6>Work:<r>1.10%<br>Budget:<r>$2,000.00" Nothing Nothing to voNode35
			Handle hoNode35
			Get Create (RefClass(cComNode)) to hoNode35
			Set pvComObject of hoNode35 to voNode35
				Set ComLeft of hoNode35 to False
				Set ComShowLinks of hoNode35 to False
				Set ComPadding of hoNode35 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode35 to 72
				Set ComBackColor of hoNode35 to |CI$2000000
			Send Destroy to hoNode35
		Send Destroy to hoNode34
		Variant voNode36
		Get ComAdd of hoNodes "3. External" "Root" "External" Nothing Nothing to voNode36
		Handle hoNode36
		Get Create (RefClass(cComNode)) to hoNode36
		Set pvComObject of hoNode36 to voNode36
			Set ComArrangeSiblingNodesAs of hoNode36 to OLEexTree
			Set ComShowRoundLink of hoNode36 to False
			Set ComBackColor of hoNode36 to |CI$1ff0000
			Set ComForeColor of hoNode36 to (RGB(255,255,255))
			Variant voNode37
			Get ComAddAssistant of hoNode36 "<font ;6>Work:<r>30.40%<br>Budget:<r>$83,500.00" Nothing Nothing to voNode37
			Handle hoNode37
			Get Create (RefClass(cComNode)) to hoNode37
			Set pvComObject of hoNode37 to voNode37
				Set ComLeft of hoNode37 to False
				Set ComShowLinks of hoNode37 to False
				Set ComPadding of hoNode37 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode37 to 72
				Set ComBackColor of hoNode37 to |CI$2000000
			Send Destroy to hoNode37
		Send Destroy to hoNode36
		Variant voNode38
		Get ComAdd of hoNodes "3.1 Masonry Work" "External" "Masonry" Nothing Nothing to voNode38
		Handle hoNode38
		Get Create (RefClass(cComNode)) to hoNode38
		Set pvComObject of hoNode38 to voNode38
			Set ComShowRoundLink of hoNode38 to False
			Set ComBackColor of hoNode38 to |CI$100ff00
			Set ComForeColor of hoNode38 to (RGB(255,255,255))
			Variant voNode39
			Get ComAddAssistant of hoNode38 "<font ;6>Work:<r>16.20%<br>Budget:<r>$16,000.00" Nothing Nothing to voNode39
			Handle hoNode39
			Get Create (RefClass(cComNode)) to hoNode39
			Set pvComObject of hoNode39 to voNode39
				Set ComLeft of hoNode39 to False
				Set ComShowLinks of hoNode39 to False
				Set ComPadding of hoNode39 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode39 to 72
				Set ComBackColor of hoNode39 to |CI$2000000
			Send Destroy to hoNode39
		Send Destroy to hoNode38
		Variant voNode40
		Get ComAdd of hoNodes "3.1.1 Lay Masonry" "Masonry" "LayMasonry" Nothing Nothing to voNode40
		Handle hoNode40
		Get Create (RefClass(cComNode)) to hoNode40
		Set pvComObject of hoNode40 to voNode40
			Set ComBackColor of hoNode40 to |CI$3000000
			Set ComPadding of hoNode40 OLEexPaddingAll to 0
			Variant voNode41
			Get ComAddAssistant of hoNode40 "<font ;6>Work:<r>9.00%<br>Budget:<r>$35,000.00" Nothing Nothing to voNode41
			Handle hoNode41
			Get Create (RefClass(cComNode)) to hoNode41
			Set pvComObject of hoNode41 to voNode41
				Set ComLeft of hoNode41 to False
				Set ComShowLinks of hoNode41 to False
				Set ComPadding of hoNode41 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode41 to 72
				Set ComBackColor of hoNode41 to |CI$2000000
			Send Destroy to hoNode41
		Send Destroy to hoNode40
		Variant voNode42
		Get ComAdd of hoNodes "3.1.2 Install roof drains" "Masonry" "RoofDrains" Nothing Nothing to voNode42
		Handle hoNode42
		Get Create (RefClass(cComNode)) to hoNode42
		Set pvComObject of hoNode42 to voNode42
			Set ComBackColor of hoNode42 to |CI$3000000
			Set ComPadding of hoNode42 OLEexPaddingAll to 0
			Variant voNode43
			Get ComAddAssistant of hoNode42 "<font ;6>Work:<r>3.10%<br>Budget:<r>$2,000.00" Nothing Nothing to voNode43
			Handle hoNode43
			Get Create (RefClass(cComNode)) to hoNode43
			Set pvComObject of hoNode43 to voNode43
				Set ComLeft of hoNode43 to False
				Set ComShowLinks of hoNode43 to False
				Set ComPadding of hoNode43 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode43 to 72
				Set ComBackColor of hoNode43 to |CI$2000000
			Send Destroy to hoNode43
		Send Destroy to hoNode42
		Variant voNode44
		Get ComAdd of hoNodes "3.1.3 Install tile in toilet rooms" "Masonry" "TileToiles" Nothing Nothing to voNode44
		Handle hoNode44
		Get Create (RefClass(cComNode)) to hoNode44
		Set pvComObject of hoNode44 to voNode44
			Set ComBackColor of hoNode44 to |CI$3000000
			Set ComPadding of hoNode44 OLEexPaddingAll to 0
			Variant voNode45
			Get ComAddAssistant of hoNode44 "<font ;6>Work:<r>1.30%<br>Budget:<r>$10,000.00" Nothing Nothing to voNode45
			Handle hoNode45
			Get Create (RefClass(cComNode)) to hoNode45
			Set pvComObject of hoNode45 to voNode45
				Set ComLeft of hoNode45 to False
				Set ComShowLinks of hoNode45 to False
				Set ComPadding of hoNode45 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode45 to 72
				Set ComBackColor of hoNode45 to |CI$2000000
			Send Destroy to hoNode45
		Send Destroy to hoNode44
		Variant voNode46
		Get ComAdd of hoNodes "3.1.4 Roofing" "Masonry" "Roofing" Nothing Nothing to voNode46
		Handle hoNode46
		Get Create (RefClass(cComNode)) to hoNode46
		Set pvComObject of hoNode46 to voNode46
			Set ComBackColor of hoNode46 to |CI$3000000
			Set ComPadding of hoNode46 OLEexPaddingAll to 0
			Variant voNode47
			Get ComAddAssistant of hoNode46 "<font ;6>Work:<r>2.80%<br>Budget:<r>$15,000.00" Nothing Nothing to voNode47
			Handle hoNode47
			Get Create (RefClass(cComNode)) to hoNode47
			Set pvComObject of hoNode47 to voNode47
				Set ComLeft of hoNode47 to False
				Set ComShowLinks of hoNode47 to False
				Set ComPadding of hoNode47 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode47 to 72
				Set ComBackColor of hoNode47 to |CI$2000000
			Send Destroy to hoNode47
		Send Destroy to hoNode46
		Variant voNode48
		Get ComAdd of hoNodes "3.2 Building Finishes" "External" "Building" Nothing Nothing to voNode48
		Handle hoNode48
		Get Create (RefClass(cComNode)) to hoNode48
		Set pvComObject of hoNode48 to voNode48
			Set ComShowRoundLink of hoNode48 to False
			Set ComBackColor of hoNode48 to |CI$100ff00
			Set ComForeColor of hoNode48 to (RGB(255,255,255))
			Variant voNode49
			Get ComAddAssistant of hoNode48 "<font ;6>Work:<r>14.20%<br>Budget:<r>$21,500.00" Nothing Nothing to voNode49
			Handle hoNode49
			Get Create (RefClass(cComNode)) to hoNode49
			Set pvComObject of hoNode49 to voNode49
				Set ComLeft of hoNode49 to False
				Set ComShowLinks of hoNode49 to False
				Set ComPadding of hoNode49 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode49 to 72
				Set ComBackColor of hoNode49 to |CI$2000000
			Send Destroy to hoNode49
		Send Destroy to hoNode48
		Variant voNode50
		Get ComAdd of hoNodes "3.2.1 Paint Walls" "Building" "Paint" Nothing Nothing to voNode50
		Handle hoNode50
		Get Create (RefClass(cComNode)) to hoNode50
		Set pvComObject of hoNode50 to voNode50
			Set ComBackColor of hoNode50 to |CI$3000000
			Set ComPadding of hoNode50 OLEexPaddingAll to 0
			Variant voNode51
			Get ComAddAssistant of hoNode50 "<font ;6>Work:<r>4.00%<br>Budget:<r>$8,000.00" Nothing Nothing to voNode51
			Handle hoNode51
			Get Create (RefClass(cComNode)) to hoNode51
			Set pvComObject of hoNode51 to voNode51
				Set ComLeft of hoNode51 to False
				Set ComShowLinks of hoNode51 to False
				Set ComPadding of hoNode51 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode51 to 72
				Set ComBackColor of hoNode51 to |CI$2000000
			Send Destroy to hoNode51
		Send Destroy to hoNode50
		Variant voNode52
		Get ComAdd of hoNodes "3.2.2 Ceiling Tiles" "Building" "CeilingTiles" Nothing Nothing to voNode52
		Handle hoNode52
		Get Create (RefClass(cComNode)) to hoNode52
		Set pvComObject of hoNode52 to voNode52
			Set ComWidth of hoNode52 to 256
			Set ComBackColor of hoNode52 to |CI$3000000
			Set ComPadding of hoNode52 OLEexPaddingAll to 0
			Variant voNode53
			Get ComAddAssistant of hoNode52 "<font ;6>Work:<r>3.60%<br>Budget:<r>$4,000.00" Nothing Nothing to voNode53
			Handle hoNode53
			Get Create (RefClass(cComNode)) to hoNode53
			Set pvComObject of hoNode53 to voNode53
				Set ComLeft of hoNode53 to False
				Set ComShowLinks of hoNode53 to False
				Set ComPadding of hoNode53 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode53 to 72
				Set ComBackColor of hoNode53 to |CI$2000000
			Send Destroy to hoNode53
		Send Destroy to hoNode52
		Variant voNode54
		Get ComAdd of hoNodes "3.2.3 Hang Wallpaper" "Building" "Wallpaper" Nothing Nothing to voNode54
		Handle hoNode54
		Get Create (RefClass(cComNode)) to hoNode54
		Set pvComObject of hoNode54 to voNode54
			Set ComBackColor of hoNode54 to |CI$3000000
			Set ComPadding of hoNode54 OLEexPaddingAll to 0
			Variant voNode55
			Get ComAddAssistant of hoNode54 "<font ;6>Work:<r>2.30%<br>Budget:<r>$1,500.00" Nothing Nothing to voNode55
			Handle hoNode55
			Get Create (RefClass(cComNode)) to hoNode55
			Set pvComObject of hoNode55 to voNode55
				Set ComLeft of hoNode55 to False
				Set ComShowLinks of hoNode55 to False
				Set ComPadding of hoNode55 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode55 to 72
				Set ComBackColor of hoNode55 to |CI$2000000
			Send Destroy to hoNode55
		Send Destroy to hoNode54
		Variant voNode56
		Get ComAdd of hoNodes "3.2.4 Carpet" "Building" "Carpet" Nothing Nothing to voNode56
		Handle hoNode56
		Get Create (RefClass(cComNode)) to hoNode56
		Set pvComObject of hoNode56 to voNode56
			Set ComBackColor of hoNode56 to |CI$3000000
			Set ComPadding of hoNode56 OLEexPaddingAll to 0
			Variant voNode57
			Get ComAddAssistant of hoNode56 "<font ;6>Work:<r>1.80%<br>Budget:<r>$6,000.00" Nothing Nothing to voNode57
			Handle hoNode57
			Get Create (RefClass(cComNode)) to hoNode57
			Set pvComObject of hoNode57 to voNode57
				Set ComLeft of hoNode57 to False
				Set ComShowLinks of hoNode57 to False
				Set ComPadding of hoNode57 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode57 to 72
				Set ComBackColor of hoNode57 to |CI$2000000
			Send Destroy to hoNode57
		Send Destroy to hoNode56
		Variant voNode58
		Get ComAdd of hoNodes "3.2.5 Hardware" "Building" "Hardware" Nothing Nothing to voNode58
		Handle hoNode58
		Get Create (RefClass(cComNode)) to hoNode58
		Set pvComObject of hoNode58 to voNode58
			Set ComBackColor of hoNode58 to |CI$3000000
			Set ComPadding of hoNode58 OLEexPaddingAll to 0
			Variant voNode59
			Get ComAddAssistant of hoNode58 "<font ;6>Work:<r>2.50%<br>Budget:<r>$2,000.00" Nothing Nothing to voNode59
			Handle hoNode59
			Get Create (RefClass(cComNode)) to hoNode59
			Set pvComObject of hoNode59 to voNode59
				Set ComLeft of hoNode59 to False
				Set ComShowLinks of hoNode59 to False
				Set ComPadding of hoNode59 OLEexPaddingAll to 0
				Set ComFixedWidth of hoNode59 to 72
				Set ComBackColor of hoNode59 to |CI$2000000
			Send Destroy to hoNode59
		Send Destroy to hoNode58
	Send Destroy to hoNodes
	Send ComEndUpdate
End_Procedure
196
Does your control support padding (padding properties are used to generate space around content)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComIndentSiblingY to 30
	Set ComShowLinksDir to True
	Set ComPenWidthLink to 2
	Set ComLinkColor to (RGB(0,0,0))
	Set ComAntiAliasing 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 "L1 A1" "LA" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComBackColor of hoNode to (RGB(255,0,0))
			Set ComPadding of hoNode OLEexPaddingAll to 16
		Send Destroy to hoNode
		Get ComAdd of hoNodes "L1 B1" "LB" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2 A1" "LA" "LA2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2 B2" "LB" "LB2" 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 voNode1
		Get ComItem of hoNodes1 "root" to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComCaption of hoNode1 to "Ls As"
		Send Destroy to hoNode1
	Send Destroy to hoNodes1
	Send ComEndUpdate
End_Procedure
195
Does your control support padding (padding properties are used to generate space around content)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultNodePadding OLEexPaddingAll to 8
	Set ComIndentSiblingY to 30
	Set ComShowLinksDir to True
	Set ComPenWidthLink to 2
	Set ComLinkColor to (RGB(0,0,0))
	Set ComAntiAliasing 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 "L1 A1" "LA" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L1 B1" "LB" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2 A1" "LA" "LA2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2 B2" "LB" "LB2" 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 ComItem of hoNodes1 "root" to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComCaption of hoNode to "Ls As"
		Send Destroy to hoNode
	Send Destroy to hoNodes1
	Send ComEndUpdate
End_Procedure
194
How do I programmatically edit 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 "Text" "1234" Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Send ComEditNode "1234"
End_Procedure
193
WidthNode does not seem to do anything. What this property is for

Procedure OnCreate
	Forward Send OnCreate
	Set ComWidthNode to 16
	Set ComIndentSiblingY to 30
	Set ComShowLinksDir to True
	Set ComPenWidthLink to 2
	Set ComLinkColor to (RGB(0,0,0))
	Set ComAntiAliasing 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 "L1 A1" "LA" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L1 B1" "LB" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2 A1" "LA" "LA2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2 B2" "LB" "LB2" 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 ComItem of hoNodes1 "root" to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComCaption of hoNode to "Ls As"
		Send Destroy to hoNode
	Send Destroy to hoNodes1
End_Procedure
192
Does your control support Print and Print-Preview, such as Fit-To-Page

Procedure OnCreate
	Forward Send OnCreate
	Set ComFixedWidthNode to 512
	Set ComIndentSiblingY to 30
	Set ComShowLinksDir to True
	Set ComPenWidthLink to 2
	Set ComLinkColor to (RGB(0,0,0))
	Set ComAntiAliasing 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 "L1_A" "LA" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComShowLinkDir of hoNode to False
		Send Destroy to hoNode
		Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Handle hoPrint
	Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
		Set ComOptions of hoPrint to "FitToPage = On"
		Set ComPrintExt of hoPrint to (pvComObject(Self))
		Send ComPreview of hoPrint
	Send Destroy to hoPrint
End_Procedure
191
Does your control support Print and Print-Preview

Procedure OnCreate
	Forward Send OnCreate
	Set ComIndentSiblingY to 30
	Set ComShowLinksDir to True
	Set ComPenWidthLink to 2
	Set ComLinkColor to (RGB(0,0,0))
	Set ComAntiAliasing 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 "L1_A" "LA" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComShowLinkDir of hoNode to False
		Send Destroy to hoNode
		Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Handle hoPrint
	Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
		Set ComPrintExts of hoPrint to (pvComObject(Self))
		Send ComPreview of hoPrint
	Send Destroy to hoPrint
End_Procedure
190
Does your control support subscript or superscript, in HTML captions

Procedure OnCreate
	Forward Send OnCreate
	Set ComAntiAliasing 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 "<sha ;;0>Event <b><font ;6><off 4>1" "LA" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComShowLinkDir of hoNode to False
		Send Destroy to hoNode
		Get ComAdd of hoNodes "<sha ;;0>Event <b><font ;6><off 4>2" "LB" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1" "LA" "LA2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Event" "LB" "LB2" Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
189
Is it possible to move a node by a simple click rather than SHIFT + Click

Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowMoveChart to OLEexDisallow
	Set ComAllowMoveNode to OLEexLeftClick
	Set ComAntiAliasing 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 "L1_A" "LA" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComShowLinkDir of hoNode to False
		Send Destroy to hoNode
		Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
188
How can I disable moving the nodes at runtime
Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowMoveNode to OLEexDisallow
End_Procedure
187
How can I disable resizing the chart using the middle mouse button
Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowResizeChart to OLEexDisallow
End_Procedure
186
How can I disable inline editing
Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowEdit to OLEexDisallow
End_Procedure
185
Would like to be able to click on a node and have a pop-up window appear with additional detail and information about the individual in the node. Is this possible

// 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
	// Items.Add(Me.NodeFromPoint(-1,-1).Caption,0,1234)
	Handle hoPopupMenu
	Get Create (RefClass(cComPopupMenu)) to hoPopupMenu // Import the 'ExPopupMenu 1.0 Control Library' library
		Showln (ComShowAtCursor(hoPopupMenu))
	Send Destroy to hoPopupMenu
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComIndentSiblingY to 30
	Set ComShowLinksDir to True
	Set ComPenWidthLink to 2
	Set ComLinkColor to (RGB(0,0,0))
	Set ComAntiAliasing 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 "L1_A" "LA" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComShowLinkDir of hoNode to False
		Send Destroy to hoNode
		Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
184
I am trying to create a hyperlink. I can get the link but I cannot tell the link where to go. What can I do

// Occurs when an anchor element is clicked.
Procedure OnComAnchorClick String   llAnchorID String   llOptions
	Forward Send OnComAnchorClick llAnchorID llOptions
	Showln llOptions
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Set ComImage of hoNode to 0
	Send Destroy to hoNode
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "<a;http://www.exontrol.com>exontrol</a>" "1234" Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
183
Is it possible to put a caption on the regular links

Procedure OnCreate
	Forward Send OnCreate
	Set ComIndentSiblingY to 30
	Set ComShowLinksDir to True
	Set ComPenWidthLink to 2
	Set ComLinkColor to (RGB(0,0,0))
	Set ComAntiAliasing 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 "L1_A" "LA" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComLinkCaption of hoNode to "<fgcolor=FF0000><font ;6>caption<br><c><bgcolor=FFFFFF><a>link"
		Send Destroy to hoNode
		Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
182
Is it possible to hide directions for specific links

Procedure OnCreate
	Forward Send OnCreate
	Set ComIndentSiblingY to 30
	Set ComShowLinksDir to True
	Set ComPenWidthLink to 2
	Set ComLinkColor to (RGB(0,0,0))
	Set ComAntiAliasing 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 "L1_A" "LA" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComShowLinkDir of hoNode to False
		Send Destroy to hoNode
		Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
181
Does your control supports multiple lines tooltip

Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComToolTipDelay to 1
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Set ComToolTip of hoNode to "<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The tooltip supports built-in HTML tags, icons and pictures.<br><br><br><img>pic1</img> picture ... <br><br>"
	Send Destroy to hoNode
End_Procedure
180
Can I change the border's node, using your EBN technology, including specifying a color

Procedure OnCreate
	Forward Send OnCreate
	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\hot.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComCaption of hoNode to "This is a bit of long text that should break the line.<br>-using no color"
			Set ComBackColor of hoNode to |CI$1000000
		Send Destroy to hoNode
		Variant voNode1
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComCaption of hoNode1 to "This is a bit of long text that should break the line.<br>-using a color"
			Set ComBackColor of hoNode1 to |CI$100ff00
		Send Destroy to hoNode1
	Send Destroy to hoNodes
End_Procedure
179
Can the chart be arranged from the left to right (LTR)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComLayout to OLEexLayoutLTR
	Set ComShowLinksDir to True
	Set ComIndentSiblingX to 32
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child1" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Child2" "1235" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComCaption of hoNode to "This is a bit of long text that should break the line."
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Send ComEndUpdate
End_Procedure
178
Is there any property to keep the aspect ratio for all pictures, but still keep the size of nodes

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComPictureHeightNode to 48
	Set ComPictureAspectRatioNode to OLEexAspectRatioHeight
	Set ComFixedWidthNode to 82
	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 "PNG <b>1" "0" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComPicture of hoNode to "c:\exontrol\images\card.png"
			Set ComAlignment of hoNode to OLECenterAlignment
		Send Destroy to hoNode
		Variant voNode1
		Get ComAdd of hoNodes "PNG <b>2" "1" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComPicture of hoNode1 to "c:\exontrol\images\diary.png"
			Set ComAlignment of hoNode1 to OLECenterAlignment
		Send Destroy to hoNode1
		Variant voNode2
		Get ComAdd of hoNodes "PNG <b>3" "2" Nothing Nothing to voNode2
		Handle hoNode2
		Get Create (RefClass(cComNode)) to hoNode2
		Set pvComObject of hoNode2 to voNode2
			Set ComPicture of hoNode2 to "c:\exontrol\images\sun.png"
			Set ComAlignment of hoNode2 to OLECenterAlignment
		Send Destroy to hoNode2
	Send Destroy to hoNodes
	Variant voNode3
	Get ComRoot to voNode3
	Handle hoNode3
	Get Create (RefClass(cComNode)) to hoNode3
	Set pvComObject of hoNode3 to voNode3
		Set ComAlignment of hoNode3 to OLECenterAlignment
	Send Destroy to hoNode3
	Send ComEndUpdate
End_Procedure
177
Is there any property to keep the aspect ratio for all pictures

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComPictureHeightNode to 48
	Set ComPictureAspectRatioNode to OLEexAspectRatioHeight
	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 "PNG <b>1" "0" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComPicture of hoNode to "c:\exontrol\images\card.png"
		Send Destroy to hoNode
		Variant voNode1
		Get ComAdd of hoNodes "PNG <b>2" "1" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComPicture of hoNode1 to "c:\exontrol\images\diary.png"
		Send Destroy to hoNode1
		Variant voNode2
		Get ComAdd of hoNodes "PNG <b>3" "2" Nothing Nothing to voNode2
		Handle hoNode2
		Get Create (RefClass(cComNode)) to hoNode2
		Set pvComObject of hoNode2 to voNode2
			Set ComPicture of hoNode2 to "c:\exontrol\images\sun.png"
		Send Destroy to hoNode2
	Send Destroy to hoNodes
	Send ComEndUpdate
End_Procedure
176
Is there any property to keep the aspect ratio for all pictures

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComPictureWidthNode to 48
	Set ComPictureAspectRatioNode to OLEexAspectRatioWidth
	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 "PNG <b>1" "0" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComPicture of hoNode to "c:\exontrol\images\card.png"
		Send Destroy to hoNode
		Variant voNode1
		Get ComAdd of hoNodes "PNG <b>2" "1" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComPicture of hoNode1 to "c:\exontrol\images\diary.png"
		Send Destroy to hoNode1
		Variant voNode2
		Get ComAdd of hoNodes "PNG <b>3" "2" Nothing Nothing to voNode2
		Handle hoNode2
		Get Create (RefClass(cComNode)) to hoNode2
		Set pvComObject of hoNode2 to voNode2
			Set ComPicture of hoNode2 to "c:\exontrol\images\sun.png"
		Send Destroy to hoNode2
	Send Destroy to hoNodes
	Send ComEndUpdate
End_Procedure
175
Is there any property to keep the aspect ratio for displayed picture

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 "Ratio/None" "0" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComPicture of hoNode to "c:\exontrol\images\card.png"
			Set ComPictureWidth of hoNode to 48
			Set ComPictureHeight of hoNode to 48
		Send Destroy to hoNode
		Variant voNode1
		Get ComAdd of hoNodes "Ratio/Width" "1" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComPicture of hoNode1 to "c:\exontrol\images\card.png"
			Set ComPictureWidth of hoNode1 to 48
			Set ComPictureAspectRatio of hoNode1 to OLEexAspectRatioWidth
		Send Destroy to hoNode1
		Variant voNode2
		Get ComAdd of hoNodes "Ratio/Height" "2" Nothing Nothing to voNode2
		Handle hoNode2
		Get Create (RefClass(cComNode)) to hoNode2
		Set pvComObject of hoNode2 to voNode2
			Set ComPicture of hoNode2 to "c:\exontrol\images\card.png"
			Set ComPictureHeight of hoNode2 to 48
			Set ComPictureAspectRatio of hoNode2 to OLEexAspectRatioHeight
		Send Destroy to hoNode2
	Send Destroy to hoNodes
	Send ComEndUpdate
End_Procedure
174
Is is possible to show the round an arbitrary link

Procedure OnCreate
	Forward Send OnCreate
	Set ComAntiAliasing to True
	Set ComShowLinksDir to False
	Set ComPenWidthLink to 1
	Set ComLinkColor to (RGB(0,0,0))
	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 "L1_A" "LA" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComLinkTo of hoNode to "LB"
		Send Destroy to hoNode
		Get ComAdd of hoNodes "L1_B<br><br>Cust" "LB" Nothing Nothing to Nothing
		Variant voNode1
		Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComLinkTo of hoNode1 to "LB,LB22"
			Set ComLinkToColor of hoNode1 "LB" to (RGB(255,0,0))
			Set ComLinkToWidth of hoNode1 "LB" to 2
			Set ComLinkToPen of hoNode1 "LB" to OLEexPenDot
			Set ComLinkToShowDir of hoNode1 "LB" to True
			Set ComLinkToRound of hoNode1 "LB" to True
			Set ComLinkToRound of hoNode1 "LB22" to True
			Set ComLinkToShowDir of hoNode1 "LB22" to True
			Set ComLinkToColor of hoNode1 "LB22" to (RGB(128,0,0))
			Set ComLinkToWidth of hoNode1 "LB22" to 2
		Send Destroy to hoNode1
		Get ComAdd of hoNodes "L2_B1" "LB" "LB21" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B2" "LB" "LB22" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B3" "LB" "LB23" Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
173
Is is possible to show the round an arbitrary link

Procedure OnCreate
	Forward Send OnCreate
	Set ComAntiAliasing to True
	Set ComShowLinksDir to False
	Set ComPenWidthLink to 1
	Set ComLinkColor to (RGB(0,0,0))
	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 "L1_A" "LA" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComLinkTo of hoNode to "LB"
		Send Destroy to hoNode
		Get ComAdd of hoNodes "L1_B<br><br>Cust" "LB" Nothing Nothing to Nothing
		Variant voNode1
		Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComLinkTo of hoNode1 to "LB"
			Set ComLinkToColor of hoNode1 "LB" to (RGB(255,0,0))
			Set ComLinkToWidth of hoNode1 "LB" to 2
			Set ComLinkToPen of hoNode1 "LB" to OLEexPenDot
			Set ComLinkToShowDir of hoNode1 "LB" to True
			Set ComLinkToRound of hoNode1 "LB" to True
		Send Destroy to hoNode1
		Get ComAdd of hoNodes "L2_B1" "LB" "LB21" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B2" "LB" "LB22" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B3" "LB" "LB23" Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
172
Is is possible to show the direction for a linktoline, even if the ShowLinksDir is False

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowLinksDir to False
	Set ComPenWidthLink to 2
	Set ComLinkColor to (RGB(0,0,0))
	Set ComAntiAliasing 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 "L1_A" "LA" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComLinkTo of hoNode to "LB"
		Send Destroy to hoNode
		Variant voNode1
		Get ComAdd of hoNodes "L1_B<br><br>Cust" "LB" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComLinkTo of hoNode1 to "LA2"
			Set ComLinkToColor of hoNode1 "LA2" to (RGB(255,0,0))
			Set ComLinkToWidth of hoNode1 "LA2" to 2
			Set ComLinkToPen of hoNode1 "LA2" to OLEexPenDashDot
			Set ComLinkToShowDir of hoNode1 "LA2" to True
		Send Destroy to hoNode1
		Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B1" "LB" "LB21" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B2" "LB" "LB22" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B3" "LB" "LB23" Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
171
Is is possible to change the width for a specified linkto line

Procedure OnCreate
	Forward Send OnCreate
	Set ComPenWidthLink to 2
	Set ComLinkColor to (RGB(0,0,0))
	Set ComAntiAliasing 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 "L1_A" "LA" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComLinkTo of hoNode to "LB"
		Send Destroy to hoNode
		Variant voNode1
		Get ComAdd of hoNodes "L1_B<br><br>Cust" "LB" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComLinkTo of hoNode1 to "LA2"
			Set ComLinkToColor of hoNode1 "LA2" to (RGB(255,0,0))
			Set ComLinkToWidth of hoNode1 "LA2" to 4
			Set ComLinkToPen of hoNode1 "LA2" to OLEexPenSolid
			Set ComLinkToCaption of hoNode1 "LA2" to "L2A-L1B"
		Send Destroy to hoNode1
		Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B1" "LB" "LB21" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B2" "LB" "LB22" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B3" "LB" "LB23" Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
170
Is is possible to change the width for a specified linkto line

Procedure OnCreate
	Forward Send OnCreate
	Set ComPenWidthLink to 2
	Set ComLinkColor to (RGB(0,0,0))
	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 "L1_A" "LA" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComLinkTo of hoNode to "LB"
		Send Destroy to hoNode
		Variant voNode1
		Get ComAdd of hoNodes "L1_B<br><br>Cust" "LB" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComLinkTo of hoNode1 to "LA2"
			Set ComLinkToColor of hoNode1 "LA2" to (RGB(255,0,0))
			Set ComLinkToWidth of hoNode1 "LA2" to 2
		Send Destroy to hoNode1
		Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B1" "LB" "LB21" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B2" "LB" "LB22" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B3" "LB" "LB23" Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
169
Is is possible to change the color for a specified linkto line

Procedure OnCreate
	Forward Send OnCreate
	Set ComPenWidthLink to 2
	Set ComLinkColor to (RGB(0,0,0))
	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 "L1_A" "LA" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComLinkTo of hoNode to "LB"
		Send Destroy to hoNode
		Variant voNode1
		Get ComAdd of hoNodes "L1_B<br><br>Cust" "LB" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComLinkTo of hoNode1 to "LA2"
			Set ComLinkToColor of hoNode1 "LA2" to (RGB(255,0,0))
			Set ComLinkToWidth of hoNode1 "LA2" to 2
		Send Destroy to hoNode1
		Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B1" "LB" "LB21" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B2" "LB" "LB22" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B3" "LB" "LB23" Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
168
How can I specify the size for a picture being shown in a specified node only

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 "Child 1" "1" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComPicture of hoNode to "c:\exontrol\images\zipdisk.gif"
			Set ComPictureWidth of hoNode to 64
			Set ComPictureHeight of hoNode to 64
		Send Destroy to hoNode
		Variant voNode1
		Get ComAdd of hoNodes "Child 2" "2" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComPicture of hoNode1 to "c:\exontrol\images\auction.gif"
		Send Destroy to hoNode1
	Send Destroy to hoNodes
End_Procedure
167
How can I resize the pictures being shown in the nodes

Procedure OnCreate
	Forward Send OnCreate
	Set ComPictureHeightNode to 24
	Set ComPictureWidthNode to 24
	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 "Child 1" "1" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComPicture of hoNode to "c:\exontrol\images\zipdisk.gif"
		Send Destroy to hoNode
		Variant voNode1
		Get ComAdd of hoNodes "Child 2" "2" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComPicture of hoNode1 to "c:\exontrol\images\auction.gif"
		Send Destroy to hoNode1
	Send Destroy to hoNodes
End_Procedure
166
Can I change the width of the node's border

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 "Child 1" "1" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComBorderWidth of hoNode to 3
			Set ComDrawRoundNode of hoNode to False
		Send Destroy to hoNode
		Get ComAdd of hoNodes "Child 2" "2" Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
165
Can I change the visual appearance of the node

Procedure OnCreate
	Forward Send OnCreate
	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 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 "Child 1" "1" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComBackColor of hoNode to |CI$1000000
		Send Destroy to hoNode
		Get ComAdd of hoNodes "Child 2" "2" Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
164
Can I specify a different color for node's border

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 "Child 1" "1" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComBorderColor of hoNode to (RGB(255,0,0))
		Send Destroy to hoNode
		Get ComAdd of hoNodes "Child 2" "2" Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
163
Can I display my image on my links

Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\colorize.gif"
	Set ComAntiAliasing to True
	Set ComIndentSiblingY to 30
	Set ComIndentSiblingX to 60
	Set ComShowLinksDir to True
	Set ComPenWidthLink to 2
	Set ComLinkColor to (RGB(0,0,0))
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComLinkTo of hoNode to "LA2"
			Set ComLinkToCaption of hoNode "LA2" to "<img>pic1</img> text"
		Send Destroy to hoNode
		Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
162
How can I show a caption on my link

Procedure OnCreate
	Forward Send OnCreate
	Set ComAntiAliasing to True
	Set ComIndentSiblingY to 30
	Set ComShowLinksDir to True
	Set ComPenWidthLink to 2
	Set ComLinkColor to (RGB(0,0,0))
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComLinkTo of hoNode to "LA2"
			Set ComLinkToCaption of hoNode "LA2" to "text"
		Send Destroy to hoNode
		Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
161
How can I show smootly the arrows

Procedure OnCreate
	Forward Send OnCreate
	Set ComAntiAliasing to True
	Set ComIndentSiblingY to 30
	Set ComShowLinksDir to True
	Set ComPenWidthLink to 2
	Set ComLinkColor to (RGB(0,0,0))
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComLinkTo of hoNode to "LA2"
		Send Destroy to hoNode
		Variant voNode1
		Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComLinkTo of hoNode1 to "LB"
		Send Destroy to hoNode1
		Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
160
How can I show direction on my links

Procedure OnCreate
	Forward Send OnCreate
	Set ComIndentSiblingY to 30
	Set ComShowLinksDir to True
	Set ComPenWidthLink to 2
	Set ComLinkColor to (RGB(0,0,0))
	Set ComAntiAliasing 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 "L1_A" "LA" Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComLinkTo of hoNode to "LA2"
		Send Destroy to hoNode
		Variant voNode1
		Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComLinkTo of hoNode1 to "LB"
		Send Destroy to hoNode1
		Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
159
How can I add a doubled direction link

Procedure OnCreate
	Forward Send OnCreate
	Set ComPenWidthLink to 2
	Set ComLinkColor to (RGB(0,0,0))
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComLinkTo of hoNode to "LA2"
		Send Destroy to hoNode
		Variant voNode1
		Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComLinkTo of hoNode1 to "LB"
		Send Destroy to hoNode1
		Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
158
How can I add arbitrary links

Procedure OnCreate
	Forward Send OnCreate
	Set ComPenWidthLink to 2
	Set ComLinkColor to (RGB(0,0,0))
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComLinkTo of hoNode to "LA2"
		Send Destroy to hoNode
		Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
157
How can I add multiple parents

Procedure OnCreate
	Forward Send OnCreate
	Set ComPenWidthLink to 2
	Set ComLinkColor to (RGB(0,0,0))
	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 "L1_A" "L1" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Get ComAddGroup of hoNode "L1_B" Nothing Nothing to Nothing
		Send Destroy to hoNode
		Get ComAdd of hoNodes "L_A" "L1" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L_B" "L1" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L_C" "L1" Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
156
How can I add multiple parents or roots

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHasButtons to OLEexWPlus
	Set ComButtonsAlign to OLEUpperCenter
	Set ComPenWidthLink to 3
	Set ComIndentChild to 32
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Set ComHasButton of hoNode to False
		Set ComCaption of hoNode to "<r><dotline><b>Root 1</b><br>Some information <a info>here</a>.<br><upline><dotline>Line 1:<r><fgcolor=0000FF><b>1</b></fgcolor><br><upline><dotline>Line 2:<r>2<br><upline><dotline>Line 3:<r>3"
		Set ComImage of hoNode to 0
		Get ComAddGroup of hoNode "<r><dotline><b>Root 2</b><br>Some information <a info>here</a>.<br><upline><dotline>Line 1:<r><fgcolor=0000FF><b>1</b></fgcolor><br><upline><dotline>Line 2:<r>2<br><upline><dotline>Line 3:<r>3" Nothing Nothing to Nothing
		Get ComAddGroup of hoNode "<r><dotline><b>Root 3</b><br>Some information <a info>here</a>.<br><upline><dotline>Line 1:<r><fgcolor=0000FF><b>1</b></fgcolor><br><upline><dotline>Line 2:<r>2<br><upline><dotline>Line 3:<r>3" Nothing Nothing to Nothing
		Variant voNode1
		Get ComAddAssistant of hoNode "<b>Assistant</b> <a1>node 1</a>" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComKey of hoNode1 to "A"
		Send Destroy to hoNode1
		Variant voNode2
		Get ComAddAssistant of hoNode "<b>Assistant</b> <a2>node 2</a>" Nothing Nothing to voNode2
		Handle hoNode2
		Get Create (RefClass(cComNode)) to hoNode2
		Set pvComObject of hoNode2 to voNode2
			Set ComLeft of hoNode2 to True
			Set ComShowLinks of hoNode2 to False
			Set ComLinkTo of hoNode2 to "A"
		Send Destroy to hoNode2
	Send Destroy to hoNode
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode3
		Get ComAdd of hoNodes "Parent <b>1</b>" "Key1" Nothing Nothing to voNode3
		Handle hoNode3
		Get Create (RefClass(cComNode)) to hoNode3
		Set pvComObject of hoNode3 to voNode3
			Set ComHasButton of hoNode3 to False
			Set ComArrangeSiblingNodesAs of hoNode3 to OLEexTree
			Set ComShowRoundLink of hoNode3 to True
			Get ComAddGroup of hoNode3 "Parent <b>2</b>" Nothing Nothing to Nothing
			Get ComAddGroup of hoNode3 "Parent <b>3</b>" Nothing Nothing to Nothing
		Send Destroy to hoNode3
		Variant voNode4
		Get ComAdd of hoNodes "SubItem 1" "Key1" "S1" Nothing Nothing to voNode4
		Handle hoNode4
		Get Create (RefClass(cComNode)) to hoNode4
		Set pvComObject of hoNode4 to voNode4
			Set ComHasButton of hoNode4 to False
		Send Destroy to hoNode4
		Get ComAdd of hoNodes "SubItem 1.1" "S1" "S111" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "SubItem 1.2" "S1" "S112" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "SubItem 2" "Key1" Nothing Nothing Nothing to Nothing
		Variant voNode5
		Get ComAdd of hoNodes "Item 2" "Key2" Nothing Nothing to voNode5
		Handle hoNode5
		Get Create (RefClass(cComNode)) to hoNode5
		Set pvComObject of hoNode5 to voNode5
			Set ComExpanded of hoNode5 to False
		Send Destroy to hoNode5
		Get ComAdd of hoNodes "SubItem 1" "Key2" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "SubItem 2" "Key2" Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Send ComEndUpdate
End_Procedure
155
How can I align the text/caption on the scroll bar

Procedure OnCreate
	Forward Send OnCreate
	Set ComScrollPartCaption OLEexHScroll OLEexLowerBackPart to "left"
	Set ComScrollPartCaptionAlignment OLEexHScroll OLEexLowerBackPart to OLELeftAlignment
	Set ComScrollPartCaption OLEexHScroll OLEexUpperBackPart to "right"
	Set ComScrollPartCaptionAlignment OLEexHScroll OLEexUpperBackPart to OLERightAlignment
	Set ComFixedWidthNode to 320
End_Procedure
154
How can I show round links

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowRoundLink to True
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Set ComImage of hoNode to 0
	Send Destroy to hoNode
	Set ComIndentSiblingX to 32
	Set ComIndentSiblingY to 64
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode1
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComArrangeSiblingNodesAs of hoNode1 to OLEexHorizontally
		Send Destroy to hoNode1
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
153
How do I access a node by its key

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 "Child 1" "C1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub Child 1" "C1" "SC1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub Sub Shild 1" "SC1" Nothing 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 ComItem of hoNodes1 "SC1" to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComBackColor of hoNode to (RGB(255,0,0))
		Send Destroy to hoNode
	Send Destroy to hoNodes1
End_Procedure
152
How can I get the number of nodes

Procedure OnCreate
	Forward Send OnCreate
	Set ComHasButtons to OLEexPlus
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Set ComArrangeSiblingNodesAs of hoNode to OLEexTree
	Send Destroy to hoNode
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child 1" "C1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub Child 1" "C1" "SC1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub Sub Shild 1" "SC1" Nothing Nothing Nothing to Nothing
		Send ComRemove of hoNodes 3
	Send Destroy to hoNodes
End_Procedure
151
How can I remove all nodes in the chart
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
		Send ComClear of hoNodes
	Send Destroy to hoNodes
End_Procedure
150
How can I clear the chart
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
		Send ComClear of hoNodes
	Send Destroy to hoNodes
End_Procedure
149
How can I get the number of nodes

Procedure OnCreate
	Forward Send OnCreate
	Set ComHasButtons to OLEexPlus
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Set ComArrangeSiblingNodesAs of hoNode to OLEexTree
	Send Destroy to hoNode
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child 1" "C1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub Child 1" "C1" "SC1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub Sub Shild 1" "SC1" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes (ComCount(hoNodes)) Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
148
How can I add a child node

Procedure OnCreate
	Forward Send OnCreate
	Set ComHasButtons to OLEexPlus
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Set ComArrangeSiblingNodesAs of hoNode to OLEexTree
	Send Destroy to hoNode
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child 1" "C1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub Child 1" "C1" "SC1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub Sub Shild 1" "SC1" Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
147
How can I add a child node

Procedure OnCreate
	Forward Send OnCreate
	Set ComHasButtons to OLEexPlus
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child 1" "C1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Child 2" "C2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub Child 1" "C1" "SC1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub Sub Shild 1" "SC1" Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
146
How can I draw link or a line between my own nodes

Procedure OnCreate
	Forward Send OnCreate
	Set ComHasButtons to OLEexPlus
	Set ComPenLink to OLEexPenSolid
	Set ComPenWidthLink to 3
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Set ComImage of hoNode to 0
		Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
		Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
	Send Destroy to hoNode
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode1
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComLinkTo of hoNode1 to "AA"
		Send Destroy to hoNode1
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Child <b>2</b>" "AA" Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
145
How can I show or hide the link or a line between nodes

Procedure OnCreate
	Forward Send OnCreate
	Set ComHasButtons to OLEexPlus
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Set ComImage of hoNode to 0
		Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
		Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
	Send Destroy to hoNode
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode1
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComShowLinks of hoNode1 to False
		Send Destroy to hoNode1
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
144
How can I hide or show the +/- expand/collapse buttons for a specified node

Procedure OnCreate
	Forward Send OnCreate
	Set ComHasButtons to OLEexPlus
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Set ComImage of hoNode to 0
		Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
		Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
	Send Destroy to hoNode
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode1
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComHasButton of hoNode1 to False
		Send Destroy to hoNode1
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
143
How can I expand or collapse a node

Procedure OnCreate
	Forward Send OnCreate
	Set ComHasButtons to OLEexPlus
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Set ComImage of hoNode to 0
		Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
		Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
	Send Destroy to hoNode
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode1
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComExpanded of hoNode1 to False
		Send Destroy to hoNode1
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
142
How can I assign an icon to the root node

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 voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Set ComImage of hoNode to 1
	Send Destroy to hoNode
End_Procedure
141
How can I access an assistant nodes

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Set ComImage of hoNode to 0
		Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
		Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
		Variant voNode1
		Get ComAssistant of hoNode 0 to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComImage of hoNode1 to 1
		Send Destroy to hoNode1
	Send Destroy to hoNode
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Send ComEndUpdate
End_Procedure
140
How can I get the number or count of assistant nodes

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Set ComImage of hoNode to 0
		Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
		Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
		Get ComAddAssistant of hoNode (ComCountAssistants(hoNode)) Nothing Nothing to Nothing
	Send Destroy to hoNode
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Send ComEndUpdate
End_Procedure
139
How can I display assistant nodes on the right side only

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Set ComImage of hoNode to 0
		Variant voNode1
		Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComLeft of hoNode1 to False
		Send Destroy to hoNode1
		Variant voNode2
		Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to voNode2
		Handle hoNode2
		Get Create (RefClass(cComNode)) to hoNode2
		Set pvComObject of hoNode2 to voNode2
			Set ComLeft of hoNode2 to False
		Send Destroy to hoNode2
	Send Destroy to hoNode
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Send ComEndUpdate
End_Procedure
138
How can I display assistant nodes on the left side only

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Set ComImage of hoNode to 0
		Variant voNode1
		Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComLeft of hoNode1 to True
		Send Destroy to hoNode1
		Variant voNode2
		Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to voNode2
		Handle hoNode2
		Get Create (RefClass(cComNode)) to hoNode2
		Set pvComObject of hoNode2 to voNode2
			Set ComLeft of hoNode2 to True
		Send Destroy to hoNode2
	Send Destroy to hoNode
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Send ComEndUpdate
End_Procedure
137
How can I clear or remove all assistant nodes

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Set ComImage of hoNode to 0
		Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
		Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
		Send ComClearAssistants of hoNode
	Send Destroy to hoNode
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Send ComEndUpdate
End_Procedure
136
How can I remove an assistant node

Procedure OnCreate
	Forward Send OnCreate
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Set ComImage of hoNode to 0
		Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
		Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
		Send ComRemoveAssistant of hoNode 0
	Send Destroy to hoNode
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
135
How can I add assistant node

Procedure OnCreate
	Forward Send OnCreate
	Variant voNode
	Get ComRoot to voNode
	Handle hoNode
	Get Create (RefClass(cComNode)) to hoNode
	Set pvComObject of hoNode to voNode
		Set ComImage of hoNode to 0
		Get ComAddAssistant of hoNode "Assistant 1" Nothing Nothing to Nothing
		Get ComAddAssistant of hoNode "Assistant 2" Nothing Nothing to Nothing
	Send Destroy to hoNode
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
134
Can I change the border's node, using your EBN technology

Procedure OnCreate
	Forward Send OnCreate
	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\hot.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComCaption of hoNode to "This is a bit of long text that should break the line."
			Set ComBackColor of hoNode to |CI$1000000
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
133
Can I remove the shadow for a specified 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 "Child" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComCaption of hoNode to "This is a bit of long text that should break the line."
			Set ComShadowNode of hoNode to False
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
132
Can I change the border for a specified 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 "Child" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComCaption of hoNode to "This is a bit of long text that should break the line."
			Set ComPenBorderNode of hoNode to OLEexPenDashDotDot
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
131
Can I remove the round corner for a specified 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 "Child" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComCaption of hoNode to "This is a bit of long text that should break the line."
			Set ComDrawRoundNode of hoNode to False
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
130
How can I disable or enable 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 "Child" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComCaption of hoNode to "This is a bit of long text that should break the line."
			Set ComEnabled of hoNode to False
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
129
How can I specify the height of the 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 "Child" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComCaption of hoNode to "This is a bit of long text that should break the line."
			Set ComFixedHeight of hoNode to 128
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
128
How can I specify the width of the 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 "Child" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComCaption of hoNode to "This is a bit of long text that should break the line."
			Set ComFixedWidth of hoNode to 128
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
127
How can I specify the width of the node to wrap it's content

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 "Child" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComCaption of hoNode to "This is a bit of long text that should break the line."
			Set ComWidth of hoNode to 128
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
126
How can I change the position of the 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 "Child" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComPosition of hoNode to 0
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
125
How can I count or get the number of child 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
		Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
		Variant vCaption
		Variant voNode
		Get ComItem of hoNodes "1234" to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Get ComNodeCount of hoNode to vCaption
		Send Destroy to hoNode
		Get ComAdd of hoNodes vCaption Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
124
How can I enumerate the child 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
		Get ComAdd of hoNodes "Child" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" Nothing Nothing Nothing to Nothing
		Variant vCaption
		Variant voNode
		Get ComItem of hoNodes "1234" to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant voNode1
			Get ComFirstNode of hoNode to voNode1
			Handle hoNode1
			Get Create (RefClass(cComNode)) to hoNode1
			Set pvComObject of hoNode1 to voNode1
				Get ComCaption of hoNode1 to vCaption
			Send Destroy to hoNode1
		Send Destroy to hoNode
		Get ComAdd of hoNodes vCaption Nothing Nothing Nothing Nothing to Nothing
		Variant vCaption1
		Variant voNode2
		Get ComItem of hoNodes "1234" to voNode2
		Handle hoNode2
		Get Create (RefClass(cComNode)) to hoNode2
		Set pvComObject of hoNode2 to voNode2
			Variant voNode3
			Get ComFirstNode of hoNode2 to voNode3
			Handle hoNode3
			Get Create (RefClass(cComNode)) to hoNode3
			Set pvComObject of hoNode3 to voNode3
				Variant voNode4
				Get ComNextNode of hoNode3 to voNode4
				Handle hoNode4
				Get Create (RefClass(cComNode)) to hoNode4
				Set pvComObject of hoNode4 to voNode4
					Get ComCaption of hoNode4 to vCaption1
				Send Destroy to hoNode4
			Send Destroy to hoNode3
		Send Destroy to hoNode2
		Get ComAdd of hoNodes vCaption1 Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
123
How can I change the node's parent

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 "Child 1" "1234" 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
		Get ComAdd of hoNodes1 "Sub 1" "1234" Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes1
	Variant voNodes2
	Get ComNodes to voNodes2
	Handle hoNodes2
	Get Create (RefClass(cComNodes)) to hoNodes2
	Set pvComObject of hoNodes2 to voNodes2
		Get ComAdd of hoNodes2 "Sub 2" "1234" Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes2
	Variant voNodes3
	Get ComNodes to voNodes3
	Handle hoNodes3
	Get Create (RefClass(cComNodes)) to hoNodes3
	Set pvComObject of hoNodes3 to voNodes3
		Get ComAdd of hoNodes3 "Child 2" "1235" Nothing Nothing to Nothing
	Send Destroy to hoNodes3
	Variant voNodes4
	Get ComNodes to voNodes4
	Handle hoNodes4
	Get Create (RefClass(cComNodes)) to hoNodes4
	Set pvComObject of hoNodes4 to voNodes4
		Get ComAdd of hoNodes4 "Sub 1" "1235" Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes4
	Variant voNodes5
	Get ComNodes to voNodes5
	Handle hoNodes5
	Get Create (RefClass(cComNodes)) to hoNodes5
	Set pvComObject of hoNodes5 to voNodes5
		Get ComAdd of hoNodes5 "To Move" "1235" "Move" Nothing Nothing to Nothing
	Send Destroy to hoNodes5
	Variant voNodes6
	Get ComNodes to voNodes6
	Handle hoNodes6
	Get Create (RefClass(cComNodes)) to hoNodes6
	Set pvComObject of hoNodes6 to voNodes6
		Variant voNode
		Get ComItem of hoNodes6 "Move" to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant v
				Get ComRoot to v
			Set ComParent of hoNode to v
			Set ComCaption of hoNode to "Moved 2 Root from Child 2"
		Send Destroy to hoNode
	Send Destroy to hoNodes6
	Send ComEndUpdate
End_Procedure
122
How can I assign a key 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
		Get ComAdd of hoNodes "Child" "1234" 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
		Get ComAdd of hoNodes1 "Sub 1" "1234" Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes1
	Variant voNodes2
	Get ComNodes to voNodes2
	Handle hoNodes2
	Get Create (RefClass(cComNodes)) to hoNodes2
	Set pvComObject of hoNodes2 to voNodes2
		Get ComAdd of hoNodes2 "Sub 2" "1234" Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes2
End_Procedure
121
How can I assign a key 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 "Child" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComKey of hoNode to "1234"
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Variant voNodes1
	Get ComNodes to voNodes1
	Handle hoNodes1
	Get Create (RefClass(cComNodes)) to hoNodes1
	Set pvComObject of hoNodes1 to voNodes1
		Get ComAdd of hoNodes1 "Sub 1" "1234" Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes1
	Variant voNodes2
	Get ComNodes to voNodes2
	Handle hoNodes2
	Get Create (RefClass(cComNodes)) to hoNodes2
	Set pvComObject of hoNodes2 to voNodes2
		Get ComAdd of hoNodes2 "Sub 2" "1234" Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes2
End_Procedure
120
How can I change the node's background color

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 "Child" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComBackColor of hoNode to (RGB(255,0,0))
			Send ComClearBackColor of hoNode
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
119
How can I change the node's background color

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 "Child" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComBackColor of hoNode to (RGB(255,0,0))
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
118
How can I change the node's foreground color

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 "Child" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComForeColor of hoNode to (RGB(255,0,0))
			Send ComClearForeColor of hoNode
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
117
How can I change the node's foreground color

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 "Child" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComForeColor of hoNode to (RGB(255,0,0))
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
116
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 "ToolTip" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComToolTip of hoNode to "This is a bit of text that's shown when the cursor hovers this <b>node</b>."
			Set ComToolTipTitle of hoNode to "TITLE"
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
115
How can I assign a different font for the node's tooltip

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 "ToolTip" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComToolTip of hoNode to "<font Tahoma;12>This is a bit of text that's shown when the cursor hovers this <b>node</b>.</font>"
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
114
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 "ToolTip" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComToolTip of hoNode to "This is a bit of text that's shown when the cursor hovers this <b>node</b>."
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
113
How can I assign any extra data to my 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 "Child" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComUserData of hoNode to "your data"
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
112
How can I assign an icon and a picture to a node

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 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 "Child" Nothing Nothing 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 vPicture
			Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
			Set ComPicture of hoNode to (vPicture)
			Set ComPictureAlignment of hoNode to OLEexImageBottom
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
111
How can I align the picture in the 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 "Child" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant vPicture
			Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
			Set ComPicture of hoNode to (vPicture)
			Set ComPictureAlignment of hoNode to OLEexImageBottom
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
110
How can I align the picture in the 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 "Child" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant vPicture
			Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
			Set ComPicture of hoNode to (vPicture)
			Set ComPictureAlignment of hoNode to OLEexImageTop
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
109
How can I align the picture in the 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 "Child" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant vPicture
			Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
			Set ComPicture of hoNode to (vPicture)
			Set ComPictureAlignment of hoNode to OLEexImageRight
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
108
How can I assign a picture 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 "Child" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Variant vPicture
			Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
			Set ComPicture of hoNode to (vPicture)
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
107
How can I align the icon in the node

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 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 "Just a node with an icon" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComImage of hoNode to 1
			Set ComImageAlignment of hoNode to OLEexImageRight
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
106
How can I align the icon in the node

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 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 "Just a node with an icon" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComImage of hoNode to 1
			Set ComImageAlignment of hoNode to OLEexImageBottom
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
105
How can I align the icon in the node

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 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 "Just a node with an icon" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComImage of hoNode to 1
			Set ComImageAlignment of hoNode to OLEexImageTop
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
104
How can I assign an icon to a node

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 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 "Child" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComImage of hoNode to 1
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
103
How can I change the font 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
		Variant voNode
		Get ComAdd of hoNodes "Child" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComCaption of hoNode to "<font Tahoma;12>new</font> caption"
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
102
How can I add a multiple lines 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 "" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComCaption of hoNode to "Line 1<br>Line 2<br>Line3"
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
101
How can I add a multiple lines 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 "Line 1<br>Line 2<br>Line3" Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure