229
Fullfit the caption on the element's width

/*begin event AnchorClick(string  AnchorID,string  Options) - Occurs when an anchor element is clicked.*/
/*
	oChartView = ole_1.Object
	MessageBox("Information",string( String(AnchorID) ))
*/
/*end event AnchorClick*/

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
oChartView.AllowSelectNothing = true
oChartView.AllowEdit = 0
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child",,"1234")
	var_Nodes.Add("Sub 1","1234")
	var_Node = var_Nodes.Add("Sub 2","1234")
		var_Node.FixedWidth = 256
		var_Node.CaptionSingleLine = 1
		var_Node.Caption = "<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)"
228
Break-wrap the caption (truncated)

/*begin event AnchorClick(string  AnchorID,string  Options) - Occurs when an anchor element is clicked.*/
/*
	oChartView = ole_1.Object
	MessageBox("Information",string( String(AnchorID) ))
*/
/*end event AnchorClick*/

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
oChartView.AllowSelectNothing = true
oChartView.AllowEdit = 0
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child",,"1234")
	var_Nodes.Add("Sub 1","1234")
	var_Node = var_Nodes.Add("Sub 2","1234")
		var_Node.FixedWidth = 96
		var_Node.CaptionSingleLine = 1
		var_Node.Caption = "<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)"
227
Break-wrap the caption

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
oChartView.AllowSelectNothing = true
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child",,"1234")
	var_Nodes.Add("Sub 1","1234")
	var_Node = var_Nodes.Add("Sub 2","1234")
		var_Node.CaptionSingleLine = 1
		var_Node.Caption = "<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)"
226
Wrap the caption by <br> or "\r\n" sequence only

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child",,"1234")
	var_Nodes.Add("Sub 1","1234")
	var_Node = var_Nodes.Add("Sub 2","1234")
		var_Node.CaptionSingleLine = 1
		var_Node.Caption = "This is a bit of long text is displayed on first line.<br>The second line."
225
Word-wrap the caption (specify the width to wrap)

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child",,"1234")
	var_Nodes.Add("Sub 1","1234")
	var_Node = var_Nodes.Add("Sub 2","1234")
		var_Node.Width = 96
		var_Node.CaptionSingleLine = 0
		var_Node.Caption = "This is a bit of long text that should break into words."
224
Word-wrap the caption

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child",,"1234")
	var_Nodes.Add("Sub 1","1234")
	var_Node = var_Nodes.Add("Sub 2","1234")
		var_Node.CaptionSingleLine = 0
		var_Node.Caption = "This is a bit of long text that should break into words."
223
Caption on a single line (truncated)

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child",,"1234")
	var_Nodes.Add("Sub 1","1234")
	var_Node = var_Nodes.Add("Sub 2","1234")
		var_Node.CaptionSingleLine = -1
		var_Node.Caption = "This is a bit of long text that should be truncated."
		var_Node.FixedWidth = 128
222
Caption on a single line

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child",,"1234")
	var_Nodes.Add("Sub 1","1234")
	var_Node = var_Nodes.Add("Sub 2","1234")
		var_Node.CaptionSingleLine = -1
		var_Node.Caption = "This is a bit of long text that should not be broken."
221
Force hover-all feature
OleObject oChartView

oChartView = ole_1.Object
oChartView.Background(500,-1)
220
Disable hover-all feature (Windows 11 or greater)
OleObject oChartView

oChartView = ole_1.Object
oChartView.Background(500,RGB(1,0,0))
219
Display a custom tooltip
/*begin event MouseMove(integer  Button,integer  Shift,long  X,long  Y) - Occurs when the user moves the mouse.*/
/*
	oChartView = ole_1.Object
	oChartView.ShowToolTip("new content","",,"+8","+8")
*/
/*end event MouseMove*/

OleObject oChartView

oChartView = ole_1.Object
218
Shows the tooltip of the object moved relative to its default position
/*begin event MouseMove(integer  Button,integer  Shift,long  X,long  Y) - Occurs when the user moves the mouse.*/
/*
	oChartView = ole_1.Object
	oChartView.ShowToolTip("<null>","<null>",,"+8","+8")
*/
/*end event MouseMove*/

OleObject oChartView

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

OleObject oChartView,var_Appearance,var_Node,var_Nodes

oChartView = ole_1.Object
oChartView.BeginUpdate()
oChartView.ImageSize = 32
oChartView.Font.Size = 16
oChartView.Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" &
 +"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" &
 +"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
var_Appearance = oChartView.VisualAppearance
	var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" &
 +"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
oChartView.Background(0,67108864 /*0x4000000*/)
oChartView.HasButtons = -1
var_Node = oChartView.Root
	var_Node.Image = 1
	var_Node.AddAssistant("Assistant 1")
	var_Node.AddAssistant("Assistant 2")
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234").Image = 2
	var_Nodes.Add("Sub 2","1234").Image = 3
	var_Nodes.Add("Child <b>2</b>",,"1235").Expanded = false
	var_Nodes.Add("Sub 2","1235")
oChartView.EndUpdate()
216
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)

OleObject oChartView,var_Appearance,var_Node,var_Nodes

oChartView = ole_1.Object
oChartView.BeginUpdate()
oChartView.ImageSize = 16
oChartView.Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==")
var_Appearance = oChartView.VisualAppearance
	var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" &
 +"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
oChartView.Background(0,67108864 /*0x4000000*/)
oChartView.HasButtons = -1
var_Node = oChartView.Root
	var_Node.Image = 1
	var_Node.AddAssistant("Assistant 1")
	var_Node.AddAssistant("Assistant 2")
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234").Image = 2
	var_Nodes.Add("Sub 2","1234").Image = 3
	var_Nodes.Add("Child <b>2</b>",,"1235").Expanded = false
	var_Nodes.Add("Sub 2","1235")
oChartView.EndUpdate()
215
Is it possible to show a percent/progress-bar associated with a node (method 2)

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
oChartView.BeginUpdate()
oChartView.DefaultNodePadding(-1,4)
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.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]])"
	var_Nodes.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]])"
	var_Nodes.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]])"
	var_Nodes.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
var_Node = oChartView.Nodes.Item("AK1")
	var_Node.BackgroundExtValue(3,2,"25%")
	var_Node.BackgroundExtValue(5,4,var_Node.BackgroundExtValue(3,2))
oChartView.EndUpdate()
214
Is it possible to show a percent/progress-bar associated with a node (method 1)

OleObject oChartView,var_Frame,var_Frame1,var_Frame2,var_Frame3,var_Nodes
any f1,f2

oChartView = ole_1.Object
oChartView.BeginUpdate()
oChartView.IndentSiblingY = 32
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234","AK1")
	var_Nodes.Add("Sub 2","1234","AK2")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
var_Frame = oChartView.Frames.Add("AK1")
	var_Frame.Pattern.Type = 0
	var_Frame.Padding(3,20)
	var_Frame.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 = var_Frame.Index
var_Frame1 = oChartView.Frames.Item(f1)
	var_Frame1.BackgroundExtValue(2,2,"25%")
	var_Frame1.BackgroundExtValue(4,4,var_Frame1.BackgroundExtValue(2,2))
var_Frame2 = oChartView.Frames.Add("AK2")
	var_Frame2.Pattern.Type = 0
	var_Frame2.Padding(3,20)
	var_Frame2.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,22),text=`50%`]"
	f2 = var_Frame2.Index
var_Frame3 = oChartView.Frames.Item(f2)
	var_Frame3.BackgroundExtValue(2,2,"75%")
	var_Frame3.BackgroundExtValue(2,1,65280)
	var_Frame3.BackgroundExtValue(4,4,var_Frame3.BackgroundExtValue(2,2))
oChartView.EndUpdate()
213
How can I display the node's caption on multiple lines

OleObject oChartView

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

OleObject oChartView,var_Frame,var_Nodes

oChartView = ole_1.Object
oChartView.BeginUpdate()
oChartView.IndentSiblingY = 32
oChartView.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAADhABWMMACAADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDENAxAJCI4DBCAZBwGKPRiASQZUhmHIDTbIEBxfIMIRLE6PZgjOYZchqRYZSjAdIzUAFFr1J4AKbfKJpfoKBJERrScgxeBUNAZBKlY7paoKSpSGw1CTLNoRAKoYTTBK2bbmWwoap2So1XhAdS0XJcWxfGKRbxmWaZZh+R5mXpCMjVMAGGQPIa8MLCSwIJBaHqUQLZNixLStAyxHCtKKhG+vJwHL6BcqnPKKRqSUKcWbcQADFZdYTdNjbch1TWvSZVQSecSke7BQjGJQ2YxWcZUXReeaBDK9ZS4WK+HhRjqAZpCkeoNC8P4DDiWp3nYVwdkaSgrGGVhSnSHJum6CgGAiBIUA0JgziGVJkGWRgTiGBAiG+ZgyDYQhCgQJZbG+UIAGEFgGBEBw9FILJNAMXgMgOIJYD4EoEGESBCBYVIKGMIJTCiDpDliNQ+A+eB+CGCAiCiFgkgmT54HCdoGE0MhgkAM4LhOWJ/CQThIk4NQik4I5+DgP5IDOBJ/B2TgDnwaQ3k+cR0l4P5jBOfguDOCIimCSgwCMKJuDsIRjmkUJ/B8JBBkIRAYmQcRglwP5lAOfhNDKCAikSRgxE8WJyEQIJkEGdhHhuD5xlSXYQicMR0lsP5FBmXhoD+ZhTBgfQrgwMwUnQP5HikfoFhwZxxlYdwbW0CJaWKag8EuI5oTufwwkeIoskIMYPDOfB0iOaZznwbw2GoKoQGaKQFjqEBQikBBjGCf4nCgShoLyTCZnIP5GlqOo5YgAxejyL4GAqeBWi+BI6ngQYvisY5+jMMBHHKHJAjIRoDFqPI0gYOxSlIFptCERpSBGbQgn6SItmyUwAHaM4MgqXBljSLl7GANRuiuMBajsBQLEgRY0gOSxKmUP5uDuCpODIaxxgqbI/g+cR8lSQBwDEYpsBObpBBabAPG6S5yniM4HHKIJ" &
 +"BDiT4TnyKQ6nEbBjBeRhPnKGwYCkMYCgcGAnnGDBSD+RIHhKKJDDmMRSkSbg/nKY58jAOxzCyUIuk0CpMlCKfXAyUwsdIEwMHxZ5TiieoSA6fQjEoLh0hKWxJC0NISksSQsDSHQaFeUQIAKRJIDuT5DnyQ4tnWfR7GCLZMBqXI+i2S5KlyOvukOfxZDICAylSSg8jWUwyGmXYPnMNhpl6/sLg0gxjNBmNkRIQR3CRHMOQIYlwjBxHQH4T45hSBBGO/sVgQRkv7EyO4P4mgeC5E+MsTIvBfgWD+PFBIFgvgaTaPwP4mxdA/CmNQOoWgci5FGJsLAqRYiKE0PgV4TQOh0EIHkQ4xw6DnBMLsb4Hx/AHEAHEdYpwIj2D+JwDwORfjjE+B0H4dA1ASKcK8UYnxzhXAyOsPQvhfgYDoPEQ4RwMBziqDYXY6g9AmFyCwMomwThxHkH0fA5x/jbHuJ8f4dxxj4D8Ecf41A+j8HMMoUgTBMjGG+Pgf4nx1j/EAFAAwAggAIAYFQQ4WgEggDIAQgI=")
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234","AK1")
	var_Nodes.Add("Sub 2","1234","AK2")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
var_Frame = oChartView.Frames.Add("AK1,AK2")
	var_Frame.Padding(-1,8)
	var_Frame.Padding(3,22)
	var_Frame.BackColor = 16777216 /*0x1000000*/
	var_Frame.Pattern.Type = 0
	var_Frame.BackgroundExt = "top[4],left[4],right[4],client,bottom[4],bottom[16,back=0x01000000,text=`<sha ;;0>attention`,align=0x11]"
