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

With ChartView1
	.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(-1) = 8
		.Padding(3) = 22
		.BackColor = &H1000000
		.Pattern.Type = 0
		.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 ChartView1
	.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(-1) = 8
		With .Pattern
			.Type = 10
			.Color = RGB(190,190,190)
		End With
	End With
	.EndUpdate 
End With
210:
How can I show the frame with an EBN color

With ChartView1
	.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(-1) = 8
		.BackColor = &H1000000
		.Pattern.Type = 0
	End With
	.EndUpdate 
End With
209:
How can I show the frame with an EBN color

With ChartView1
	.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(-1) = 8
		.BackColor = &H1000000
		.Pattern.Type = 0
	End With
	.EndUpdate 
End With
208:
How can I show the frame with a solid color

With ChartView1
	.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 = 0
	End With
	.EndUpdate 
End With
207:
Is it possible to enlarge/shrink the frame

With ChartView1
	.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(-1) = -4
		With .Pattern
			.Type = 261 ' PatternEnum.exPatternFrame Or 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 ChartView1
	.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 = 261 ' PatternEnum.exPatternFrame Or 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 ChartView1
	.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 = 261 ' PatternEnum.exPatternFrame Or 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 ChartView1
	.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 = 261 ' PatternEnum.exPatternFrame Or PatternEnum.exPatternFDiagonal
			.Color = RGB(190,190,190)
			.FrameColor = RGB(128,128,128)
		End With
	End With
	With .Frames.Add("GR2")
		With .Pattern
			.Type = 261 ' PatternEnum.exPatternFrame Or 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 ChartView1
	.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 = 261 ' PatternEnum.exPatternFrame Or 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 ChartView1
	.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 = 261 ' PatternEnum.exPatternFrame Or 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 ChartView1
	.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 = 261 ' PatternEnum.exPatternFrame Or 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 ChartView1
	.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 = 261 ' PatternEnum.exPatternFrame Or 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 ChartView1
	.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 = 261 ' PatternEnum.exPatternFrame Or 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 ChartView1
	.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(-1) = -2
		With .Pattern
			.Type = 6
			.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 ChartView1
	.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 = 0
	.SelColor = RGB(255,255,0)
	.HasButtons = -1
	.DefaultNodePadding(-1) = 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(-1) = 0
			.FixedWidth = 72
			.BackColor = &H2000000
		End With
	End With
	With .Nodes
		With .Add("1. Internal","Root","Internal")
			.ArrangeSiblingNodesAs = 2
			.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(-1) = 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(-1) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("1.1.1 Rough-in electrical","Electrical","RoughElectrical")
			.BackColor = &H3000000
			.Padding(-1) = 0
			With .AddAssistant("<font ;6>Work:<r>2.80%<br>Budget:<r>$5,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(-1) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("1.1.2 Install and Terminate","Electrical","InstallTerminate")
			.BackColor = &H3000000
			.Padding(-1) = 0
			With .AddAssistant("<font ;6>Work:<r>1.90%<br>Budget:<r>$5,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(-1) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("1.1.3 HVAC Equipment","Electrical","HVAC")
			.BackColor = &H3000000
			.Padding(-1) = 0
			With .AddAssistant("<font ;6>Work:<r>7.10%<br>Budget:<r>$15,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(-1) = 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(-1) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("1.2.1 Rough-in plumbing","Plumbing","RoughPlumbing")
			.BackColor = &H3000000
			.Padding(-1) = 0
			With .AddAssistant("<font ;6>Work:<r>11.30%<br>Budget:<r>$22,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(-1) = 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(-1) = 0
			With .AddAssistant("<font ;6>Work:<r>13.20%<br>Budget:<r>$31,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(-1) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("1.2.3 Test and clean","Plumbing","PlumbingTest")
			.BackColor = &H3000000
			.Padding(-1) = 0
			With .AddAssistant("<font ;6>Work:<r>9.30%<br>Budget:<r>$8,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(-1) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("2. Foundation","Root","Foundation")
			.ArrangeSiblingNodesAs = 2
			.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(-1) = 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(-1) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("2.1.1 Pour Concrete","Excavate","Concrete")
			.BackColor = &H3000000
			.Padding(-1) = 0
			With .AddAssistant("<font ;6>Work:<r>7.90%<br>Budget:<r>$30,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(-1) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("2.1.2 Cure & Strip Forms","Excavate","CureForms")
			.BackColor = &H3000000
			.Padding(-1) = 0
			With .AddAssistant("<font ;6>Work:<r>10.30%<br>Budget:<r>$70,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(-1) = 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(-1) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("2.2.1 Steel Columns","Steel","SteelColumns")
			.BackColor = &H3000000
			.Padding(-1) = 0
			With .AddAssistant("<font ;6>Work:<r>2.80%<br>Budget:<r>$50,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(-1) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("2.2.2 Beams","Steel","Beams")
			.Width = 256
			.BackColor = &H3000000
			.Padding(-1) = 0
			With .AddAssistant("<font ;6>Work:<r>1.90%<br>Budget:<r>$2,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(-1) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("2.2.3 Joist","Steel","Joist")
			.BackColor = &H3000000
			.Padding(-1) = 0
			With .AddAssistant("<font ;6>Work:<r>1.10%<br>Budget:<r>$2,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(-1) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("3. External","Root","External")
			.ArrangeSiblingNodesAs = 2
			.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(-1) = 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(-1) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("3.1.1 Lay Masonry","Masonry","LayMasonry")
			.BackColor = &H3000000
			.Padding(-1) = 0
			With .AddAssistant("<font ;6>Work:<r>9.00%<br>Budget:<r>$35,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(-1) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("3.1.2 Install roof drains","Masonry","RoofDrains")
			.BackColor = &H3000000
			.Padding(-1) = 0
			With .AddAssistant("<font ;6>Work:<r>3.10%<br>Budget:<r>$2,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(-1) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("3.1.3 Install tile in toilet rooms","Masonry","TileToiles")
			.BackColor = &H3000000
			.Padding(-1) = 0
			With .AddAssistant("<font ;6>Work:<r>1.30%<br>Budget:<r>$10,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(-1) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("3.1.4 Roofing","Masonry","Roofing")
			.BackColor = &H3000000
			.Padding(-1) = 0
			With .AddAssistant("<font ;6>Work:<r>2.80%<br>Budget:<r>$15,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(-1) = 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(-1) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("3.2.1 Paint Walls","Building","Paint")
			.BackColor = &H3000000
			.Padding(-1) = 0
			With .AddAssistant("<font ;6>Work:<r>4.00%<br>Budget:<r>$8,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(-1) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("3.2.2 Ceiling Tiles","Building","CeilingTiles")
			.Width = 256
			.BackColor = &H3000000
			.Padding(-1) = 0
			With .AddAssistant("<font ;6>Work:<r>3.60%<br>Budget:<r>$4,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(-1) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("3.2.3 Hang Wallpaper","Building","Wallpaper")
			.BackColor = &H3000000
			.Padding(-1) = 0
			With .AddAssistant("<font ;6>Work:<r>2.30%<br>Budget:<r>$1,500.00")
				.Left = False
				.ShowLinks = False
				.Padding(-1) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("3.2.4 Carpet","Building","Carpet")
			.BackColor = &H3000000
			.Padding(-1) = 0
			With .AddAssistant("<font ;6>Work:<r>1.80%<br>Budget:<r>$6,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(-1) = 0
				.FixedWidth = 72
				.BackColor = &H2000000
			End With
		End With
		With .Add("3.2.5 Hardware","Building","Hardware")
			.BackColor = &H3000000
			.Padding(-1) = 0
			With .AddAssistant("<font ;6>Work:<r>2.50%<br>Budget:<r>$2,000.00")
				.Left = False
				.ShowLinks = False
				.Padding(-1) = 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 ChartView1
	.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(-1) = 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 ChartView1
	.BeginUpdate 
	.DefaultNodePadding(-1) = 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 ChartView1
	.Nodes.Add "Text",,"1234"
	.EditNode "1234"
End With
193:
WidthNode does not seem to do anything. What this property is for

With ChartView1
	.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 ChartView1
	.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 = ChartView1.Object
		.Preview 
	End With
End With
191:
Does your control support Print and Print-Preview

With ChartView1
	.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 = ChartView1
		.Preview 
	End With
End With
190:
Does your control support subscript or superscript, in HTML captions

With ChartView1
	.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 ChartView1
	.AllowMoveChart = 0
	.AllowMoveNode = 1
	.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 ChartView1
	.AllowMoveNode = 0
End With
187:
How can I disable resizing the chart using the middle mouse button
With ChartView1
	.AllowResizeChart = 0
End With
186:
How can I disable inline editing
With ChartView1
	.AllowEdit = 0
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 ChartView1_MouseUp(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	' Items.Add(Me.NodeFromPoint(-1,-1).Caption,0,1234)
	With ChartView1
		With CreateObject("Exontrol.ExPopupMenu")
			Debug.Print( .ShowAtCursor )
		End With
	End With
End Sub

With ChartView1
	.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 ChartView1_AnchorClick(ByVal AnchorID As String,ByVal Options As String)
	With ChartView1
		Debug.Print( Options )
	End With
End Sub

With ChartView1
	.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 ChartView1
	.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 ChartView1
	.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 ChartView1
	.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 ChartView1
	.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 ChartView1
	.BeginUpdate 
	.Layout = 1
	.ShowLinksDir = 1
	.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 ChartView1
	.BeginUpdate 
	.PictureHeightNode = 48
	.PictureAspectRatioNode = 2
	.FixedWidthNode = 82
	With .Nodes
		With .Add("PNG <b>1",,"0")
			.Picture = "c:\exontrol\images\card.png"
			.Alignment = 1
		End With
		With .Add("PNG <b>2",,"1")
			.Picture = "c:\exontrol\images\diary.png"
			.Alignment = 1
		End With
		With .Add("PNG <b>3",,"2")
			.Picture = "c:\exontrol\images\sun.png"
			.Alignment = 1
		End With
	End With
	.Root.Alignment = 1
	.EndUpdate 
End With
177:
Is there any property to keep the aspect ratio for all pictures

With ChartView1
	.BeginUpdate 
	.PictureHeightNode = 48
	.PictureAspectRatioNode = 2
	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 ChartView1
	.BeginUpdate 
	.PictureWidthNode = 48
	.PictureAspectRatioNode = 1
	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 ChartView1
	.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 = 1
		End With
		With .Add("Ratio/Height",,"2")
			.Picture = "c:\exontrol\images\card.png"
			.PictureHeight = 48
			.PictureAspectRatio = 2
		End With
	End With
	.EndUpdate 
End With
174:
Is is possible to show the round an arbitrary link

With ChartView1
	.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") = 2
			.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 ChartView1
	.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") = 2
			.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 ChartView1
	.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") = 3
			.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 ChartView1
	.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") = 0
			.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 ChartView1
	.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 ChartView1
	.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 ChartView1
	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 ChartView1
	.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 ChartView1
	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 ChartView1
	.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 ChartView1
	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 ChartView1
	.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 ChartView1
	.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 ChartView1
	.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 ChartView1
	.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 ChartView1
	.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 ChartView1
	.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 ChartView1
	.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 ChartView1
	.BeginUpdate 
	.HasButtons = 3
	.ButtonsAlign = 1
	.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 = 2
			.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 ChartView1
	.ScrollPartCaption(1,512) = "left"
	.ScrollPartCaptionAlignment(1,512) = 0
	.ScrollPartCaption(1,128) = "right"
	.ScrollPartCaptionAlignment(1,128) = 2
	.FixedWidthNode = 320
End With
154:
How can I show round links

With ChartView1
	.ShowRoundLink = True
	.Root.Image = 0
	.IndentSiblingX = 32
	.IndentSiblingY = 64
	With .Nodes
		.Add("Child <b>1</b>",,"1234").ArrangeSiblingNodesAs = 1
		.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 ChartView1
	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 ChartView1
	.HasButtons = -1
	.Root.ArrangeSiblingNodesAs = 2
	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 ChartView1
	.Nodes.Clear 
End With
150:
How can I clear the chart
With ChartView1
	.Nodes.Clear 
End With
149:
How can I get the number of nodes

With ChartView1
	.HasButtons = -1
	.Root.ArrangeSiblingNodesAs = 2
	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 ChartView1
	.HasButtons = -1
	.Root.ArrangeSiblingNodesAs = 2
	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 ChartView1
	.HasButtons = -1
	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 ChartView1
	.HasButtons = -1
	.PenLink = 0
	.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 ChartView1
	.HasButtons = -1
	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 ChartView1
	.HasButtons = -1
	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 ChartView1
	.HasButtons = -1
	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 ChartView1
	.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 ChartView1
	.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 ChartView1
	.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 ChartView1
	.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 ChartView1
	.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 ChartView1
	.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 ChartView1
	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 ChartView1
	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 ChartView1
	.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 ChartView1
	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 ChartView1
	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 = 4
		End With
	End With
End With
131:
Can I remove the round corner for a specified node

With ChartView1
	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 ChartView1
	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 ChartView1
	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 ChartView1
	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 ChartView1
	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 ChartView1
	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 ChartView1
	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 ChartView1
	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 ChartView1
	.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 = ChartView1.Root
		.Caption = "Moved 2 Root from Child 2"
	End With
	.EndUpdate 
End With
122:
How can I assign a key to a node

With ChartView1
	.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 ChartView1
	.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 ChartView1
	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 ChartView1
	.Nodes.Add("Child").BackColor = RGB(255,0,0)
End With
118:
How can I change the node's foreground color

With ChartView1
	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 ChartView1
	.Nodes.Add("Child").ForeColor = RGB(255,0,0)
End With
116:
How can I assign a tooltip to a node

With ChartView1
	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 ChartView1
	.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 ChartView1
	.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 ChartView1
	.Nodes.Add("Child").UserData = "your data"
End With
112:
How can I assign an icon and a picture to a node

With ChartView1
	.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 = ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureAlignment = 3
	End With
End With
111:
How can I align the picture in the node
With ChartView1
	With .Nodes.Add("Child")
		.Picture = ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureAlignment = 3
	End With
End With
110:
How can I align the picture in the node

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

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

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

With ChartView1
	.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 = 1
	End With
End With
106:
How can I align the icon in the node

With ChartView1
	.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 = 3
	End With
End With
105:
How can I align the icon in the node

With ChartView1
	.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 = 2
	End With
End With
104:
How can I assign an icon to a node

With ChartView1
	.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 ChartView1
	.Nodes.Add("Child").Caption = "<font Tahoma;12>new</font> caption"
End With
102:
How can I add a multiple lines node

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

With ChartView1
	.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 ChartView1
	.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 ChartView1
	.Nodes.Add("Child").Caption = "<fgcolor=FF0000>new</fgcolor> caption"
End With
98:
How can I show the node as strikeout

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

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

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

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

With ChartView1
	.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 ChartView1
	.HasButtons = -1
	.PenLink = 0
	.PenWidthLink = 3
	.IndentSiblingX = 12
	.IndentSiblingY = 12
	.Root.Image = 0
	With .Nodes
		.Add("As <b>Tree</b>",,"1234").ArrangeSiblingNodesAs = 2
		.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 ChartView1
	.IndentSiblingY = 4
	.HasButtons = -1
	With .Root
		.Image = 0
		.ArrangeSiblingNodesAs = 2
	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 ChartView1
	.IndentChild = 32
	.HasButtons = -1
	.Root.Image = 0
	With .Nodes
		.Add("AsTree",,"1234").ArrangeSiblingNodesAs = 2
		.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 ChartView1
	.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 ChartView1
	.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 ChartView1
	.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 ChartView1
	.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 ChartView1
	.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 ChartView1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.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 ChartView1
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.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 ChartView1
	.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 ChartView1
	.PenLinkAssistant = 0
	.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 ChartView1
	.PenLinkAssistant = 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
78:
How can I change the shape of the cursor when it hovers the +/- or expand/collapse buttons

With ChartView1
	.Cursor(3) = "exHelp"
	.HasButtons = -1
	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 ChartView1
	.Cursor(2) = "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 ChartView1
	.Cursor(1) = "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 ChartView1
	.Cursor(0) = "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 ChartView1
	.HasButtons = -1
	.PenLink = 0
	.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 ChartView1
	.HasButtons = -1
	.ButtonsAlign = 18
	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 ChartView1
	.ExpandOnDblClk = False
	.HasButtons = -1
	.ButtonsAlign = 18
	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 ChartView1
	.HasButtons = -1
	.ButtonsAlign = 18
	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 ChartView1
	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 = 4
	.HasButtonsCustom(True) = 33554432
	.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 ChartView1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.HasButtons = 4
	.HasButtonsCustom(True) = 1
	.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 ChartView1
	.HasButtons = 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
67:
How can I display +/- expand or collapse buttons

With ChartView1
	.HasButtons = -1
	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 ChartView1
	.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 ChartView1
	.BorderWidth = 18
	.BorderHeight = 18
	.ZoomWidthMode = 1
	.ZoomHeightMode = 1
	.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 ChartView1
	.BorderWidth = 18
	.BorderHeight = 18
	.ZoomWidthMode = 2
	.ZoomHeightMode = 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
63:
How can I ensure that the selected node is visible or fits the chart's area

With ChartView1
	.EnsureVisibleOnSelect = True
	.ScrollOnEnsure = False
	.BorderWidth = 18
	.BorderHeight = 18
	.ZoomWidthMode = 1
	.ZoomHeightMode = 1
	.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 ChartView1
	.ScrollByClick = False
End With
61:
How do I ensure that a node is visible or fits the chart's area

With ChartView1
	.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 ChartView1
	.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 ChartView1
	.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 ChartView1
	.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 ChartView1
	.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 ChartView1
	.PenLink = 1
	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 ChartView1
	.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 ChartView1
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.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 ChartView1
	.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 ChartView1
	.ShadowNode = False
End With
50:
How do I change the pen to draw the border for all nodes

With ChartView1
	.PenBorderNode = 2
End With
49:
How do I change the shape of the border for all nodes

With ChartView1
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.Background(0) = &H2000000
End With
48:
How do I change the shape of the border for all nodes

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

With ChartView1
	.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 ChartView1
	.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 ChartView1
	.Root.Key = "myKey"
End With
44:
How do I change the caption of the root

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

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

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

With ChartView1
	.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 ChartView1
	.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 ChartView1
	.BorderWidth = 8
	.BorderHeight = 8
End With
38:
How can I change the node's border/frame, using your EBN files

With ChartView1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(0) = &H1000000
	.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 ChartView1
	.HideSelection = False
End With
36:
How do I disable or enable the control
With ChartView1
	.Enabled = False
End With
35:
How do I change the visual aspect for thumb parts in the scroll bars, using EBN

With ChartView1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.VisualAppearance.Add 3,"c:\exontrol\images\hot.ebn"
	.Background(388) = &H1000000
	.Background(389) = &H2000000
	.Background(391) = &H3000000
	.Background(260) = &H1000000
	.Background(261) = &H2000000
	.Background(263) = &H3000000
	.FixedWidthNode = 320
End With
34:
How do I change the visual aspect only for the thumb in the scroll bar, using EBN

With ChartView1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.VisualAppearance.Add 3,"c:\exontrol\images\hot.ebn"
	.Background(388) = &H1000000
	.Background(389) = &H2000000
	.Background(391) = &H3000000
	.ScrollThumbSize(1) = 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 ChartView1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.VisualAppearance.Add 3,"c:\exontrol\images\hot.ebn"
	.Background(324) = &H1000000
	.Background(325) = &H2000000
	.Background(327) = &H3000000
	.Background(404) = RGB(240,240,240)
	.Background(276) = RGB(240,240,240)
	.Background(3) = RGB(240,240,240)
	.FixedWidthNode = 320
End With
32:
Can I change the forecolor for the tooltip

With ChartView1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Background(66) = RGB(255,0,0)
	.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 ChartView1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Background(65) = RGB(255,0,0)
	.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 ChartView1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(64) = &H1000000
	.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 ChartView1
	.ExecuteTemplate "BackColor = RGB(255,0,0)"
End With
28:
How do I call your x-script language

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

With ChartView1
	.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 ChartView1
	.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 ChartView1
	.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 ChartView1
	.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 ChartView1
	.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 ChartView1
	.ScrollOrderParts(1) = "t,l,r"
	.ScrollOrderParts(0) = "t,l,r"
	.FixedWidthNode = 320
End With
21:
The thumb size seems to be very small. Can I make it bigger

With ChartView1
	.ScrollThumbSize(1) = 164
	.FixedWidthNode = 320
End With
20:
How do I enlarge or change the size of the control's scrollbars

With ChartView1
	.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 ChartView1
	.ScrollPartCaption(1,256) = "This is just a text"
	.ScrollFont(1).Size = 12
	.ScrollThumbSize(1) = 128
	.ScrollHeight = 24
	.ScrollPartCaption(1,256) = "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 ChartView1
	.ScrollPartCaption(1,256) = "this is just a text"
	.ScrollThumbSize(1) = 96
	.FixedWidthNode = 320
End With
17:
How do I assign a tooltip to a scrollbar

With ChartView1
	.ScrollToolTip(1) = "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 ChartView1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.ScrollPartVisible(1,32768) = True
	.ScrollPartCaption(1,32768) = "<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 ChartView1
	.ScrollPartVisible(1,32768) = True
	.ScrollPartCaption(1,32768) = "1"
	.FixedWidthNode = 320
End With
14:
Can I display an additional buttons in the scroll bar

With ChartView1
	.ScrollPartVisible(1,32768) = True
	.ScrollPartVisible(1,16384) = True
	.ScrollPartVisible(1,1) = True
	.ScrollPartVisible(1,2) = True
	.FixedWidthNode = 320
End With
13:
How do I change the control's foreground color

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

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

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

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

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

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

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

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

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

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

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

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

With ChartView1
	.Appearance = 0
End With