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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

211:
How can I draw the pattern with no frame

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

210:
How can I show the frame with an EBN color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

209:
How can I show the frame with an EBN color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

208:
How can I show the frame with a solid color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

207:
Is it possible to enlarge/shrink the frame

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

206:
Is it possible to draw the frame in front, rather than showing it on the control's background

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

205:
How do I show or hide a frame

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

204:
How can I display the frame arround the node itself

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

203:
How can I display the frame arround group nodes only

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

202:
How can I display the frame arround assistant nodes only

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

201:
How can I display the frame arround child nodes only

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

200:
How can I show the frame arround all child, assistant, group nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

198:
How can I draw a pattern on a node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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 )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

196:
Does your control support padding (padding properties are used to generate space around content)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

195:
Does your control support padding (padding properties are used to generate space around content)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

194:
How do I programmatically edit a node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Nodes.Add "Text",,"1234"
		.EditNode "1234"
	End With
End Function
</SCRIPT>
</BODY>

193:
WidthNode does not seem to do anything. What this property is for

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

192:
Does your control support Print and Print-Preview, such as Fit-To-Page

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

191:
Does your control support Print and Print-Preview

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

190:
Does your control support subscript or superscript, in HTML captions

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

189:
Is it possible to move a node by a simple click rather than SHIFT + Click

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

188:
How can I disable moving the nodes at runtime
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.AllowMoveNode = 0
	End With
End Function
</SCRIPT>
</BODY>

187:
How can I disable resizing the chart using the middle mouse button
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.AllowResizeChart = 0
	End With
End Function
</SCRIPT>
</BODY>

186:
How can I disable inline editing
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.AllowEdit = 0
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ChartView1_MouseUp(Button,Shift,X,Y)
	' Items.Add(Me.NodeFromPoint(-1,-1).Caption,0,1234)
	With ChartView1
		With CreateObject("Exontrol.ExPopupMenu")
			alert( .ShowAtCursor )
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ChartView1_AnchorClick(AnchorID,Options)
	With ChartView1
		alert( Options )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Root.Image = 0
		With .Nodes
			.Add "<a;http://www.exontrol.com>exontrol</a>",,"1234"
		End With
	End With
End Function
</SCRIPT>
</BODY>

183:
Is it possible to put a caption on the regular links

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

182:
Is it possible to hide directions for specific links

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

181:
Does your control supports multiple lines tooltip

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

180:
Can I change the border's node, using your EBN technology, including specifying a color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

179:
Can the chart be arranged from the left to right (LTR)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

178:
Is there any property to keep the aspect ratio for all pictures, but still keep the size of nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

177:
Is there any property to keep the aspect ratio for all pictures

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

176:
Is there any property to keep the aspect ratio for all pictures

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

175:
Is there any property to keep the aspect ratio for displayed picture

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

174:
Is is possible to show the round an arbitrary link

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

173:
Is is possible to show the round an arbitrary link

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

172:
Is is possible to show the direction for a linktoline, even if the ShowLinksDir is False

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

171:
Is is possible to change the width for a specified linkto line

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

170:
Is is possible to change the width for a specified linkto line

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

169:
Is is possible to change the color for a specified linkto line

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

168:
How can I specify the size for a picture being shown in a specified node only

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

167:
How can I resize the pictures being shown in the nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

166:
Can I change the width of the node's border

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		With .Nodes
			With .Add("Child 1",,"1")
				.BorderWidth = 3
				.DrawRoundNode = False
			End With
			.Add "Child 2",,"2"
		End With
	End With
End Function
</SCRIPT>
</BODY>

165:
Can I change the visual appearance of the node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

164:
Can I specify a different color for node's border

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		With .Nodes
			.Add("Child 1",,"1").BorderColor = RGB(255,0,0)
			.Add "Child 2",,"2"
		End With
	End With
End Function
</SCRIPT>
</BODY>

163:
Can I display my image on my links

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

162:
How can I show a caption on my link

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

161:
How can I show smootly the arrows

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

160:
How can I show direction on my links

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

159:
How can I add a doubled direction link

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

158:
How can I add arbitrary links

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

157:
How can I add multiple parents

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

156:
How can I add multiple parents or roots

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

