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
100:
How can I change the background color for parts of the text

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 "<bgcolor=FF0000>new</bgcolor> caption"
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
99:
How can I change the foreground color for parts of the text

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 "<fgcolor=FF0000>new</fgcolor> caption"
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
98:
How can I show the node as strikeout

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 "<s>new</s> caption"
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
97:
How can I show the node as underlined

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 "<u>new</u> caption"
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
96:
How can I show the node as italic

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 "<i>new</i> caption"
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
95:
How can I bold 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
			Set ComCaption of hoNode to "<b>new</b> caption"
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
94:
How can I change the node's 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
		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 "new caption"
		Send Destroy to hoNode
	Send Destroy to hoNodes
End_Procedure
93:
How can I display hierarchical the child nodes so they are indented relative to their parents

Procedure OnCreate
	Forward Send OnCreate
	Set ComHasButtons to OLEexPlus
	Set ComPenLink to OLEexPenSolid
	Set ComPenWidthLink to 3
	Set ComIndentSiblingX to 12
	Set ComIndentSiblingY to 12
	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
		Variant voNode1
		Get ComAdd of hoNodes "As <b>Tree</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 OLEexTree
		Send Destroy to hoNode1
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" "456" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Item 1" "456" Nothing Nothing Nothing to Nothing
		Variant voNode2
		Get ComAdd of hoNodes "Item 2" "456" "78" Nothing Nothing to voNode2
		Handle hoNode2
		Get Create (RefClass(cComNode)) to hoNode2
		Set pvComObject of hoNode2 to voNode2
			Set ComExpanded of hoNode2 to False
		Send Destroy to hoNode2
		Get ComAdd of hoNodes "Item 2.1" "78" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Item 2.2" "78" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Item 3" "456" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "As <b>Default</b>" "AA" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Item 1" "AA" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Item 2" "AA" "BB" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Item 2.1" "BB" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Item 2.2" "BB" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Item 2.3" "BB" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Item 3" "AA" Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
92:
How can I display the child nodes as a tree, so they are indented relative to their parents

Procedure OnCreate
	Forward Send OnCreate
	Set ComIndentSiblingY to 4
	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
		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" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" "456" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Item 1" "456" Nothing Nothing Nothing to Nothing
		Variant voNode1
		Get ComAdd of hoNodes "Item 2" "456" "78" 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 "Item 2.1" "78" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Item 2.2" "78" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Item 3" "456" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Child 2" Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
91:
How can I indent the child nodes relative to their parents

Procedure OnCreate
	Forward Send OnCreate
	Set ComIndentChild to 32
	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
	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 "AsTree" "1234" Nothing Nothing to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComArrangeSiblingNodesAs of hoNode1 to OLEexTree
		Send Destroy to hoNode1
		Get ComAdd of hoNodes "Sub 1" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" "456" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Item 1" "456" Nothing Nothing Nothing to Nothing
		Variant voNode2
		Get ComAdd of hoNodes "Item 2" "456" "78" Nothing Nothing to voNode2
		Handle hoNode2
		Get Create (RefClass(cComNode)) to hoNode2
		Set pvComObject of hoNode2 to voNode2
			Set ComExpanded of hoNode2 to False
		Send Destroy to hoNode2
		Get ComAdd of hoNodes "Item 2.1" "78" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Item 2.2" "78" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Item 3" "456" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Child 2" "AA" Nothing Nothing to Nothing
		Get ComAdd of hoNodes 1 "AA" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes 2 "AA" "BB" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "2.1" "BB" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes "2.2" "BB" Nothing Nothing Nothing to Nothing
		Get ComAdd of hoNodes 3 "AA" Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
90:
How can I increase the distance between nodes

Procedure OnCreate
	Forward Send OnCreate
	Set ComIndentSiblingY to 64
	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 "<a1>Link 1</a>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub <a1>Link 1</a>" "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 "<a2>Link 2</a>" Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
89:
How can I increase the distance between nodes

Procedure OnCreate
	Forward Send OnCreate
	Set ComIndentSiblingX to 64
	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 "<a1>Link 1</a>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub <a1>Link 1</a>" "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 "<a2>Link 2</a>" Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