oChartView.EndUpdate()
211
How can I draw the pattern with no frame

OleObject oChartView,var_Frame,var_Nodes,var_Pattern

oChartView = ole_1.Object
oChartView.BeginUpdate()
oChartView.IndentSiblingY = 32
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234","AK1")
	var_Nodes.Add("Sub 2","1234","AK2")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
var_Frame = oChartView.Frames.Add("AK1,AK2")
	var_Frame.Padding(-1,8)
	var_Pattern = var_Frame.Pattern
		var_Pattern.Type = 10
		var_Pattern.Color = RGB(190,190,190)
oChartView.EndUpdate()
210
How can I show the frame with an EBN color

OleObject oChartView,var_Frame,var_Nodes

oChartView = ole_1.Object
oChartView.BeginUpdate()
oChartView.IndentSiblingY = 32
oChartView.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAADhABWMMACAADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDENAxAJCI4DBCAZBwGKPRiASQZUhmHIDTbIEBxfIMIRLE6PZgjOYZchqRYZSjAdIzUAFFr1J4AKbfKJpfoKBJERrScgxeBUNAZBKlY7paoKSpSGw1CTLNoRAKoYTTBK2bbmWwoap2So1XhAdS0XJcWxfGKRbxmWaZZh+R5mXpCMjVMAGGQPIa8MLCSwIJBaHqUQLZNixLStAyxHCtKKhG+vJwHL6BcqnPKKRqSUKcWbcQADFZdYTdNjbch1TWvSZVQSecSke7BQjGJQ2YxWcZUXReeaBDK9ZS4WK+HhRjqAZpCkeoNC8P4DDiWp3nYVwdkaSgrGGVhSnSHJum6CgGAiBIUA0JgziGVJkGWRgTiGBAiG+ZgyDYQhCgQJZbG+UIAGEFgGBEBw9FILJNAMXgMgOIJYD4EoEGESBCBYVIKGMIJTCiDpDliNQ+A+eB+CGCAiCiFgkgmT54HCdoGE0MhgkAM4LhOWJ/CQThIk4NQik4I5+DgP5IDOBJ/B2TgDnwaQ3k+cR0l4P5jBOfguDOCIimCSgwCMKJuDsIRjmkUJ/B8JBBkIRAYmQcRglwP5lAOfhNDKCAikSRgxE8WJyEQIJkEGdhHhuD5xlSXYQicMR0lsP5FBmXhoD+ZhTBgfQrgwMwUnQP5HikfoFhwZxxlYdwbW0CJaWKag8EuI5oTufwwkeIoskIMYPDOfB0iOaZznwbw2GoKoQGaKQFjqEBQikBBjGCf4nCgShoLyTCZnIP5GlqOo5YgAxejyL4GAqeBWi+BI6ngQYvisY5+jMMBHHKHJAjIRoDFqPI0gYOxSlIFptCERpSBGbQgn6SItmyUwAHaM4MgqXBljSLl7GANRuiuMBajsBQLEgRY0gOSxKmUP5uDuCpODIaxxgqbI/g+cR8lSQBwDEYpsBObpBBabAPG6S5yniM4HHKIJ" &
 +"BDiT4TnyKQ6nEbBjBeRhPnKGwYCkMYCgcGAnnGDBSD+RIHhKKJDDmMRSkSbg/nKY58jAOxzCyUIuk0CpMlCKfXAyUwsdIEwMHxZ5TiieoSA6fQjEoLh0hKWxJC0NISksSQsDSHQaFeUQIAKRJIDuT5DnyQ4tnWfR7GCLZMBqXI+i2S5KlyOvukOfxZDICAylSSg8jWUwyGmXYPnMNhpl6/sLg0gxjNBmNkRIQR3CRHMOQIYlwjBxHQH4T45hSBBGO/sVgQRkv7EyO4P4mgeC5E+MsTIvBfgWD+PFBIFgvgaTaPwP4mxdA/CmNQOoWgci5FGJsLAqRYiKE0PgV4TQOh0EIHkQ4xw6DnBMLsb4Hx/AHEAHEdYpwIj2D+JwDwORfjjE+B0H4dA1ASKcK8UYnxzhXAyOsPQvhfgYDoPEQ4RwMBziqDYXY6g9AmFyCwMomwThxHkH0fA5x/jbHuJ8f4dxxj4D8Ecf41A+j8HMMoUgTBMjGG+Pgf4nx1j/EAFAAwAggAIAYFQQ4WgEggDIAQgI=")
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234","AK1")
	var_Nodes.Add("Sub 2","1234","AK2")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
var_Frame = oChartView.Frames.Add("AK1,AK2")
	var_Frame.Padding(-1,8)
	var_Frame.BackColor = 16777216 /*0x1000000*/
	var_Frame.Pattern.Type = 0
oChartView.EndUpdate()
209
How can I show the frame with an EBN color

OleObject oChartView,var_Frame,var_Nodes

oChartView = ole_1.Object
oChartView.BeginUpdate()
oChartView.IndentSiblingY = 32
oChartView.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAADhABDYGg6AADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDEMw0AJCIyDFCAZBsHKPRoASQZUhmHIDTbIEBxfIMIRLE6PRhmGL4HjWOo0TLAdI0PJMBr3J4AKbfOJpfDSQZDRrTMyReDkNBBBKlY7rKoqRpCFYtDSJNoWVBIahhNiGbbiCQYfouFZdUpRV5VLTUVxbF6YZDvKZZZjmH48RpPUIyNS2FyxHDEIxyEALYACS5fTrCNZPVjgAY4fSqMToDDpKoSWp0QjlOS5jiyYoJZ7nWa2PDdUzXCC3LgADabThqdapcBAeqYHhORRRFSiYD4eAxYw2NaTUrSeS8JBmnmSIYlaOY6H2dwHC0CZWHSeobEmRpbGuOpeFsbhRmgS5/loAJtl4fg5E6b4LFEAwEEISgGhMGZQmocgZMWJA2AMEAxAgTYAlGEJZAkCgdngNYZAYEYYBGdRnk8CBUmqBZOhgZgagaYZIHYHoHmICIGCKCJhiOPgmgUIRTEYKgviKQpyC6C5jAiRgygyYxIlYNoNmOAp2DoM5jwEb8miIUhCCGJBCBIRoRmSCQmEqEpkkkNhOhOZQJBCBgjmUSB0zCSBnjYWoWmWSR2F6F5mAmBhihiZZpFyBoHGQc54n4PxPCOSJxDwZppkIb4cGcSZOHaHInwWeYdmeKZ2HyH5nCmNJxhqD5ZB4aIRg+E5kngOpOiOJoMiOKJaD6EokGkShChaJJpHoVoYiaaYqHaGQ6GiE5i1aJRyBSdA9A8M4QmQOJqiqMorisawKj7ggrEqRo1iyaxqmaOIumsc4OicPJqFkWhXDwIhjHiXQ3GwawikeMhsksLpOjKLQLDaUYzm0KxWlSNZtDMdpEDubAahIVw7A6Q4slYNYNFMXJXDWLhriKZ46G6S4um6OovAuNpxjubwrladI9m4O4SmAOptlgbhSDoMADECUAzmKIxDAWQZNBwGwJkIMIsDcDJDnCPB" &
 +"HA6RIxAwTwCkCcADiIUoHGUI4WioMhMhMIJKTeHIPCWSWUCcKJKnIfI3CqS4ykyPwykwcxMgMIZHg4TBuByFIOCOBJhDCDAjASRHB34RZRDQbQnEiUp0H0NxKlONJND8UpUHUQwPEAMBzlOBw6gaSB9HSXpXkuQpsjoL4LlKcxklmNhdh8apaHaTYjG6Wp2n2NxwlydwtlYLpYjWcx7F0EMYYuxsi4DaJsMoqQ1MuHKLkNowh4D8BuBEYo8QuBvAmMceInBDgdGQPITgnwWBbDgEUUw/g2jvD2O4XSdATDBC4wsUoiQwBYagEcJ41B6idC+F0arQQ3hjGuPYLorw0jbEsB0DIWxoAbA4OwHIvRuDmFiFAKYlBihZCoFQfA3gjiPc+J43g5V+BvFGOcfQXhXipHWJUHwGQmjgHuNocIEAiNHFCKgKAlACgBCQFESgfwfjTHoH0L4bxsj3H6H8R43R8h+A+J8do+h/gFA+MgKAfATChAcPcaA6xvgRAGEwNIDQQg0BMEQZAngJiiDsAUIAyALgDDAIQB4ggoA6AUEEDAKwCDgFoBkQYEA2BOGAHEGYAQDCUAEIAF4fgBANACCgEgxBICYAkOILQFQhDICuAsMIhAXiGCgLoDQQwMBrAYOEWgORDgQHYEsIQcQSgJDCBIDggAmAkDQAgYIFgRDEEQJACQEQTAlGIKgTIExxB0CiIkWITgUBFCQKUCoYhiBXEWEIIQIwEC4ESBAKA3AhgZHGEAIYCAogIn+FARIjQIiqBoMYXA3QNhjEIGwRwURfA5GOckDo4xaB5AiDESgQgGgYp6BAagAgwBjB4D8Q40B9AhCIBgQYkQJAqlQLkDoIwyCEEYJIKQPgkjJAyCkEo5BaCZAgHICgPhkA5AAIYMAEBngZGGDgHgBw4DsA+IMdAfBKgSFUFQZQuQugrDKIQVglgpC+CyMsDIaQWjlFoLkB4khKA7CUCFSAxwmChEoGEZAOADgAHgB0QYtBjiZBmCIMoTBs2uHMFwaImRph" &
 +"KDQE0HIrQahmGAHYTAgRhBfCYAkQgMxBhQlGCEYwYhnBAHCDkU4RByidCmJ4OozhMjZB2OcOg8ROizGcSgLIwgNBmHYAARATw/BBEMDAYQGAhhcHEKAEIphAjQC0AUII6ASgIFANQE04hdAdCEKgQoDROBTHwDAZKDQMBnHEDwBYoQ2AtnEMYDA6B6ggFGPQQ1YgdBNCQKkIoJRSg0E8JUKQ2gshLGGB0DYCw6BYCIEIGIEhg4JCoAoQIeAXCFG0HkJ4qR2g/FQFUAwosfiNCgOoHoRRUgVBcKUKg0BdhOCEKMAoexxAmAiMAGIogaCCDhccQIXAVCFCgLEK4ah+heFYBURwsQrBaGGFkdYJQ0CsGqKYWwVhdDLCuAIVoWQEiDCcKsYwBBA1zEmAkA4wB6AeEIGARQEQ1j1EAK8ewBhhBYB2A0MArEzixBsB4YoWBtgZDGMIFoewDi1L0EAEggBNhHEgIkWYQwkiBCEAUZANQ2D9FCBoWwghojaBWEkNI7QaipFoLYVw1AtDLCqGsIwrAQCzEGEIZoCBNgwCoJ0EArRbCwAUN4LY2w+hvHcAUYIuArgOHEEAFYaw3BKEgOsG4oAACAEAQEA==")
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234","AK1")
	var_Nodes.Add("Sub 2","1234","AK2")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
var_Frame = oChartView.Frames.Add("AK1,AK2")
	var_Frame.Padding(-1,8)
	var_Frame.BackColor = 16777216 /*0x1000000*/
	var_Frame.Pattern.Type = 0
oChartView.EndUpdate()
208
How can I show the frame with a solid color

OleObject oChartView,var_Frame,var_Nodes

oChartView = ole_1.Object
oChartView.BeginUpdate()
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234","AK1")
	var_Nodes.Add("Sub 2","1234","AK2")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
var_Frame = oChartView.Frames.Add("AK1,AK2")
	var_Frame.BackColor = RGB(255,0,0)
	var_Frame.Pattern.Type = 0
oChartView.EndUpdate()
207
Is it possible to enlarge/shrink the frame

OleObject oChartView,var_Frame,var_Nodes,var_Pattern