155:
How can I align the text/caption on the scroll bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.ScrollPartCaption(1,512) = "left"
		.ScrollPartCaptionAlignment(1,512) = 0
		.ScrollPartCaption(1,128) = "right"
		.ScrollPartCaptionAlignment(1,128) = 2
		.FixedWidthNode = 320
	End With
End Function
</SCRIPT>
</BODY>

154:
How can I show round links

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

153:
How do I access a node by its key

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

152:
How can I get the number of nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

151:
How can I remove all nodes in the chart
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Nodes.Clear 
	End With
End Function
</SCRIPT>
</BODY>

150:
How can I clear the chart
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Nodes.Clear 
	End With
End Function
</SCRIPT>
</BODY>

149:
How can I get the number of nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

148:
How can I add a child node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

147:
How can I add a child node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

146:
How can I draw link or a line between my own nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

145:
How can I show or hide the link or a line between nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

144:
How can I hide or show the +/- expand/collapse buttons for a specified node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

143:
How can I expand or collapse a node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

142:
How can I assign an icon to the root node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

141:
How can I access an assistant nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

140:
How can I get the number or count of assistant nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

139:
How can I display assistant nodes on the right side only

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

138:
How can I display assistant nodes on the left side only

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

137:
How can I clear or remove all assistant nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

136:
How can I remove an assistant node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

135:
How can I add assistant node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

134:
Can I change the border's node, using your EBN technology

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

133:
Can I remove the shadow for a specified node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

132:
Can I change the border for a specified node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

131:
Can I remove the round corner for a specified node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

130:
How can I disable or enable a node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

129:
How can I specify the height of the node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

128:
How can I specify the width of the node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

127:
How can I specify the width of the node to wrap it's content

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

126:
How can I change the position of the node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		With .Nodes
			.Add "Child",,"1234"
			.Add "Sub 1","1234"
			.Add("Sub 2","1234").Position = 0
		End With
	End With
End Function
</SCRIPT>
</BODY>

125:
How can I count or get the number of child nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		With .Nodes
			.Add "Child",,"1234"
			.Add "Sub 1","1234"
			.Add "Sub 2","1234"
			.Add .Item("1234").NodeCount
		End With
	End With
End Function
</SCRIPT>
</BODY>

124:
How can I enumerate the child nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

123:
How can I change the node's parent

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

122:
How can I assign a key to a node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Nodes.Add "Child",,"1234"
		.Nodes.Add "Sub 1","1234"
		.Nodes.Add "Sub 2","1234"
	End With
End Function
</SCRIPT>
</BODY>

121:
How can I assign a key to a node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Nodes.Add("Child").Key = "1234"
		.Nodes.Add "Sub 1","1234"
		.Nodes.Add "Sub 2","1234"
	End With
End Function
</SCRIPT>
</BODY>

120:
How can I change the node's background color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		With .Nodes.Add("Child")
			.BackColor = RGB(255,0,0)
			.ClearBackColor 
		End With
	End With
End Function
</SCRIPT>
</BODY>

119:
How can I change the node's background color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Nodes.Add("Child").BackColor = RGB(255,0,0)
	End With
End Function
</SCRIPT>
</BODY>

118:
How can I change the node's foreground color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		With .Nodes.Add("Child")
			.ForeColor = RGB(255,0,0)
			.ClearForeColor 
		End With
	End With
End Function
</SCRIPT>
</BODY>

117:
How can I change the node's foreground color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Nodes.Add("Child").ForeColor = RGB(255,0,0)
	End With
End Function
</SCRIPT>
</BODY>

116:
How can I assign a tooltip to a node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

115:
How can I assign a different font for the node's tooltip

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

114:
How can I assign a tooltip to a node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

113:
How can I assign any extra data to my node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Nodes.Add("Child").UserData = "your data"
	End With
End Function
</SCRIPT>
</BODY>

112:
How can I assign an icon and a picture to a node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

111:
How can I align the picture in the node
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		With .Nodes.Add("Child")
			.Picture = ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
			.PictureAlignment = 3
		End With
	End With
End Function
</SCRIPT>
</BODY>

110:
How can I align the picture in the node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		With .Nodes.Add("Child")
			.Picture = ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
			.PictureAlignment = 2
		End With
	End With
End Function
</SCRIPT>
</BODY>