88:
How can I add an anchor or a hyperlink

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 "<a1>Link 1</a>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub <a1>Link 1</a>" "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 "<a2>Link 2</a>" Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
87:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

Procedure OnCreate
	Forward Send OnCreate
	Set ComFormatAnchor False to "<u><fgcolor=880000> </fgcolor></u>"
	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 "<a1>Link 1</a>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub <a1>Link 1</a>" "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 "<a2>Link 2</a>" Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
86:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

Procedure OnCreate
	Forward Send OnCreate
	Set ComFormatAnchor True to "<u><fgcolor=FF0000> </fgcolor></u>"
	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 "<a1>Link 1</a>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub <a1>Link 1</a>" "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 "<a2>Link 2</a>" Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
End_Procedure
83:
How can I assign multiple icons 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="
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	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 "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 ComCaption of hoNode1 to "<img>1</img> text <img>2</img> and so on<br>bla <b>bla</b> left<r><img>3</img>"
		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 ComCaption of hoNode2 to "<img>pic1</img> text <img>1:6</img><img>1:6</img><img>1</img> <img>2</img>"
			Set ComFixedWidth of hoNode2 to 124
			Set ComFixedHeight of hoNode2 to 48
		Send Destroy to hoNode2
		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
82:
How can I assign multiple pictures to a node

Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
	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
		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 ComCaption of hoNode1 to "<img>pic1</img> text <img>pic2</img>"
			Set ComFixedWidth of hoNode1 to 108
			Set ComFixedHeight of hoNode1 to 48
		Send Destroy to hoNode1
		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
81:
How can I change the color of the line that links assistant nodes

Procedure OnCreate
	Forward Send OnCreate
	Set ComLinkAssistantColor to (RGB(255,0,0))
	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
80:
How can I change the width of the line that links assistant nodes

Procedure OnCreate
	Forward Send OnCreate
	Set ComPenLinkAssistant to OLEexPenSolid
	Set ComPenWidthLinkAssistant to 4
	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
79:
How can I change the style of the line that links assistant nodes

Procedure OnCreate
	Forward Send OnCreate
	Set ComPenLinkAssistant to OLEexPenDashDotDot
	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
78:
How can I change the shape of the cursor when it hovers the +/- or expand/collapse buttons

Procedure OnCreate
	Forward Send OnCreate
	Set ComCursor OLEexExpandButtonArea to "exHelp"
	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
77:
How do I change the shape of the cursor when the user clicks an drags the chart

Procedure OnCreate
	Forward Send OnCreate
	Set ComCursor OLEexDragChart to "exHelp"
	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
76:
How do I change the shape of the cursor when it hovers a node

Procedure OnCreate
	Forward Send OnCreate
	Set ComCursor OLEexNodeArea to "exHelp"
	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
75:
How do I change the shape of the cursor when it hovers the chart

Procedure OnCreate
	Forward Send OnCreate
	Set ComCursor OLEexChartArea to "exHelp"
	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
74:
How can I copy and paste the control's content to Microsoft Word for instance

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
		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
73:
How can I copy and paste the control's content to Microsoft Word for instance

Procedure OnCreate
	Forward Send OnCreate
	Set ComHasButtons to OLEexPlus
	Set ComButtonsAlign to OLEMiddleRight
	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
72:
How can I enable or disable expanding or collapsing a node when user double clicks it

Procedure OnCreate
	Forward Send OnCreate
	Set ComExpandOnDblClk to False
	Set ComHasButtons to OLEexPlus
	Set ComButtonsAlign to OLEMiddleRight
	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
71:
How can I align the +/- expand or collapse buttons to the right

Procedure OnCreate
	Forward Send OnCreate
	Set ComHasButtons to OLEexPlus
	Set ComButtonsAlign to OLEMiddleRight
	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