oChartView = ole_1.Object
oChartView.BeginUpdate()
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234","AK1")
	var_Nodes.Add("Sub 2","1234","AK2")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
var_Frame = oChartView.Frames.Add("AK1,AK2")
	var_Frame.ShowOnBackground = false
	var_Frame.Padding(-1,-4)
	var_Pattern = var_Frame.Pattern
		var_Pattern.Type = 261 /*exPatternFrame | exPatternFDiagonal*/
		var_Pattern.Color = RGB(190,190,190)
		var_Pattern.FrameColor = RGB(128,128,128)
oChartView.EndUpdate()
206
Is it possible to draw the frame in front, rather than showing it on the control's background

OleObject oChartView,var_Frame,var_Nodes,var_Pattern

oChartView = ole_1.Object
oChartView.BeginUpdate()
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234","AK1")
	var_Nodes.Add("Sub 2","1234","AK2")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
var_Frame = oChartView.Frames.Add("AK1,AK2")
	var_Frame.ShowOnBackground = false
	var_Pattern = var_Frame.Pattern
		var_Pattern.Type = 261 /*exPatternFrame | exPatternFDiagonal*/
		var_Pattern.Color = RGB(190,190,190)
		var_Pattern.FrameColor = RGB(128,128,128)
oChartView.EndUpdate()
205
How do I show or hide a frame

OleObject oChartView,var_Frame,var_Nodes,var_Pattern

oChartView = ole_1.Object
oChartView.BeginUpdate()
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234","AK1")
	var_Nodes.Add("Sub 2","1234","AK2")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
var_Frame = oChartView.Frames.Add("AK1,AK2")
	var_Frame.Visible = true
	var_Pattern = var_Frame.Pattern
		var_Pattern.Type = 261 /*exPatternFrame | exPatternFDiagonal*/
		var_Pattern.Color = RGB(190,190,190)
		var_Pattern.FrameColor = RGB(128,128,128)
oChartView.EndUpdate()
204
How can I display the frame arround the node itself

OleObject oChartView,var_Frame,var_Frame1,var_Node,var_Nodes,var_Pattern,var_Pattern1

oChartView = ole_1.Object
oChartView.BeginUpdate()
var_Node = oChartView.Root
	var_Node.AddAssistant("Assistant 1")
	var_Node.AddAssistant("Assistant 2")
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234","AK1")
	var_Nodes.Add("Sub 2","1234","AK2")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2.1</b>",,"GR1").AddGroup("Child <b>2.2</b>").Key = "GR2"
var_Frame = oChartView.Frames.Add("1234")
	var_Pattern = var_Frame.Pattern
		var_Pattern.Type = 261 /*exPatternFrame | exPatternFDiagonal*/
		var_Pattern.Color = RGB(190,190,190)
		var_Pattern.FrameColor = RGB(128,128,128)
var_Frame1 = oChartView.Frames.Add("GR2")
	var_Pattern1 = var_Frame1.Pattern
		var_Pattern1.Type = 261 /*exPatternFrame | exPatternFDiagonal*/
		var_Pattern1.Color = RGB(190,190,190)
		var_Pattern1.FrameColor = RGB(128,128,128)
oChartView.EndUpdate()
203
How can I display the frame arround group nodes only

OleObject oChartView,var_Frame,var_Node,var_Nodes,var_Pattern

oChartView = ole_1.Object
oChartView.BeginUpdate()
var_Node = oChartView.Root
	var_Node.AddAssistant("Assistant 1")
	var_Node.AddAssistant("Assistant 2")
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234","AK1")
	var_Nodes.Add("Sub 2","1234","AK2")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2.1</b>",,"GR1").AddGroup("Child <b>2.2</b>").Key = "GR2"
var_Frame = oChartView.Frames.Add("root")
	var_Frame.Nodes = "GR1(group)"
	var_Pattern = var_Frame.Pattern
		var_Pattern.Type = 261 /*exPatternFrame | exPatternFDiagonal*/
		var_Pattern.Color = RGB(190,190,190)
		var_Pattern.FrameColor = RGB(128,128,128)
oChartView.EndUpdate()
202
How can I display the frame arround assistant nodes only

OleObject oChartView,var_Frame,var_Node,var_Nodes,var_Pattern

oChartView = ole_1.Object
oChartView.BeginUpdate()
var_Node = oChartView.Root
	var_Node.AddAssistant("Assistant 1")
	var_Node.AddAssistant("Assistant 2")
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234","AK1")
	var_Nodes.Add("Sub 2","1234","AK2")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
var_Frame = oChartView.Frames.Add("root")
	var_Frame.Nodes = "root(assistant)"
	var_Pattern = var_Frame.Pattern
		var_Pattern.Type = 261 /*exPatternFrame | exPatternFDiagonal*/
		var_Pattern.Color = RGB(190,190,190)
		var_Pattern.FrameColor = RGB(128,128,128)
oChartView.EndUpdate()
201
How can I display the frame arround child nodes only

OleObject oChartView,var_Frame,var_Node,var_Nodes,var_Pattern

oChartView = ole_1.Object
oChartView.BeginUpdate()
var_Node = oChartView.Root
	var_Node.AddAssistant("Assistant 1")
	var_Node.AddAssistant("Assistant 2")
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234","AK1")
	var_Nodes.Add("Sub 2","1234","AK2")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
var_Frame = oChartView.Frames.Add("root")
	var_Frame.Nodes = "root(child)"
	var_Pattern = var_Frame.Pattern
		var_Pattern.Type = 261 /*exPatternFrame | exPatternFDiagonal*/
		var_Pattern.Color = RGB(190,190,190)
		var_Pattern.FrameColor = RGB(128,128,128)
oChartView.EndUpdate()
200
How can I show the frame arround all child, assistant, group nodes

OleObject oChartView,var_Frame,var_Node,var_Nodes,var_Pattern

oChartView = ole_1.Object
oChartView.BeginUpdate()
var_Node = oChartView.Root
	var_Node.AddAssistant("Assistant 1")
	var_Node.AddAssistant("Assistant 2")
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234","AK1")
	var_Nodes.Add("Sub 2","1234","AK2")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
var_Frame = oChartView.Frames.Add("root")
	var_Frame.Nodes = "root(all)"
	var_Pattern = var_Frame.Pattern
		var_Pattern.Type = 261 /*exPatternFrame | exPatternFDiagonal*/
		var_Pattern.Color = RGB(190,190,190)
		var_Pattern.FrameColor = RGB(128,128,128)
oChartView.EndUpdate()
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

OleObject oChartView,var_Node,var_Nodes,var_Pattern

oChartView = ole_1.Object
oChartView.BeginUpdate()
var_Node = oChartView.Root
	var_Node.AddAssistant("Assistant 1")
	var_Node.AddAssistant("Assistant 2")
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234","AK1")
	var_Nodes.Add("Sub 2","1234","AK2")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
var_Pattern = oChartView.Frames.Add("AK1,AK2").Pattern
	var_Pattern.Type = 261 /*exPatternFrame | exPatternFDiagonal*/
	var_Pattern.Color = RGB(190,190,190)
	var_Pattern.FrameColor = RGB(128,128,128)
oChartView.EndUpdate()
198
How can I draw a pattern on a node

OleObject oChartView,var_Frame,var_Nodes,var_Pattern

oChartView = ole_1.Object
oChartView.IndentSiblingY = 30
oChartView.ShowLinksDir = true
oChartView.PenWidthLink = 2
oChartView.LinkColor = RGB(0,0,0)
oChartView.AntiAliasing = true
var_Nodes = oChartView.Nodes
	var_Nodes.Add("L1_A",,"LA").ShowLinkDir = false
	var_Nodes.Add("L1_B",,"LB")
	var_Nodes.Add("L2_A","LA","LA2")
	var_Nodes.Add("L2_B","LB","LB2")
var_Frame = oChartView.Frames.Add("LB")
	var_Frame.Padding(-1,-2)
	var_Pattern = var_Frame.Pattern
		var_Pattern.Type = 6
		var_Pattern.Color = RGB(128,128,128)
	var_Frame.ShowOnBackground = false
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 )

OleObject oChartView,var_Appearance,var_Node,var_Node1,var_Node10,var_Node11,var_Node12,var_Node13,var_Node14,var_Node15,var_Node16,var_Node17,var_Node18,var_Node19,var_Node2,var_Node20,var_Node21,var_Node22,var_Node23,var_Node24,var_Node25,var_Node26,var_Node27,var_Node28,var_Node29,var_Node3,var_Node30,var_Node31,var_Node32,var_Node33,var_Node34,var_Node35,var_Node36,var_Node37,var_Node38,var_Node39,var_Node4,var_Node40,var_Node41,var_Node42,var_Node43,var_Node44,var_Node45,var_Node46,var_Node47,var_Node48,var_Node49,var_Node5,var_Node50,var_Node51,var_Node52,var_Node53,var_Node54,var_Node55,var_Node56,var_Node57,var_Node58,var_Node59,var_Node6,var_Node7,var_Node8,var_Node9,var_Nodes