109:
How can I align the picture in the node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		With .Nodes.Add("Child")
			.Picture = ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
			.PictureAlignment = 1
		End With
	End With
End Function
</SCRIPT>
</BODY>

108:
How can I assign a picture to a node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Nodes.Add("Child").Picture = ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	End With
End Function
</SCRIPT>
</BODY>

107:
How can I align the icon in the node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

106:
How can I align the icon in the node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

105:
How can I align the icon in the node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

104:
How can I assign an icon to a node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

103:
How can I change the font for a node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Nodes.Add("Child").Caption = "<font Tahoma;12>new</font> caption"
	End With
End Function
</SCRIPT>
</BODY>

102:
How can I add a multiple lines node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Nodes.Add("").Caption = "Line 1<br>Line 2<br>Line3"
	End With
End Function
</SCRIPT>
</BODY>

101:
How can I add a multiple lines node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Nodes.Add "Line 1<br>Line 2<br>Line3"
	End With
End Function
</SCRIPT>
</BODY>

100:
How can I change the background color for parts of the text

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Nodes.Add("Child").Caption = "<bgcolor=FF0000>new</bgcolor> caption"
	End With
End Function
</SCRIPT>
</BODY>

99:
How can I change the foreground color for parts of the text

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Nodes.Add("Child").Caption = "<fgcolor=FF0000>new</fgcolor> caption"
	End With
End Function
</SCRIPT>
</BODY>

98:
How can I show the node as strikeout

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Nodes.Add("Child").Caption = "<s>new</s> caption"
	End With
End Function
</SCRIPT>
</BODY>

97:
How can I show the node as underlined

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Nodes.Add("Child").Caption = "<u>new</u> caption"
	End With
End Function
</SCRIPT>
</BODY>

96:
How can I show the node as italic

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Nodes.Add("Child").Caption = "<i>new</i> caption"
	End With
End Function
</SCRIPT>
</BODY>

95:
How can I bold the node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Nodes.Add("Child").Caption = "<b>new</b> caption"
	End With
End Function
</SCRIPT>
</BODY>

94:
How can I change the node's caption

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Nodes.Add("Child").Caption = "new caption"
	End With
End Function
</SCRIPT>
</BODY>

93:
How can I display hierarchical the child nodes so they are indented relative to their parents

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

92:
How can I display the child nodes as a tree, so they are indented relative to their parents

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

91:
How can I indent the child nodes relative to their parents

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

90:
How can I increase the distance between nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

89:
How can I increase the distance between nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

88:
How can I add an anchor or a hyperlink

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

87:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

86:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

85:
How can I save data in XML format
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()

End Function
</SCRIPT>
</BODY>

84:
Can I load data from XML files
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()

End Function
</SCRIPT>
</BODY>

83:
How can I assign multiple icons to a node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

82:
How can I assign multiple pictures to a node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

81:
How can I change the color of the line that links assistant nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

80:
How can I change the width of the line that links assistant nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

79:
How can I change the style of the line that links assistant nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

78:
How can I change the shape of the cursor when it hovers the +/- or expand/collapse buttons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

77:
How do I change the shape of the cursor when the user clicks an drags the chart

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

76:
How do I change the shape of the cursor when it hovers a node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

75:
How do I change the shape of the cursor when it hovers the chart

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

74:
How can I copy and paste the control's content to Microsoft Word for instance

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

73:
How can I copy and paste the control's content to Microsoft Word for instance

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

72:
How can I enable or disable expanding or collapsing a node when user double clicks it

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

71:
How can I align the +/- expand or collapse buttons to the right

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

70:
Can I display the +/- expand or collapse buttons using your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

69:
How can I change the +/- expand or collapse buttons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

68:
How can I change the +/- expand or collapse buttons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

67:
How can I display +/- expand or collapse buttons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

66:
How do I show or hide the assistant nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

65:
How do I scale or zoom the chart

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

64:
How do I scale or zoom the chart

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

63:
How can I ensure that the selected node is visible or fits the chart's area

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

62:
How do I avoid slow moving the chart when the user selects a new node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.ScrollByClick = False
	End With
End Function
</SCRIPT>
</BODY>

61:
How do I ensure that a node is visible or fits the chart's area

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

60:
How do I change the root node, so it explore from a specified node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

