229
Fullfit the caption on the element's width

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

With AxChartView1
	.AllowSelectNothing = True
	.AllowEdit = EXORGCHARTLib.AllowKeysEnum.exDisallow
	With .Nodes
		.Add("Child",Nothing,"1234")
		.Add("Sub 1","1234")
		With .Add("Sub 2","1234")
			.FixedWidth = 256
			.CaptionSingleLine = EXORGCHARTLib.CaptionSingleLineEnum.exCaptionBreakWrap
			.Caption = "<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</s" & _
"olidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)"
		End With
	End With
End With
228
Break-wrap the caption (truncated)

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

With AxChartView1
	.AllowSelectNothing = True
	.AllowEdit = EXORGCHARTLib.AllowKeysEnum.exDisallow
	With .Nodes
		.Add("Child",Nothing,"1234")
		.Add("Sub 1","1234")
		With .Add("Sub 2","1234")
			.FixedWidth = 96
			.CaptionSingleLine = EXORGCHARTLib.CaptionSingleLineEnum.exCaptionBreakWrap
			.Caption = "<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</s" & _
"olidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)"
		End With
	End With
End With
227
Break-wrap the caption

With AxChartView1
	.AllowSelectNothing = True
	With .Nodes
		.Add("Child",Nothing,"1234")
		.Add("Sub 1","1234")
		With .Add("Sub 2","1234")
			.CaptionSingleLine = EXORGCHARTLib.CaptionSingleLineEnum.exCaptionBreakWrap
			.Caption = "<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</s" & _
"olidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)"
		End With
	End With
End With
226
Wrap the caption by <br> or "\r\n" sequence only

With AxChartView1
	With .Nodes
		.Add("Child",Nothing,"1234")
		.Add("Sub 1","1234")
		With .Add("Sub 2","1234")
			.CaptionSingleLine = EXORGCHARTLib.CaptionSingleLineEnum.exCaptionBreakWrap
			.Caption = "This is a bit of long text is displayed on first line.<br>The second line."
		End With
	End With
End With
225
Word-wrap the caption (specify the width to wrap)

With AxChartView1
	With .Nodes
		.Add("Child",Nothing,"1234")
		.Add("Sub 1","1234")
		With .Add("Sub 2","1234")
			.Width = 96
			.CaptionSingleLine = EXORGCHARTLib.CaptionSingleLineEnum.exCaptionWordWrap
			.Caption = "This is a bit of long text that should break into words."
		End With
	End With
End With
224
Word-wrap the caption

With AxChartView1
	With .Nodes
		.Add("Child",Nothing,"1234")
		.Add("Sub 1","1234")
		With .Add("Sub 2","1234")
			.CaptionSingleLine = EXORGCHARTLib.CaptionSingleLineEnum.exCaptionWordWrap
			.Caption = "This is a bit of long text that should break into words."
		End With
	End With
End With
223
Caption on a single line (truncated)

With AxChartView1
	With .Nodes
		.Add("Child",Nothing,"1234")
		.Add("Sub 1","1234")
		With .Add("Sub 2","1234")
			.CaptionSingleLine = EXORGCHARTLib.CaptionSingleLineEnum.exCaptionSingleLine
			.Caption = "This is a bit of long text that should be truncated."
			.FixedWidth = 128
		End With
	End With
End With
222
Caption on a single line

With AxChartView1
	With .Nodes
		.Add("Child",Nothing,"1234")
		.Add("Sub 1","1234")
		With .Add("Sub 2","1234")
			.CaptionSingleLine = EXORGCHARTLib.CaptionSingleLineEnum.exCaptionSingleLine
			.Caption = "This is a bit of long text that should not be broken."
		End With
	End With
End With
221
Force hover-all feature
With AxChartView1
	.set_Background(EXORGCHARTLib.BackgroundPartEnum.exScrollHoverAll,-1)
End With
220
Disable hover-all feature (Windows 11 or greater)
With AxChartView1
	.set_Background(EXORGCHARTLib.BackgroundPartEnum.exScrollHoverAll,1)
End With
219
Display a custom tooltip
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxChartView1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXORGCHARTLib._IChartViewEvents_MouseMoveEvent) Handles AxChartView1.MouseMoveEvent
	With AxChartView1
		.ShowToolTip("new content","",Nothing,"+8","+8")
	End With