70:
Can I display the +/- expand or collapse buttons using your EBN files

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 11 "c:\exontrol\images\normal.ebn" to Nothing
		Get ComAdd of hoAppearance 22 "c:\exontrol\images\pushed.ebn" to Nothing
		Get ComAdd of hoAppearance 1 "CP:11 2 2 -2 -2" to Nothing
		Get ComAdd of hoAppearance 2 "CP:22 2 2 -2 -2" to Nothing
	Send Destroy to hoAppearance
	Set ComHasButtons to OLEexCustom
	Set ComHasButtonsCustom True to 33554432
	Set ComHasButtonsCustom False to 16777216
	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
69:
How can I change the +/- expand or collapse buttons

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComHasButtons to OLEexCustom
	Set ComHasButtonsCustom True to 1
	Set ComHasButtonsCustom False to 2
	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
68:
How can I change the +/- expand or collapse buttons

Procedure OnCreate
	Forward Send OnCreate
	Set ComHasButtons to OLEexCircle
	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
67:
How can I display +/- expand or collapse buttons

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
66:
How do I show or hide the assistant nodes

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowAssistants 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
		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
65:
How do I scale or zoom the chart

Procedure OnCreate
	Forward Send OnCreate
	Set ComBorderWidth to 18
	Set ComBorderHeight to 18
	Set ComZoomWidthMode to OLEexCustomSize
	Set ComZoomHeightMode to OLEexCustomSize
	Set ComZoomWidth to 2
	Set ComZoomHeight to 2
	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 "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
64:
How do I scale or zoom the chart

Procedure OnCreate
	Forward Send OnCreate
	Set ComBorderWidth to 18
	Set ComBorderHeight to 18
	Set ComZoomWidthMode to OLEexControlSize
	Set ComZoomHeightMode to OLEexControlSize
	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 "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
63:
How can I ensure that the selected node is visible or fits the chart's area

Procedure OnCreate
	Forward Send OnCreate
	Set ComEnsureVisibleOnSelect to True
	Set ComScrollOnEnsure to False
	Set ComBorderWidth to 18
	Set ComBorderHeight to 18
	Set ComZoomWidthMode to OLEexCustomSize
	Set ComZoomHeightMode to OLEexCustomSize
	Set ComZoomWidth to 2
	Set ComZoomHeight to 2
	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 "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
62:
How do I avoid slow moving the chart when the user selects a new node

Procedure OnCreate
	Forward Send OnCreate
	Set ComScrollByClick to False
End_Procedure
61:
How do I ensure that a node is visible or fits the chart's area

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 "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 "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Send ComEnsureVisibleNode "1234"
End_Procedure
60:
How do I change the root node, so it explore from a specified 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
	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 "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Set ComExploreFromNode to "1234"
End_Procedure
59:
How do I select a 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
	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 "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Set ComSelectNode to "1234"
	Set ComHideSelection to False
End_Procedure
57:
How do I fix the height for all nodes

Procedure OnCreate
	Forward Send OnCreate
	Set ComFixedHeightNode to 32
	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 "Child <b>1</b>" Nothing 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
56:
How do I fix the width for all nodes

Procedure OnCreate
	Forward Send OnCreate
	Set ComFixedWidthNode to 128
	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 "Child <b>1</b>" Nothing 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
55:
How do I change the style of the link between nodes

Procedure OnCreate
	Forward Send OnCreate
	Set ComPenLink to OLEexPenDash
	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>" Nothing 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
54:
How do I change the color to link the nodes