oChartView = ole_1.Object
oChartView.BeginUpdate()
var_Appearance = oChartView.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAADhABdQFg6AADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDENQwSSMMJwSKYYBiASEYJASQZUhmHIDTbIEBxfIMIRLE6PZbmEYYfgeNY6TQCcIgVD0ExhAZ2Q4EQAKRpOFY/DBQNLgAKNCQ3LaQY7BaKgZouTYDVrVNSVFC0IBkGoSbauCIJHrGCZ1RBYMI0VDNRwHJiMbRtSyqXjGJ4pSrAcq0FAgYRHI6jZxnGL5chqPqGVjMNZ1bQuKwzT0Ld5wTYsdydBK1MIkTKKaoORZgRpYUI6FAeSgBWyPcCqPSoDrKdo4XLdYwbeAFcSPD6+NBhG7tXm/NarNTgTB6DBthsGJbgYYw9AQVxBoOch2hEbh+nAARYkQdZ7CMPYGH+FxmlqbJ5lqDAdjMC5AmIW54hwaBvA4IQ8D+T8IFscgenAAZMHiEgWiWdRZlSAAhAkFAGq6dAdEcIYVF4QJKCAHQDBCBJYGUGQNhCEIhiSCJaGAYQWBsIYmEEFgJAGQ42CyC4iliPgygsT4olSXg3g2Qwwk0MpMiMLJIg8Y54niTYOmPPJMDMDIonSSU7jMJJbDaTYjlYUoMmMCRWFQAAlEkZgtDgTgjgCJQpEoIgkgkIQHnIAB7CACARnIaIaiaGYuG6GxmhmFB7CGSICAyHwoAmQxQlQNIlikWgthYIwaAYVQvAuQpsg0IxIhKTIzCwToTiiaYACkChGhKJJpEOQoWC+C5imyCgiggYpUzMZ5Yj6AIfg6UpcjgLYInIPILhOTYaEIUg9EoItfCGCByAiCV2lIKILCGK4qnKO4YggWpQgIJxJmIaJhDgDgKECaIykkUhUhILQLEKRh9iiYpzCSSQxmgcgkm2NppAKbI8C4RoBiQYgSgSMQQEEEIDjECBDA8LorjKa47EQMQSm4DpEhEKBDBeRgBGqMQnmkA5in4JAJAINoEC6JR4jyaQ6E6AhEhIIxNBMRJPiQCYyHCGA" &
 +"UgUMQwEgEhhkEOBHBOBJxCMHJHjGXB/CKSBxlENwaj1qgsEwERICIDB/iQDgjgiYYvE2cx8l2KIinoEI5CYSYiFqEAz0mMBZBbwIkEsEN+gMSpSHSTITEqSoEFyGBHCoSoihqEAsgsIo8ikKhKGiVJ6AADwTkicQlAkUhElA+Z4VUHpHGuRA8lMdI9DscJc8r5QQAaIYsGUOpOjoOwHCEJAUgBh8B1EAAcHIzg5gPCGNgdQfRPhnGiLINhhQEDCBcGUDYphxjLHkNgfwTARhiHEBYWAVxpI1HQDcDjthiAADoKcCgJgbs7FyG4LQagBBgE0CMOYOxLhtGY/AcAegNgTHIPkHISAHADEQNYOA2BwAHEQHABwQxMDbCQEscoEBAAgEOD0V4cR0jyGCPAPwHAvh0EAOIHIDRfA/EaGMfYfguAACiBQIg/xWAbH0F8J4bxSD6G8MUMo7Q9ieHuI8eA0gLjfG2PUPQnwvhvHsPsGABxhD8E+AMbgfhVDJH2L8U48wAjbEGPwPo7x8j4F4FccwHAhhiEgBQEQhAnCDGgHwBonxiAZD+G8Lo/hHj3H8PELIiBwgOFCNQHAqQAhYBWAUIARAECgHyKkIIqAIgGGCLgUIFAhB5CQAcFAGgcEHHKBwUYkAdiHDgOaAIKBigYCCFAFQhBzChAWKEOYzwDhCEwFMBQNxwD3C8CsPgHQhANEuA4Uw+gdhHDAOwBogRYAzFuGAQIEgQAzCSGUAIbAXAFCiKIGghhBCQAeAFIgDgwjMByEAAYXg1hiEwFgBYAQugAGIPsTodgnDSBgMca4LhqChCgD4CIYgYBDmcI4GIxgUCYAm1oPIjwgjmFQMYWA1gNCiBUqcII6gegUEAHwB4oRwhzEGLge4GAOC6HUAcMIsAbCGDqLYHYVBACTAkIIIAYigCIGcBQCArQKiiFQFERQUQhDMAOBgcIWAggUBGIMfAVAHhCBwEgBAMg+jbFqCcHYLxvg4D2A8QI3AziMHiJoUgFhACyCwIINofwHi" &
 +"JDAJUKw2B2ARGEEAIwCxIh2BaNQQA/ROBRGoFYQ48B/AeEGEt99lQOgDFgGcAtFgdgHEANIMAhAIDKAygkQAEAAjxBeIoCI7QfjUEEEwDIIgWBFEQHUSANxsAqEEEUdwlA4iJCSFYEwhBsCXE0KoIAexnj4DoDkEwaBmgYCGAwMADAkCFCMMYAQOgMhQEIHsaIVQQDXFOOgRtwAUguAcAUU1iw1CWA6OwdIOQFBxCgCkDgeBribBmIgP4KQiAAB+KoAg2QNiDDoG0BQyQzg+EGOAWAFgRC4DsEURQYAdhWFKAoKAVQAB/AcHEaAORiioFqBYMWFATCZEsBsIYcA0gMGCJwGAhg4DQAwKsDAYQGzZBkAcSA8gODEBEGQVIQhajUEeeYKY1QIDrBCIAEg0xIAwEgBNkAAADUTA6B4MQEwv0UEGLAUgzhf04AKGEg4BhYD2B0MUAABApAAvqI8WAqAdDGGwJsEIXwWDtE0AAA4fhmDZCmJMMwbBkgBIC")
	var_Appearance.Add(2,"gBFLBCJwBAEHhEJAADhABEEMACAADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIgdBINQTDCLYyiUBYJhAMYSAJCI4jBCAZRXEAaQIkKY4ZDKCY2QLIEgSFCETQlEAYZgkCB5UiGNIkQLSFDABJMBraDgSAApeoYVj4NZASANFB0bKcQAVDSOKRjeCacpOUpQRZLIyiLZVWQSGoYLahW4YQiKIJKRTXdhULQtLS5FaWZbte6LchqOAAYbOV6ynSeV6NUJNc5xVicBgrBKlI6nGxIJqaZpVYzPeQQTTUby5OyEbyADJ4DqEAKaUrZNoZfhkBhlNa2YguC4gAzudaUZhCOqABpWYYLDS/JSGCYJGDcOaVRZ0FJUVwPg8GZkkCcBQDGJw0HOJ5gECdRUi0dxXi2IJbG4Jp+huHpzH0GouF2eA+B4F4bkESwEEISgGhMGZQmocgZFQFAki4TIAAECBNgCUYQsaCgRjQdRjAYERhmIBB5gIQBwm2BROlOSgaDMIZCmoHoHmICIGB8MJiEOFgmD+IoIGEA4GA4aI0kSC5NliRJrgyYxIlYNoNkyGJkliDpPlidQDD2ZADBYQg6iQQ46EaEZkgkJhKhGTw5DSSITk4eRFAMNRlEMXhWDuZYJC4WoWmWA4+CYORMGmBQDguTBDg4Zg8GaA5CGqGpmkmNhuhuZoim4chAkuaZUmmHZPBgahoh6Z5JnYfofmGI5IjmIJnEmWh3D4D0nn+IpokmboBgeaBSnodw6E+I5YnOIBpgoZoaiaJ9IHOJAAAmVoSh2aRaF6G4pmqCBqh6KAqCkEJqD6TxzlKHosmsSpWjaExPEqZosh0apqkKMotmwCwCjkPQrjKeg0D8T4TlaQ4ymySw2k6LhPFsRpFDsLRDmCdw9i0GxmlqNptksdJ2jebBTjaYoQC0ex+maOZuguJppjkLBZByeI7m4S5GnKPJvEkApvD4Jwim6EY7i8C5Wn6P4vHuZoRhcT4cBad5BnCDAnAqO5wFOZw" &
 +"CigZxZiyepEnCXBXBaRZxgwFwTD6MJ6goaw+nETBnCKSIxjwdh1h6T5jm8IOuEyNwukuT4siie5JguaZsn+ShzAyZw6kyMJ4hCQ44g6U5/DeTI0E0FxGlGcojnMSgvDSSROFQOANnMfxCD+dItFcVpVnWDRbFOFxMH0dQDiATItgaZpUnUOJ3GaWZ2gOdxklCDQNjYX4KmEaYYmMM43EkP0d4tR3gbBKKgOwGgtjsFQGodQuxCAvAWFIMwnwGgcEyCYC4FRijxE4Gl0AnAuCOFWBUAABwth+AACAEBAQ=")
	var_Appearance.Add(3,"gBFLBCJwBAEHhEJAADhABI8IQAAYAQGKIYBkAKBQAGaAoDDWDoMAANAyjPBMKgBBCLIxhEYobgmGIXRpFMbxAKQahLEiTIklBI8ExXFqMQCkGKocgONYgTLOMZOXCEEwCgI=")
oChartView.AntiAliasing = true
oChartView.IndentSiblingY = 4
oChartView.ShowRoundLink = true
oChartView.PenLink = 0
oChartView.SelColor = RGB(255,255,0)
oChartView.HasButtons = -1
oChartView.DefaultNodePadding(-1,6)
var_Node = oChartView.Root
	var_Node.Caption = "Constuction of a House"
	var_Node.BackColor = 16777216 /*0x1000000*/
	var_Node.ForeColor = RGB(255,255,255)
	var_Node1 = var_Node.AddAssistant("<font ;6>Work:<r>100.00%<br>Budget:<r>$215,500.00")
		var_Node1.Left = false
		var_Node1.ShowLinks = false
		var_Node1.Padding(-1,0)
		var_Node1.FixedWidth = 72
		var_Node1.BackColor = 33554432 /*0x2000000*/