End Sub
218
Shows the tooltip of the object moved relative to its default position
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxChartView1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXORGCHARTLib._IChartViewEvents_MouseMoveEvent) Handles AxChartView1.MouseMoveEvent
	With AxChartView1
		.ShowToolTip("<null>","<null>",Nothing,"+8","+8")
	End With
End Sub

With AxChartView1
	.Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node."
End With
217
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)

With AxChartView1
	.BeginUpdate()
	.ImageSize = 32
	.Font.Size = 16
	.Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" & _
"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" & _
"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" & _
"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" & _
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" & _
"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" & _
"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" & _
"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" & _
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" & _
"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" & _
"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" & _
"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" & _
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" & _
"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" & _
"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" & _
"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" & _
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
	With .VisualAppearance
		.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
	End With
	.set_Background(EXORGCHARTLib.BackgroundPartEnum.exNodeFrame,67108864)
	.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exPlus
	With .Root
		.Image = 1
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",Nothing,"1234")
		.Add("Sub 1","1234").Image = 2
		.Add("Sub 2","1234").Image = 3
		.Add("Child <b>2</b>",Nothing,"1235").Expanded = False
		.Add("Sub 2","1235")
	End With
	.EndUpdate()
End With
216
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)

With AxChartView1
	.BeginUpdate()
	.ImageSize = 16
	.Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" & _
"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" & _
"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" & _
"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" & _
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" & _
"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==")
	With .VisualAppearance
		.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
	End With
	.set_Background(EXORGCHARTLib.BackgroundPartEnum.exNodeFrame,67108864)
	.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exPlus
	With .Root
		.Image = 1
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",Nothing,"1234")
		.Add("Sub 1","1234").Image = 2
		.Add("Sub 2","1234").Image = 3
		.Add("Child <b>2</b>",Nothing,"1235").Expanded = False
		.Add("Sub 2","1235")
	End With
	.EndUpdate()
End With
215
Is it possible to show a percent/progress-bar associated with a node (method 2)

With AxChartView1
	.BeginUpdate()
	.set_DefaultNodePadding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll,4)
	With .Nodes
		.Add("Child <b>1</b>",Nothing,"1234")
		.Add("Sub 1<br>","1234","AK1").BackgroundExt = "none[(4,100%-22,100%-8,18)](bottom[4](left[10%,back=RGB(255,0,0)]),none[(0,100%-4,100%,4),pattern=0x000,frame=RGB(192,192,192)]" & _
",none[(2,100%-22,100%-4,22),text=`10%`,align=0x11]])"
		.Add("Sub 2<br>","1234","AK2").BackgroundExt = "none[(4,100%-22,100%-8,18)](bottom[4](left[50%,back=RGB(0,255,0)]),none[(0,100%-4,100%,4),pattern=0x000,frame=RGB(192,192,192)]" & _
",none[(2,100%-22,100%-4,22),text=`50%`,align=0x11]])"
		.Add("Sub 3<br>","1234","AK3").BackgroundExt = "none[(4,100%-22,100%-8,18)](bottom[4](left[100%,back=RGB(0,0,255)]),none[(0,100%-4,100%,4),pattern=0x000,frame=RGB(192,192,192)" & _
"],none[(2,100%-22,100%-4,22),text=`100%`,align=0x11]])"
		.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
	End With
	With .Nodes.Item("AK1")
		.BackgroundExtValue(EXORGCHARTLib.IndexExtEnum.exIndexExt3,EXORGCHARTLib.BackgroundExtPropertyEnum.exClientExt) = "25%"
		.BackgroundExtValue(EXORGCHARTLib.IndexExtEnum.exIndexExt5,EXORGCHARTLib.BackgroundExtPropertyEnum.exTextExt) = .BackgroundExtValue(EXORGCHARTLib.IndexExtEnum.exIndexExt3,EXORGCHARTLib.BackgroundExtPropertyEnum.exClientExt)
	End With
	.EndUpdate()
End With
214
Is it possible to show a percent/progress-bar associated with a node (method 1)

