212:
Is it possible to show some text/caption on the frame's background

With AxChartView1
	.BeginUpdate()
	.IndentSiblingY = 32
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAADhABWMMACAADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDENAxAJCI4DBCAZBwGKPRiASQZUhmHIDTbIEBxf" & _
"IMIRLE6PZgjOYZchqRYZSjAdIzUAFFr1J4AKbfKJpfoKBJERrScgxeBUNAZBKlY7paoKSpSGw1CTLNoRAKoYTTBK2bbmWwoap2So1XhAdS0XJcWxfGKRbxmWaZZh+R5m" & _
"XpCMjVMAGGQPIa8MLCSwIJBaHqUQLZNixLStAyxHCtKKhG+vJwHL6BcqnPKKRqSUKcWbcQADFZdYTdNjbch1TWvSZVQSecSke7BQjGJQ2YxWcZUXReeaBDK9ZS4WK+Hh" & _
"RjqAZpCkeoNC8P4DDiWp3nYVwdkaSgrGGVhSnSHJum6CgGAiBIUA0JgziGVJkGWRgTiGBAiG+ZgyDYQhCgQJZbG+UIAGEFgGBEBw9FILJNAMXgMgOIJYD4EoEGESBCBY" & _
"VIKGMIJTCiDpDliNQ+A+eB+CGCAiCiFgkgmT54HCdoGE0MhgkAM4LhOWJ/CQThIk4NQik4I5+DgP5IDOBJ/B2TgDnwaQ3k+cR0l4P5jBOfguDOCIimCSgwCMKJuDsIRj" & _
"mkUJ/B8JBBkIRAYmQcRglwP5lAOfhNDKCAikSRgxE8WJyEQIJkEGdhHhuD5xlSXYQicMR0lsP5FBmXhoD+ZhTBgfQrgwMwUnQP5HikfoFhwZxxlYdwbW0CJaWKag8EuI" & _
"5oTufwwkeIoskIMYPDOfB0iOaZznwbw2GoKoQGaKQFjqEBQikBBjGCf4nCgShoLyTCZnIP5GlqOo5YgAxejyL4GAqeBWi+BI6ngQYvisY5+jMMBHHKHJAjIRoDFqPI0g" & _
"YOxSlIFptCERpSBGbQgn6SItmyUwAHaM4MgqXBljSLl7GANRuiuMBajsBQLEgRY0gOSxKmUP5uDuCpODIaxxgqbI/g+cR8lSQBwDEYpsBObpBBabAPG6S5yniM4HHKIJ" & _
"BDiT4TnyKQ6nEbBjBeRhPnKGwYCkMYCgcGAnnGDBSD+RIHhKKJDDmMRSkSbg/nKY58jAOxzCyUIuk0CpMlCKfXAyUwsdIEwMHxZ5TiieoSA6fQjEoLh0hKWxJC0NISks" & _
"SQsDSHQaFeUQIAKRJIDuT5DnyQ4tnWfR7GCLZMBqXI+i2S5KlyOvukOfxZDICAylSSg8jWUwyGmXYPnMNhpl6/sLg0gxjNBmNkRIQR3CRHMOQIYlwjBxHQH4T45hSBBG" & _
"O/sVgQRkv7EyO4P4mgeC5E+MsTIvBfgWD+PFBIFgvgaTaPwP4mxdA/CmNQOoWgci5FGJsLAqRYiKE0PgV4TQOh0EIHkQ4xw6DnBMLsb4Hx/AHEAHEdYpwIj2D+JwDwOR" & _
"fjjE+B0H4dA1ASKcK8UYnxzhXAyOsPQvhfgYDoPEQ4RwMBziqDYXY6g9AmFyCwMomwThxHkH0fA5x/jbHuJ8f4dxxj4D8Ecf41A+j8HMMoUgTBMjGG+Pgf4nx1j/EAFA" & _
"AwAggAIAYFQQ4WgEggDIAQgI=")
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234","AK1")
		.Add("Sub 2","1234","AK2")
		.Add("Sub 3","1234")
		.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
	End With
	With .Frames.Add("AK1,AK2")
		.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 8
		.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingBottom) = 22
		.BackColor = &H1000000
		.Pattern.Type = EXORGCHARTLib.PatternEnum.exPatternEmpty
		.BackgroundExt = "top[4],left[4],right[4],client,bottom[4],bottom[16,back=0x01000000,text=`<sha ;;0>attention`,align=0x11]"
	End With
	.EndUpdate()
End With
211:
How can I draw the pattern with no frame

With AxChartView1
	.BeginUpdate()
	.IndentSiblingY = 32
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234","AK1")
		.Add("Sub 2","1234","AK2")
		.Add("Sub 3","1234")
		.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
	End With
	With .Frames.Add("AK1,AK2")
		.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 8
		With .Pattern
			.Type = EXORGCHARTLib.PatternEnum.exPatternCross
			.Color = RGB(190,190,190)
		End With
	End With
	.EndUpdate()
End With
210:
How can I show the frame with an EBN color

With AxChartView1
	.BeginUpdate()
	.IndentSiblingY = 32
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAADhABWMMACAADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDENAxAJCI4DBCAZBwGKPRiASQZUhmHIDTbIEBxf" & _
"IMIRLE6PZgjOYZchqRYZSjAdIzUAFFr1J4AKbfKJpfoKBJERrScgxeBUNAZBKlY7paoKSpSGw1CTLNoRAKoYTTBK2bbmWwoap2So1XhAdS0XJcWxfGKRbxmWaZZh+R5m" & _
"XpCMjVMAGGQPIa8MLCSwIJBaHqUQLZNixLStAyxHCtKKhG+vJwHL6BcqnPKKRqSUKcWbcQADFZdYTdNjbch1TWvSZVQSecSke7BQjGJQ2YxWcZUXReeaBDK9ZS4WK+Hh" & _
"RjqAZpCkeoNC8P4DDiWp3nYVwdkaSgrGGVhSnSHJum6CgGAiBIUA0JgziGVJkGWRgTiGBAiG+ZgyDYQhCgQJZbG+UIAGEFgGBEBw9FILJNAMXgMgOIJYD4EoEGESBCBY" & _
"VIKGMIJTCiDpDliNQ+A+eB+CGCAiCiFgkgmT54HCdoGE0MhgkAM4LhOWJ/CQThIk4NQik4I5+DgP5IDOBJ/B2TgDnwaQ3k+cR0l4P5jBOfguDOCIimCSgwCMKJuDsIRj" & _
"mkUJ/B8JBBkIRAYmQcRglwP5lAOfhNDKCAikSRgxE8WJyEQIJkEGdhHhuD5xlSXYQicMR0lsP5FBmXhoD+ZhTBgfQrgwMwUnQP5HikfoFhwZxxlYdwbW0CJaWKag8EuI" & _
"5oTufwwkeIoskIMYPDOfB0iOaZznwbw2GoKoQGaKQFjqEBQikBBjGCf4nCgShoLyTCZnIP5GlqOo5YgAxejyL4GAqeBWi+BI6ngQYvisY5+jMMBHHKHJAjIRoDFqPI0g" & _
"YOxSlIFptCERpSBGbQgn6SItmyUwAHaM4MgqXBljSLl7GANRuiuMBajsBQLEgRY0gOSxKmUP5uDuCpODIaxxgqbI/g+cR8lSQBwDEYpsBObpBBabAPG6S5yniM4HHKIJ" & _
"BDiT4TnyKQ6nEbBjBeRhPnKGwYCkMYCgcGAnnGDBSD+RIHhKKJDDmMRSkSbg/nKY58jAOxzCyUIuk0CpMlCKfXAyUwsdIEwMHxZ5TiieoSA6fQjEoLh0hKWxJC0NISks" & _
"SQsDSHQaFeUQIAKRJIDuT5DnyQ4tnWfR7GCLZMBqXI+i2S5KlyOvukOfxZDICAylSSg8jWUwyGmXYPnMNhpl6/sLg0gxjNBmNkRIQR3CRHMOQIYlwjBxHQH4T45hSBBG" & _
"O/sVgQRkv7EyO4P4mgeC5E+MsTIvBfgWD+PFBIFgvgaTaPwP4mxdA/CmNQOoWgci5FGJsLAqRYiKE0PgV4TQOh0EIHkQ4xw6DnBMLsb4Hx/AHEAHEdYpwIj2D+JwDwOR" & _
"fjjE+B0H4dA1ASKcK8UYnxzhXAyOsPQvhfgYDoPEQ4RwMBziqDYXY6g9AmFyCwMomwThxHkH0fA5x/jbHuJ8f4dxxj4D8Ecf41A+j8HMMoUgTBMjGG+Pgf4nx1j/EAFA" & _
"AwAggAIAYFQQ4WgEggDIAQgI=")
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234","AK1")
		.Add("Sub 2","1234","AK2")
		.Add("Sub 3","1234")
		.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
	End With
	With .Frames.Add("AK1,AK2")
		.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 8
		.BackColor = &H1000000
		.Pattern.Type = EXORGCHARTLib.PatternEnum.exPatternEmpty
	End With
	.EndUpdate()
End With
209:
How can I show the frame with an EBN color