Procedure OnCreate
	Forward Send OnCreate
	Set ComLinkColor to (RGB(255,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 "Child <b>1</b>" Nothing 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
53:
How do I change the shape for selected node, using your EBN files

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 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComSelColor to |CI$2000000
	Set ComSelectNode to "root"
	Set ComHideSelection to False
	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>" Nothing 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
52:
How do I change the color for selected node

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelColor to (RGB(0,0,255))
	Set ComSelectNode to "root"
	Set ComHideSelection to False
	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>" Nothing 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
51:
How do I hide the node's shadow

Procedure OnCreate
	Forward Send OnCreate
	Set ComShadowNode to False
End_Procedure
50:
How do I change the pen to draw the border for all nodes

Procedure OnCreate
	Forward Send OnCreate
	Set ComPenBorderNode to OLEexPenDot
End_Procedure
49:
How do I change the shape of the border for all nodes

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 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComBackground OLEexNodeFrame to |CI$2000000
End_Procedure
48:
How do I change the shape of the border for all nodes

Procedure OnCreate
	Forward Send OnCreate
	Set ComDrawRoundNode to False
End_Procedure
47:
How do I change the foreground color for all nodes

Procedure OnCreate
	Forward Send OnCreate
	Set ComForeColorNode to (RGB(255,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 "Child <b>1</b>" Nothing 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
46:
How do I change the background color for all nodes

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackColorNode to (RGB(255,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 "Child <b>1</b>" Nothing 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
45:
How do I change the key of the root

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 ComKey of hoNode to "myKey"
	Send Destroy to hoNode
End_Procedure
44:
How do I change the caption of the root

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 ComCaption of hoNode to "new<br>root"
	Send Destroy to hoNode
End_Procedure
43:
How do I access the root 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 ComCaption of hoNode to "new<br>root"
	Send Destroy to hoNode
End_Procedure
42:
How do I access the nodes collection

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 <b>1</b>" Nothing 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
41:
How do I refresh the control

Procedure OnCreate
	Forward Send OnCreate
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child <b>1</b>" Nothing 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
		Get ComAdd of hoNodes1 "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes1
	Send ComRefresh
End_Procedure
40:
How do I prevent painting while several changes are performed

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>" Nothing 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
		Get ComAdd of hoNodes1 "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes1
	Send ComEndUpdate
End_Procedure
39:
How do I indent the full chart to the right

Procedure OnCreate
	Forward Send OnCreate
	Set ComBorderWidth to 8
	Set ComBorderHeight to 8
End_Procedure
38:
How can I change the node's border/frame, using your EBN files

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
	Set ComBackground OLEexNodeFrame to |CI$1000000
	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>" Nothing 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
		Get ComAdd of hoNodes1 "Child <b>2</b>" Nothing Nothing Nothing Nothing to Nothing
	Send Destroy to hoNodes1
End_Procedure
37:
How can still display the selected node when the control loses the focus

Procedure OnCreate
	Forward Send OnCreate
	Set ComHideSelection to False
End_Procedure
36:
How do I disable or enable the control
Procedure OnCreate
	Forward Send OnCreate
	Set ComEnabled to False
End_Procedure
35:
How do I change the visual aspect for thumb parts in the scroll bars, using EBN

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 voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance1
	Variant voAppearance2
	Get ComVisualAppearance to voAppearance2
	Handle hoAppearance2
	Get Create (RefClass(cComAppearance)) to hoAppearance2
	Set pvComObject of hoAppearance2 to voAppearance2
		Get ComAdd of hoAppearance2 3 "c:\exontrol\images\hot.ebn" to Nothing
	Send Destroy to hoAppearance2
	Set ComBackground OLEexHSThumb to |CI$1000000
	Set ComBackground OLEexHSThumbP to |CI$2000000
	Set ComBackground OLEexHSThumbH to |CI$3000000
	Set ComBackground OLEexVSThumb to |CI$1000000
	Set ComBackground OLEexVSThumbP to |CI$2000000
	Set ComBackground OLEexVSThumbH to |CI$3000000
	Set ComFixedWidthNode to 320
End_Procedure
34:
How do I change the visual aspect only for the thumb in the scroll bar, using EBN

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 voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance1
	Variant voAppearance2
	Get ComVisualAppearance to voAppearance2
	Handle hoAppearance2
	Get Create (RefClass(cComAppearance)) to hoAppearance2
	Set pvComObject of hoAppearance2 to voAppearance2
		Get ComAdd of hoAppearance2 3 "c:\exontrol\images\hot.ebn" to Nothing
	Send Destroy to hoAppearance2
	Set ComBackground OLEexHSThumb to |CI$1000000
	Set ComBackground OLEexHSThumbP to |CI$2000000
	Set ComBackground OLEexHSThumbH to |CI$3000000
	Set ComScrollThumbSize OLEexHScroll to 96
	Set ComFixedWidthNode to 320
End_Procedure
33:
I've seen that you can change the visual appearance for the scroll bar. How can I do that

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 voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance1
	Variant voAppearance2
	Get ComVisualAppearance to voAppearance2
	Handle hoAppearance2
	Get Create (RefClass(cComAppearance)) to hoAppearance2
	Set pvComObject of hoAppearance2 to voAppearance2
		Get ComAdd of hoAppearance2 3 "c:\exontrol\images\hot.ebn" to Nothing
	Send Destroy to hoAppearance2
	Set ComBackground OLEexSBtn to |CI$1000000
	Set ComBackground OLEexSBtnP to |CI$2000000
	Set ComBackground OLEexSBtnH to |CI$3000000
	Set ComBackground OLEexHSBack to (RGB(240,240,240))
	Set ComBackground OLEexVSBack to (RGB(240,240,240))
	Set ComBackground OLEexSizeGrip to (RGB(240,240,240))
	Set ComFixedWidthNode to 320
End_Procedure
32:
Can I change the forecolor for the tooltip

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	Set ComBackground OLEexToolTipForeColor to (RGB(255,0,0))
	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
31:
Can I change the background color for the tooltip

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	Set ComBackground OLEexToolTipBackColor to (RGB(255,0,0))
	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
30:
Can I change the default border of the tooltip, using your EBN files

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Set ComToolTipWidth to 364
	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
	Set ComBackground OLEexToolTipAppearance to |CI$1000000
	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
29:
How do I call your x-script language

Procedure OnCreate
	Forward Send OnCreate
	Get ComExecuteTemplate "BackColor = RGB(255,0,0)" to Nothing
End_Procedure
28:
How do I call your x-script language

Procedure OnCreate
	Forward Send OnCreate
	Set ComTemplate to "BackColor = RGB(255,0,0)"
End_Procedure
27:
Can I change the font for the tooltip

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 1
	Variant voStdFont
	Get ComToolTipFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComName of hoStdFont to "Tahoma"
		Set ComSize of hoStdFont to 14
	Send Destroy to hoStdFont
	Set ComToolTipWidth to 364
	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
26:
I've seen that the width of the tooltip is variable. Can I make it larger

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipWidth to 328
	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
25:
How do I let the tooltip being displayed longer

Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipPopDelay to 10000
	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
24:
How do I disable showing the tooltip for all control
Procedure OnCreate
	Forward Send OnCreate
	Set ComToolTipDelay to 0
	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
23:
How do I show the tooltip quicker

Procedure OnCreate
	Forward Send OnCreate
	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 "This is a bit of text that's shown when the cursor hovers the node."
	Send Destroy to hoNode
End_Procedure
22:
Can I change the order of the buttons in the scroll bar

Procedure OnCreate
	Forward Send OnCreate
	Set ComScrollOrderParts OLEexHScroll to "t,l,r"
	Set ComScrollOrderParts OLEexVScroll to "t,l,r"
	Set ComFixedWidthNode to 320
End_Procedure
21:
The thumb size seems to be very small. Can I make it bigger

Procedure OnCreate
	Forward Send OnCreate
	Set ComScrollThumbSize OLEexHScroll to 164
	Set ComFixedWidthNode to 320
End_Procedure
20:
How do I enlarge or change the size of the control's scrollbars

Procedure OnCreate
	Forward Send OnCreate
	Set ComScrollHeight to 18
	Set ComScrollWidth to 18
	Set ComScrollButtonWidth to 18
	Set ComScrollButtonHeight to 18
	Set ComFixedWidthNode to 320
	Set ComFixedHeightNode to 320
End_Procedure
19:
How can I display my text on the scroll bar, using a different font

Procedure OnCreate
	Forward Send OnCreate
	Set ComScrollPartCaption OLEexHScroll OLEexThumbPart to "This is just a text"
	Variant voStdFont
	Get ComScrollFont OLEexHScroll to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComSize of hoStdFont to 12
	Send Destroy to hoStdFont
	Set ComScrollThumbSize OLEexHScroll to 128
	Set ComScrollHeight to 24
	Set ComScrollPartCaption OLEexHScroll OLEexThumbPart to "This is <s><font Tahoma;12> just </font></s> text"
	Set ComScrollHeight to 20
	Set ComFixedWidthNode to 320
End_Procedure
18:
How can I display my text on the scroll bar

Procedure OnCreate
	Forward Send OnCreate
	Set ComScrollPartCaption OLEexHScroll OLEexThumbPart to "this is just a text"
	Set ComScrollThumbSize OLEexHScroll to 96
	Set ComFixedWidthNode to 320
End_Procedure
17:
How do I assign a tooltip to a scrollbar

Procedure OnCreate
	Forward Send OnCreate
	Set ComScrollToolTip OLEexHScroll to "This is a tooltip being shown when you click and drag the thumb in the horizontal scroll bar"
	Set ComFixedWidthNode to 320
End_Procedure
16:
How do I assign an icon to the button in the scrollbar

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="
	Set ComScrollPartVisible OLEexHScroll OLEexLeftB1Part to True
	Set ComScrollPartCaption OLEexHScroll OLEexLeftB1Part to "<img>1</img>"
	Set ComScrollHeight to 18
	Set ComScrollButtonWidth to 18
	Set ComFixedWidthNode to 320
End_Procedure
15:
I need to add a button in the scroll bar. Is this possible

Procedure OnCreate
	Forward Send OnCreate
	Set ComScrollPartVisible OLEexHScroll OLEexLeftB1Part to True
	Set ComScrollPartCaption OLEexHScroll OLEexLeftB1Part to "1"
	Set ComFixedWidthNode to 320
End_Procedure
14:
Can I display an additional buttons in the scroll bar

Procedure OnCreate
	Forward Send OnCreate
	Set ComScrollPartVisible OLEexHScroll OLEexLeftB1Part to True
	Set ComScrollPartVisible OLEexHScroll OLEexLeftB2Part to True
	Set ComScrollPartVisible OLEexHScroll OLEexRightB6Part to True
	Set ComScrollPartVisible OLEexHScroll OLEexRightB5Part to True
	Set ComFixedWidthNode to 320
End_Procedure
13:
How do I change the control's foreground color

Procedure OnCreate
	Forward Send OnCreate
	Set ComForeColor to (RGB(255,0,0))
End_Procedure
12:
How do I change the control's background color

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackColor to (RGB(200,200,200))
End_Procedure
11:
How can I change the control's font

Procedure OnCreate
	Forward Send OnCreate
	Variant voStdFont
	Get ComFont to voStdFont
	Handle hoStdFont
	Get Create (RefClass(cComStdFont)) to hoStdFont
	Set pvComObject of hoStdFont to voStdFont
		Set ComName of hoStdFont to "Verdana"
	Send Destroy to hoStdFont
End_Procedure
10:
How do I put a picture on the center of the control

Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEMiddleCenter
End_Procedure
9:
How do I resize/stretch a picture on the control's background

Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEStretch
End_Procedure
8:
How do I put a picture on the control's center right bottom side

Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLELowerRight
End_Procedure
7:
How do I put a picture on the control's center left bottom side

Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLELowerLeft
End_Procedure
6:
How do I put a picture on the control's center top side

Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEUpperCenter
End_Procedure
5:
How do I put a picture on the control's right top corner

Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEUpperRight
End_Procedure
4:
How do I put a picture on the control's left top corner

Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
	Set ComPictureDisplay to OLEUpperLeft
End_Procedure
3:
How do I put a picture on the control's background

Procedure OnCreate
	Forward Send OnCreate
	Variant vPicture
	Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\zipdisk.gif`)" to vPicture
	Set ComPicture to (vPicture)
End_Procedure
2:
How do I change the control's border, using your EBN files

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
	Set ComAppearance to |CI$1000000
End_Procedure
1:
How do I remove the control's border

Procedure OnCreate
	Forward Send OnCreate
	Set ComAppearance to OLENone2
End_Procedure