Dim f1,f2
With AxChartView1
	.BeginUpdate()
	.IndentSiblingY = 32
	With .Nodes
		.Add("Child <b>1</b>",Nothing,"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")
		.Pattern.Type = EXORGCHARTLib.PatternEnum.exPatternEmpty
		.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingBottom) = 20
		.BackgroundExt = "bottom[4](left[50%,back=RGB(255,0,0)]),none[(0,100%-4,100%,4),pattern=0x000,frame=RGB(192,192,192)],none[(2,100%-22,100%-4,22)," & _
"text=`50%`]"
		f1 = .Index
	End With
	With .Frames.Item(f1)
		.BackgroundExtValue(EXORGCHARTLib.IndexExtEnum.exIndexExt2,EXORGCHARTLib.BackgroundExtPropertyEnum.exClientExt) = "25%"
		.BackgroundExtValue(EXORGCHARTLib.IndexExtEnum.exIndexExt4,EXORGCHARTLib.BackgroundExtPropertyEnum.exTextExt) = .BackgroundExtValue(EXORGCHARTLib.IndexExtEnum.exIndexExt2,EXORGCHARTLib.BackgroundExtPropertyEnum.exClientExt)
	End With
	With .Frames.Add("AK2")
		.Pattern.Type = EXORGCHARTLib.PatternEnum.exPatternEmpty
		.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingBottom) = 20
		.BackgroundExt = "bottom[12](left[50%,back=RGB(255,0,0)]),none[(0,100%-12,100%,12),pattern=0x000,frame=RGB(192,192,192)],none[(2,100%-22,100%-4,2" & _
"2),text=`50%`]"
		f2 = .Index
	End With
	With .Frames.Item(f2)
		.BackgroundExtValue(EXORGCHARTLib.IndexExtEnum.exIndexExt2,EXORGCHARTLib.BackgroundExtPropertyEnum.exClientExt) = "75%"
		.BackgroundExtValue(EXORGCHARTLib.IndexExtEnum.exIndexExt2,EXORGCHARTLib.BackgroundExtPropertyEnum.exBackColorExt) = 65280
		.BackgroundExtValue(EXORGCHARTLib.IndexExtEnum.exIndexExt4,EXORGCHARTLib.BackgroundExtPropertyEnum.exTextExt) = .BackgroundExtValue(EXORGCHARTLib.IndexExtEnum.exIndexExt2,EXORGCHARTLib.BackgroundExtPropertyEnum.exClientExt)
	End With
	.EndUpdate()
End With
213
How can I display the node's caption on multiple lines

With AxChartView1
	.WidthNode = 64
	.Root.Caption = "This is a bit of text that should break the line"
End With
212
Is it possible to show some text/caption on the frame's background

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

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

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

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

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

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

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

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

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

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

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

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

With AxChartView1
	.BeginUpdate()
	With .Root
		.AddAssistant("Assistant 1")
		.AddAssistant("Assistant 2")
	End With
	With .Nodes
		.Add("Child <b>1</b>",Nothing,"1234")
		.Add("Sub 1","1234","AK1")
		.Add("Sub 2","1234","AK2")
		.Add("Sub 3","1234")
		.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
	End With
	With .Frames.Add("root")
		.Nodes = "root(all)"
		With .Pattern
			.Type = EXORGCHARTLib.PatternEnum.exPatternFrame Or EXORGCHARTLib.PatternEnum.exPatternFDiagonal
			.Color = RGB(190,190,190)
			.FrameColor = RGB(128,128,128)
		End With
	End With
	.EndUpdate()
End With
199
We need to visualy group nodes that have the same parent but also have other siblings. Is it anyway possible to draw an additional border around a group of nodes in this control

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

With AxChartView1
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = True
	With .Nodes
		.Add("L1_A",Nothing,"LA").ShowLinkDir = False
		.Add("L1_B",Nothing,"LB")
		.Add("L2_A","LA","LA2")
		.Add("L2_B","LB","LB2")
	End With
	With .Frames.Add("LB")
		.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = -2
		With .Pattern
			.Type = EXORGCHARTLib.PatternEnum.exPatternBDiagonal
			.Color = RGB(128,128,128)
		End With
		.ShowOnBackground = False
	End With
End With
197
How do I use as a WBS control (WBS is a hierarchical and incremental decomposition of the project into phases, deliverables and work packages )

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

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

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

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

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

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

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

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