var_Nodes = oChartView.Nodes
	var_Node2 = var_Nodes.Add("1. Internal","Root","Internal")
		var_Node2.ArrangeSiblingNodesAs = 2
		var_Node2.ShowRoundLink = false
		var_Node2.BackColor = 33488896 /*0x1ff0000*/
		var_Node2.ForeColor = RGB(255,255,255)
		var_Node3 = var_Node2.AddAssistant("<font ;6>Work:<r>45.60%<br>Budget:<r>$86,500.00")
			var_Node3.Left = false
			var_Node3.ShowLinks = false
			var_Node3.Padding(-1,0)
			var_Node3.FixedWidth = 72
			var_Node3.BackColor = 33554432 /*0x2000000*/
	var_Node4 = var_Nodes.Add("1.1 Electrical","Internal","Electrical")
		var_Node4.ShowRoundLink = false
		var_Node4.BackColor = 16842496 /*0x100ff00*/
		var_Node4.ForeColor = RGB(255,255,255)
		var_Node5 = var_Node4.AddAssistant("<font ;6>Work:<r>11.80%<br>Budget:<r>$25,000.00")
			var_Node5.Left = false
			var_Node5.ShowLinks = false
			var_Node5.Padding(-1,0)
			var_Node5.FixedWidth = 72
			var_Node5.BackColor = 33554432 /*0x2000000*/
	var_Node6 = var_Nodes.Add("1.1.1 Rough-in electrical","Electrical","RoughElectrical")
		var_Node6.BackColor = 50331648 /*0x3000000*/
		var_Node6.Padding(-1,0)
		var_Node7 = var_Node6.AddAssistant("<font ;6>Work:<r>2.80%<br>Budget:<r>$5,000.00")
			var_Node7.Left = false
			var_Node7.ShowLinks = false
			var_Node7.Padding(-1,0)
			var_Node7.FixedWidth = 72
			var_Node7.BackColor = 33554432 /*0x2000000*/
	var_Node8 = var_Nodes.Add("1.1.2 Install and Terminate","Electrical","InstallTerminate")
		var_Node8.BackColor = 50331648 /*0x3000000*/
		var_Node8.Padding(-1,0)
		var_Node9 = var_Node8.AddAssistant("<font ;6>Work:<r>1.90%<br>Budget:<r>$5,000.00")
			var_Node9.Left = false
			var_Node9.ShowLinks = false
			var_Node9.Padding(-1,0)
			var_Node9.FixedWidth = 72
			var_Node9.BackColor = 33554432 /*0x2000000*/
	var_Node10 = var_Nodes.Add("1.1.3 HVAC Equipment","Electrical","HVAC")
		var_Node10.BackColor = 50331648 /*0x3000000*/
		var_Node10.Padding(-1,0)
		var_Node11 = var_Node10.AddAssistant("<font ;6>Work:<r>7.10%<br>Budget:<r>$15,000.00")
			var_Node11.Left = false
			var_Node11.ShowLinks = false
			var_Node11.Padding(-1,0)
			var_Node11.FixedWidth = 72
			var_Node11.BackColor = 33554432 /*0x2000000*/
	var_Node12 = var_Nodes.Add("1.2 Plumbing","Internal","Plumbing")
		var_Node12.ShowRoundLink = false
		var_Node12.BackColor = 16842496 /*0x100ff00*/
		var_Node12.ForeColor = RGB(255,255,255)
		var_Node13 = var_Node12.AddAssistant("<font ;6>Work:<r>33.80%<br>Budget:<r>$61,000.00")
			var_Node13.Left = false
			var_Node13.ShowLinks = false
			var_Node13.Padding(-1,0)
			var_Node13.FixedWidth = 72
			var_Node13.BackColor = 33554432 /*0x2000000*/
	var_Node14 = var_Nodes.Add("1.2.1 Rough-in plumbing","Plumbing","RoughPlumbing")
		var_Node14.BackColor = 50331648 /*0x3000000*/
		var_Node14.Padding(-1,0)
		var_Node15 = var_Node14.AddAssistant("<font ;6>Work:<r>11.30%<br>Budget:<r>$22,000.00")
			var_Node15.Left = false
			var_Node15.ShowLinks = false
			var_Node15.Padding(-1,0)
			var_Node15.FixedWidth = 72
			var_Node15.BackColor = 33554432 /*0x2000000*/
	var_Node16 = var_Nodes.Add("1.2.2 Set plumbing fixtures and trim","Plumbing","PlumbingFixtures")
		var_Node16.Width = 256
		var_Node16.BackColor = 50331648 /*0x3000000*/
		var_Node16.Padding(-1,0)
		var_Node17 = var_Node16.AddAssistant("<font ;6>Work:<r>13.20%<br>Budget:<r>$31,000.00")
			var_Node17.Left = false
			var_Node17.ShowLinks = false
			var_Node17.Padding(-1,0)
			var_Node17.FixedWidth = 72
			var_Node17.BackColor = 33554432 /*0x2000000*/
	var_Node18 = var_Nodes.Add("1.2.3 Test and clean","Plumbing","PlumbingTest")
		var_Node18.BackColor = 50331648 /*0x3000000*/
		var_Node18.Padding(-1,0)
		var_Node19 = var_Node18.AddAssistant("<font ;6>Work:<r>9.30%<br>Budget:<r>$8,000.00")
			var_Node19.Left = false
			var_Node19.ShowLinks = false
			var_Node19.Padding(-1,0)
			var_Node19.FixedWidth = 72
			var_Node19.BackColor = 33554432 /*0x2000000*/
	var_Node20 = var_Nodes.Add("2. Foundation","Root","Foundation")
		var_Node20.ArrangeSiblingNodesAs = 2
		var_Node20.ShowRoundLink = false
		var_Node20.BackColor = 33488896 /*0x1ff0000*/
		var_Node20.ForeColor = RGB(255,255,255)
		var_Node21 = var_Node20.AddAssistant("<font ;6>Work:<r>24.00%<br>Budget:<r>$46,000.00")
			var_Node21.Left = false
			var_Node21.ShowLinks = false
			var_Node21.Padding(-1,0)
			var_Node21.FixedWidth = 72
			var_Node21.BackColor = 33554432 /*0x2000000*/
	var_Node22 = var_Nodes.Add("2.1 Excavate","Foundation","Excavate")
		var_Node22.ShowRoundLink = false
		var_Node22.BackColor = 16842496 /*0x100ff00*/
		var_Node22.ForeColor = RGB(255,255,255)
		var_Node23 = var_Node22.AddAssistant("<font ;6>Work:<r>24.00%<br>Budget:<r>$46,000.00")
			var_Node23.Left = false
			var_Node23.ShowLinks = false
			var_Node23.Padding(-1,0)
			var_Node23.FixedWidth = 72
			var_Node23.BackColor = 33554432 /*0x2000000*/
	var_Node24 = var_Nodes.Add("2.1.1 Pour Concrete","Excavate","Concrete")
		var_Node24.BackColor = 50331648 /*0x3000000*/
		var_Node24.Padding(-1,0)
		var_Node25 = var_Node24.AddAssistant("<font ;6>Work:<r>7.90%<br>Budget:<r>$30,000.00")
			var_Node25.Left = false
			var_Node25.ShowLinks = false
			var_Node25.Padding(-1,0)
			var_Node25.FixedWidth = 72
			var_Node25.BackColor = 33554432 /*0x2000000*/
	var_Node26 = var_Nodes.Add("2.1.2 Cure & Strip Forms","Excavate","CureForms")
		var_Node26.BackColor = 50331648 /*0x3000000*/
		var_Node26.Padding(-1,0)
		var_Node27 = var_Node26.AddAssistant("<font ;6>Work:<r>10.30%<br>Budget:<r>$70,000.00")
			var_Node27.Left = false
			var_Node27.ShowLinks = false
			var_Node27.Padding(-1,0)
			var_Node27.FixedWidth = 72
			var_Node27.BackColor = 33554432 /*0x2000000*/
	var_Node28 = var_Nodes.Add("2.2 Steel Erection","Foundation","Steel")
		var_Node28.ShowRoundLink = false
		var_Node28.BackColor = 16842496 /*0x100ff00*/
		var_Node28.ForeColor = RGB(255,255,255)
		var_Node29 = var_Node28.AddAssistant("<font ;6>Work:<r>5.00%<br>Budget:<r>$9,000.00")
			var_Node29.Left = false
			var_Node29.ShowLinks = false
			var_Node29.Padding(-1,0)
			var_Node29.FixedWidth = 72
			var_Node29.BackColor = 33554432 /*0x2000000*/
	var_Node30 = var_Nodes.Add("2.2.1 Steel Columns","Steel","SteelColumns")
		var_Node30.BackColor = 50331648 /*0x3000000*/
		var_Node30.Padding(-1,0)
		var_Node31 = var_Node30.AddAssistant("<font ;6>Work:<r>2.80%<br>Budget:<r>$50,000.00")
			var_Node31.Left = false
			var_Node31.ShowLinks = false
			var_Node31.Padding(-1,0)
			var_Node31.FixedWidth = 72
			var_Node31.BackColor = 33554432 /*0x2000000*/
	var_Node32 = var_Nodes.Add("2.2.2 Beams","Steel","Beams")
		var_Node32.Width = 256
		var_Node32.BackColor = 50331648 /*0x3000000*/
		var_Node32.Padding(-1,0)
		var_Node33 = var_Node32.AddAssistant("<font ;6>Work:<r>1.90%<br>Budget:<r>$2,000.00")
			var_Node33.Left = false
			var_Node33.ShowLinks = false
			var_Node33.Padding(-1,0)
			var_Node33.FixedWidth = 72
			var_Node33.BackColor = 33554432 /*0x2000000*/
	var_Node34 = var_Nodes.Add("2.2.3 Joist","Steel","Joist")
		var_Node34.BackColor = 50331648 /*0x3000000*/
		var_Node34.Padding(-1,0)
		var_Node35 = var_Node34.AddAssistant("<font ;6>Work:<r>1.10%<br>Budget:<r>$2,000.00")
			var_Node35.Left = false
			var_Node35.ShowLinks = false
			var_Node35.Padding(-1,0)
			var_Node35.FixedWidth = 72
			var_Node35.BackColor = 33554432 /*0x2000000*/
	var_Node36 = var_Nodes.Add("3. External","Root","External")
		var_Node36.ArrangeSiblingNodesAs = 2
		var_Node36.ShowRoundLink = false
		var_Node36.BackColor = 33488896 /*0x1ff0000*/
		var_Node36.ForeColor = RGB(255,255,255)
		var_Node37 = var_Node36.AddAssistant("<font ;6>Work:<r>30.40%<br>Budget:<r>$83,500.00")
			var_Node37.Left = false
			var_Node37.ShowLinks = false
			var_Node37.Padding(-1,0)
			var_Node37.FixedWidth = 72
			var_Node37.BackColor = 33554432 /*0x2000000*/
	var_Node38 = var_Nodes.Add("3.1 Masonry Work","External","Masonry")
		var_Node38.ShowRoundLink = false
		var_Node38.BackColor = 16842496 /*0x100ff00*/
		var_Node38.ForeColor = RGB(255,255,255)
		var_Node39 = var_Node38.AddAssistant("<font ;6>Work:<r>16.20%<br>Budget:<r>$16,000.00")
			var_Node39.Left = false
			var_Node39.ShowLinks = false
			var_Node39.Padding(-1,0)
			var_Node39.FixedWidth = 72
			var_Node39.BackColor = 33554432 /*0x2000000*/
	var_Node40 = var_Nodes.Add("3.1.1 Lay Masonry","Masonry","LayMasonry")
		var_Node40.BackColor = 50331648 /*0x3000000*/
		var_Node40.Padding(-1,0)
		var_Node41 = var_Node40.AddAssistant("<font ;6>Work:<r>9.00%<br>Budget:<r>$35,000.00")
			var_Node41.Left = false
			var_Node41.ShowLinks = false
			var_Node41.Padding(-1,0)
			var_Node41.FixedWidth = 72
			var_Node41.BackColor = 33554432 /*0x2000000*/
	var_Node42 = var_Nodes.Add("3.1.2 Install roof drains","Masonry","RoofDrains")
		var_Node42.BackColor = 50331648 /*0x3000000*/
		var_Node42.Padding(-1,0)
		var_Node43 = var_Node42.AddAssistant("<font ;6>Work:<r>3.10%<br>Budget:<r>$2,000.00")
			var_Node43.Left = false
			var_Node43.ShowLinks = false
			var_Node43.Padding(-1,0)
			var_Node43.FixedWidth = 72
			var_Node43.BackColor = 33554432 /*0x2000000*/
	var_Node44 = var_Nodes.Add("3.1.3 Install tile in toilet rooms","Masonry","TileToiles")
		var_Node44.BackColor = 50331648 /*0x3000000*/
		var_Node44.Padding(-1,0)
		var_Node45 = var_Node44.AddAssistant("<font ;6>Work:<r>1.30%<br>Budget:<r>$10,000.00")
			var_Node45.Left = false
			var_Node45.ShowLinks = false
			var_Node45.Padding(-1,0)
			var_Node45.FixedWidth = 72
			var_Node45.BackColor = 33554432 /*0x2000000*/
	var_Node46 = var_Nodes.Add("3.1.4 Roofing","Masonry","Roofing")
		var_Node46.BackColor = 50331648 /*0x3000000*/
		var_Node46.Padding(-1,0)
		var_Node47 = var_Node46.AddAssistant("<font ;6>Work:<r>2.80%<br>Budget:<r>$15,000.00")
			var_Node47.Left = false
			var_Node47.ShowLinks = false
			var_Node47.Padding(-1,0)
			var_Node47.FixedWidth = 72
			var_Node47.BackColor = 33554432 /*0x2000000*/
	var_Node48 = var_Nodes.Add("3.2 Building Finishes","External","Building")
		var_Node48.ShowRoundLink = false
		var_Node48.BackColor = 16842496 /*0x100ff00*/
		var_Node48.ForeColor = RGB(255,255,255)
		var_Node49 = var_Node48.AddAssistant("<font ;6>Work:<r>14.20%<br>Budget:<r>$21,500.00")
			var_Node49.Left = false
			var_Node49.ShowLinks = false
			var_Node49.Padding(-1,0)
			var_Node49.FixedWidth = 72
			var_Node49.BackColor = 33554432 /*0x2000000*/
	var_Node50 = var_Nodes.Add("3.2.1 Paint Walls","Building","Paint")
		var_Node50.BackColor = 50331648 /*0x3000000*/
		var_Node50.Padding(-1,0)
		var_Node51 = var_Node50.AddAssistant("<font ;6>Work:<r>4.00%<br>Budget:<r>$8,000.00")
			var_Node51.Left = false
			var_Node51.ShowLinks = false
			var_Node51.Padding(-1,0)
			var_Node51.FixedWidth = 72
			var_Node51.BackColor = 33554432 /*0x2000000*/
	var_Node52 = var_Nodes.Add("3.2.2 Ceiling Tiles","Building","CeilingTiles")
		var_Node52.Width = 256
		var_Node52.BackColor = 50331648 /*0x3000000*/
		var_Node52.Padding(-1,0)
		var_Node53 = var_Node52.AddAssistant("<font ;6>Work:<r>3.60%<br>Budget:<r>$4,000.00")
			var_Node53.Left = false
			var_Node53.ShowLinks = false
			var_Node53.Padding(-1,0)
			var_Node53.FixedWidth = 72
			var_Node53.BackColor = 33554432 /*0x2000000*/
	var_Node54 = var_Nodes.Add("3.2.3 Hang Wallpaper","Building","Wallpaper")
		var_Node54.BackColor = 50331648 /*0x3000000*/
		var_Node54.Padding(-1,0)
		var_Node55 = var_Node54.AddAssistant("<font ;6>Work:<r>2.30%<br>Budget:<r>$1,500.00")
			var_Node55.Left = false
			var_Node55.ShowLinks = false
			var_Node55.Padding(-1,0)
			var_Node55.FixedWidth = 72
			var_Node55.BackColor = 33554432 /*0x2000000*/
	var_Node56 = var_Nodes.Add("3.2.4 Carpet","Building","Carpet")
		var_Node56.BackColor = 50331648 /*0x3000000*/
		var_Node56.Padding(-1,0)
		var_Node57 = var_Node56.AddAssistant("<font ;6>Work:<r>1.80%<br>Budget:<r>$6,000.00")
			var_Node57.Left = false
			var_Node57.ShowLinks = false
			var_Node57.Padding(-1,0)
			var_Node57.FixedWidth = 72
			var_Node57.BackColor = 33554432 /*0x2000000*/
	var_Node58 = var_Nodes.Add("3.2.5 Hardware","Building","Hardware")
		var_Node58.BackColor = 50331648 /*0x3000000*/
		var_Node58.Padding(-1,0)
		var_Node59 = var_Node58.AddAssistant("<font ;6>Work:<r>2.50%<br>Budget:<r>$2,000.00")
			var_Node59.Left = false
			var_Node59.ShowLinks = false
			var_Node59.Padding(-1,0)
			var_Node59.FixedWidth = 72
			var_Node59.BackColor = 33554432 /*0x2000000*/