59:
How do I select a node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

58:
How do I get the node from the cursor
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()

End Function
</SCRIPT>
</BODY>

57:
How do I fix the height for all nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.FixedHeightNode = 32
		.Root.Image = 0
		With .Nodes
			.Add "Child <b>1</b>"
			.Add "Child <b>2</b>"
		End With
	End With
End Function
</SCRIPT>
</BODY>

56:
How do I fix the width for all nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.FixedWidthNode = 128
		.Root.Image = 0
		With .Nodes
			.Add "Child <b>1</b>"
			.Add "Child <b>2</b>"
		End With
	End With
End Function
</SCRIPT>
</BODY>

55:
How do I change the style of the link between nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.PenLink = 1
		With .Nodes
			.Add "Child <b>1</b>"
			.Add "Child <b>2</b>"
		End With
	End With
End Function
</SCRIPT>
</BODY>

54:
How do I change the color to link the nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.LinkColor = RGB(255,0,0)
		With .Nodes
			.Add "Child <b>1</b>"
			.Add "Child <b>2</b>"
		End With
	End With
End Function
</SCRIPT>
</BODY>

53:
How do I change the shape for selected node, using your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

52:
How do I change the color for selected node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

51:
How do I hide the node's shadow

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.ShadowNode = False
	End With
End Function
</SCRIPT>
</BODY>

50:
How do I change the pen to draw the border for all nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.PenBorderNode = 2
	End With
End Function
</SCRIPT>
</BODY>

49:
How do I change the shape of the border for all nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
		.Background(0) = &H2000000
	End With
End Function
</SCRIPT>
</BODY>

48:
How do I change the shape of the border for all nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.DrawRoundNode = 0
	End With
End Function
</SCRIPT>
</BODY>

47:
How do I change the foreground color for all nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.ForeColorNode = RGB(255,0,0)
		With .Nodes
			.Add "Child <b>1</b>"
			.Add "Child <b>2</b>"
		End With
	End With
End Function
</SCRIPT>
</BODY>

46:
How do I change the background color for all nodes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.BackColorNode = RGB(255,0,0)
		With .Nodes
			.Add "Child <b>1</b>"
			.Add "Child <b>2</b>"
		End With
	End With
End Function
</SCRIPT>
</BODY>

45:
How do I change the key of the root

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Root.Key = "myKey"
	End With
End Function
</SCRIPT>
</BODY>

44:
How do I change the caption of the root

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Root.Caption = "new<br>root"
	End With
End Function
</SCRIPT>
</BODY>

43:
How do I access the root node

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Root.Caption = "new<br>root"
	End With
End Function
</SCRIPT>
</BODY>

42:
How do I access the nodes collection

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		With .Nodes
			.Add "Child <b>1</b>"
			.Add "Child <b>2</b>"
		End With
	End With
End Function
</SCRIPT>
</BODY>

41:
How do I refresh the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Nodes.Add "Child <b>1</b>"
		.Nodes.Add "Child <b>2</b>"
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

40:
How do I prevent painting while several changes are performed

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.BeginUpdate 
		.Nodes.Add "Child <b>1</b>"
		.Nodes.Add "Child <b>2</b>"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

39:
How do I indent the full chart to the right

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.BorderWidth = 8
		.BorderHeight = 8
	End With
End Function
</SCRIPT>
</BODY>

38:
How can I change the node's border/frame, using your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

37:
How can still display the selected node when the control loses the focus

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.HideSelection = False
	End With
End Function
</SCRIPT>
</BODY>

36:
How do I disable or enable the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Enabled = False
	End With
End Function
</SCRIPT>
</BODY>

35:
How do I change the visual aspect for thumb parts in the scroll bars, using EBN

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

34:
How do I change the visual aspect only for the thumb in the scroll bar, using EBN

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

33:
I've seen that you can change the visual appearance for the scroll bar. How can I do that

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

32:
Can I change the forecolor for the tooltip

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

31:
Can I change the background color for the tooltip

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

30:
Can I change the default border of the tooltip, using your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

29:
How do I call your x-script language

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.ExecuteTemplate "BackColor = RGB(255,0,0)"
	End With
End Function
</SCRIPT>
</BODY>

28:
How do I call your x-script language

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Template = "BackColor = RGB(255,0,0)"
	End With