With AxChartView1
	.BeginUpdate()
	.IndentSiblingY = 32
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAADhABDYGg6AADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDEMw0AJCIyDFCAZBsHKPRoASQZUhmHIDTbIEBxf" & _
"IMIRLE6PRhmGL4HjWOo0TLAdI0PJMBr3J4AKbfOJpfDSQZDRrTMyReDkNBBBKlY7rKoqRpCFYtDSJNoWVBIahhNiGbbiCQYfouFZdUpRV5VLTUVxbF6YZDvKZZZjmH48" & _
"RpPUIyNS2FyxHDEIxyEALYACS5fTrCNZPVjgAY4fSqMToDDpKoSWp0QjlOS5jiyYoJZ7nWa2PDdUzXCC3LgADabThqdapcBAeqYHhORRRFSiYD4eAxYw2NaTUrSeS8JB" & _
"mnmSIYlaOY6H2dwHC0CZWHSeobEmRpbGuOpeFsbhRmgS5/loAJtl4fg5E6b4LFEAwEEISgGhMGZQmocgZMWJA2AMEAxAgTYAlGEJZAkCgdngNYZAYEYYBGdRnk8CBUmq" & _
"BZOhgZgagaYZIHYHoHmICIGCKCJhiOPgmgUIRTEYKgviKQpyC6C5jAiRgygyYxIlYNoNmOAp2DoM5jwEb8miIUhCCGJBCBIRoRmSCQmEqEpkkkNhOhOZQJBCBgjmUSB0" & _
"zCSBnjYWoWmWSR2F6F5mAmBhihiZZpFyBoHGQc54n4PxPCOSJxDwZppkIb4cGcSZOHaHInwWeYdmeKZ2HyH5nCmNJxhqD5ZB4aIRg+E5kngOpOiOJoMiOKJaD6EokGkS" & _
"hChaJJpHoVoYiaaYqHaGQ6GiE5i1aJRyBSdA9A8M4QmQOJqiqMorisawKj7ggrEqRo1iyaxqmaOIumsc4OicPJqFkWhXDwIhjHiXQ3GwawikeMhsksLpOjKLQLDaUYzm" & _
"0KxWlSNZtDMdpEDubAahIVw7A6Q4slYNYNFMXJXDWLhriKZ46G6S4um6OovAuNpxjubwrladI9m4O4SmAOptlgbhSDoMADECUAzmKIxDAWQZNBwGwJkIMIsDcDJDnCPB" & _
"HA6RIxAwTwCkCcADiIUoHGUI4WioMhMhMIJKTeHIPCWSWUCcKJKnIfI3CqS4ykyPwykwcxMgMIZHg4TBuByFIOCOBJhDCDAjASRHB34RZRDQbQnEiUp0H0NxKlONJND8" & _
"UpUHUQwPEAMBzlOBw6gaSB9HSXpXkuQpsjoL4LlKcxklmNhdh8apaHaTYjG6Wp2n2NxwlydwtlYLpYjWcx7F0EMYYuxsi4DaJsMoqQ1MuHKLkNowh4D8BuBEYo8QuBvA" & _
"mMceInBDgdGQPITgnwWBbDgEUUw/g2jvD2O4XSdATDBC4wsUoiQwBYagEcJ41B6idC+F0arQQ3hjGuPYLorw0jbEsB0DIWxoAbA4OwHIvRuDmFiFAKYlBihZCoFQfA3g" & _
"jiPc+J43g5V+BvFGOcfQXhXipHWJUHwGQmjgHuNocIEAiNHFCKgKAlACgBCQFESgfwfjTHoH0L4bxsj3H6H8R43R8h+A+J8do+h/gFA+MgKAfATChAcPcaA6xvgRAGEw" & _
"NIDQQg0BMEQZAngJiiDsAUIAyALgDDAIQB4ggoA6AUEEDAKwCDgFoBkQYEA2BOGAHEGYAQDCUAEIAF4fgBANACCgEgxBICYAkOILQFQhDICuAsMIhAXiGCgLoDQQwMBr" & _
"AYOEWgORDgQHYEsIQcQSgJDCBIDggAmAkDQAgYIFgRDEEQJACQEQTAlGIKgTIExxB0CiIkWITgUBFCQKUCoYhiBXEWEIIQIwEC4ESBAKA3AhgZHGEAIYCAogIn+FARIj" & _
"QIiqBoMYXA3QNhjEIGwRwURfA5GOckDo4xaB5AiDESgQgGgYp6BAagAgwBjB4D8Q40B9AhCIBgQYkQJAqlQLkDoIwyCEEYJIKQPgkjJAyCkEo5BaCZAgHICgPhkA5AAI" & _
"YMAEBngZGGDgHgBw4DsA+IMdAfBKgSFUFQZQuQugrDKIQVglgpC+CyMsDIaQWjlFoLkB4khKA7CUCFSAxwmChEoGEZAOADgAHgB0QYtBjiZBmCIMoTBs2uHMFwaImRph" & _
"KDQE0HIrQahmGAHYTAgRhBfCYAkQgMxBhQlGCEYwYhnBAHCDkU4RByidCmJ4OozhMjZB2OcOg8ROizGcSgLIwgNBmHYAARATw/BBEMDAYQGAhhcHEKAEIphAjQC0AUII" & _
"6ASgIFANQE04hdAdCEKgQoDROBTHwDAZKDQMBnHEDwBYoQ2AtnEMYDA6B6ggFGPQQ1YgdBNCQKkIoJRSg0E8JUKQ2gshLGGB0DYCw6BYCIEIGIEhg4JCoAoQIeAXCFG0" & _
"HkJ4qR2g/FQFUAwosfiNCgOoHoRRUgVBcKUKg0BdhOCEKMAoexxAmAiMAGIogaCCDhccQIXAVCFCgLEK4ah+heFYBURwsQrBaGGFkdYJQ0CsGqKYWwVhdDLCuAIVoWQE" & _
"iDCcKsYwBBA1zEmAkA4wB6AeEIGARQEQ1j1EAK8ewBhhBYB2A0MArEzixBsB4YoWBtgZDGMIFoewDi1L0EAEggBNhHEgIkWYQwkiBCEAUZANQ2D9FCBoWwghojaBWEkN" & _
"I7QaipFoLYVw1AtDLCqGsIwrAQCzEGEIZoCBNgwCoJ0EArRbCwAUN4LY2w+hvHcAUYIuArgOHEEAFYaw3BKEgOsG4oAACAEAQEA==")
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234","AK1")
		.Add("Sub 2","1234","AK2")
		.Add("Sub 3","1234")
		.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
	End With
	With .Frames.Add("AK1,AK2")
		.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 8
		.BackColor = &H1000000
		.Pattern.Type = EXORGCHARTLib.PatternEnum.exPatternEmpty
	End With
	.EndUpdate()
End With
208:
How can I show the frame with a solid color

With AxChartView1
	.BeginUpdate()
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234","AK1")
		.Add("Sub 2","1234","AK2")
		.Add("Sub 3","1234")
		.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
	End With
	With .Frames.Add("AK1,AK2")
		.BackColor = RGB(255,0,0)
		.Pattern.Type = EXORGCHARTLib.PatternEnum.exPatternEmpty
	End With
	.EndUpdate()
End With
207:
Is it possible to enlarge/shrink the frame

With AxChartView1
	.BeginUpdate()
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234","AK1")
		.Add("Sub 2","1234","AK2")
		.Add("Sub 3","1234")
		.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
	End With
	With .Frames.Add("AK1,AK2")
		.ShowOnBackground = False
		.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = -4
		With .Pattern
			.Type = EXORGCHARTLib.PatternEnum.exPatternFrame Or EXORGCHARTLib.PatternEnum.exPatternFDiagonal
			.Color = RGB(190,190,190)
			.FrameColor = RGB(128,128,128)
		End With
	End With
	.EndUpdate()
End With
206:
Is it possible to draw the frame in front, rather than showing it on the control's background

With AxChartView1
	.BeginUpdate()
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234","AK1")
		.Add("Sub 2","1234","AK2")
		.Add("Sub 3","1234")
		.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
	End With
	With .Frames.Add("AK1,AK2")
		.ShowOnBackground = False
		With .Pattern
			.Type = EXORGCHARTLib.PatternEnum.exPatternFrame Or EXORGCHARTLib.PatternEnum.exPatternFDiagonal
			.Color = RGB(190,190,190)
			.FrameColor = RGB(128,128,128)
		End With
	End With
	.EndUpdate()
End With
205:
How do I show or hide a frame

With AxChartView1
	.BeginUpdate()
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234","AK1")
		.Add("Sub 2","1234","AK2")
		.Add("Sub 3","1234")
		.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
	End With
	With .Frames.Add("AK1,AK2")
		.Visible = True
		With .Pattern
			.Type = EXORGCHARTLib.PatternEnum.exPatternFrame Or EXORGCHARTLib.PatternEnum.exPatternFDiagonal
			.Color = RGB(190,190,190)
			.FrameColor = RGB(128,128,128)
		End With
	End With
	.EndUpdate()
End With
204:
How can I display the frame arround the node itself

With AxChartView1
	.BeginUpdate()
	With .Root
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234","AK1")
		.Add("Sub 2","1234","AK2")
		.Add("Sub 3","1234")
		.Add("Child <b>2.1</b>",,"GR1").AddGroup("Child <b>2.2</b>").Key = "GR2"
	End With
	With .Frames.Add("1234")
		With .Pattern
			.Type = EXORGCHARTLib.PatternEnum.exPatternFrame Or EXORGCHARTLib.PatternEnum.exPatternFDiagonal
			.Color = RGB(190,190,190)
			.FrameColor = RGB(128,128,128)
		End With
	End With
	With .Frames.Add("GR2")
		With .Pattern
			.Type = EXORGCHARTLib.PatternEnum.exPatternFrame Or EXORGCHARTLib.PatternEnum.exPatternFDiagonal
			.Color = RGB(190,190,190)
			.FrameColor = RGB(128,128,128)
		End With
	End With
	.EndUpdate()
End With
203:
How can I display the frame arround group nodes only

With AxChartView1
	.BeginUpdate()
	With .Root
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234","AK1")
		.Add("Sub 2","1234","AK2")
		.Add("Sub 3","1234")
		.Add("Child <b>2.1</b>",,"GR1").AddGroup("Child <b>2.2</b>").Key = "GR2"
	End With
	With .Frames.Add("root")
		.Nodes = "GR1(group)"
		With .Pattern
			.Type = EXORGCHARTLib.PatternEnum.exPatternFrame Or EXORGCHARTLib.PatternEnum.exPatternFDiagonal
			.Color = RGB(190,190,190)
			.FrameColor = RGB(128,128,128)
		End With
	End With
	.EndUpdate()
End With
202:
How can I display the frame arround assistant nodes only

With AxChartView1
	.BeginUpdate()
	With .Root
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234","AK1")
		.Add("Sub 2","1234","AK2")
		.Add("Sub 3","1234")
		.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
	End With
	With .Frames.Add("root")
		.Nodes = "root(assistant)"
		With .Pattern
			.Type = EXORGCHARTLib.PatternEnum.exPatternFrame Or EXORGCHARTLib.PatternEnum.exPatternFDiagonal
			.Color = RGB(190,190,190)
			.FrameColor = RGB(128,128,128)
		End With
	End With
	.EndUpdate()
End With
201:
How can I display the frame arround child nodes only

With AxChartView1
	.BeginUpdate()
	With .Root
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234","AK1")
		.Add("Sub 2","1234","AK2")
		.Add("Sub 3","1234")
		.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
	End With
	With .Frames.Add("root")
		.Nodes = "root(child)"
		With .Pattern
			.Type = EXORGCHARTLib.PatternEnum.exPatternFrame Or EXORGCHARTLib.PatternEnum.exPatternFDiagonal
			.Color = RGB(190,190,190)
			.FrameColor = RGB(128,128,128)
		End With
	End With
	.EndUpdate()
End With
200:
How can I show the frame arround all child, assistant, group nodes

With AxChartView1
	.BeginUpdate()
	With .Root
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234","AK1")
		.Add("Sub 2","1234","AK2")
		.Add("Sub 3","1234")
		.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
	End With
	With .Frames.Add("root")
		.Nodes = "root(all)"
		With .Pattern
			.Type = EXORGCHARTLib.PatternEnum.exPatternFrame Or EXORGCHARTLib.PatternEnum.exPatternFDiagonal
			.Color = RGB(190,190,190)
			.FrameColor = RGB(128,128,128)
		End With
	End With
	.EndUpdate()
End With
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

With AxChartView1
	.BeginUpdate()
	With .Root
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234","AK1")
		.Add("Sub 2","1234","AK2")
		.Add("Sub 3","1234")
		.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
	End With
	With .Frames.Add("AK1,AK2").Pattern
		.Type = EXORGCHARTLib.PatternEnum.exPatternFrame Or EXORGCHARTLib.PatternEnum.exPatternFDiagonal
		.Color = RGB(190,190,190)
		.FrameColor = RGB(128,128,128)
	End With
	.EndUpdate()
End With
198:
How can I draw a pattern on a node

With AxChartView1
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = True
	With .Nodes
		.Add("L1_A",,"LA").ShowLinkDir = False
		.Add("L1_B",,"LB")
		.Add("L2_A","LA","LA2")
		.Add("L2_B","LB","LB2")
	End With
	With .Frames.Add("LB")
		.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = -2
		With .Pattern
			.Type = EXORGCHARTLib.PatternEnum.exPatternBDiagonal
			.Color = RGB(128,128,128)
		End With
		.ShowOnBackground = False
	End With
End With
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 )