oChartView.EndUpdate()
196
Does your control support padding (padding properties are used to generate space around content)

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
oChartView.BeginUpdate()
oChartView.IndentSiblingY = 30
oChartView.ShowLinksDir = true
oChartView.PenWidthLink = 2
oChartView.LinkColor = RGB(0,0,0)
oChartView.AntiAliasing = true
var_Nodes = oChartView.Nodes
	var_Node = var_Nodes.Add("L1 A1",,"LA")
		var_Node.BackColor = RGB(255,0,0)
		var_Node.Padding(-1,16)
	var_Nodes.Add("L1 B1",,"LB")
	var_Nodes.Add("L2 A1","LA","LA2")
	var_Nodes.Add("L2 B2","LB","LB2")
oChartView.Nodes.Item("root").Caption = "Ls As"
oChartView.EndUpdate()
195
Does your control support padding (padding properties are used to generate space around content)

OleObject oChartView,var_Nodes

oChartView = ole_1.Object
oChartView.BeginUpdate()
oChartView.DefaultNodePadding(-1,8)
oChartView.IndentSiblingY = 30
oChartView.ShowLinksDir = true
oChartView.PenWidthLink = 2
oChartView.LinkColor = RGB(0,0,0)
oChartView.AntiAliasing = true
var_Nodes = oChartView.Nodes
	var_Nodes.Add("L1 A1",,"LA")
	var_Nodes.Add("L1 B1",,"LB")
	var_Nodes.Add("L2 A1","LA","LA2")
	var_Nodes.Add("L2 B2","LB","LB2")
oChartView.Nodes.Item("root").Caption = "Ls As"
oChartView.EndUpdate()
194
How do I programmatically edit a node

OleObject oChartView

oChartView = ole_1.Object
oChartView.Nodes.Add("Text",,"1234")
oChartView.EditNode("1234")
193
WidthNode does not seem to do anything. What this property is for

OleObject oChartView,var_Nodes

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

OleObject oChartView,var_Nodes,var_Print

oChartView = ole_1.Object
oChartView.FixedWidthNode = 512
oChartView.IndentSiblingY = 30
oChartView.ShowLinksDir = true
oChartView.PenWidthLink = 2
oChartView.LinkColor = RGB(0,0,0)
oChartView.AntiAliasing = true
var_Nodes = oChartView.Nodes
	var_Nodes.Add("L1_A",,"LA").ShowLinkDir = false
	var_Nodes.Add("L1_B",,"LB")
	var_Nodes.Add("L2_A","LA","LA2")
	var_Nodes.Add("L2_B","LB","LB2")
var_Print = CREATE OLEObject
var_Print.ConnectToNewObject("Exontrol.Print")
	var_Print.Options = "FitToPage = On"
	var_Print.PrintExt = oChartView.Object
	var_Print.Preview()
191
Does your control support Print and Print-Preview

OleObject oChartView,var_Nodes,var_Print

oChartView = ole_1.Object
oChartView.IndentSiblingY = 30
oChartView.ShowLinksDir = true
oChartView.PenWidthLink = 2
oChartView.LinkColor = RGB(0,0,0)
oChartView.AntiAliasing = true
var_Nodes = oChartView.Nodes
	var_Nodes.Add("L1_A",,"LA").ShowLinkDir = false
	var_Nodes.Add("L1_B",,"LB")
	var_Nodes.Add("L2_A","LA","LA2")
	var_Nodes.Add("L2_B","LB","LB2")
var_Print = CREATE OLEObject
var_Print.ConnectToNewObject("Exontrol.Print")
	var_Print.PrintExts = oChartView
	var_Print.Preview()
190
Does your control support subscript or superscript, in HTML captions

OleObject oChartView,var_Nodes

oChartView = ole_1.Object
oChartView.AntiAliasing = true
var_Nodes = oChartView.Nodes
	var_Nodes.Add("<sha ;;0>Event <b><font ;6><off 4>1",,"LA").ShowLinkDir = false
	var_Nodes.Add("<sha ;;0>Event <b><font ;6><off 4>2",,"LB")
	var_Nodes.Add("<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1","LA","LA2")
	var_Nodes.Add("Event","LB","LB2")
189
Is it possible to move a node by a simple click rather than SHIFT + Click

OleObject oChartView,var_Nodes

oChartView = ole_1.Object
oChartView.AllowMoveChart = 0
oChartView.AllowMoveNode = 1
oChartView.AntiAliasing = true
var_Nodes = oChartView.Nodes
	var_Nodes.Add("L1_A",,"LA").ShowLinkDir = false
	var_Nodes.Add("L1_B",,"LB")
	var_Nodes.Add("L2_A","LA","LA2")
	var_Nodes.Add("L2_B","LB","LB2")
188
How can I disable moving the nodes at runtime
OleObject oChartView

oChartView = ole_1.Object
oChartView.AllowMoveNode = 0
187
How can I disable resizing the chart using the middle mouse button
OleObject oChartView

oChartView = ole_1.Object
oChartView.AllowResizeChart = 0
186
How can I disable inline editing
OleObject oChartView

oChartView = ole_1.Object
oChartView.AllowEdit = 0
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

/*begin event MouseUp(integer  Button,integer  Shift,long  X,long  Y) - Occurs when the user releases a mouse button.*/
/*
	Items.Add(Me.NodeFromPoint(-1,-1).Caption,0,1234)
	OleObject var_PopupMenu
	oChartView = ole_1.Object
	var_PopupMenu = CREATE OLEObject
	var_PopupMenu.ConnectToNewObject("Exontrol.ExPopupMenu")
		MessageBox("Information",string( String(var_PopupMenu.ShowAtCursor) ))
*/
/*end event MouseUp*/

OleObject oChartView,var_Nodes

oChartView = ole_1.Object
oChartView.IndentSiblingY = 30
oChartView.ShowLinksDir = true
oChartView.PenWidthLink = 2
oChartView.LinkColor = RGB(0,0,0)
oChartView.AntiAliasing = true
var_Nodes = oChartView.Nodes
	var_Nodes.Add("L1_A",,"LA").ShowLinkDir = false
	var_Nodes.Add("L1_B",,"LB")
	var_Nodes.Add("L2_A","LA","LA2")
	var_Nodes.Add("L2_B","LB","LB2")
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

/*begin event AnchorClick(string  AnchorID,string  Options) - Occurs when an anchor element is clicked.*/
/*
	oChartView = ole_1.Object
	MessageBox("Information",string( String(Options) ))
*/
/*end event AnchorClick*/

OleObject oChartView,var_Nodes

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

OleObject oChartView,var_Nodes

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

OleObject oChartView,var_Nodes

oChartView = ole_1.Object
oChartView.IndentSiblingY = 30
oChartView.ShowLinksDir = true
oChartView.PenWidthLink = 2
oChartView.LinkColor = RGB(0,0,0)
oChartView.AntiAliasing = true
var_Nodes = oChartView.Nodes
	var_Nodes.Add("L1_A",,"LA").ShowLinkDir = false
	var_Nodes.Add("L1_B",,"LB")
	var_Nodes.Add("L2_A","LA","LA2")
	var_Nodes.Add("L2_B","LB","LB2")
181
Does your control supports multiple lines tooltip

OleObject oChartView

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

OleObject oChartView,var_Node,var_Node1,var_Nodes

oChartView = ole_1.Object
oChartView.VisualAppearance.Add(1,"c:\exontrol\images\hot.ebn")
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child",,"1234")
	var_Node = var_Nodes.Add("Sub 1","1234")
		var_Node.Caption = "This is a bit of long text that should break the line.<br>-using no color"
		var_Node.BackColor = 16777216 /*0x1000000*/
	var_Node1 = var_Nodes.Add("Sub 2","1234")
		var_Node1.Caption = "This is a bit of long text that should break the line.<br>-using a color"
		var_Node1.BackColor = 16842496 /*0x100ff00*/
179
Can the chart be arranged from the left to right (LTR)

OleObject oChartView,var_Nodes

oChartView = ole_1.Object
oChartView.BeginUpdate()
oChartView.Layout = 1
oChartView.ShowLinksDir = true
oChartView.IndentSiblingX = 32
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child1",,"1234")
	var_Nodes.Add("Child2",,"1235")
	var_Nodes.Add("Sub 1","1234")
	var_Nodes.Add("Sub 2","1234").Caption = "This is a bit of long text that should break the line."
oChartView.EndUpdate()
178
Is there any property to keep the aspect ratio for all pictures, but still keep the size of nodes

OleObject oChartView,var_Node,var_Node1,var_Node2,var_Nodes

oChartView = ole_1.Object
oChartView.BeginUpdate()
oChartView.PictureHeightNode = 48
oChartView.PictureAspectRatioNode = 2
oChartView.FixedWidthNode = 82
var_Nodes = oChartView.Nodes
	var_Node = var_Nodes.Add("PNG <b>1",,"0")
		var_Node.Picture = "c:\exontrol\images\card.png"
		var_Node.Alignment = 1
	var_Node1 = var_Nodes.Add("PNG <b>2",,"1")
		var_Node1.Picture = "c:\exontrol\images\diary.png"
		var_Node1.Alignment = 1
	var_Node2 = var_Nodes.Add("PNG <b>3",,"2")
		var_Node2.Picture = "c:\exontrol\images\sun.png"
		var_Node2.Alignment = 1
oChartView.Root.Alignment = 1
oChartView.EndUpdate()
177
Is there any property to keep the aspect ratio for all pictures

OleObject oChartView,var_Node,var_Node1,var_Node2,var_Nodes

oChartView = ole_1.Object
oChartView.BeginUpdate()
oChartView.PictureHeightNode = 48
oChartView.PictureAspectRatioNode = 2
var_Nodes = oChartView.Nodes
	var_Node = var_Nodes.Add("PNG <b>1",,"0")
		var_Node.Picture = "c:\exontrol\images\card.png"
	var_Node1 = var_Nodes.Add("PNG <b>2",,"1")
		var_Node1.Picture = "c:\exontrol\images\diary.png"
	var_Node2 = var_Nodes.Add("PNG <b>3",,"2")
		var_Node2.Picture = "c:\exontrol\images\sun.png"
oChartView.EndUpdate()
176
Is there any property to keep the aspect ratio for all pictures

OleObject oChartView,var_Node,var_Node1,var_Node2,var_Nodes

oChartView = ole_1.Object
oChartView.BeginUpdate()
oChartView.PictureWidthNode = 48
oChartView.PictureAspectRatioNode = 1
var_Nodes = oChartView.Nodes
	var_Node = var_Nodes.Add("PNG <b>1",,"0")
		var_Node.Picture = "c:\exontrol\images\card.png"
	var_Node1 = var_Nodes.Add("PNG <b>2",,"1")
		var_Node1.Picture = "c:\exontrol\images\diary.png"
	var_Node2 = var_Nodes.Add("PNG <b>3",,"2")
		var_Node2.Picture = "c:\exontrol\images\sun.png"
oChartView.EndUpdate()
175
Is there any property to keep the aspect ratio for displayed picture

OleObject oChartView,var_Node,var_Node1,var_Node2,var_Nodes

oChartView = ole_1.Object
oChartView.BeginUpdate()
var_Nodes = oChartView.Nodes
	var_Node = var_Nodes.Add("Ratio/None",,"0")
		var_Node.Picture = "c:\exontrol\images\card.png"
		var_Node.PictureWidth = 48
		var_Node.PictureHeight = 48
	var_Node1 = var_Nodes.Add("Ratio/Width",,"1")
		var_Node1.Picture = "c:\exontrol\images\card.png"
		var_Node1.PictureWidth = 48
		var_Node1.PictureAspectRatio = 1
	var_Node2 = var_Nodes.Add("Ratio/Height",,"2")
		var_Node2.Picture = "c:\exontrol\images\card.png"
		var_Node2.PictureHeight = 48
		var_Node2.PictureAspectRatio = 2