End Function
</SCRIPT>
</BODY>

27:
Can I change the font for the tooltip

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

26:
I've seen that the width of the tooltip is variable. Can I make it larger

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.ToolTipWidth = 328
		.Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node."
	End With
End Function
</SCRIPT>
</BODY>

25:
How do I let the tooltip being displayed longer

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.ToolTipPopDelay = 10000
		.Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node."
	End With
End Function
</SCRIPT>
</BODY>

24:
How do I disable showing the tooltip for all control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.ToolTipDelay = 0
		.Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node."
	End With
End Function
</SCRIPT>
</BODY>

23:
How do I show the tooltip quicker

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.ToolTipDelay = 1
		.Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node."
	End With
End Function
</SCRIPT>
</BODY>

22:
Can I change the order of the buttons in the scroll bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.ScrollOrderParts(1) = "t,l,r"
		.ScrollOrderParts(0) = "t,l,r"
		.FixedWidthNode = 320
	End With
End Function
</SCRIPT>
</BODY>

21:
The thumb size seems to be very small. Can I make it bigger

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.ScrollThumbSize(1) = 164
		.FixedWidthNode = 320
	End With
End Function
</SCRIPT>
</BODY>

20:
How do I enlarge or change the size of the control's scrollbars

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.ScrollHeight = 18
		.ScrollWidth = 18
		.ScrollButtonWidth = 18
		.ScrollButtonHeight = 18
		.FixedWidthNode = 320
		.FixedHeightNode = 320
	End With
End Function
</SCRIPT>
</BODY>

19:
How can I display my text on the scroll bar, using a different font

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

18:
How can I display my text on the scroll bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.ScrollPartCaption(1,256) = "this is just a text"
		.ScrollThumbSize(1) = 96
		.FixedWidthNode = 320
	End With
End Function
</SCRIPT>
</BODY>

17:
How do I assign a tooltip to a scrollbar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

16:
How do I assign an icon to the button in the scrollbar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

15:
I need to add a button in the scroll bar. Is this possible

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.ScrollPartVisible(1,32768) = True
		.ScrollPartCaption(1,32768) = "1"
		.FixedWidthNode = 320
	End With
End Function
</SCRIPT>
</BODY>

14:
Can I display an additional buttons in the scroll bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.ScrollPartVisible(1,32768) = True
		.ScrollPartVisible(1,16384) = True
		.ScrollPartVisible(1,1) = True
		.ScrollPartVisible(1,2) = True
		.FixedWidthNode = 320
	End With
End Function
</SCRIPT>
</BODY>

13:
How do I change the control's foreground color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.ForeColor = RGB(255,0,0)
	End With
End Function
</SCRIPT>
</BODY>

12:
How do I change the control's background color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.BackColor = RGB(200,200,200)
	End With
End Function
</SCRIPT>
</BODY>

11:
How can I change the control's font

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Font.Name = "Verdana"
	End With
End Function
</SCRIPT>
</BODY>

10:
How do I put a picture on the center of the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Picture = ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 17
	End With
End Function
</SCRIPT>
</BODY>

9:
How do I resize/stretch a picture on the control's background

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Picture = ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 49
	End With
End Function
</SCRIPT>
</BODY>

8:
How do I put a picture on the control's center right bottom side

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Picture = ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 34
	End With
End Function
</SCRIPT>
</BODY>

7:
How do I put a picture on the control's center left bottom side

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Picture = ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 32
	End With
End Function
</SCRIPT>
</BODY>

6:
How do I put a picture on the control's center top side

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Picture = ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 1
	End With
End Function
</SCRIPT>
</BODY>

5:
How do I put a picture on the control's right top corner

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Picture = ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 2
	End With
End Function
</SCRIPT>
</BODY>

4:
How do I put a picture on the control's left top corner

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Picture = ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 0
	End With
End Function
</SCRIPT>
</BODY>

3:
How do I put a picture on the control's background

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Picture = ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	End With
End Function
</SCRIPT>
</BODY>

2:
How do I change the control's border, using your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Appearance = 16777216 ' &H1000000
	End With
End Function
</SCRIPT>
</BODY>

1:
How do I remove the control's border

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.Appearance = 0
	End With
End Function
</SCRIPT>
</BODY>