With AxChartView1
	.AllowMoveChart = EXORGCHARTLib.AllowKeysEnum.exDisallow
	.AllowMoveNode = EXORGCHARTLib.AllowKeysEnum.exLeftClick
	.AntiAliasing = True
	With .Nodes
		.Add("L1_A",Nothing,"LA").ShowLinkDir = False
		.Add("L1_B",Nothing,"LB")
		.Add("L2_A","LA","LA2")
		.Add("L2_B","LB","LB2")
	End With
End With
188
How can I disable moving the nodes at runtime
With AxChartView1
	.AllowMoveNode = EXORGCHARTLib.AllowKeysEnum.exDisallow
End With
187
How can I disable resizing the chart using the middle mouse button
With AxChartView1
	.AllowResizeChart = EXORGCHARTLib.AllowKeysEnum.exDisallow
End With
186
How can I disable inline editing
With AxChartView1
	.AllowEdit = EXORGCHARTLib.AllowKeysEnum.exDisallow
End With
185
Would like to be able to click on a node and have a pop-up window appear with additional detail and information about the individual in the node. Is this possible

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

With AxChartView1
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = True
	With .Nodes
		.Add("L1_A",Nothing,"LA").ShowLinkDir = False
		.Add("L1_B",Nothing,"LB")
		.Add("L2_A","LA","LA2")
		.Add("L2_B","LB","LB2")
	End With
End With
184
I am trying to create a hyperlink. I can get the link but I cannot tell the link where to go. What can I do

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

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

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

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

With AxChartView1
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.ToolTipDelay = 1
	.Root.ToolTip = "<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The tooltip supports built-in HTML tags, " & _
"icons and pictures.<br><br><br><img>pic1</img> picture ... <br><br>"
End With
180
Can I change the border's node, using your EBN technology, including specifying a color

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

With AxChartView1
	.BeginUpdate()
	.HasButtons = EXORGCHARTLib.ExpandButtonEnum.exWPlus
	.ButtonsAlign = EXORGCHARTLib.PictureDisplayEnum.UpperCenter
	.PenWidthLink = 3
	.IndentChild = 32
	With .Root
		.HasButton = False
		.Caption = "<r><dotline><b>Root 1</b><br>Some information <a info>here</a>.<br><upline><dotline>Line 1:<r><fgcolor=0000FF><b>1</b></fgcolor" & _
"><br><upline><dotline>Line 2:<r>2<br><upline><dotline>Line 3:<r>3"
		.Image = 0
		.AddGroup("<r><dotline><b>Root 2</b><br>Some information <a info>here</a>.<br><upline><dotline>Line 1:<r><fgcolor=0000FF><b>1</b></fgcolor" & _
"><br><upline><dotline>Line 2:<r>2<br><upline><dotline>Line 3:<r>3")
		.AddGroup("<r><dotline><b>Root 3</b><br>Some information <a info>here</a>.<br><upline><dotline>Line 1:<r><fgcolor=0000FF><b>1</b></fgcolor" & _
"><br><upline><dotline>Line 2:<r>2<br><upline><dotline>Line 3:<r>3")
		.AddAssistant("<b>Assistant</b> <a1>node 1</a>").Key = "A"
		With .AddAssistant("<b>Assistant</b> <a2>node 2</a>")
			.Left = True
			.ShowLinks = False
			.LinkTo = "A"
		End With
	End With
	With .Nodes
		With .Add("Parent <b>1</b>",Nothing,"Key1")
			.HasButton = False
			.ArrangeSiblingNodesAs = EXORGCHARTLib.ArrangeSiblingEnum.exTree
			.ShowRoundLink = True
			.AddGroup("Parent <b>2</b>")
			.AddGroup("Parent <b>3</b>")
		End With
		.Add("SubItem 1","Key1","S1").HasButton = False
		.Add("SubItem 1.1","S1","S111")
		.Add("SubItem 1.2","S1","S112")
		.Add("SubItem 2","Key1")
		.Add("Item 2",Nothing,"Key2").Expanded = False
		.Add("SubItem 1","Key2")
		.Add("SubItem 2","Key2")
	End With
	.EndUpdate()
End With
155
How can I align the text/caption on the scroll bar

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

With AxChartView1
	.Nodes.Add("Line 1<br>Line 2<br>Line3")
End With