oChartView.EndUpdate()
174
Is is possible to show the round an arbitrary link

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
oChartView.AntiAliasing = true
oChartView.ShowLinksDir = false
oChartView.PenWidthLink = 1
oChartView.LinkColor = RGB(0,0,0)
var_Nodes = oChartView.Nodes
	var_Nodes.Add("L1_A",,"LA").LinkTo = "LB"
	var_Nodes.Add("L1_B<br><br>Cust",,"LB")
	var_Node = var_Nodes.Add("L2_A","LA","LA2")
		var_Node.LinkTo = "LB,LB22"
		var_Node.LinkToColor("LB",RGB(255,0,0))
		var_Node.LinkToWidth("LB",2)
		var_Node.LinkToPen("LB",2)
		var_Node.LinkToShowDir("LB",true)
		var_Node.LinkToRound("LB",true)
		var_Node.LinkToRound("LB22",true)
		var_Node.LinkToShowDir("LB22",true)
		var_Node.LinkToColor("LB22",RGB(128,0,0))
		var_Node.LinkToWidth("LB22",2)
	var_Nodes.Add("L2_B1","LB","LB21")
	var_Nodes.Add("L2_B2","LB","LB22")
	var_Nodes.Add("L2_B3","LB","LB23")
173
Is is possible to show the round an arbitrary link

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
oChartView.AntiAliasing = true
oChartView.ShowLinksDir = false
oChartView.PenWidthLink = 1
oChartView.LinkColor = RGB(0,0,0)
var_Nodes = oChartView.Nodes
	var_Nodes.Add("L1_A",,"LA").LinkTo = "LB"
	var_Nodes.Add("L1_B<br><br>Cust",,"LB")
	var_Node = var_Nodes.Add("L2_A","LA","LA2")
		var_Node.LinkTo = "LB"
		var_Node.LinkToColor("LB",RGB(255,0,0))
		var_Node.LinkToWidth("LB",2)
		var_Node.LinkToPen("LB",2)
		var_Node.LinkToShowDir("LB",true)
		var_Node.LinkToRound("LB",true)
	var_Nodes.Add("L2_B1","LB","LB21")
	var_Nodes.Add("L2_B2","LB","LB22")
	var_Nodes.Add("L2_B3","LB","LB23")
172
Is is possible to show the direction for a linktoline, even if the ShowLinksDir is False

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
oChartView.ShowLinksDir = false
oChartView.PenWidthLink = 2
oChartView.LinkColor = RGB(0,0,0)
oChartView.AntiAliasing = true
var_Nodes = oChartView.Nodes
	var_Nodes.Add("L1_A",,"LA").LinkTo = "LB"
	var_Node = var_Nodes.Add("L1_B<br><br>Cust",,"LB")
		var_Node.LinkTo = "LA2"
		var_Node.LinkToColor("LA2",RGB(255,0,0))
		var_Node.LinkToWidth("LA2",2)
		var_Node.LinkToPen("LA2",3)
		var_Node.LinkToShowDir("LA2",true)
	var_Nodes.Add("L2_A","LA","LA2")
	var_Nodes.Add("L2_B1","LB","LB21")
	var_Nodes.Add("L2_B2","LB","LB22")
	var_Nodes.Add("L2_B3","LB","LB23")
171
Is is possible to change the width for a specified linkto line

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
oChartView.PenWidthLink = 2
oChartView.LinkColor = RGB(0,0,0)
oChartView.AntiAliasing = true
var_Nodes = oChartView.Nodes
	var_Nodes.Add("L1_A",,"LA").LinkTo = "LB"
	var_Node = var_Nodes.Add("L1_B<br><br>Cust",,"LB")
		var_Node.LinkTo = "LA2"
		var_Node.LinkToColor("LA2",RGB(255,0,0))
		var_Node.LinkToWidth("LA2",4)
		var_Node.LinkToPen("LA2",0)
		var_Node.LinkToCaption("LA2","L2A-L1B")
	var_Nodes.Add("L2_A","LA","LA2")
	var_Nodes.Add("L2_B1","LB","LB21")
	var_Nodes.Add("L2_B2","LB","LB22")
	var_Nodes.Add("L2_B3","LB","LB23")
170
Is is possible to change the width for a specified linkto line

OleObject oChartView,var_Node,var_Nodes

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

OleObject oChartView,var_Node,var_Nodes

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

OleObject oChartView,var_Node,var_Nodes

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

OleObject oChartView,var_Nodes

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

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
var_Nodes = oChartView.Nodes
	var_Node = var_Nodes.Add("Child 1",,"1")
		var_Node.BorderWidth = 3
		var_Node.DrawRoundNode = false
	var_Nodes.Add("Child 2",,"2")
165
Can I change the visual appearance of the node

OleObject oChartView,var_Nodes

oChartView = ole_1.Object
oChartView.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child 1",,"1").BackColor = 16777216 /*0x1000000*/
	var_Nodes.Add("Child 2",,"2")
164
Can I specify a different color for node's border

OleObject oChartView,var_Nodes

oChartView = ole_1.Object
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child 1",,"1").BorderColor = RGB(255,0,0)
	var_Nodes.Add("Child 2",,"2")
163
Can I display my image on my links

OleObject oChartView,var_Node,var_Nodes

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

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
oChartView.AntiAliasing = true
oChartView.IndentSiblingY = 30
oChartView.ShowLinksDir = true
oChartView.PenWidthLink = 2
oChartView.LinkColor = RGB(0,0,0)
var_Nodes = oChartView.Nodes
	var_Nodes.Add("L1_A",,"LA")
	var_Node = var_Nodes.Add("L1_B",,"LB")
		var_Node.LinkTo = "LA2"
		var_Node.LinkToCaption("LA2","text")
	var_Nodes.Add("L2_A","LA","LA2")
	var_Nodes.Add("L2_B","LB","LB2")
161
How can I show smootly the arrows

OleObject oChartView,var_Nodes

oChartView = ole_1.Object
oChartView.AntiAliasing = true
oChartView.IndentSiblingY = 30
oChartView.ShowLinksDir = true
oChartView.PenWidthLink = 2
oChartView.LinkColor = RGB(0,0,0)
var_Nodes = oChartView.Nodes
	var_Nodes.Add("L1_A",,"LA")
	var_Nodes.Add("L1_B",,"LB").LinkTo = "LA2"
	var_Nodes.Add("L2_A","LA","LA2").LinkTo = "LB"
	var_Nodes.Add("L2_B","LB","LB2")
160
How can I show direction on my links

OleObject oChartView,var_Nodes

oChartView = ole_1.Object
oChartView.IndentSiblingY = 30
oChartView.ShowLinksDir = true
oChartView.PenWidthLink = 2
oChartView.LinkColor = RGB(0,0,0)
oChartView.AntiAliasing = true
var_Nodes = oChartView.Nodes
	var_Nodes.Add("L1_A",,"LA")
	var_Nodes.Add("L1_B",,"LB").LinkTo = "LA2"
	var_Nodes.Add("L2_A","LA","LA2").LinkTo = "LB"
	var_Nodes.Add("L2_B","LB","LB2")
159
How can I add a doubled direction link

OleObject oChartView,var_Nodes

oChartView = ole_1.Object
oChartView.PenWidthLink = 2
oChartView.LinkColor = RGB(0,0,0)
var_Nodes = oChartView.Nodes
	var_Nodes.Add("L1_A",,"LA")
	var_Nodes.Add("L1_B",,"LB").LinkTo = "LA2"
	var_Nodes.Add("L2_A","LA","LA2").LinkTo = "LB"
	var_Nodes.Add("L2_B","LB","LB2")
158
How can I add arbitrary links

OleObject oChartView,var_Nodes

oChartView = ole_1.Object
oChartView.PenWidthLink = 2
oChartView.LinkColor = RGB(0,0,0)
var_Nodes = oChartView.Nodes
	var_Nodes.Add("L1_A",,"LA")
	var_Nodes.Add("L1_B",,"LB").LinkTo = "LA2"
	var_Nodes.Add("L2_A","LA","LA2")
	var_Nodes.Add("L2_B","LB","LB2")
157
How can I add multiple parents

OleObject oChartView,var_Nodes

oChartView = ole_1.Object
oChartView.PenWidthLink = 2
oChartView.LinkColor = RGB(0,0,0)
var_Nodes = oChartView.Nodes
	var_Nodes.Add("L1_A",,"L1").AddGroup("L1_B")
	var_Nodes.Add("L_A","L1")
	var_Nodes.Add("L_B","L1")
	var_Nodes.Add("L_C","L1")
156
How can I add multiple parents or roots

OleObject oChartView,var_Node,var_Node1,var_Node2,var_Nodes

oChartView = ole_1.Object
oChartView.BeginUpdate()
oChartView.HasButtons = 3
oChartView.ButtonsAlign = 1
oChartView.PenWidthLink = 3
oChartView.IndentChild = 32
var_Node = oChartView.Root
	var_Node.HasButton = false
	var_Node.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"
	var_Node.Image = 0
	var_Node.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")
	var_Node.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")
	var_Node.AddAssistant("<b>Assistant</b> <a1>node 1</a>").Key = "A"
	var_Node1 = var_Node.AddAssistant("<b>Assistant</b> <a2>node 2</a>")
		var_Node1.Left = true
		var_Node1.ShowLinks = false
		var_Node1.LinkTo = "A"
var_Nodes = oChartView.Nodes
	var_Node2 = var_Nodes.Add("Parent <b>1</b>",,"Key1")
		var_Node2.HasButton = false
		var_Node2.ArrangeSiblingNodesAs = 2
		var_Node2.ShowRoundLink = true
		var_Node2.AddGroup("Parent <b>2</b>")
		var_Node2.AddGroup("Parent <b>3</b>")
	var_Nodes.Add("SubItem 1","Key1","S1").HasButton = false
	var_Nodes.Add("SubItem 1.1","S1","S111")
	var_Nodes.Add("SubItem 1.2","S1","S112")
	var_Nodes.Add("SubItem 2","Key1")
	var_Nodes.Add("Item 2",,"Key2").Expanded = false
	var_Nodes.Add("SubItem 1","Key2")
	var_Nodes.Add("SubItem 2","Key2")
oChartView.EndUpdate()
155
How can I align the text/caption on the scroll bar

OleObject oChartView

oChartView = ole_1.Object
oChartView.ScrollPartCaption(1,512,"left")
oChartView.ScrollPartCaptionAlignment(1,512,0)
oChartView.ScrollPartCaption(1,128,"right")
oChartView.ScrollPartCaptionAlignment(1,128,2)
oChartView.FixedWidthNode = 320
154
How can I show round links

OleObject oChartView,var_Nodes

oChartView = ole_1.Object
oChartView.ShowRoundLink = true
oChartView.Root.Image = 0
oChartView.IndentSiblingX = 32
oChartView.IndentSiblingY = 64
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234").ArrangeSiblingNodesAs = 1
	var_Nodes.Add("Sub 1","1234")
	var_Nodes.Add("Sub 2","1234")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2</b>")
153
How do I access a node by its key

OleObject oChartView,var_Nodes

oChartView = ole_1.Object
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child 1",,"C1")
	var_Nodes.Add("Sub Child 1","C1","SC1")
	var_Nodes.Add("Sub Sub Shild 1","SC1")
oChartView.Nodes.Item("SC1").BackColor = RGB(255,0,0)
152
How can I get the number of nodes

OleObject oChartView,var_Nodes

oChartView = ole_1.Object
oChartView.HasButtons = -1
oChartView.Root.ArrangeSiblingNodesAs = 2
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child 1",,"C1")
	var_Nodes.Add("Sub Child 1","C1","SC1")
	var_Nodes.Add("Sub Sub Shild 1","SC1")
	var_Nodes.Remove(3)