With AxChartView1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAADhABdQFg6AADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDENQwSSMMJwSKYYBiASEYJASQZUhmHIDTbIEBxf" & _
"IMIRLE6PZbmEYYfgeNY6TQCcIgVD0ExhAZ2Q4EQAKRpOFY/DBQNLgAKNCQ3LaQY7BaKgZouTYDVrVNSVFC0IBkGoSbauCIJHrGCZ1RBYMI0VDNRwHJiMbRtSyqXjGJ4p" & _
"SrAcq0FAgYRHI6jZxnGL5chqPqGVjMNZ1bQuKwzT0Ld5wTYsdydBK1MIkTKKaoORZgRpYUI6FAeSgBWyPcCqPSoDrKdo4XLdYwbeAFcSPD6+NBhG7tXm/NarNTgTB6DB" & _
"thsGJbgYYw9AQVxBoOch2hEbh+nAARYkQdZ7CMPYGH+FxmlqbJ5lqDAdjMC5AmIW54hwaBvA4IQ8D+T8IFscgenAAZMHiEgWiWdRZlSAAhAkFAGq6dAdEcIYVF4QJKCA" & _
"HQDBCBJYGUGQNhCEIhiSCJaGAYQWBsIYmEEFgJAGQ42CyC4iliPgygsT4olSXg3g2Qwwk0MpMiMLJIg8Y54niTYOmPPJMDMDIonSSU7jMJJbDaTYjlYUoMmMCRWFQAAl" & _
"EkZgtDgTgjgCJQpEoIgkgkIQHnIAB7CACARnIaIaiaGYuG6GxmhmFB7CGSICAyHwoAmQxQlQNIlikWgthYIwaAYVQvAuQpsg0IxIhKTIzCwToTiiaYACkChGhKJJpEOQ" & _
"oWC+C5imyCgiggYpUzMZ5Yj6AIfg6UpcjgLYInIPILhOTYaEIUg9EoItfCGCByAiCV2lIKILCGK4qnKO4YggWpQgIJxJmIaJhDgDgKECaIykkUhUhILQLEKRh9iiYpzC" & _
"SSQxmgcgkm2NppAKbI8C4RoBiQYgSgSMQQEEEIDjECBDA8LorjKa47EQMQSm4DpEhEKBDBeRgBGqMQnmkA5in4JAJAINoEC6JR4jyaQ6E6AhEhIIxNBMRJPiQCYyHCGA" & _
"UgUMQwEgEhhkEOBHBOBJxCMHJHjGXB/CKSBxlENwaj1qgsEwERICIDB/iQDgjgiYYvE2cx8l2KIinoEI5CYSYiFqEAz0mMBZBbwIkEsEN+gMSpSHSTITEqSoEFyGBHCo" & _
"SoihqEAsgsIo8ikKhKGiVJ6AADwTkicQlAkUhElA+Z4VUHpHGuRA8lMdI9DscJc8r5QQAaIYsGUOpOjoOwHCEJAUgBh8B1EAAcHIzg5gPCGNgdQfRPhnGiLINhhQEDCB" & _
"cGUDYphxjLHkNgfwTARhiHEBYWAVxpI1HQDcDjthiAADoKcCgJgbs7FyG4LQagBBgE0CMOYOxLhtGY/AcAegNgTHIPkHISAHADEQNYOA2BwAHEQHABwQxMDbCQEscoEB" & _
"AAgEOD0V4cR0jyGCPAPwHAvh0EAOIHIDRfA/EaGMfYfguAACiBQIg/xWAbH0F8J4bxSD6G8MUMo7Q9ieHuI8eA0gLjfG2PUPQnwvhvHsPsGABxhD8E+AMbgfhVDJH2L8" & _
"U48wAjbEGPwPo7x8j4F4FccwHAhhiEgBQEQhAnCDGgHwBonxiAZD+G8Lo/hHj3H8PELIiBwgOFCNQHAqQAhYBWAUIARAECgHyKkIIqAIgGGCLgUIFAhB5CQAcFAGgcEH" & _
"HKBwUYkAdiHDgOaAIKBigYCCFAFQhBzChAWKEOYzwDhCEwFMBQNxwD3C8CsPgHQhANEuA4Uw+gdhHDAOwBogRYAzFuGAQIEgQAzCSGUAIbAXAFCiKIGghhBCQAeAFIgD" & _
"gwjMByEAAYXg1hiEwFgBYAQugAGIPsTodgnDSBgMca4LhqChCgD4CIYgYBDmcI4GIxgUCYAm1oPIjwgjmFQMYWA1gNCiBUqcII6gegUEAHwB4oRwhzEGLge4GAOC6HUA" & _
"cMIsAbCGDqLYHYVBACTAkIIIAYigCIGcBQCArQKiiFQFERQUQhDMAOBgcIWAggUBGIMfAVAHhCBwEgBAMg+jbFqCcHYLxvg4D2A8QI3AziMHiJoUgFhACyCwIINofwHi" & _
"JDAJUKw2B2ARGEEAIwCxIh2BaNQQA/ROBRGoFYQ48B/AeEGEt99lQOgDFgGcAtFgdgHEANIMAhAIDKAygkQAEAAjxBeIoCI7QfjUEEEwDIIgWBFEQHUSANxsAqEEEUdw" & _
"lA4iJCSFYEwhBsCXE0KoIAexnj4DoDkEwaBmgYCGAwMADAkCFCMMYAQOgMhQEIHsaIVQQDXFOOgRtwAUguAcAUU1iw1CWA6OwdIOQFBxCgCkDgeBribBmIgP4KQiAAB+" & _
"KoAg2QNiDDoG0BQyQzg+EGOAWAFgRC4DsEURQYAdhWFKAoKAVQAB/AcHEaAORiioFqBYMWFATCZEsBsIYcA0gMGCJwGAhg4DQAwKsDAYQGzZBkAcSA8gODEBEGQVIQha" & _
"jUEeeYKY1QIDrBCIAEg0xIAwEgBNkAAADUTA6B4MQEwv0UEGLAUgzhf04AKGEg4BhYD2B0MUAABApAAvqI8WAqAdDGGwJsEIXwWDtE0AAA4fhmDZCmJMMwbBkgBIC")
		.Add(2,"gBFLBCJwBAEHhEJAADhABEEMACAADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIgdBINQTDCLYyiUBYJhAMYSAJCI4jBCAZRXEAaQIkKY4ZDKCY2QLIEgSF" & _
"CETQlEAYZgkCB5UiGNIkQLSFDABJMBraDgSAApeoYVj4NZASANFB0bKcQAVDSOKRjeCacpOUpQRZLIyiLZVWQSGoYLahW4YQiKIJKRTXdhULQtLS5FaWZbte6LchqOAA" & _
"YbOV6ynSeV6NUJNc5xVicBgrBKlI6nGxIJqaZpVYzPeQQTTUby5OyEbyADJ4DqEAKaUrZNoZfhkBhlNa2YguC4gAzudaUZhCOqABpWYYLDS/JSGCYJGDcOaVRZ0FJUVw" & _
"Pg8GZkkCcBQDGJw0HOJ5gECdRUi0dxXi2IJbG4Jp+huHpzH0GouF2eA+B4F4bkESwEEISgGhMGZQmocgZFQFAki4TIAAECBNgCUYQsaCgRjQdRjAYERhmIBB5gIQBwm2" & _
"BROlOSgaDMIZCmoHoHmICIGB8MJiEOFgmD+IoIGEA4GA4aI0kSC5NliRJrgyYxIlYNoNkyGJkliDpPlidQDD2ZADBYQg6iQQ46EaEZkgkJhKhGTw5DSSITk4eRFAMNRl" & _
"EMXhWDuZYJC4WoWmWA4+CYORMGmBQDguTBDg4Zg8GaA5CGqGpmkmNhuhuZoim4chAkuaZUmmHZPBgahoh6Z5JnYfofmGI5IjmIJnEmWh3D4D0nn+IpokmboBgeaBSnod" & _
"w6E+I5YnOIBpgoZoaiaJ9IHOJAAAmVoSh2aRaF6G4pmqCBqh6KAqCkEJqD6TxzlKHosmsSpWjaExPEqZosh0apqkKMotmwCwCjkPQrjKeg0D8T4TlaQ4ymySw2k6LhPF" & _
"sRpFDsLRDmCdw9i0GxmlqNptksdJ2jebBTjaYoQC0ex+maOZuguJppjkLBZByeI7m4S5GnKPJvEkApvD4Jwim6EY7i8C5Wn6P4vHuZoRhcT4cBad5BnCDAnAqO5wFOZw" & _
"CigZxZiyepEnCXBXBaRZxgwFwTD6MJ6goaw+nETBnCKSIxjwdh1h6T5jm8IOuEyNwukuT4siie5JguaZsn+ShzAyZw6kyMJ4hCQ44g6U5/DeTI0E0FxGlGcojnMSgvDS" & _
"SROFQOANnMfxCD+dItFcVpVnWDRbFOFxMH0dQDiATItgaZpUnUOJ3GaWZ2gOdxklCDQNjYX4KmEaYYmMM43EkP0d4tR3gbBKKgOwGgtjsFQGodQuxCAvAWFIMwnwGgcE" & _
"yCYC4FRijxE4Gl0AnAuCOFWBUAABwth+AACAEBAQ=")
		.Add(3,"gBFLBCJwBAEHhEJAADhABI8IQAAYAQGKIYBkAKBQAGaAoDDWDoMAANAyjPBMKgBBCLIxhEYobgmGIXRpFMbxAKQahLEiTIklBI8ExXFqMQCkGKocgONYgTLOMZOXCEE" & _
"wCgI=")
	End With
	.AntiAliasing = True
	.IndentSiblingY = 4
	.ShowRoundLink = True
	.PenLink = EXORGCHARTLib.PenTypeEnum.exPenSolid
	.SelColor = RGB(255,255,0)
	.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exPlus
	.set_DefaultNodePadding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll,6)
	With .Root
		.Caption = "Constuction of a House"
		.BackColor = &H1000000
		.ForeColor = RGB(255,255,255)
		With .AddAssistant("<font ;6>Work:<r>100.00%<br>Budget:<r>$215,500.00")
			.Left = False
			.ShowLinks = False
			.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
			.FixedWidth = 72
			.BackColor = &H2000000
		End With
	End With
	With .Nodes
		With .Add("1. Internal","Root","Internal")
			.ArrangeSiblingNodesAs = EXORGCHARTLib.ArrangeSiblingEnum.exTree
			.ShowRoundLink = False
			.BackColor = &H1ff0000
			.ForeColor = RGB(255,255,255)
			With .AddAssistant("<font ;6>Work:<r>45.60%<br>Budget:<r>$86,500.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("1.1 Electrical","Internal","Electrical")
			.ShowRoundLink = False
			.BackColor = &H100ff00
			.ForeColor = RGB(255,255,255)
			With .AddAssistant("<font ;6>Work:<r>11.80%<br>Budget:<r>$25,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("1.1.1 Rough-in electrical","Electrical","RoughElectrical")
			.BackColor = &H3000000
			.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
			With .AddAssistant("<font ;6>Work:<r>2.80%<br>Budget:<r>$5,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("1.1.2 Install and Terminate","Electrical","InstallTerminate")
			.BackColor = &H3000000
			.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
			With .AddAssistant("<font ;6>Work:<r>1.90%<br>Budget:<r>$5,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("1.1.3 HVAC Equipment","Electrical","HVAC")
			.BackColor = &H3000000
			.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
			With .AddAssistant("<font ;6>Work:<r>7.10%<br>Budget:<r>$15,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("1.2 Plumbing","Internal","Plumbing")
			.ShowRoundLink = False
			.BackColor = &H100ff00
			.ForeColor = RGB(255,255,255)
			With .AddAssistant("<font ;6>Work:<r>33.80%<br>Budget:<r>$61,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("1.2.1 Rough-in plumbing","Plumbing","RoughPlumbing")
			.BackColor = &H3000000
			.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
			With .AddAssistant("<font ;6>Work:<r>11.30%<br>Budget:<r>$22,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("1.2.2 Set plumbing fixtures and trim","Plumbing","PlumbingFixtures")
			.Width = 256
			.BackColor = &H3000000
			.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
			With .AddAssistant("<font ;6>Work:<r>13.20%<br>Budget:<r>$31,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("1.2.3 Test and clean","Plumbing","PlumbingTest")
			.BackColor = &H3000000
			.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
			With .AddAssistant("<font ;6>Work:<r>9.30%<br>Budget:<r>$8,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("2. Foundation","Root","Foundation")
			.ArrangeSiblingNodesAs = EXORGCHARTLib.ArrangeSiblingEnum.exTree
			.ShowRoundLink = False
			.BackColor = &H1ff0000
			.ForeColor = RGB(255,255,255)
			With .AddAssistant("<font ;6>Work:<r>24.00%<br>Budget:<r>$46,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("2.1 Excavate","Foundation","Excavate")
			.ShowRoundLink = False
			.BackColor = &H100ff00
			.ForeColor = RGB(255,255,255)
			With .AddAssistant("<font ;6>Work:<r>24.00%<br>Budget:<r>$46,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("2.1.1 Pour Concrete","Excavate","Concrete")
			.BackColor = &H3000000
			.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
			With .AddAssistant("<font ;6>Work:<r>7.90%<br>Budget:<r>$30,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("2.1.2 Cure & Strip Forms","Excavate","CureForms")
			.BackColor = &H3000000
			.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
			With .AddAssistant("<font ;6>Work:<r>10.30%<br>Budget:<r>$70,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("2.2 Steel Erection","Foundation","Steel")
			.ShowRoundLink = False
			.BackColor = &H100ff00
			.ForeColor = RGB(255,255,255)
			With .AddAssistant("<font ;6>Work:<r>5.00%<br>Budget:<r>$9,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("2.2.1 Steel Columns","Steel","SteelColumns")
			.BackColor = &H3000000
			.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
			With .AddAssistant("<font ;6>Work:<r>2.80%<br>Budget:<r>$50,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("2.2.2 Beams","Steel","Beams")
			.Width = 256
			.BackColor = &H3000000
			.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
			With .AddAssistant("<font ;6>Work:<r>1.90%<br>Budget:<r>$2,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("2.2.3 Joist","Steel","Joist")
			.BackColor = &H3000000
			.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
			With .AddAssistant("<font ;6>Work:<r>1.10%<br>Budget:<r>$2,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("3. External","Root","External")
			.ArrangeSiblingNodesAs = EXORGCHARTLib.ArrangeSiblingEnum.exTree
			.ShowRoundLink = False
			.BackColor = &H1ff0000
			.ForeColor = RGB(255,255,255)
			With .AddAssistant("<font ;6>Work:<r>30.40%<br>Budget:<r>$83,500.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("3.1 Masonry Work","External","Masonry")
			.ShowRoundLink = False
			.BackColor = &H100ff00
			.ForeColor = RGB(255,255,255)
			With .AddAssistant("<font ;6>Work:<r>16.20%<br>Budget:<r>$16,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("3.1.1 Lay Masonry","Masonry","LayMasonry")
			.BackColor = &H3000000
			.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
			With .AddAssistant("<font ;6>Work:<r>9.00%<br>Budget:<r>$35,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("3.1.2 Install roof drains","Masonry","RoofDrains")
			.BackColor = &H3000000
			.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
			With .AddAssistant("<font ;6>Work:<r>3.10%<br>Budget:<r>$2,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("3.1.3 Install tile in toilet rooms","Masonry","TileToiles")
			.BackColor = &H3000000
			.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
			With .AddAssistant("<font ;6>Work:<r>1.30%<br>Budget:<r>$10,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("3.1.4 Roofing","Masonry","Roofing")
			.BackColor = &H3000000
			.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
			With .AddAssistant("<font ;6>Work:<r>2.80%<br>Budget:<r>$15,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("3.2 Building Finishes","External","Building")
			.ShowRoundLink = False
			.BackColor = &H100ff00
			.ForeColor = RGB(255,255,255)
			With .AddAssistant("<font ;6>Work:<r>14.20%<br>Budget:<r>$21,500.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("3.2.1 Paint Walls","Building","Paint")
			.BackColor = &H3000000
			.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
			With .AddAssistant("<font ;6>Work:<r>4.00%<br>Budget:<r>$8,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("3.2.2 Ceiling Tiles","Building","CeilingTiles")
			.Width = 256
			.BackColor = &H3000000
			.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
			With .AddAssistant("<font ;6>Work:<r>3.60%<br>Budget:<r>$4,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("3.2.3 Hang Wallpaper","Building","Wallpaper")
			.BackColor = &H3000000
			.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
			With .AddAssistant("<font ;6>Work:<r>2.30%<br>Budget:<r>$1,500.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("3.2.4 Carpet","Building","Carpet")
			.BackColor = &H3000000
			.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
			With .AddAssistant("<font ;6>Work:<r>1.80%<br>Budget:<r>$6,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("3.2.5 Hardware","Building","Hardware")
			.BackColor = &H3000000
			.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
			With .AddAssistant("<font ;6>Work:<r>2.50%<br>Budget:<r>$2,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
	End With
	.EndUpdate()
End With
196:
Does your control support padding (padding properties are used to generate space around content)

With AxChartView1
	.BeginUpdate()
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = True
	With .Nodes
		With .Add("L1 A1",,"LA")
			.BackColor = RGB(255,0,0)
			.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 16
		End With
		.Add("L1 B1",,"LB")
		.Add("L2 A1","LA","LA2")
		.Add("L2 B2","LB","LB2")
	End With
	.Nodes.Item("root").Caption = "Ls As"
	.EndUpdate()
End With
195:
Does your control support padding (padding properties are used to generate space around content)

With AxChartView1
	.BeginUpdate()
	.set_DefaultNodePadding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll,8)
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = True
	With .Nodes
		.Add("L1 A1",,"LA")
		.Add("L1 B1",,"LB")
		.Add("L2 A1","LA","LA2")
		.Add("L2 B2","LB","LB2")
	End With
	.Nodes.Item("root").Caption = "Ls As"
	.EndUpdate()
End With
194:
How do I programmatically edit a node

With AxChartView1
	.Nodes.Add("Text",,"1234")
	.EditNode("1234")
End With
193:
WidthNode does not seem to do anything. What this property is for

With AxChartView1
	.WidthNode = 16
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = True
	With .Nodes
		.Add("L1 A1",,"LA")
		.Add("L1 B1",,"LB")
		.Add("L2 A1","LA","LA2")
		.Add("L2 B2","LB","LB2")
	End With
	.Nodes.Item("root").Caption = "Ls As"
End With
192:
Does your control support Print and Print-Preview, such as Fit-To-Page

With AxChartView1
	.FixedWidthNode = 512
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = True
	With .Nodes
		.Add("L1_A",,"LA").ShowLinkDir = False
		.Add("L1_B",,"LB")
		.Add("L2_A","LA","LA2")
		.Add("L2_B","LB","LB2")
	End With
	With CreateObject("Exontrol.Print")
		.Options = "FitToPage = On"
		.PrintExt = AxChartView1.GetOcx()
		.Preview()
	End With
End With
191:
Does your control support Print and Print-Preview

With AxChartView1
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = True
	With .Nodes
		.Add("L1_A",,"LA").ShowLinkDir = False
		.Add("L1_B",,"LB")
		.Add("L2_A","LA","LA2")
		.Add("L2_B","LB","LB2")
	End With
	With CreateObject("Exontrol.Print")
		.PrintExts = AxChartView1.GetOcx()
		.Preview()
	End With
End With
190:
Does your control support subscript or superscript, in HTML captions

With AxChartView1
	.AntiAliasing = True
	With .Nodes
		.Add("<sha ;;0>Event <b><font ;6><off 4>1",,"LA").ShowLinkDir = False
		.Add("<sha ;;0>Event <b><font ;6><off 4>2",,"LB")
		.Add("<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1","LA","LA2")
		.Add("Event","LB","LB2")
	End With
End With
189:
Is it possible to move a node by a simple click rather than SHIFT + Click

With AxChartView1
	.AllowMoveChart = EXORGCHARTLib.AllowKeysEnum.exDisallow
	.AllowMoveNode = EXORGCHARTLib.AllowKeysEnum.exLeftClick
	.AntiAliasing = True
	With .Nodes
		.Add("L1_A",,"LA").ShowLinkDir = False
		.Add("L1_B",,"LB")
		.Add("L2_A","LA","LA2")
		.Add("L2_B","LB","LB2")
	End With
End With
188:
How can I disable moving the nodes at runtime
With AxChartView1
	.AllowMoveNode = EXORGCHARTLib.AllowKeysEnum.exDisallow
End With
187:
How can I disable resizing the chart using the middle mouse button
With AxChartView1
	.AllowResizeChart = EXORGCHARTLib.AllowKeysEnum.exDisallow
End With
186:
How can I disable inline editing
With AxChartView1
	.AllowEdit = EXORGCHARTLib.AllowKeysEnum.exDisallow
End With
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

' MouseUp event - Occurs when the user releases a mouse button.
Private Sub AxChartView1_MouseUpEvent(ByVal sender As System.Object, ByVal e As AxEXORGCHARTLib._IChartViewEvents_MouseUpEvent) Handles AxChartView1.MouseUpEvent
	' Items.Add(Me.NodeFromPoint(-1,-1).Caption,0,1234)
	With AxChartView1
		With CreateObject("Exontrol.ExPopupMenu")
			Debug.Print( .ShowAtCursor )
		End With
	End With
End Sub

With AxChartView1
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = True
	With .Nodes
		.Add("L1_A",,"LA").ShowLinkDir = False
		.Add("L1_B",,"LB")
		.Add("L2_A","LA","LA2")
		.Add("L2_B","LB","LB2")
	End With
End With
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

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub AxChartView1_AnchorClick(ByVal sender As System.Object, ByVal e As AxEXORGCHARTLib._IChartViewEvents_AnchorClickEvent) Handles AxChartView1.AnchorClick
	With AxChartView1
		Debug.Print( e.options )
	End With
End Sub

With AxChartView1
	.Root.Image = 0
	With .Nodes
		.Add("<a;http://www.exontrol.com>exontrol</a>",,"1234")
	End With
End With
183:
Is it possible to put a caption on the regular links

With AxChartView1
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = True
	With .Nodes
		.Add("L1_A",,"LA").LinkCaption = "<fgcolor=FF0000><font ;6>caption<br><c><bgcolor=FFFFFF><a>link"
		.Add("L1_B",,"LB")
		.Add("L2_A","LA","LA2")
		.Add("L2_B","LB","LB2")
	End With
End With
182:
Is it possible to hide directions for specific links

With AxChartView1
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = True
	With .Nodes
		.Add("L1_A",,"LA").ShowLinkDir = False
		.Add("L1_B",,"LB")
		.Add("L2_A","LA","LA2")
		.Add("L2_B","LB","LB2")
	End With
End With
181:
Does your control supports multiple lines tooltip

With AxChartView1
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.ToolTipDelay = 1
	.Root.ToolTip = "<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>"
End With
180:
Can I change the border's node, using your EBN technology, including specifying a color

With AxChartView1
	.VisualAppearance.Add(1,"c:\exontrol\images\hot.ebn")
	With .Nodes
		.Add("Child",,"1234")
		With .Add("Sub 1","1234")
			.Caption = "This is a bit of long text that should break the line.<br>-using no color"
			.BackColor = &H1000000
		End With
		With .Add("Sub 2","1234")
			.Caption = "This is a bit of long text that should break the line.<br>-using a color"
			.BackColor = &H100ff00
		End With
	End With
End With
179:
Can the chart be arranged from the left to right (LTR)

With AxChartView1
	.BeginUpdate()
	.Layout = EXORGCHARTLib.ChartLayoutEnum.exLayoutLTR
	.ShowLinksDir = True
	.IndentSiblingX = 32
	With .Nodes
		.Add("Child1",,"1234")
		.Add("Child2",,"1235")
		.Add("Sub 1","1234")
		.Add("Sub 2","1234").Caption = "This is a bit of long text that should break the line."
	End With
	.EndUpdate()
End With
178:
Is there any property to keep the aspect ratio for all pictures, but still keep the size of nodes

With AxChartView1
	.BeginUpdate()
	.PictureHeightNode = 48
	.PictureAspectRatioNode = EXORGCHARTLib.AspectRatioEnum.exAspectRatioHeight
	.FixedWidthNode = 82
	With .Nodes
		With .Add("PNG <b>1",,"0")
			.Picture = "c:\exontrol\images\card.png"
			.Alignment = EXORGCHARTLib.AlignmentEnum.CenterAlignment
		End With
		With .Add("PNG <b>2",,"1")
			.Picture = "c:\exontrol\images\diary.png"
			.Alignment = EXORGCHARTLib.AlignmentEnum.CenterAlignment
		End With
		With .Add("PNG <b>3",,"2")
			.Picture = "c:\exontrol\images\sun.png"
			.Alignment = EXORGCHARTLib.AlignmentEnum.CenterAlignment
		End With
	End With
	.Root.Alignment = EXORGCHARTLib.AlignmentEnum.CenterAlignment
	.EndUpdate()
End With
177:
Is there any property to keep the aspect ratio for all pictures

With AxChartView1
	.BeginUpdate()
	.PictureHeightNode = 48
	.PictureAspectRatioNode = EXORGCHARTLib.AspectRatioEnum.exAspectRatioHeight
	With .Nodes
		With .Add("PNG <b>1",,"0")
			.Picture = "c:\exontrol\images\card.png"
		End With
		With .Add("PNG <b>2",,"1")
			.Picture = "c:\exontrol\images\diary.png"
		End With
		With .Add("PNG <b>3",,"2")
			.Picture = "c:\exontrol\images\sun.png"
		End With
	End With
	.EndUpdate()
End With
176:
Is there any property to keep the aspect ratio for all pictures

With AxChartView1
	.BeginUpdate()
	.PictureWidthNode = 48
	.PictureAspectRatioNode = EXORGCHARTLib.AspectRatioEnum.exAspectRatioWidth
	With .Nodes
		With .Add("PNG <b>1",,"0")
			.Picture = "c:\exontrol\images\card.png"
		End With
		With .Add("PNG <b>2",,"1")
			.Picture = "c:\exontrol\images\diary.png"
		End With
		With .Add("PNG <b>3",,"2")
			.Picture = "c:\exontrol\images\sun.png"
		End With
	End With
	.EndUpdate()
End With
175:
Is there any property to keep the aspect ratio for displayed picture

With AxChartView1
	.BeginUpdate()
	With .Nodes
		With .Add("Ratio/None",,"0")
			.Picture = "c:\exontrol\images\card.png"
			.PictureWidth = 48
			.PictureHeight = 48
		End With
		With .Add("Ratio/Width",,"1")
			.Picture = "c:\exontrol\images\card.png"
			.PictureWidth = 48
			.PictureAspectRatio = EXORGCHARTLib.AspectRatioEnum.exAspectRatioWidth
		End With
		With .Add("Ratio/Height",,"2")
			.Picture = "c:\exontrol\images\card.png"
			.PictureHeight = 48
			.PictureAspectRatio = EXORGCHARTLib.AspectRatioEnum.exAspectRatioHeight
		End With
	End With
	.EndUpdate()
End With
174:
Is is possible to show the round an arbitrary link

With AxChartView1
	.AntiAliasing = True
	.ShowLinksDir = False
	.PenWidthLink = 1
	.LinkColor = RGB(0,0,0)
	With .Nodes
		.Add("L1_A",,"LA").LinkTo = "LB"
		.Add("L1_B<br><br>Cust",,"LB")
		With .Add("L2_A","LA","LA2")
			.LinkTo = "LB,LB22"
			.LinkToColor("LB") = RGB(255,0,0)
			.LinkToWidth("LB") = 2
			.LinkToPen("LB") = EXORGCHARTLib.PenTypeEnum.exPenDot
			.LinkToShowDir("LB") = True
			.LinkToRound("LB") = True
			.LinkToRound("LB22") = True
			.LinkToShowDir("LB22") = True
			.LinkToColor("LB22") = RGB(128,0,0)
			.LinkToWidth("LB22") = 2
		End With
		.Add("L2_B1","LB","LB21")
		.Add("L2_B2","LB","LB22")
		.Add("L2_B3","LB","LB23")
	End With
End With
173:
Is is possible to show the round an arbitrary link

With AxChartView1
	.AntiAliasing = True
	.ShowLinksDir = False
	.PenWidthLink = 1
	.LinkColor = RGB(0,0,0)
	With .Nodes
		.Add("L1_A",,"LA").LinkTo = "LB"
		.Add("L1_B<br><br>Cust",,"LB")
		With .Add("L2_A","LA","LA2")
			.LinkTo = "LB"
			.LinkToColor("LB") = RGB(255,0,0)
			.LinkToWidth("LB") = 2
			.LinkToPen("LB") = EXORGCHARTLib.PenTypeEnum.exPenDot
			.LinkToShowDir("LB") = True
			.LinkToRound("LB") = True
		End With
		.Add("L2_B1","LB","LB21")
		.Add("L2_B2","LB","LB22")
		.Add("L2_B3","LB","LB23")
	End With
End With
172:
Is is possible to show the direction for a linktoline, even if the ShowLinksDir is False

With AxChartView1
	.ShowLinksDir = False
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = True
	With .Nodes
		.Add("L1_A",,"LA").LinkTo = "LB"
		With .Add("L1_B<br><br>Cust",,"LB")
			.LinkTo = "LA2"
			.LinkToColor("LA2") = RGB(255,0,0)
			.LinkToWidth("LA2") = 2
			.LinkToPen("LA2") = EXORGCHARTLib.PenTypeEnum.exPenDashDot
			.LinkToShowDir("LA2") = True
		End With
		.Add("L2_A","LA","LA2")
		.Add("L2_B1","LB","LB21")
		.Add("L2_B2","LB","LB22")
		.Add("L2_B3","LB","LB23")
	End With
End With
171:
Is is possible to change the width for a specified linkto line

With AxChartView1
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = True
	With .Nodes
		.Add("L1_A",,"LA").LinkTo = "LB"
		With .Add("L1_B<br><br>Cust",,"LB")
			.LinkTo = "LA2"
			.LinkToColor("LA2") = RGB(255,0,0)
			.LinkToWidth("LA2") = 4
			.LinkToPen("LA2") = EXORGCHARTLib.PenTypeEnum.exPenSolid
			.LinkToCaption("LA2") = "L2A-L1B"
		End With
		.Add("L2_A","LA","LA2")
		.Add("L2_B1","LB","LB21")
		.Add("L2_B2","LB","LB22")
		.Add("L2_B3","LB","LB23")
	End With
End With
170:
Is is possible to change the width for a specified linkto line

With AxChartView1
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	With .Nodes
		.Add("L1_A",,"LA").LinkTo = "LB"
		With .Add("L1_B<br><br>Cust",,"LB")
			.LinkTo = "LA2"
			.LinkToColor("LA2") = RGB(255,0,0)
			.LinkToWidth("LA2") = 2
		End With
		.Add("L2_A","LA","LA2")
		.Add("L2_B1","LB","LB21")
		.Add("L2_B2","LB","LB22")
		.Add("L2_B3","LB","LB23")
	End With
End With
169:
Is is possible to change the color for a specified linkto line

With AxChartView1
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	With .Nodes
		.Add("L1_A",,"LA").LinkTo = "LB"
		With .Add("L1_B<br><br>Cust",,"LB")
			.LinkTo = "LA2"
			.LinkToColor("LA2") = RGB(255,0,0)
			.LinkToWidth("LA2") = 2
		End With
		.Add("L2_A","LA","LA2")
		.Add("L2_B1","LB","LB21")
		.Add("L2_B2","LB","LB22")
		.Add("L2_B3","LB","LB23")
	End With
End With
168:
How can I specify the size for a picture being shown in a specified node only

With AxChartView1
	With .Nodes
		With .Add("Child 1",,"1")
			.Picture = "c:\exontrol\images\zipdisk.gif"
			.PictureWidth = 64
			.PictureHeight = 64
		End With
		.Add("Child 2",,"2").Picture = "c:\exontrol\images\auction.gif"
	End With
End With
167:
How can I resize the pictures being shown in the nodes

With AxChartView1
	.PictureHeightNode = 24
	.PictureWidthNode = 24
	With .Nodes
		.Add("Child 1",,"1").Picture = "c:\exontrol\images\zipdisk.gif"
		.Add("Child 2",,"2").Picture = "c:\exontrol\images\auction.gif"
	End With
End With
166:
Can I change the width of the node's border

With AxChartView1
	With .Nodes
		With .Add("Child 1",,"1")
			.BorderWidth = 3
			.DrawRoundNode = False
		End With
		.Add("Child 2",,"2")
	End With
End With
165:
Can I change the visual appearance of the node

With AxChartView1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	With .Nodes
		.Add("Child 1",,"1").BackColor = &H1000000
		.Add("Child 2",,"2")
	End With
End With
164:
Can I specify a different color for node's border

With AxChartView1
	With .Nodes
		.Add("Child 1",,"1").BorderColor = RGB(255,0,0)
		.Add("Child 2",,"2")
	End With
End With
163:
Can I display my image on my links

With AxChartView1
	.set_HTMLPicture("pic1","c:\exontrol\images\colorize.gif")
	.AntiAliasing = True
	.IndentSiblingY = 30
	.IndentSiblingX = 60
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	With .Nodes
		.Add("L1_A",,"LA")
		With .Add("L1_B",,"LB")
			.LinkTo = "LA2"
			.LinkToCaption("LA2") = "<img>pic1</img> text"
		End With
		.Add("L2_A","LA","LA2")
		.Add("L2_B","LB","LB2")
	End With
End With
162:
How can I show a caption on my link

With AxChartView1
	.AntiAliasing = True
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	With .Nodes
		.Add("L1_A",,"LA")
		With .Add("L1_B",,"LB")
			.LinkTo = "LA2"
			.LinkToCaption("LA2") = "text"
		End With
		.Add("L2_A","LA","LA2")
		.Add("L2_B","LB","LB2")
	End With
End With
161:
How can I show smootly the arrows

With AxChartView1
	.AntiAliasing = True
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	With .Nodes
		.Add("L1_A",,"LA")
		.Add("L1_B",,"LB").LinkTo = "LA2"
		.Add("L2_A","LA","LA2").LinkTo = "LB"
		.Add("L2_B","LB","LB2")
	End With
End With
160:
How can I show direction on my links

With AxChartView1
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = True
	With .Nodes
		.Add("L1_A",,"LA")
		.Add("L1_B",,"LB").LinkTo = "LA2"
		.Add("L2_A","LA","LA2").LinkTo = "LB"
		.Add("L2_B","LB","LB2")
	End With
End With
159:
How can I add a doubled direction link

With AxChartView1
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	With .Nodes
		.Add("L1_A",,"LA")
		.Add("L1_B",,"LB").LinkTo = "LA2"
		.Add("L2_A","LA","LA2").LinkTo = "LB"
		.Add("L2_B","LB","LB2")
	End With
End With
158:
How can I add arbitrary links

With AxChartView1
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	With .Nodes
		.Add("L1_A",,"LA")
		.Add("L1_B",,"LB").LinkTo = "LA2"
		.Add("L2_A","LA","LA2")
		.Add("L2_B","LB","LB2")
	End With
End With
157:
How can I add multiple parents

With AxChartView1
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	With .Nodes
		.Add("L1_A",,"L1").AddGroup("L1_B")
		.Add("L_A","L1")
		.Add("L_B","L1")
		.Add("L_C","L1")
	End With
End With
156:
How can I add multiple parents or roots

With AxChartView1
	.BeginUpdate()
	.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exWPlus
	.ButtonsAlign = EXORGCHARTLib.PictureDisplayEnum.UpperCenter
	.PenWidthLink = 3
	.IndentChild = 32
	With .Root
		.HasButton = False
		.Caption = "<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"
		.Image = 0
		.AddGroup("<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")
		.AddGroup("<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")
		.AddAssistant("<b>Assistant</b> <a1>node 1</a>").Key = "A"
		With .AddAssistant("<b>Assistant</b> <a2>node 2</a>")
			.Left = True
			.ShowLinks = False
			.LinkTo = "A"
		End With
	End With
	With .Nodes
		With .Add("Parent <b>1</b>",,"Key1")
			.HasButton = False
			.ArrangeSiblingNodesAs = EXORGCHARTLib.ArrangeSiblingEnum.exTree
			.ShowRoundLink = True
			.AddGroup("Parent <b>2</b>")
			.AddGroup("Parent <b>3</b>")
		End With
		.Add("SubItem 1","Key1","S1").HasButton = False
		.Add("SubItem 1.1","S1","S111")
		.Add("SubItem 1.2","S1","S112")
		.Add("SubItem 2","Key1")
		.Add("Item 2",,"Key2").Expanded = False
		.Add("SubItem 1","Key2")
		.Add("SubItem 2","Key2")
	End With
	.EndUpdate()
End With
155:
How can I align the text/caption on the scroll bar

With AxChartView1
	.set_ScrollPartCaption(EXORGCHARTLib.ScrollBarEnum.exHScroll,EXORGCHARTLib.ScrollPartEnum.exLowerBackPart,"left")
	.set_ScrollPartCaptionAlignment(EXORGCHARTLib.ScrollBarEnum.exHScroll,EXORGCHARTLib.ScrollPartEnum.exLowerBackPart,EXORGCHARTLib.AlignmentEnum.LeftAlignment)
	.set_ScrollPartCaption(EXORGCHARTLib.ScrollBarEnum.exHScroll,EXORGCHARTLib.ScrollPartEnum.exUpperBackPart,"right")
	.set_ScrollPartCaptionAlignment(EXORGCHARTLib.ScrollBarEnum.exHScroll,EXORGCHARTLib.ScrollPartEnum.exUpperBackPart,EXORGCHARTLib.AlignmentEnum.RightAlignment)
	.FixedWidthNode = 320
End With
154:
How can I show round links

With AxChartView1
	.ShowRoundLink = True
	.Root.Image = 0
	.IndentSiblingX = 32
	.IndentSiblingY = 64
	With .Nodes
		.Add("Child <b>1</b>",,"1234").ArrangeSiblingNodesAs = EXORGCHARTLib.ArrangeSiblingEnum.exHorizontally
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
153:
How do I access a node by its key

With AxChartView1
	With .Nodes
		.Add("Child 1",,"C1")
		.Add("Sub Child 1","C1","SC1")
		.Add("Sub Sub Shild 1","SC1")
	End With
	.Nodes.Item("SC1").BackColor = RGB(255,0,0)
End With
152:
How can I get the number of nodes

With AxChartView1
	.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exPlus
	.Root.ArrangeSiblingNodesAs = EXORGCHARTLib.ArrangeSiblingEnum.exTree
	With .Nodes
		.Add("Child 1",,"C1")
		.Add("Sub Child 1","C1","SC1")
		.Add("Sub Sub Shild 1","SC1")
		.Remove(3)
	End With
End With
151:
How can I remove all nodes in the chart
With AxChartView1
	.Nodes.Clear()
End With
150:
How can I clear the chart
With AxChartView1
	.Nodes.Clear()
End With
149:
How can I get the number of nodes

With AxChartView1
	.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exPlus
	.Root.ArrangeSiblingNodesAs = EXORGCHARTLib.ArrangeSiblingEnum.exTree
	With .Nodes
		.Add("Child 1",,"C1")
		.Add("Sub Child 1","C1","SC1")
		.Add("Sub Sub Shild 1","SC1")
		.Add(.Count)
	End With
End With
148:
How can I add a child node

With AxChartView1
	.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exPlus
	.Root.ArrangeSiblingNodesAs = EXORGCHARTLib.ArrangeSiblingEnum.exTree
	With .Nodes
		.Add("Child 1",,"C1")
		.Add("Sub Child 1","C1","SC1")
		.Add("Sub Sub Shild 1","SC1")
	End With
End With
147:
How can I add a child node

With AxChartView1
	.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exPlus
	With .Nodes
		.Add("Child 1",,"C1")
		.Add("Child 2",,"C2")
		.Add("Sub Child 1","C1","SC1")
		.Add("Sub Sub Shild 1","SC1")
	End With
End With
146:
How can I draw link or a line between my own nodes

With AxChartView1
	.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exPlus
	.PenLink = EXORGCHARTLib.PenTypeEnum.exPenSolid
	.PenWidthLink = 3
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234")
		With .Add("Sub 2","1234")
			.LinkTo = "AA"
		End With
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>",,"AA")
	End With
End With
145:
How can I show or hide the link or a line between nodes

With AxChartView1
	.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exPlus
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234").ShowLinks = False
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
144:
How can I hide or show the +/- expand/collapse buttons for a specified node

With AxChartView1
	.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exPlus
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234").HasButton = False
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
143:
How can I expand or collapse a node

With AxChartView1
	.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exPlus
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234").Expanded = False
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
142:
How can I assign an icon to the root node

With AxChartView1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Root.Image = 1
End With
141:
How can I access an assistant nodes

With AxChartView1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
		.Assistant(0).Image = 1
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
	.EndUpdate()
End With
140:
How can I get the number or count of assistant nodes

With AxChartView1
	.BeginUpdate()
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
		.AddAssistant(.CountAssistants)
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
	.EndUpdate()
End With
139:
How can I display assistant nodes on the right side only

With AxChartView1
	.BeginUpdate()
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1").Left = False
		.AddAssistant("Assistant 2").Left = False
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
	.EndUpdate()
End With
138:
How can I display assistant nodes on the left side only

With AxChartView1
	.BeginUpdate()
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1").Left = True
		.AddAssistant("Assistant 2").Left = True
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
	.EndUpdate()
End With
137:
How can I clear or remove all assistant nodes

With AxChartView1
	.BeginUpdate()
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
		.ClearAssistants()
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
	.EndUpdate()
End With
136:
How can I remove an assistant node

With AxChartView1
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
		.RemoveAssistant(0)
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
135:
How can I add assistant node

With AxChartView1
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
134:
Can I change the border's node, using your EBN technology

With AxChartView1
	.VisualAppearance.Add(1,"c:\exontrol\images\hot.ebn")
	With .Nodes
		.Add("Child",,"1234")
		.Add("Sub 1","1234")
		With .Add("Sub 2","1234")
			.Caption = "This is a bit of long text that should break the line."
			.BackColor = &H1000000
		End With
	End With
End With
133:
Can I remove the shadow for a specified node

With AxChartView1
	With .Nodes
		.Add("Child",,"1234")
		.Add("Sub 1","1234")
		With .Add("Sub 2","1234")
			.Caption = "This is a bit of long text that should break the line."
			.ShadowNode = False
		End With
	End With
End With
132:
Can I change the border for a specified node

With AxChartView1
	With .Nodes
		.Add("Child",,"1234")
		.Add("Sub 1","1234")
		With .Add("Sub 2","1234")
			.Caption = "This is a bit of long text that should break the line."
			.PenBorderNode = EXORGCHARTLib.PenTypeEnum.exPenDashDotDot
		End With
	End With
End With
131:
Can I remove the round corner for a specified node

With AxChartView1
	With .Nodes
		.Add("Child",,"1234")
		.Add("Sub 1","1234")
		With .Add("Sub 2","1234")
			.Caption = "This is a bit of long text that should break the line."
			.DrawRoundNode = False
		End With
	End With
End With
130:
How can I disable or enable a node

With AxChartView1
	With .Nodes
		.Add("Child",,"1234")
		.Add("Sub 1","1234")
		With .Add("Sub 2","1234")
			.Caption = "This is a bit of long text that should break the line."
			.Enabled = False
		End With
	End With
End With
129:
How can I specify the height of the node

With AxChartView1
	With .Nodes
		.Add("Child",,"1234")
		.Add("Sub 1","1234")
		With .Add("Sub 2","1234")
			.Caption = "This is a bit of long text that should break the line."
			.FixedHeight = 128
		End With
	End With
End With
128:
How can I specify the width of the node

With AxChartView1
	With .Nodes
		.Add("Child",,"1234")
		.Add("Sub 1","1234")
		With .Add("Sub 2","1234")
			.Caption = "This is a bit of long text that should break the line."
			.FixedWidth = 128
		End With
	End With
End With
127:
How can I specify the width of the node to wrap it's content

With AxChartView1
	With .Nodes
		.Add("Child",,"1234")
		.Add("Sub 1","1234")
		With .Add("Sub 2","1234")
			.Caption = "This is a bit of long text that should break the line."
			.Width = 128
		End With
	End With
End With
126:
How can I change the position of the node

With AxChartView1
	With .Nodes
		.Add("Child",,"1234")
		.Add("Sub 1","1234")
		.Add("Sub 2","1234").Position = 0
	End With
End With
125:
How can I count or get the number of child nodes

With AxChartView1
	With .Nodes
		.Add("Child",,"1234")
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add(.Item("1234").NodeCount)
	End With
End With
124:
How can I enumerate the child nodes

With AxChartView1
	With .Nodes
		.Add("Child",,"1234")
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add(.Item("1234").FirstNode.Caption)
		.Add(.Item("1234").FirstNode.NextNode.Caption)
	End With
End With
123:
How can I change the node's parent

With AxChartView1
	.BeginUpdate()
	.Nodes.Add("Child 1",,"1234")
	.Nodes.Add("Sub 1","1234")
	.Nodes.Add("Sub 2","1234")
	.Nodes.Add("Child 2",,"1235")
	.Nodes.Add("Sub 1","1235")
	.Nodes.Add("To Move","1235","Move")
	With .Nodes.Item("Move")
		.Parent = AxChartView1.Root
		.Caption = "Moved 2 Root from Child 2"
	End With
	.EndUpdate()
End With
122:
How can I assign a key to a node

With AxChartView1
	.Nodes.Add("Child",,"1234")
	.Nodes.Add("Sub 1","1234")
	.Nodes.Add("Sub 2","1234")
End With
121:
How can I assign a key to a node

With AxChartView1
	.Nodes.Add("Child").Key = "1234"
	.Nodes.Add("Sub 1","1234")
	.Nodes.Add("Sub 2","1234")
End With
120:
How can I change the node's background color

With AxChartView1
	With .Nodes.Add("Child")
		.BackColor = RGB(255,0,0)
		.ClearBackColor()
	End With
End With
119:
How can I change the node's background color

With AxChartView1
	.Nodes.Add("Child").BackColor = RGB(255,0,0)
End With
118:
How can I change the node's foreground color

With AxChartView1
	With .Nodes.Add("Child")
		.ForeColor = RGB(255,0,0)
		.ClearForeColor()
	End With
End With
117:
How can I change the node's foreground color

With AxChartView1
	.Nodes.Add("Child").ForeColor = RGB(255,0,0)
End With
116:
How can I assign a tooltip to a node

With AxChartView1
	With .Nodes.Add("ToolTip")
		.ToolTip = "This is a bit of text that's shown when the cursor hovers this <b>node</b>."
		.ToolTipTitle = "TITLE"
	End With
End With
115:
How can I assign a different font for the node's tooltip

With AxChartView1
	.Nodes.Add("ToolTip").ToolTip = "<font Tahoma;12>This is a bit of text that's shown when the cursor hovers this <b>node</b>.</font>"
End With
114:
How can I assign a tooltip to a node

With AxChartView1
	.Nodes.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers this <b>node</b>."
End With
113:
How can I assign any extra data to my node

With AxChartView1
	.Nodes.Add("Child").UserData = "your data"
End With
112:
How can I assign an icon and a picture to a node

With AxChartView1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Nodes.Add("Child")
		.Image = 1
		.Picture = AxChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureAlignment = EXORGCHARTLib.ImageAlignmentEnum.exImageBottom
	End With
End With
111:
How can I align the picture in the node
With AxChartView1
	With .Nodes.Add("Child")
		.Picture = AxChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureAlignment = EXORGCHARTLib.ImageAlignmentEnum.exImageBottom
	End With
End With
110:
How can I align the picture in the node

With AxChartView1
	With .Nodes.Add("Child")
		.Picture = AxChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureAlignment = EXORGCHARTLib.ImageAlignmentEnum.exImageTop
	End With
End With
109:
How can I align the picture in the node

With AxChartView1
	With .Nodes.Add("Child")
		.Picture = AxChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureAlignment = EXORGCHARTLib.ImageAlignmentEnum.exImageRight
	End With
End With
108:
How can I assign a picture to a node

With AxChartView1
	.Nodes.Add("Child").Picture = AxChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
End With
107:
How can I align the icon in the node

With AxChartView1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Nodes.Add("Just a node with an icon")
		.Image = 1
		.ImageAlignment = EXORGCHARTLib.ImageAlignmentEnum.exImageRight
	End With
End With
106:
How can I align the icon in the node

With AxChartView1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Nodes.Add("Just a node with an icon")
		.Image = 1
		.ImageAlignment = EXORGCHARTLib.ImageAlignmentEnum.exImageBottom
	End With
End With
105:
How can I align the icon in the node

With AxChartView1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Nodes.Add("Just a node with an icon")
		.Image = 1
		.ImageAlignment = EXORGCHARTLib.ImageAlignmentEnum.exImageTop
	End With
End With
104:
How can I assign an icon to a node

With AxChartView1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Nodes.Add("Child").Image = 1
End With
103:
How can I change the font for a node

With AxChartView1
	.Nodes.Add("Child").Caption = "<font Tahoma;12>new</font> caption"
End With
102:
How can I add a multiple lines node

With AxChartView1
	.Nodes.Add("").Caption = "Line 1<br>Line 2<br>Line3"
End With
101:
How can I add a multiple lines node

With AxChartView1
	.Nodes.Add("Line 1<br>Line 2<br>Line3")
End With
100:
How can I change the background color for parts of the text

With AxChartView1
	.Nodes.Add("Child").Caption = "<bgcolor=FF0000>new</bgcolor> caption"
End With
99:
How can I change the foreground color for parts of the text

With AxChartView1
	.Nodes.Add("Child").Caption = "<fgcolor=FF0000>new</fgcolor> caption"
End With
98:
How can I show the node as strikeout

With AxChartView1
	.Nodes.Add("Child").Caption = "<s>new</s> caption"
End With
97:
How can I show the node as underlined

With AxChartView1
	.Nodes.Add("Child").Caption = "<u>new</u> caption"
End With
96:
How can I show the node as italic

With AxChartView1
	.Nodes.Add("Child").Caption = "<i>new</i> caption"
End With
95:
How can I bold the node

With AxChartView1
	.Nodes.Add("Child").Caption = "<b>new</b> caption"
End With
94:
How can I change the node's caption

With AxChartView1
	.Nodes.Add("Child").Caption = "new caption"
End With
93:
How can I display hierarchical the child nodes so they are indented relative to their parents

With AxChartView1
	.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exPlus
	.PenLink = EXORGCHARTLib.PenTypeEnum.exPenSolid
	.PenWidthLink = 3
	.IndentSiblingX = 12
	.IndentSiblingY = 12
	.Root.Image = 0
	With .Nodes
		.Add("As <b>Tree</b>",,"1234").ArrangeSiblingNodesAs = EXORGCHARTLib.ArrangeSiblingEnum.exTree
		.Add("Sub 1","1234")
		.Add("Sub 2","1234","456")
		.Add("Item 1","456")
		.Add("Item 2","456","78").Expanded = False
		.Add("Item 2.1","78")
		.Add("Item 2.2","78")
		.Add("Item 3","456")
		.Add("Sub 3","1234")
		.Add("As <b>Default</b>",,"AA")
		.Add("Item 1","AA")
		.Add("Item 2","AA","BB")
		.Add("Item 2.1","BB")
		.Add("Item 2.2","BB")
		.Add("Item 2.3","BB")
		.Add("Item 3","AA")
	End With
End With
92:
How can I display the child nodes as a tree, so they are indented relative to their parents

With AxChartView1
	.IndentSiblingY = 4
	.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exPlus
	With .Root
		.Image = 0
		.ArrangeSiblingNodesAs = EXORGCHARTLib.ArrangeSiblingEnum.exTree
	End With
	With .Nodes
		.Add("Child 1",,"1234")
		.Add("Sub 1","1234")
		.Add("Sub 2","1234","456")
		.Add("Item 1","456")
		.Add("Item 2","456","78").Expanded = False
		.Add("Item 2.1","78")
		.Add("Item 2.2","78")
		.Add("Item 3","456")
		.Add("Sub 3","1234")
		.Add("Child 2")
	End With
End With
91:
How can I indent the child nodes relative to their parents

With AxChartView1
	.IndentChild = 32
	.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exPlus
	.Root.Image = 0
	With .Nodes
		.Add("AsTree",,"1234").ArrangeSiblingNodesAs = EXORGCHARTLib.ArrangeSiblingEnum.exTree
		.Add("Sub 1","1234")
		.Add("Sub 2","1234","456")
		.Add("Item 1","456")
		.Add("Item 2","456","78").Expanded = False
		.Add("Item 2.1","78")
		.Add("Item 2.2","78")
		.Add("Item 3","456")
		.Add("Sub 3","1234")
		.Add("Child 2",,"AA")
		.Add(1,"AA")
		.Add(2,"AA","BB")
		.Add("2.1","BB")
		.Add("2.2","BB")
		.Add(3,"AA")
	End With
End With
90:
How can I increase the distance between nodes

With AxChartView1
	.IndentSiblingY = 64
	.Root.Image = 0
	With .Nodes
		.Add("<a1>Link 1</a>",,"1234")
		.Add("Sub <a1>Link 1</a>","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("<a2>Link 2</a>")
	End With
End With
89:
How can I increase the distance between nodes

With AxChartView1
	.IndentSiblingX = 64
	.Root.Image = 0
	With .Nodes
		.Add("<a1>Link 1</a>",,"1234")
		.Add("Sub <a1>Link 1</a>","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("<a2>Link 2</a>")
	End With
End With
88:
How can I add an anchor or a hyperlink

With AxChartView1
	.Root.Image = 0
	With .Nodes
		.Add("<a1>Link 1</a>",,"1234")
		.Add("Sub <a1>Link 1</a>","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("<a2>Link 2</a>")
	End With
End With
87:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

With AxChartView1
	.set_FormatAnchor(False,"<u><fgcolor=880000> </fgcolor></u>")
	.Root.Image = 0
	With .Nodes
		.Add("<a1>Link 1</a>",,"1234")
		.Add("Sub <a1>Link 1</a>","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("<a2>Link 2</a>")
	End With
End With
86:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

With AxChartView1
	.set_FormatAnchor(True,"<u><fgcolor=FF0000> </fgcolor></u>")
	.Root.Image = 0
	With .Nodes
		.Add("<a1>Link 1</a>",,"1234")
		.Add("Sub <a1>Link 1</a>","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("<a2>Link 2</a>")
	End With
End With
83:
How can I assign multiple icons to a node

With AxChartView1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.Root.Image = 0
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234").Caption = "<img>1</img> text <img>2</img> and so on<br>bla <b>bla</b> left<r><img>3</img>"
		With .Add("Sub 2","1234")
			.Caption = "<img>pic1</img> text <img>1:6</img><img>1:6</img><img>1</img> <img>2</img>"
			.FixedWidth = 124
			.FixedHeight = 48
		End With
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
82:
How can I assign multiple pictures to a node

With AxChartView1
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.set_HTMLPicture("pic2","c:\exontrol\images\auction.gif")
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		With .Add("Sub 1","1234")
			.Caption = "<img>pic1</img> text <img>pic2</img>"
			.FixedWidth = 108
			.FixedHeight = 48
		End With
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
81:
How can I change the color of the line that links assistant nodes

With AxChartView1
	.LinkAssistantColor = RGB(255,0,0)
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
80:
How can I change the width of the line that links assistant nodes

With AxChartView1
	.PenLinkAssistant = EXORGCHARTLib.PenTypeEnum.exPenSolid
	.PenWidthLinkAssistant = 4
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
79:
How can I change the style of the line that links assistant nodes

With AxChartView1
	.PenLinkAssistant = EXORGCHARTLib.PenTypeEnum.exPenDashDotDot
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
78:
How can I change the shape of the cursor when it hovers the +/- or expand/collapse buttons

With AxChartView1
	.set_Cursor(EXORGCHARTLib.ClientAreaEnum.exExpandButtonArea,"exHelp")
	.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exPlus
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234").Expanded = False
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
77:
How do I change the shape of the cursor when the user clicks an drags the chart

With AxChartView1
	.set_Cursor(EXORGCHARTLib.ClientAreaEnum.exDragChart,"exHelp")
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234").Expanded = False
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
76:
How do I change the shape of the cursor when it hovers a node

With AxChartView1
	.set_Cursor(EXORGCHARTLib.ClientAreaEnum.exNodeArea,"exHelp")
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234").Expanded = False
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
75:
How do I change the shape of the cursor when it hovers the chart

With AxChartView1
	.set_Cursor(EXORGCHARTLib.ClientAreaEnum.exChartArea,"exHelp")
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234").Expanded = False
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
74:
How can I copy and paste the control's content to Microsoft Word for instance

With AxChartView1
	.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exPlus
	.PenLink = EXORGCHARTLib.PenTypeEnum.exPenSolid
	.PenWidthLink = 3
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234").Expanded = False
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
73:
How can I copy and paste the control's content to Microsoft Word for instance

With AxChartView1
	.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exPlus
	.ButtonsAlign = EXORGCHARTLib.PictureDisplayEnum.MiddleRight
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234").Expanded = False
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
72:
How can I enable or disable expanding or collapsing a node when user double clicks it

With AxChartView1
	.ExpandOnDblClk = False
	.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exPlus
	.ButtonsAlign = EXORGCHARTLib.PictureDisplayEnum.MiddleRight
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234").Expanded = False
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
71:
How can I align the +/- expand or collapse buttons to the right

With AxChartView1
	.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exPlus
	.ButtonsAlign = EXORGCHARTLib.PictureDisplayEnum.MiddleRight
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234").Expanded = False
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
70:
Can I display the +/- expand or collapse buttons using your EBN files

With AxChartView1
	With .VisualAppearance
		.Add(11,"c:\exontrol\images\normal.ebn")
		.Add(22,"c:\exontrol\images\pushed.ebn")
		.Add(1,"CP:11 2 2 -2 -2")
		.Add(2,"CP:22 2 2 -2 -2")
	End With
	.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exCustom
	.set_HasButtonsCustom(True,33554432)
	.set_HasButtonsCustom(False,16777216)
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234").Expanded = False
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
69:
How can I change the +/- expand or collapse buttons

With AxChartView1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exCustom
	.set_HasButtonsCustom(True,1)
	.set_HasButtonsCustom(False,2)
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234").Expanded = False
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
68:
How can I change the +/- expand or collapse buttons

With AxChartView1
	.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exCircle
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234").Expanded = False
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
67:
How can I display +/- expand or collapse buttons

With AxChartView1
	.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exPlus
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234").Expanded = False
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
66:
How do I show or hide the assistant nodes

With AxChartView1
	.ShowAssistants = True
	With .Root
		.Image = 0
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
65:
How do I scale or zoom the chart

With AxChartView1
	.BorderWidth = 18
	.BorderHeight = 18
	.ZoomWidthMode = EXORGCHARTLib.ZoomModeEnum.exCustomSize
	.ZoomHeightMode = EXORGCHARTLib.ZoomModeEnum.exCustomSize
	.ZoomWidth = 2
	.ZoomHeight = 2
	.Root.Image = 0
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
64:
How do I scale or zoom the chart

With AxChartView1
	.BorderWidth = 18
	.BorderHeight = 18
	.ZoomWidthMode = EXORGCHARTLib.ZoomModeEnum.exControlSize
	.ZoomHeightMode = EXORGCHARTLib.ZoomModeEnum.exControlSize
	.Root.Image = 0
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
63:
How can I ensure that the selected node is visible or fits the chart's area

With AxChartView1
	.EnsureVisibleOnSelect = True
	.ScrollOnEnsure = False
	.BorderWidth = 18
	.BorderHeight = 18
	.ZoomWidthMode = EXORGCHARTLib.ZoomModeEnum.exCustomSize
	.ZoomHeightMode = EXORGCHARTLib.ZoomModeEnum.exCustomSize
	.ZoomWidth = 2
	.ZoomHeight = 2
	.Root.Image = 0
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Sub 3","1234")
		.Add("Child <b>2</b>")
	End With
End With
62:
How do I avoid slow moving the chart when the user selects a new node

With AxChartView1
	.ScrollByClick = False
End With
61:
How do I ensure that a node is visible or fits the chart's area

With AxChartView1
	.Root.Image = 0
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Child <b>2</b>")
	End With
	.EnsureVisibleNode("1234")
End With
60:
How do I change the root node, so it explore from a specified node

With AxChartView1
	.Root.Image = 0
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234")
		.Add("Sub 2","1234")
		.Add("Child <b>2</b>")
	End With
	.ExploreFromNode = "1234"
End With
59:
How do I select a node

With AxChartView1
	.Root.Image = 0
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Child <b>2</b>")
	End With
	.SelectNode = "1234"
	.HideSelection = False
End With
57:
How do I fix the height for all nodes

With AxChartView1
	.FixedHeightNode = 32
	.Root.Image = 0
	With .Nodes
		.Add("Child <b>1</b>")
		.Add("Child <b>2</b>")
	End With
End With
56:
How do I fix the width for all nodes

With AxChartView1
	.FixedWidthNode = 128
	.Root.Image = 0
	With .Nodes
		.Add("Child <b>1</b>")
		.Add("Child <b>2</b>")
	End With
End With
55:
How do I change the style of the link between nodes

With AxChartView1
	.PenLink = EXORGCHARTLib.PenTypeEnum.exPenDash
	With .Nodes
		.Add("Child <b>1</b>")
		.Add("Child <b>2</b>")
	End With
End With
54:
How do I change the color to link the nodes

With AxChartView1
	.LinkColor = RGB(255,0,0)
	With .Nodes
		.Add("Child <b>1</b>")
		.Add("Child <b>2</b>")
	End With
End With
53:
How do I change the shape for selected node, using your EBN files

With AxChartView1
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.GetOcx().SelColor = &H2000000
	.SelectNode = "root"
	.HideSelection = False
	With .Nodes
		.Add("Child <b>1</b>")
		.Add("Child <b>2</b>")
	End With
End With
52:
How do I change the color for selected node

With AxChartView1
	.SelColor = RGB(0,0,255)
	.SelectNode = "root"
	.HideSelection = False
	With .Nodes
		.Add("Child <b>1</b>")
		.Add("Child <b>2</b>")
	End With
End With
51:
How do I hide the node's shadow

With AxChartView1
	.ShadowNode = False
End With
50:
How do I change the pen to draw the border for all nodes

With AxChartView1
	.PenBorderNode = EXORGCHARTLib.PenTypeEnum.exPenDot
End With
49:
How do I change the shape of the border for all nodes

With AxChartView1
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.set_Background(EXORGCHARTLib.BackgroundPartEnum.exNodeFrame,33554432)
End With
48:
How do I change the shape of the border for all nodes

With AxChartView1
	.DrawRoundNode = False
End With
47:
How do I change the foreground color for all nodes

With AxChartView1
	.ForeColorNode = RGB(255,0,0)
	With .Nodes
		.Add("Child <b>1</b>")
		.Add("Child <b>2</b>")
	End With
End With
46:
How do I change the background color for all nodes

With AxChartView1
	.BackColorNode = RGB(255,0,0)
	With .Nodes
		.Add("Child <b>1</b>")
		.Add("Child <b>2</b>")
	End With
End With
45:
How do I change the key of the root

With AxChartView1
	.Root.Key = "myKey"
End With
44:
How do I change the caption of the root

With AxChartView1
	.Root.Caption = "new<br>root"
End With
43:
How do I access the root node

With AxChartView1
	.Root.Caption = "new<br>root"
End With
42:
How do I access the nodes collection

With AxChartView1
	With .Nodes
		.Add("Child <b>1</b>")
		.Add("Child <b>2</b>")
	End With
End With
41:
How do I refresh the control

With AxChartView1
	.Nodes.Add("Child <b>1</b>")
	.Nodes.Add("Child <b>2</b>")
	.Refresh()
End With
40:
How do I prevent painting while several changes are performed

With AxChartView1
	.BeginUpdate()
	.Nodes.Add("Child <b>1</b>")
	.Nodes.Add("Child <b>2</b>")
	.EndUpdate()
End With
39:
How do I indent the full chart to the right

With AxChartView1
	.BorderWidth = 8
	.BorderHeight = 8
End With
38:
How can I change the node's border/frame, using your EBN files

With AxChartView1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background(EXORGCHARTLib.BackgroundPartEnum.exNodeFrame,16777216)
	.Nodes.Add("Child <b>1</b>")
	.Nodes.Add("Child <b>2</b>")
End With
37:
How can still display the selected node when the control loses the focus

With AxChartView1
	.HideSelection = False
End With
36:
How do I disable or enable the control
With AxChartView1
	.Enabled = False
End With
35:
How do I change the visual aspect for thumb parts in the scroll bars, using EBN

With AxChartView1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
	.set_Background(EXORGCHARTLib.BackgroundPartEnum.exHSThumb,16777216)
	.set_Background(EXORGCHARTLib.BackgroundPartEnum.exHSThumbP,33554432)
	.set_Background(EXORGCHARTLib.BackgroundPartEnum.exHSThumbH,50331648)
	.set_Background(EXORGCHARTLib.BackgroundPartEnum.exVSThumb,16777216)
	.set_Background(EXORGCHARTLib.BackgroundPartEnum.exVSThumbP,33554432)
	.set_Background(EXORGCHARTLib.BackgroundPartEnum.exVSThumbH,50331648)
	.FixedWidthNode = 320
End With
34:
How do I change the visual aspect only for the thumb in the scroll bar, using EBN

With AxChartView1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
	.set_Background(EXORGCHARTLib.BackgroundPartEnum.exHSThumb,16777216)
	.set_Background(EXORGCHARTLib.BackgroundPartEnum.exHSThumbP,33554432)
	.set_Background(EXORGCHARTLib.BackgroundPartEnum.exHSThumbH,50331648)
	.set_ScrollThumbSize(EXORGCHARTLib.ScrollBarEnum.exHScroll,96)
	.FixedWidthNode = 320
End With
33:
I've seen that you can change the visual appearance for the scroll bar. How can I do that

With AxChartView1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
	.set_Background(EXORGCHARTLib.BackgroundPartEnum.exSBtn,16777216)
	.set_Background(EXORGCHARTLib.BackgroundPartEnum.exSBtnP,33554432)
	.set_Background(EXORGCHARTLib.BackgroundPartEnum.exSBtnH,50331648)
	.set_Background(EXORGCHARTLib.BackgroundPartEnum.exHSBack,15790320)
	.set_Background(EXORGCHARTLib.BackgroundPartEnum.exVSBack,15790320)
	.set_Background(EXORGCHARTLib.BackgroundPartEnum.exSizeGrip,15790320)
	.FixedWidthNode = 320
End With
32:
Can I change the forecolor for the tooltip

With AxChartView1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.set_Background(EXORGCHARTLib.BackgroundPartEnum.exToolTipForeColor,255)
	.Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node."
End With
31:
Can I change the background color for the tooltip

With AxChartView1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.set_Background(EXORGCHARTLib.BackgroundPartEnum.exToolTipBackColor,255)
	.Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node."
End With
30:
Can I change the default border of the tooltip, using your EBN files

With AxChartView1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background(EXORGCHARTLib.BackgroundPartEnum.exToolTipAppearance,16777216)
	.Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node."
End With
29:
How do I call your x-script language

With AxChartView1
	.ExecuteTemplate("BackColor = RGB(255,0,0)")
End With
28:
How do I call your x-script language

With AxChartView1
	.Template = "BackColor = RGB(255,0,0)"
End With
27:
Can I change the font for the tooltip

With AxChartView1
	.ToolTipDelay = 1
	With .ToolTipFont
		.Name = "Tahoma"
		.Size = 14
	End With
	.ToolTipWidth = 364
	.Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node."
End With
26:
I've seen that the width of the tooltip is variable. Can I make it larger

With AxChartView1
	.ToolTipWidth = 328
	.Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node."
End With
25:
How do I let the tooltip being displayed longer

With AxChartView1
	.ToolTipPopDelay = 10000
	.Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node."
End With
24:
How do I disable showing the tooltip for all control
With AxChartView1
	.ToolTipDelay = 0
	.Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node."
End With
23:
How do I show the tooltip quicker

With AxChartView1
	.ToolTipDelay = 1
	.Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node."
End With
22:
Can I change the order of the buttons in the scroll bar

With AxChartView1
	.set_ScrollOrderParts(EXORGCHARTLib.ScrollBarEnum.exHScroll,"t,l,r")
	.set_ScrollOrderParts(EXORGCHARTLib.ScrollBarEnum.exVScroll,"t,l,r")
	.FixedWidthNode = 320
End With
21:
The thumb size seems to be very small. Can I make it bigger

With AxChartView1
	.set_ScrollThumbSize(EXORGCHARTLib.ScrollBarEnum.exHScroll,164)
	.FixedWidthNode = 320
End With
20:
How do I enlarge or change the size of the control's scrollbars

With AxChartView1
	.ScrollHeight = 18
	.ScrollWidth = 18
	.ScrollButtonWidth = 18
	.ScrollButtonHeight = 18
	.FixedWidthNode = 320
	.FixedHeightNode = 320
End With
19:
How can I display my text on the scroll bar, using a different font

With AxChartView1
	.set_ScrollPartCaption(EXORGCHARTLib.ScrollBarEnum.exHScroll,EXORGCHARTLib.ScrollPartEnum.exThumbPart,"This is just a text")
	.get_ScrollFont(EXORGCHARTLib.ScrollBarEnum.exHScroll).Size = 12
	.set_ScrollThumbSize(EXORGCHARTLib.ScrollBarEnum.exHScroll,128)
	.ScrollHeight = 24
	.set_ScrollPartCaption(EXORGCHARTLib.ScrollBarEnum.exHScroll,EXORGCHARTLib.ScrollPartEnum.exThumbPart,"This is <s><font Tahoma;12> just </font></s> text")
	.ScrollHeight = 20
	.FixedWidthNode = 320
End With
18:
How can I display my text on the scroll bar

With AxChartView1
	.set_ScrollPartCaption(EXORGCHARTLib.ScrollBarEnum.exHScroll,EXORGCHARTLib.ScrollPartEnum.exThumbPart,"this is just a text")
	.set_ScrollThumbSize(EXORGCHARTLib.ScrollBarEnum.exHScroll,96)
	.FixedWidthNode = 320
End With
17:
How do I assign a tooltip to a scrollbar

With AxChartView1
	.set_ScrollToolTip(EXORGCHARTLib.ScrollBarEnum.exHScroll,"This is a tooltip being shown when you click and drag the thumb in the horizontal scroll bar")
	.FixedWidthNode = 320
End With
16:
How do I assign an icon to the button in the scrollbar

With AxChartView1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.set_ScrollPartVisible(EXORGCHARTLib.ScrollBarEnum.exHScroll,EXORGCHARTLib.ScrollPartEnum.exLeftB1Part,True)
	.set_ScrollPartCaption(EXORGCHARTLib.ScrollBarEnum.exHScroll,EXORGCHARTLib.ScrollPartEnum.exLeftB1Part,"<img>1</img>")
	.ScrollHeight = 18
	.ScrollButtonWidth = 18
	.FixedWidthNode = 320
End With
15:
I need to add a button in the scroll bar. Is this possible

With AxChartView1
	.set_ScrollPartVisible(EXORGCHARTLib.ScrollBarEnum.exHScroll,EXORGCHARTLib.ScrollPartEnum.exLeftB1Part,True)
	.set_ScrollPartCaption(EXORGCHARTLib.ScrollBarEnum.exHScroll,EXORGCHARTLib.ScrollPartEnum.exLeftB1Part,"1")
	.FixedWidthNode = 320
End With
14:
Can I display an additional buttons in the scroll bar

With AxChartView1
	.set_ScrollPartVisible(EXORGCHARTLib.ScrollBarEnum.exHScroll,EXORGCHARTLib.ScrollPartEnum.exLeftB1Part,True)
	.set_ScrollPartVisible(EXORGCHARTLib.ScrollBarEnum.exHScroll,EXORGCHARTLib.ScrollPartEnum.exLeftB2Part,True)
	.set_ScrollPartVisible(EXORGCHARTLib.ScrollBarEnum.exHScroll,EXORGCHARTLib.ScrollPartEnum.exRightB6Part,True)
	.set_ScrollPartVisible(EXORGCHARTLib.ScrollBarEnum.exHScroll,EXORGCHARTLib.ScrollPartEnum.exRightB5Part,True)
	.FixedWidthNode = 320
End With
13:
How do I change the control's foreground color

With AxChartView1
	.ForeColor = RGB(255,0,0)
End With
12:
How do I change the control's background color

With AxChartView1
	.BackColor = RGB(200,200,200)
End With
11:
How can I change the control's font

With AxChartView1
	.Font.Name = "Verdana"
End With
10:
How do I put a picture on the center of the control

With AxChartView1
	.Picture = AxChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = EXORGCHARTLib.PictureDisplayEnum.MiddleCenter
End With
9:
How do I resize/stretch a picture on the control's background

With AxChartView1
	.Picture = AxChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = EXORGCHARTLib.PictureDisplayEnum.Stretch
End With
8:
How do I put a picture on the control's center right bottom side

With AxChartView1
	.Picture = AxChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = EXORGCHARTLib.PictureDisplayEnum.LowerRight
End With
7:
How do I put a picture on the control's center left bottom side

With AxChartView1
	.Picture = AxChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = EXORGCHARTLib.PictureDisplayEnum.LowerLeft
End With
6:
How do I put a picture on the control's center top side

With AxChartView1
	.Picture = AxChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = EXORGCHARTLib.PictureDisplayEnum.UpperCenter
End With
5:
How do I put a picture on the control's right top corner

With AxChartView1
	.Picture = AxChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = EXORGCHARTLib.PictureDisplayEnum.UpperRight
End With
4:
How do I put a picture on the control's left top corner

With AxChartView1
	.Picture = AxChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = EXORGCHARTLib.PictureDisplayEnum.UpperLeft
End With
3:
How do I put a picture on the control's background

With AxChartView1
	.Picture = AxChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
End With
2:
How do I change the control's border, using your EBN files

With AxChartView1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Appearance = &H1000000
End With
1:
How do I remove the control's border

With AxChartView1
	.Appearance = EXORGCHARTLib.AppearanceEnum.None2
End With