151
How can I remove all nodes in the chart
OleObject oChartView

oChartView = ole_1.Object
oChartView.Nodes.Clear()
150
How can I clear the chart
OleObject oChartView

oChartView = ole_1.Object
oChartView.Nodes.Clear()
149
How can I get the number of nodes

OleObject oChartView,var_Nodes

oChartView = ole_1.Object
oChartView.HasButtons = -1
oChartView.Root.ArrangeSiblingNodesAs = 2
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child 1",,"C1")
	var_Nodes.Add("Sub Child 1","C1","SC1")
	var_Nodes.Add("Sub Sub Shild 1","SC1")
	var_Nodes.Add(String(var_Nodes.Count))
148
How can I add a child node

OleObject oChartView,var_Nodes

oChartView = ole_1.Object
oChartView.HasButtons = -1
oChartView.Root.ArrangeSiblingNodesAs = 2
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child 1",,"C1")
	var_Nodes.Add("Sub Child 1","C1","SC1")
	var_Nodes.Add("Sub Sub Shild 1","SC1")
147
How can I add a child node

OleObject oChartView,var_Nodes

oChartView = ole_1.Object
oChartView.HasButtons = -1
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child 1",,"C1")
	var_Nodes.Add("Child 2",,"C2")
	var_Nodes.Add("Sub Child 1","C1","SC1")
	var_Nodes.Add("Sub Sub Shild 1","SC1")
146
How can I draw link or a line between my own nodes

OleObject oChartView,var_Node,var_Node1,var_Nodes

oChartView = ole_1.Object
oChartView.HasButtons = -1
oChartView.PenLink = 0
oChartView.PenWidthLink = 3
var_Node = oChartView.Root
	var_Node.Image = 0
	var_Node.AddAssistant("Assistant 1")
	var_Node.AddAssistant("Assistant 2")
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234")
	var_Node1 = var_Nodes.Add("Sub 2","1234")
		var_Node1.LinkTo = "AA"
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2</b>",,"AA")
145
How can I show or hide the link or a line between nodes

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
oChartView.HasButtons = -1
var_Node = oChartView.Root
	var_Node.Image = 0
	var_Node.AddAssistant("Assistant 1")
	var_Node.AddAssistant("Assistant 2")
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234").ShowLinks = false
	var_Nodes.Add("Sub 1","1234")
	var_Nodes.Add("Sub 2","1234")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2</b>")
144
How can I hide or show the +/- expand/collapse buttons for a specified node

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
oChartView.HasButtons = -1
var_Node = oChartView.Root
	var_Node.Image = 0
	var_Node.AddAssistant("Assistant 1")
	var_Node.AddAssistant("Assistant 2")
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234").HasButton = false
	var_Nodes.Add("Sub 1","1234")
	var_Nodes.Add("Sub 2","1234")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2</b>")
143
How can I expand or collapse a node

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
oChartView.HasButtons = -1
var_Node = oChartView.Root
	var_Node.Image = 0
	var_Node.AddAssistant("Assistant 1")
	var_Node.AddAssistant("Assistant 2")
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234").Expanded = false
	var_Nodes.Add("Sub 1","1234")
	var_Nodes.Add("Sub 2","1234")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2</b>")
142
How can I assign an icon to the root node

OleObject oChartView

oChartView = ole_1.Object
oChartView.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oChartView.Root.Image = 1
141
How can I access an assistant nodes

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
oChartView.BeginUpdate()
oChartView.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Node = oChartView.Root
	var_Node.Image = 0
	var_Node.AddAssistant("Assistant 1")
	var_Node.AddAssistant("Assistant 2")
	var_Node.Assistant(0).Image = 1
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234")
	var_Nodes.Add("Sub 2","1234")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2</b>")
oChartView.EndUpdate()
140
How can I get the number or count of assistant nodes

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
oChartView.BeginUpdate()
var_Node = oChartView.Root
	var_Node.Image = 0
	var_Node.AddAssistant("Assistant 1")
	var_Node.AddAssistant("Assistant 2")
	var_Node.AddAssistant(String(var_Node.CountAssistants))
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234")
	var_Nodes.Add("Sub 2","1234")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2</b>")
oChartView.EndUpdate()
139
How can I display assistant nodes on the right side only

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
oChartView.BeginUpdate()
var_Node = oChartView.Root
	var_Node.Image = 0
	var_Node.AddAssistant("Assistant 1").Left = false
	var_Node.AddAssistant("Assistant 2").Left = false
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234")
	var_Nodes.Add("Sub 2","1234")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2</b>")
oChartView.EndUpdate()
138
How can I display assistant nodes on the left side only

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
oChartView.BeginUpdate()
var_Node = oChartView.Root
	var_Node.Image = 0
	var_Node.AddAssistant("Assistant 1").Left = true
	var_Node.AddAssistant("Assistant 2").Left = true
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234")
	var_Nodes.Add("Sub 2","1234")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2</b>")
oChartView.EndUpdate()
137
How can I clear or remove all assistant nodes

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
oChartView.BeginUpdate()
var_Node = oChartView.Root
	var_Node.Image = 0
	var_Node.AddAssistant("Assistant 1")
	var_Node.AddAssistant("Assistant 2")
	var_Node.ClearAssistants()
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234")
	var_Nodes.Add("Sub 2","1234")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2</b>")
oChartView.EndUpdate()
136
How can I remove an assistant node

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
var_Node = oChartView.Root
	var_Node.Image = 0
	var_Node.AddAssistant("Assistant 1")
	var_Node.AddAssistant("Assistant 2")
	var_Node.RemoveAssistant(0)
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234")
	var_Nodes.Add("Sub 2","1234")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2</b>")
135
How can I add assistant node

OleObject oChartView,var_Node,var_Nodes

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

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
oChartView.VisualAppearance.Add(1,"c:\exontrol\images\hot.ebn")
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child",,"1234")
	var_Nodes.Add("Sub 1","1234")
	var_Node = var_Nodes.Add("Sub 2","1234")
		var_Node.Caption = "This is a bit of long text that should break the line."
		var_Node.BackColor = 16777216 /*0x1000000*/
133
Can I remove the shadow for a specified node

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child",,"1234")
	var_Nodes.Add("Sub 1","1234")
	var_Node = var_Nodes.Add("Sub 2","1234")
		var_Node.Caption = "This is a bit of long text that should break the line."
		var_Node.ShadowNode = false
132
Can I change the border for a specified node

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child",,"1234")
	var_Nodes.Add("Sub 1","1234")
	var_Node = var_Nodes.Add("Sub 2","1234")
		var_Node.Caption = "This is a bit of long text that should break the line."
		var_Node.PenBorderNode = 4
131
Can I remove the round corner for a specified node

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child",,"1234")
	var_Nodes.Add("Sub 1","1234")
	var_Node = var_Nodes.Add("Sub 2","1234")
		var_Node.Caption = "This is a bit of long text that should break the line."
		var_Node.DrawRoundNode = false
130
How can I disable or enable a node

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child",,"1234")
	var_Nodes.Add("Sub 1","1234")
	var_Node = var_Nodes.Add("Sub 2","1234")
		var_Node.Caption = "This is a bit of long text that should break the line."
		var_Node.Enabled = false
129
How can I specify the height of the node

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child",,"1234")
	var_Nodes.Add("Sub 1","1234")
	var_Node = var_Nodes.Add("Sub 2","1234")
		var_Node.Caption = "This is a bit of long text that should break the line."
		var_Node.FixedHeight = 128
128
How can I specify the width of the node

OleObject oChartView,var_Node,var_Nodes

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

OleObject oChartView,var_Node,var_Nodes

oChartView = ole_1.Object
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child",,"1234")
	var_Nodes.Add("Sub 1","1234")
	var_Node = var_Nodes.Add("Sub 2","1234")
		var_Node.Caption = "This is a bit of long text that should break the line."
		var_Node.Width = 128
126
How can I change the position of the node

OleObject oChartView,var_Nodes

oChartView = ole_1.Object
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child",,"1234")
	var_Nodes.Add("Sub 1","1234")
	var_Nodes.Add("Sub 2","1234").Position = 0
125
How can I count or get the number of child nodes

OleObject oChartView,var_Nodes

oChartView = ole_1.Object
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child",,"1234")
	var_Nodes.Add("Sub 1","1234")
	var_Nodes.Add("Sub 2","1234")
	var_Nodes.Add(var_Nodes.Item("1234").NodeCount)
124
How can I enumerate the child nodes

OleObject oChartView,var_Nodes

oChartView = ole_1.Object
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child",,"1234")
	var_Nodes.Add("Sub 1","1234")
	var_Nodes.Add("Sub 2","1234")
	var_Nodes.Add(var_Nodes.Item("1234").FirstNode.Caption)
	var_Nodes.Add(var_Nodes.Item("1234").FirstNode.NextNode.Caption)
123
How can I change the node's parent

OleObject oChartView,var_Node

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

OleObject oChartView

oChartView = ole_1.Object
oChartView.Nodes.Add("Child",,"1234")
oChartView.Nodes.Add("Sub 1","1234")
oChartView.Nodes.Add("Sub 2","1234")
121
How can I assign a key to a node

OleObject oChartView

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

OleObject oChartView,var_Node

oChartView = ole_1.Object
var_Node = oChartView.Nodes.Add("Child")
	var_Node.BackColor = RGB(255,0,0)
	var_Node.ClearBackColor()
119
How can I change the node's background color

OleObject oChartView

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

OleObject oChartView,var_Node

oChartView = ole_1.Object
var_Node = oChartView.Nodes.Add("Child")
	var_Node.ForeColor = RGB(255,0,0)
	var_Node.ClearForeColor()
117
How can I change the node's foreground color

OleObject oChartView

oChartView = ole_1.Object
oChartView.Nodes.Add("Child").ForeColor = RGB(255,0,0)
116
How can I assign a tooltip to a node

OleObject oChartView,var_Node

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

OleObject oChartView

oChartView = ole_1.Object
oChartView.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>"
114
How can I assign a tooltip to a node

OleObject oChartView

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

OleObject oChartView

oChartView = ole_1.Object
oChartView.Nodes.Add("Child").UserData = "your data"
112
How can I assign an icon and a picture to a node

OleObject oChartView,var_Node

oChartView = ole_1.Object
oChartView.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Node = oChartView.Nodes.Add("Child")
	var_Node.Image = 1
	var_Node.Picture = oChartView.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	var_Node.PictureAlignment = 3
111
How can I align the picture in the node
OleObject oChartView,var_Node

oChartView = ole_1.Object
var_Node = oChartView.Nodes.Add("Child")
	var_Node.Picture = oChartView.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	var_Node.PictureAlignment = 3
110
How can I align the picture in the node

OleObject oChartView,var_Node

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

OleObject oChartView,var_Node

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

OleObject oChartView

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

OleObject oChartView,var_Node

oChartView = ole_1.Object
oChartView.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Node = oChartView.Nodes.Add("Just a node with an icon")
	var_Node.Image = 1
	var_Node.ImageAlignment = 1
106
How can I align the icon in the node

OleObject oChartView,var_Node

oChartView = ole_1.Object
oChartView.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Node = oChartView.Nodes.Add("Just a node with an icon")
	var_Node.Image = 1
	var_Node.ImageAlignment = 3
105
How can I align the icon in the node

OleObject oChartView,var_Node

oChartView = ole_1.Object
oChartView.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Node = oChartView.Nodes.Add("Just a node with an icon")
	var_Node.Image = 1
	var_Node.ImageAlignment = 2
104
How can I assign an icon to a node

OleObject oChartView

oChartView = ole_1.Object
oChartView.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oChartView.Nodes.Add("Child").Image = 1
103
How can I change the font for a node

OleObject oChartView

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

OleObject oChartView

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

OleObject oChartView

oChartView = ole_1.Object
oChartView.Nodes.Add("Line 1<br>Line 2<br>Line3")