Dim h,hR
With Exgantt1
	.BeginUpdate()
	.ConditionalFormats.Add("%CC0=0").ForeColor = Color.FromArgb(128,128,128)
	.HeaderAppearance = exontrol.EXGANTTLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns
		.Add("Item").Width = 16
		.Add("Desc")
	End With
	With .Items
		hR = .AddItem("Root")
		.set_CellCaption(hR,1,"The root directory /")
		h = .InsertItem(hR,Nothing,"Home")
		.set_CellCaption(h,1,"The home directory with user directories Alice and Bob")
		.InsertItem(h,Nothing,"Alice")
		.InsertItem(h,Nothing,"Bob")
		.set_ExpandItem(h,True)
		h = .InsertItem(hR,Nothing,"Etc")
		.set_CellCaption(h,1,"The etc directory with one configuration file")
		h = .InsertItem(h,Nothing,"nginx.conf")
		.set_CellCaption(.InsertItem(hR,Nothing,"Var"),1,"The var directory")
		.set_ExpandItem(hR,True)
	End With
	.EndUpdate()
End With

Dim h,hR
With Exgantt1
	.BeginUpdate()
	.ConditionalFormats.Add("%CC0").ForeColor = Color.FromArgb(255,0,0)
	.HeaderAppearance = exontrol.EXGANTTLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns
		.Add("Item").Width = 16
		.Add("Desc")
	End With
	With .Items
		hR = .AddItem("Root")
		.set_CellCaption(hR,1,"The root directory /")
		h = .InsertItem(hR,Nothing,"Home")
		.set_CellCaption(h,1,"The home directory with user directories Alice and Bob")
		.InsertItem(h,Nothing,"Alice")
		.InsertItem(h,Nothing,"Bob")
		.set_ExpandItem(h,True)
		h = .InsertItem(hR,Nothing,"Etc")
		.set_CellCaption(h,1,"The etc directory with one configuration file")
		h = .InsertItem(h,Nothing,"nginx.conf")
		.set_CellCaption(.InsertItem(hR,Nothing,"Var"),1,"The var directory")
		.set_ExpandItem(hR,True)
	End With
	.EndUpdate()
End With

Dim h,hR
With Exgantt1
	.BeginUpdate()
	.ConditionalFormats.Add("%CX0").Bold = True
	.HeaderAppearance = exontrol.EXGANTTLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns
		.Add("Item").Width = 16
		.Add("Desc")
	End With
	With .Items
		hR = .AddItem("Root")
		.set_CellCaption(hR,1,"The root directory /")
		h = .InsertItem(hR,Nothing,"Home")
		.set_CellCaption(h,1,"The home directory with user directories Alice and Bob")
		.InsertItem(h,Nothing,"Alice")
		.InsertItem(h,Nothing,"Bob")
		.set_ExpandItem(h,True)
		h = .InsertItem(hR,Nothing,"Etc")
		.set_CellCaption(h,1,"The etc directory with one configuration file")
		h = .InsertItem(h,Nothing,"nginx.conf")
		.set_CellCaption(.InsertItem(hR,Nothing,"Var"),1,"The var directory")
		.set_ExpandItem(hR,True)
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.OnResizeControl = exontrol.EXGANTTLib.OnResizeControlEnum.exResizeChart
	.SortBarVisible = True
	.SortBarCaption = "<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)"
	.HeaderEnabled = False
	.HeaderAppearance = exontrol.EXGANTTLib.AppearanceEnum.Etched
	.Columns.Add("Index").FormatColumn = "1 index ``"
	.Columns.Add("Pos").FormatColumn = "1 apos ``"
	.Columns.Add("Edit")
	.GridLineStyle = exontrol.EXGANTTLib.GridLinesStyleEnum.exGridLinesGeometric
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exVLines
	.GridLineColor = Color.FromArgb(224,224,224)
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/28/2000#
		.set_PaneWidth(False,196)
		.GridLineStyle = exontrol.EXGANTTLib.GridLinesStyleEnum.exGridLinesGeometric
		.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exAllLines
		With .get_Level(1)
			.DrawGridLines = True
			.GridLineColor = Exgantt1.GridLineColor
		End With
	End With
	.EndUpdate()
End With

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Exgantt1_AnchorClick(ByVal sender As System.Object,ByVal AnchorID As String,ByVal Options As String) Handles Exgantt1.AnchorClick
	With Exgantt1
		Debug.Print( AnchorID )
	End With
End Sub

Dim h
With Exgantt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.TreeColumnIndex = -1
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXGANTTLib.GridLinesStyleEnum.exGridLinesGeometric
	.BackColorAlternate = Color.FromArgb(240,240,240)
	.ShowFocusRect = False
	.Columns.Add("Default")
	With .Items
		.AddItem("before item")
		h = .AddItem("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4Aj" & _
"MGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEB" & _
"A==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DAB" & _
"vABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>	" & _
"650;</a><br>+ withdraw(amount: Currency)")
		.set_CellCaptionFormat(h,0,exontrol.EXGANTTLib.CaptionFormatEnum.exHTML)
		.set_CellSingleLine(h,0,exontrol.EXGANTTLib.CellSingleLineEnum.exCaptionWordWrap)
		.AddItem("after item")
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.TreeColumnIndex = -1
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXGANTTLib.GridLinesStyleEnum.exGridLinesGeometric
	.BackColorAlternate = Color.FromArgb(240,240,240)
	.ShowFocusRect = False
	.Columns.Add("Default")
	With .Items
		.AddItem("before item")
		h = .AddItem("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
		.set_CellCaptionFormat(h,0,exontrol.EXGANTTLib.CaptionFormatEnum.exHTML)
		.set_CellSingleLine(h,0,exontrol.EXGANTTLib.CellSingleLineEnum.exCaptionWordWrap)
		.AddItem("after item")
	End With
	.EndUpdate()
End With

With Exgantt1
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exScrollHoverAll,-1)
End With

With Exgantt1
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exScrollHoverAll,Color.FromArgb(1,0,0))
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exgantt1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exgantt1.MouseMoveEvent
	With Exgantt1
		.ShowToolTip("new content","",Nothing,"+8","+8")
	End With
End Sub

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exgantt1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exgantt1.MouseMoveEvent
	With Exgantt1
		.ShowToolTip("<null>","<null>",Nothing,"+8","+8")
	End With
End Sub

With Exgantt1
	.ColumnAutoResize = False
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With

' CellStateChanging event - Fired before cell's state is about to be changed.
Private Sub Exgantt1_CellStateChanging(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByRef NewState As Integer) Handles Exgantt1.CellStateChanging
	With Exgantt1
		With .Items
			NewState = .get_CellState(Item,ColIndex)
		End With
	End With
End Sub

Dim h
With Exgantt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("P1")
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Columns.Add("P2")
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

' FilterChange event - Occurs when the filter was changed.
Private Sub Exgantt1_FilterChange(ByVal sender As System.Object) Handles Exgantt1.FilterChange
	Dim format
	With Exgantt1
		format = .FormatABC("`lower(value) replace lower('` + value + `') with '<bgcolor 000000><fgcolor FFFFFF>` + value  + `</fgcolor></bgcolor>'`",.FilterBarPromptPattern)
		.Columns.Item(0).FormatColumn = format
		.Columns.Item(1).FormatColumn = format
		.Columns.Item(2).FormatColumn = format
	End With
End Sub

Dim h0
With Exgantt1
	.BeginUpdate()
	.SelBackColor = .BackColor
	.SelForeColor = .ForeColor
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.HeaderAppearance = exontrol.EXGANTTLib.AppearanceEnum.Etched
	.HeaderHeight = 23
	.BackColorLevelHeader = .BackColor
	.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarBackColor = .BackColor
	.FilterBarPromptPattern = "and"
	With .Columns
		With .Add("Name")
			.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellCaptionFormat,1)
			.FormatColumn = "lower(value)"
		End With
		With .Add("Title")
			.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellCaptionFormat,1)
			.FormatColumn = "lower(value)"
		End With
		With .Add("City")
			.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellCaptionFormat,1)
			.FormatColumn = "lower(value)"
		End With
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellCaption(h0,1,"Vice President, Sales")
		.set_CellCaption(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellCaption(h0,1,"Sales Manager")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellCaption(h0,1,"Inside Sales Coordinator")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
	End With
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		With .Items
			.AddBar(Item,"Task",.get_CellCaption(Item,2),.get_CellCaption(Item,4))
		End With
	End With
End Sub

Dim rs
With Exgantt1
	.BeginUpdate()
	With .Chart
		.set_PaneWidth(False,256)
		.FirstVisibleDate = #8/10/1994#
		.LevelCount = 2
	End With
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGantt\Sample\Access\SAMPLE.MDB",3,3)
	End With
	.DataSource = rs
	.EndUpdate()
End With

Dim h
With Exgantt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.Images("gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmD" & _
"cD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB")
	With .Columns.Add("ToLeft")
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellHasCheckBox,True)
	End With
	With .Columns.Add("ToRight")
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellHasCheckBox,True)
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellDrawPartsOrder,"caption,picture,icons,icon,check")
	End With
	.DefaultItemHeight = 32
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exVLines
	.HeaderAppearance = exontrol.EXGANTTLib.AppearanceEnum.Etched
	With .Items
		h = .AddItem("Caption")
		.set_CellImage(h,0,2)
		.set_CellImages(h,0,"1,2")
		.set_CellPicture(h,0,Exgantt1.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLs" & _
"GL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7" & _
"FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0F" & _
"CjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4" & _
"wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/Ay" & _
"QJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZe" & _
"nEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSF" & _
"pTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5si" & _
"qbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8Yx" & _
"XhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8D" & _
"PH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZA" & _
"mBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCM" & _
"EgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rBy" & _
"jJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0W" & _
"gLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTH" & _
"CBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB" & _
"1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHw" & _
"L4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0" & _
"FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYd" & _
"guhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCG" & _
"USNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmh" & _
"AFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg" & _
"6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GF" & _
"ZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" & _
"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsA" & _
"YAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg" & _
"5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARA" & _
"SA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9A" & _
"IBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcA" & _
"dAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJB" & _
"PhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzA" & _
"hhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARB" & _
"vgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURA" & _
"Ghvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh" & _
"/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3s" & _
"UhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4A" & _
"fgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8x" & _
"MhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA" & _
"2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXB" & _
"WhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBag" & _
"xAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9B" & _
"tnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqB" & _
"UgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDA" & _
"jAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBih" & _
"Fh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdA" & _
"uAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeA" & _
"FBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg" & _
"3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" & _
"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCB" & _
"QAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxh" & _
"Tg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5" & _
"WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJA" & _
"kgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEg" & _
"qgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyh" & _
"VgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADB" & _
"Wh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMA" & _
"GAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFO" & _
"rC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZT" & _
"WP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwd" & _
"i4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8" & _
"PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnL" & _
"Cs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIy" & _
"DQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhO" & _
"ApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj" & _
"5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)"))
		.set_CellCaption(h,1,.get_CellCaption(h,0))
		.set_CellHAlignment(h,1,exontrol.EXGANTTLib.AlignmentEnum.RightAlignment)
		.set_CellImage(h,1,.get_CellImage(h,0))
		.set_CellImages(h,1,"2,1")
		.set_CellPicture(h,1,.get_CellPicture(h,0))
		h = .AddItem("<b>HTML</b> <off 4>Caption")
		.set_CellCaptionFormat(h,0,exontrol.EXGANTTLib.CaptionFormatEnum.exHTML)
		.set_CellImage(h,0,2)
		.set_CellImages(h,0,"1,2")
		.set_CellPicture(h,0,Exgantt1.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLs" & _
"GL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7" & _
"FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0F" & _
"CjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4" & _
"wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/Ay" & _
"QJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZe" & _
"nEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSF" & _
"pTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5si" & _
"qbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8Yx" & _
"XhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8D" & _
"PH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZA" & _
"mBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCM" & _
"EgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rBy" & _
"jJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0W" & _
"gLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTH" & _
"CBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB" & _
"1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHw" & _
"L4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0" & _
"FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYd" & _
"guhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCG" & _
"USNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmh" & _
"AFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg" & _
"6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GF" & _
"ZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" & _
"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsA" & _
"YAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg" & _
"5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARA" & _
"SA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9A" & _
"IBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcA" & _
"dAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJB" & _
"PhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzA" & _
"hhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARB" & _
"vgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURA" & _
"Ghvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh" & _
"/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3s" & _
"UhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4A" & _
"fgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8x" & _
"MhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA" & _
"2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXB" & _
"WhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBag" & _
"xAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9B" & _
"tnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqB" & _
"UgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDA" & _
"jAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBih" & _
"Fh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdA" & _
"uAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeA" & _
"FBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg" & _
"3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" & _
"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCB" & _
"QAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxh" & _
"Tg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5" & _
"WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJA" & _
"kgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEg" & _
"qgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyh" & _
"VgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADB" & _
"Wh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMA" & _
"GAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFO" & _
"rC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZT" & _
"WP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwd" & _
"i4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8" & _
"PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnL" & _
"Cs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIy" & _
"DQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhO" & _
"ApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj" & _
"5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)"))
		.set_CellCaption(h,1,.get_CellCaption(h,0))
		.set_CellCaptionFormat(h,1,exontrol.EXGANTTLib.CaptionFormatEnum.exHTML)
		.set_CellHAlignment(h,1,exontrol.EXGANTTLib.AlignmentEnum.RightAlignment)
		.set_CellImage(h,1,.get_CellImage(h,0))
		.set_CellImages(h,1,"2,1")
		.set_CellPicture(h,1,.get_CellPicture(h,0))
	End With
	.EndUpdate()
End With

' AddColumn event - Fired after a new column has been added.
Private Sub Exgantt1_AddColumn(ByVal sender As System.Object,ByVal Column As exontrol.EXGANTTLib.Column) Handles Exgantt1.AddColumn
	' Column.Def(48) = 2
	' Column.Def(49) = 2
End Sub

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#1/2/2022#,#1/8/2022#,Nothing,"<img>1</img>")
	End With
End Sub

Dim h,hR
With Exgantt1
	.BeginUpdate()
	.ImageSize = 32
	.DefaultItemHeight = 36
	.HeaderHeight = .DefaultItemHeight
	.SortBarHeight = .DefaultItemHeight
	.Font.Size = 16
	.FilterBarFont.Size = Exgantt1.Font.Size
	.ToolTipFont.Size = Exgantt1.Font.Size
	.Indent = 26
	With .Chart
		.FirstVisibleDate = #1/1/2022#
		.Bars.Item("Task").Height = 22
	End With
	.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(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" & _
"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" & _
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" & _
"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" & _
"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" & _
"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" & _
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" & _
"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==")
		.Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" & _
"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" & _
"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" & _
"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" & _
"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" & _
"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" & _
"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" & _
"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" & _
"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" & _
"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" & _
"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" & _
"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" & _
"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" & _
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" & _
"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" & _
"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" & _
"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" & _
"gRBCCQAgQEA==")
		.Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" & _
"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" & _
"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" & _
"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" & _
"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" & _
"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" & _
"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" & _
"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" & _
"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" & _
"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" & _
"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" & _
"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" & _
"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" & _
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" & _
"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" & _
"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=")
		.Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
	End With
	.BackColorHeader32 = &H4c6c6c6
	.SelBackColor32 = &H4000000
	.SelForeColor = Color.FromArgb(0,0,1)
	.set_CheckImage(exontrol.EXGANTTLib.CheckStateEnum.Unchecked,16777216)
	.set_CheckImage(exontrol.EXGANTTLib.CheckStateEnum.Checked,33554432)
	.set_CheckImage(exontrol.EXGANTTLib.CheckStateEnum.PartialChecked,50331648)
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exSelBackColorFilter,.SelBackColor)
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exSelForeColorFilter,.SelForeColor)
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exBackColorFilter,.BackColor)
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exForeColorFilter,.ForeColor)
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H4000000)
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exHeaderFilterBarActive,&H4010101)
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exFooterFilterBarButton,&H40000ff)
	.HeaderAppearance = exontrol.EXGANTTLib.AppearanceEnum.Etched
	.ShowFocusRect = False
	.SortBarVisible = True
	.BackColorSortBar = .BackColor
	.BackColorLevelHeader = .BackColor
	.FilterBarDropDownHeight = 1
	With .Columns.Add("Check")
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
		.Width = 128
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.FormatColumn = "1 pos ``"
		.AllowSort = False
		.Width = 48
		.AllowSizing = False
		.Alignment = exontrol.EXGANTTLib.AlignmentEnum.CenterAlignment
		.HeaderAlignment = exontrol.EXGANTTLib.AlignmentEnum.CenterAlignment
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXGANTTLib.FilterListEnum.exSortItemsAsc
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exImage
		.DisplayExpandButton = True
		.ExpandColumns = "1,2,3"
		.Width = 128
		.HeaderImage = 1
	End With
	With .Columns.Add("Images")
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellHasCheckBox,True)
		.Width = 196
		.HTMLCaption = "<img>1</img><img>2</img><img>3</img> Images"
	End With
	.Columns.Item("Pos").Position = 3
	With .Items
		hR = .AddItem("Root")
		.set_ItemDivider(hR,0)
		.set_ItemDividerLine(hR,exontrol.EXGANTTLib.DividerLineEnum.EmptyLine)
		h = .InsertItem(hR,Nothing,"Child A")
		.set_CellImage(h,2,1)
		.set_CellImages(h,3,"1,2,3")
		.set_CellCaption(h,3,"123")
		h = .InsertItem(hR,Nothing,"Child B")
		.set_CellState(h,0,1)
		.set_CellImage(h,2,3)
		.set_CellImages(h,3,"2,3,1")
		.set_CellCaption(h,3,"231")
		.set_SelectItem(h,True)
		h = .InsertItem(hR,Nothing,"Child C")
		.set_CellImage(h,2,2)
		.set_CellState(h,3,1)
		.set_CellCaption(h,3,"312")
		.set_CellImages(h,3,"3,1,2")
		.set_ExpandItem(hR,True)
	End With
	.EndUpdate()
End With

' AddColumn event - Fired after a new column has been added.
Private Sub Exgantt1_AddColumn(ByVal sender As System.Object,ByVal Column As exontrol.EXGANTTLib.Column) Handles Exgantt1.AddColumn
	' Column.Def(48) = 2
	' Column.Def(49) = 2
End Sub

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#1/2/2022#,#1/8/2022#,Nothing,"<img>1</img>")
	End With
End Sub

Dim h,hR
With Exgantt1
	.BeginUpdate()
	.Chart.FirstVisibleDate = #1/1/2022#
	.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
	.BackColorHeader32 = &H4c6c6c6
	.SelBackColor32 = &H4000000
	.SelForeColor = Color.FromArgb(0,0,1)
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exSelBackColorFilter,.SelBackColor)
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exSelForeColorFilter,.SelForeColor)
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exBackColorFilter,.BackColor)
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exForeColorFilter,.ForeColor)
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H4000000)
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exHeaderFilterBarActive,&H4010101)
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exFooterFilterBarButton,&H40000ff)
	.HeaderAppearance = exontrol.EXGANTTLib.AppearanceEnum.Etched
	.ShowFocusRect = False
	.SortBarVisible = True
	.BackColorSortBar = .BackColor
	.BackColorLevelHeader = .BackColor
	.FilterBarDropDownHeight = 1
	With .Columns.Add("Check")
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
		.Width = 128
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.FormatColumn = "1 pos ``"
		.AllowSort = False
		.Width = 48
		.AllowSizing = False
		.Alignment = exontrol.EXGANTTLib.AlignmentEnum.CenterAlignment
		.HeaderAlignment = exontrol.EXGANTTLib.AlignmentEnum.CenterAlignment
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXGANTTLib.FilterListEnum.exSortItemsAsc
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exImage
		.DisplayExpandButton = True
		.ExpandColumns = "1,2,3"
		.Width = 128
		.HeaderImage = 1
	End With
	With .Columns.Add("Images")
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellHasCheckBox,True)
		.Width = 196
		.HTMLCaption = "<img>1</img><img>2</img><img>3</img> Images"
	End With
	.Columns.Item("Pos").Position = 3
	With .Items
		hR = .AddItem("Root")
		.set_ItemDivider(hR,0)
		.set_ItemDividerLine(hR,exontrol.EXGANTTLib.DividerLineEnum.EmptyLine)
		h = .InsertItem(hR,Nothing,"Child A")
		.set_CellImage(h,2,1)
		.set_CellImages(h,3,"1,2,3")
		.set_CellCaption(h,3,"123")
		h = .InsertItem(hR,Nothing,"Child B")
		.set_CellState(h,0,1)
		.set_CellImage(h,2,3)
		.set_CellImages(h,3,"2,3,1")
		.set_CellCaption(h,3,"231")
		.set_SelectItem(h,True)
		h = .InsertItem(hR,Nothing,"Child C")
		.set_CellImage(h,2,2)
		.set_CellState(h,3,1)
		.set_CellCaption(h,3,"312")
		.set_CellImages(h,3,"3,1,2")
		.set_ExpandItem(hR,True)
	End With
	.EndUpdate()
End With

' AddColumn event - Fired after a new column has been added.
Private Sub Exgantt1_AddColumn(ByVal sender As System.Object,ByVal Column As exontrol.EXGANTTLib.Column) Handles Exgantt1.AddColumn
	With Exgantt1
		With Column
		End With
	End With
End Sub

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		With .Items
			.AddBar(Item,"Task",.get_CellCaption(Item,2),.get_CellCaption(Item,4))
		End With
	End With
End Sub

Dim rs
With Exgantt1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGantt\Sample\Access\sample.accdb",3,3)
	End With
	.DataSource = rs
	With .Chart
		.FirstVisibleDate = #8/4/1994#
		.LevelCount = 2
		.set_PaneWidth(False,290)
	End With
	.Columns.Item("ShipVia").Position = 2
	.EndUpdate()
End With

Dim rs
With Exgantt1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGantt\Sample\Access\sample.accdb",1,3)
	End With
	.DataSource = rs
	.SortBarVisible = True
	.Layout = "singlesort=""C1:1"""
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

' Event event - Notifies the application once the control fires an event.
Private Sub Exgantt1_Event(ByVal sender As System.Object,ByVal EventID As Integer) Handles Exgantt1.Event
	With Exgantt1
		Debug.Print( .get_EventParam(-2) )
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarCaption = "`<r>` + value"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

' BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
Private Sub Exgantt1_BeforeExpandItem(ByVal sender As System.Object,ByVal Item As Integer,ByRef Cancel As Object) Handles Exgantt1.BeforeExpandItem
	With Exgantt1
		Cancel = Exgantt1.Items.get_ItemParent(Item)
	End With
End Sub

Dim h
With Exgantt1
	.BeginUpdate()
	.SingleSel = False
	.Columns.Add("Default")
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(.InsertItem(h,Nothing,"Child 1.1"),Nothing,"Child")
		.InsertItem(h,Nothing,"Child 1.2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(.InsertItem(h,Nothing,"Child 2.1"),Nothing,"Child")
		.InsertItem(h,Nothing,"Child 2.2")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

Dim h,h1
With Exgantt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	.ScrollBySingleLine = False
	.HeaderAppearance = exontrol.EXGANTTLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.Columns.Add("Artikel").HTMLCaption = "<u>Artikel"
	.Columns.Add("Waarde").HTMLCaption = "<u>Waarde"
	.set_HTMLPicture("T22128","c:\exontrol\images\zipdisk.gif")
	With .Items
		h = .AddItem("T22128-28)2D")
		h1 = .InsertItem(h,Nothing,"<img>T22128:128</img>")
		.set_CellCaptionFormat(h1,0,exontrol.EXGANTTLib.CaptionFormatEnum.exHTML)
		.set_ItemHeight(h1,128)
		h1 = .InsertItem(h,Nothing,"werkvoorbereiding")
		.set_CellCaption(h1,1,"5.80")
		.set_CellBold(h1,1,True)
		.set_CellCaption(.InsertItem(h1,Nothing,"Type"),1,"Eenvoudig")
		.set_CellCaption(.InsertItem(h1,Nothing,"Prijs p/uur"),1,"60,00")
		.set_CellCaption(.InsertItem(h1,Nothing,"Marhe"),1,"15,00%")
		.set_CellCaption(.InsertItem(h1,Nothing,"Insteltijd min."),1,"5,00")
		.set_CellCaption(.InsertItem(h1,Nothing,"Aantal"),1,1)
		.set_CellCaption(.InsertItem(h1,Nothing,"Kostprije"),1,"5,00")
		.set_ExpandItem(h1,True)
		h1 = .InsertItem(h,Nothing,"materiall")
		.set_CellCaption(h1,1,"14.82")
		.set_CellBold(h1,1,True)
		.set_ItemHasChildren(h1,True)
		h1 = .InsertItem(h,Nothing,"snijden")
		.set_CellCaption(h1,1,"3.13")
		.set_CellBold(h1,1,True)
		.set_ItemHasChildren(h1,True)
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

Dim back,fore
With Exgantt1
	.BeginUpdate()
	back = 65536
	fore = 16777215
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA")
	.VisualAppearance.Add(2,"gBFLBCJwBAEHhEJAAEhABPMIQAAYAQGKIcBiAKBQAGaAoDDcMgwQwAAxjIKUEwsACEIrjKCYVgOHYYQjGMZwHCMIhiGwcAChEZYHgkMYmDAMUhSE78axHG6PY7kKZ4b" & _
"iaKIqQLLEhSfJ0YyBECBZpfebIbjmIZMSLEIxDKItJSpCIaRgqWS6ahGO4JUbUFLQHT9IR4daIYRgEEBA")
	.VisualAppearance.Add(3,"gBFLBCJwBAEHhEJAAEhABUUIQAAYAQGKIcBiAKBQAGaAoDDcMgwQwAAxjIKUEwsACEIrjKCYVgOHYYQjGMZwGAsEwjAoYAChEaILgkMw2DBIQwgJIMEr/G6RZxjeL5C" & _
"jmG4nDhKMpybAcXxjBIYZJgOQpXb+PobTrNNLzfRFAxVAaWJikcZ4HpIAJNVLFdQ0XYMNSBISsBqrKiKcpeIIDWBZMbRZT1ZABCIZBpEW6LahENQwXrCN74DYkNTdKax" & _
"bbuaaXLhGCYBgIA==")
	.HeaderAppearance = exontrol.EXGANTTLib.AppearanceEnum.Bump
	.BackColor = back
	.BackColorHeader = back
	.BackColorLevelHeader = back
	.BackColorSortBar = back
	.BackColorSortBarCaption = back
	.FilterBarBackColor = back
	.FilterBarForeColor = fore
	.ForeColor = fore
	.ForeColorHeader = fore
	.ForeColorSortBar = fore
	.SelBackColor = fore
	.SelForeColor = back
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H1000000)
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exToolTipAppearance,&H3000000)
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exToolTipBackColor,back)
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exToolTipForeColor,fore)
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exSelBackColorFilter,fore)
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exSelForeColorFilter,back)
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exBackColorFilter,back)
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exForeColorFilter,fore)
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exSortBarLinkColor,back)
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exTreeLinesColor,fore)
	.set_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exFilterBarExclude,"<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>")
	With .Chart
		.BackColor = back
		.BackColorLevelHeader = back
		.ForeColor = fore
		.ForeColorLevelHeader = fore
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.AttachTemplate("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}")
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH" & _
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" & _
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" & _
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" & _
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA=")
		.Add(2,"CP:1 -4 0 0 0")
	End With
	.SelBackColor32 = &H2000000
	.SelForeColor = Color.FromArgb(0,0,1)
	.FullRowSelect = False
	.ShowFocusRect = False
	.DefaultItemHeight = 24
	.HeaderHeight = 24
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exVLines
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		.set_CellCaption(.AddItem("Cell 1"),1,"Cell 2")
		.set_CellCaption(.AddItem("Cell 3"),1,"Cell 4")
	End With
	.Items.SelectPos = 1
	.SelectColumnIndex = 1
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.AttachTemplate("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}")
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH" & _
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" & _
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" & _
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" & _
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA=")
	.SelBackColor32 = &H1000000
	.SelForeColor = Color.FromArgb(0,0,1)
	.ShowFocusRect = False
	.DefaultItemHeight = 24
	.HeaderHeight = 24
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exVLines
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		.set_CellCaption(.AddItem("Cell 1"),1,"Cell 2")
		.set_CellCaption(.AddItem("Cell 3"),1,"Cell 4")
		.SelectPos = 1
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.BeginUpdate()
	.AttachTemplate("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}")
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH" & _
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" & _
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" & _
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" & _
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA=")
	.SelBackMode = exontrol.EXGANTTLib.BackModeEnum.exTransparent
	.ShowFocusRect = False
	.DefaultItemHeight = 24
	.HeaderHeight = 24
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exVLines
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		.set_CellCaption(.AddItem("Cell 1"),1,"Cell 2")
		h = .AddItem("Cell 2")
		.set_CellCaption(h,1,"Cell 3")
		.set_CellBackColor32(h,1,&H1000000)
	End With
	.EndUpdate()
End With

' AddColumn event - Fired after a new column has been added.
Private Sub Exgantt1_AddColumn(ByVal sender As System.Object,ByVal Column As exontrol.EXGANTTLib.Column) Handles Exgantt1.AddColumn
	' Column.Def(17) = 1
End Sub

' FilterChange event - Occurs when the filter was changed.
Private Sub Exgantt1_FilterChange(ByVal sender As System.Object) Handles Exgantt1.FilterChange
	Dim format
	With Exgantt1
		format = .FormatABC("`value replace '` + value + `' with '<bgcolor 000000><fgcolor FFFFFF>` + value  + `</fgcolor></bgcolor>'`",.FilterBarPromptPattern)
		.Columns.Item(0).FormatColumn = format
		.Columns.Item(1).FormatColumn = format
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exVLines
	.HeaderAppearance = exontrol.EXGANTTLib.AppearanceEnum.Etched
	.Columns.Add("Col 1")
	.Columns.Add("Col 2")
	With .Items
		.set_CellCaption(.AddItem("219 Smith"),1,"Ignacio 1234")
		.set_CellCaption(.AddItem("1666 County Road 309A"),1,"897 Manassa")
		.set_CellCaption(.AddItem("38 Lone Pine"),1,"Durango 11")
		.set_CellCaption(.AddItem("612 Jachim Street"),1,"Lamar 222")
	End With
	.FilterBarPromptPattern = "1"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = exontrol.EXGANTTLib.FilterPromptEnum.exFilterPromptCaseSensitive Or exontrol.EXGANTTLib.FilterPromptEnum.exFilterPromptContainsAll
	.EndUpdate()
End With

Dim h
With Exgantt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABO8GACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwQgmNYDSBMcbwS" & _
"AsXRYFocJ5gOT6AjKBA2UclEZpajiTY3ABUEgUS5oOBIACqariaQJAAiCRQGiYZyHKaRSwPBKFYDIIjbJheTIDChNVxUcDENQjJqLBIDRzbarye59YBfeBXdgmA4LQbD" & _
"MRwNgMMQTDqKYbkOQZHbeGKAWTMEZzJj8cxTEqIaBhGTLfojSZMS7UGK1LLtMyHI6kP7sOiLfi2W4/W7XV72F79TzXIa2ZBuO57bhnAZ/VzGNj4PRNezfRqicjsGxcZw" & _
"Xg+TpQj0ew6gSOw7wSbozjsfYXi8PwMnSc52leHotl+MxjmoXh2nybxOH+SQtnYXx+D2P4vGMB56hQf5PCgBYeDwYBCEo1xggebgKH6IIDBYBgkiAQ5FgYPAhEIRgWGq" & _
"DBoC4GoCiGCBYhGBQPAWdIQp0eIUiWCZigiJgqgqYpIioJQhmIMhBH0NxjEMag2g2Y4ImYOoOmOSJeDQNxXlOLR3ECUAQICA=")
		.Add(2,"gBFLBCJwBAEHhEJAAEhABgsHQAAYAQGKIcBiAKBQAGaAoDDYNwwQwAAxDAKcEwsACEIrjKCRShyCYZRrGUgRCKQahLEiTIhGUYJHgmK4tRoAUgxWCEExrAaQJjjeCQF" & _
"i6LAtDhPMByfQEZQIGyjkgjNLUcSbG4AKgkCiXfpUAJVP7FcgSABEEigNIxToOU4jFgeCYLQKQRK2RC9GQGFCbLhpYKIahGTYWVheN5XXblez9P7ABQwKCcAwXBp7YIK" & _
"AT4XBIdYdQ7IL4xGA0AJPFoJC7mOQ5XiYAIBAZ/RL0LCcbxHHafVboQj6JouD5PUDVNY1XBdPynI6CbLhWy6Dq4UZzPwzeBifSHfDjRoJcCZe71KY3GwSEboNA6Kp+QB" & _
"HAmZoZjSPYIEiF47lOLJVnuYofBwJJHmaQoYj0MIRHeM4/m6cJ8B+fpBHQJ5SGKPYYH8OYMk+P5Bn4fxaAYZAvEIX4RgUWBGgCCAmAqApgkgNgOgMEYlGASoEkQeBWBa" & _
"BZhggZgagaYRoEwShWA6NZZAMQBAICA==")
	End With
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H1000000)
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exHeaderFilterBarActive,&H2000000)
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.HeaderHeight = 28
	.BackColorHeader = Color.FromArgb(255,255,255)
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exRowLines
	.HeaderVisible = True
	With .Columns
		.Add("C1").DisplayFilterButton = True
		With .Add("C2")
			.DisplayFilterButton = True
			.Filter = "Item 2"
			.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exFilter
		End With
		.Add("C3").DisplayFilterButton = True
	End With
	With .Items
		h = .AddItem("Item 1")
		.set_CellCaption(h,1,"Item 2")
		.set_CellCaption(h,2,"Item 3")
		h = .AddItem("Item 4")
		.set_CellCaption(h,1,"Item 5")
		.set_CellCaption(h,2,"Item 6")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

Dim h,size
With Exgantt1
	size = 2
	.BeginUpdate()
	With .VisualAppearance
		.Add(3,"gBFLBCJwBAEHhEJAAEhEGAUHQAAYAQGKIcBiAKBQAGaAoDDYOA4QwAAxDAKcEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBRfIUEghGyNZjgNzQc" & _
"CQAI8T5IUgARBJIDSMY6DpOIxYHgmC4DEITNLxOK0EhRHCBZrgOCAYhqEY1Ro+dhPFYjVTMdK0LRtKy7Mq2aJmOpZDxWE7dZKpO5fbxXS67cr2fp/YBed4rfa7KTlOBK" & _
"cRQRBEFQPDqPZBkORZHh2FoLRJKbgtHJmHYNQWhVyYBbNCyTI6lahpeuHBx1QaWWxjbCMEr6bpoWLbFi3Ha1UzrPa8b5vSw7Gr+HzYQTHGPXGqaYJdZrnea6B7+U5XUJ" & _
"rnSOZciYHwhAeR5HDK+JVGqKRRmScx5HyfRei+H5bmmcp4Fi8o/CGGJKGQKZUGoFQigUPIiCeSZXnyHB6l0SAJn8JxfkIeZ5CgXxjCCAhyB8QgIlAM4MlKAIcCaIBIGY" & _
"GoGGEYhqBMMxgnICgRDUDQjESGwmAkWBuCqBoiHIVgkDQYgYESWg2E0YhohcJQigITg3CQSRyEyEYGGOWJwhQJD4FiFIMk0aJFGsIBkkOBJeDc+AchYJwJgIWhSgYZQp" & _
"FIVoVGOGQ4l2EwIBWMhgDmDhThCEwkAiaJchKDhjhgZhsCUY4iFCEoZkiaYQmSGAWhWQhgDuDpTjCDQiEgchAg0IpJBoDoFiEKBqCaCAimgIguH8IZnkPUhcBcJg+hGJ" & _
"ZnloYJsiaKZKGa24YnWSR0CkKhCA2CxlCqColhAYpqEKER0DqVZ0A0ASAgA==")
		.Add(4,"gBFLBCJwBAEHhEJAAEhABAQCg6AADACAxRDgMQBQKAAzQFAYbBwHCGAAGIYBTgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACjeQYJBCNYbTJAbqhY" & _
"IgAR3HqQZABCCSQKkYx0HScRiwPBMFwGIQmaaicZoJCiN4DTZAcIBRDUIxpDR9bBeKw3KqVaZnWhaNpWXZlTzKdSxXisF67RZSdi/XgvF5XXblez9P69LwXe5mUrGbyV" & _
"YghCCIKgeG4dR7IMhyLDcKQXCCVW7aGSsOwbAqAXpdGAXTQdDyLJKnaZqOi6BjjA4rNbHGIYJb1XTRMa1LJuG5LJrOeZ3Xre4BLfh1VoFRpjWIYNY1QS7TLOczzfRdDx" & _
"TiGVpkjCeJoD4Ng1hSRxiisVRKg8D4PkWZJznmPQ+F8Xx5guWpjHGWYMiYQodEaIRSCgU5KCSeh3naHB/iAAh9n8fwfgIeZ1CgXwjCCAhxl8AgIlAM4MlKAIcCaD54FY" & _
"FoFmGCBmBaBIJigPJNgKSAoDSVC+BIbIYCUYYoiYKoJgkWIMlGCAglMaJZDWCYiFyFIJkkOJYhEJc7G4PYPCOaJshQJBjgiVIUgyDRokEaggGSQ4El4N1CBiFgnAmAha" & _
"FKFZlFkShUhWJRYmITg3GSQgFGuGBOGOFJkCSSQCDoNgkiOCY0hUJJmmmQhvhqZtYmUOQmBWIRvhgTpjjSbAjEiEgchBZgyEaBIhigWgegqIhIjoDILiACB5nTL5WnWR" & _
"YOiSKYJnqGQ7CmOh2hqJ5OkYORxFyShKhSAxihkOomioY5YiqFIkFyTo1HkAxAEAgIA==")
		.Add(1,Exgantt1.FormatABC("`CP:3 -` + int(value*dpi) + ` -` + int(value*dpi) + ` ` +  int(value*dpi) + ` ` + int(value*dpi)",size))
		.Add(2,Exgantt1.FormatABC("`CP:4 -` + int(value*dpi) + ` -` + int(value*dpi) + ` ` +  int(value*dpi) + ` ` + int(value*dpi)",size))
	End With
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exGroupLinesAtRoot
	.HasButtons = exontrol.EXGANTTLib.ExpandButtonEnum.exCustom
	.set_HasButtonsCustom(False,16777216)
	.set_HasButtonsCustom(True,33554432)
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child")
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN" & _
"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" & _
"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" & _
"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" & _
"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" & _
"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=")
		.Add(1,"CP:2 -8 -4 2 4")
	End With
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H1fefefe)
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exHeaderFilterBarActive,&H1010101)
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.HeaderHeight = 28
	.BackColorHeader = Color.FromArgb(255,255,255)
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exRowLines
	.HeaderVisible = True
	With .Columns
		.Add("C1").DisplayFilterButton = True
		With .Add("C2")
			.DisplayFilterButton = True
			.Filter = "Item 2"
			.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exFilter
		End With
		.Add("C3").DisplayFilterButton = True
	End With
	With .Items
		h = .AddItem("Item 1")
		.set_CellCaption(h,1,"Item 2")
		.set_CellCaption(h,2,"Item 3")
		h = .AddItem("Item 4")
		.set_CellCaption(h,1,"Item 5")
		.set_CellCaption(h,2,"Item 6")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarTop
	.HeaderHeight = 24
	.FilterBarHeight = .HeaderHeight
	.HeaderAppearance = exontrol.EXGANTTLib.AppearanceEnum.Flat
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXGANTTLib.GridLinesStyleEnum.exGridLinesGeometric
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exPattern
		.Filter = "B*"
	End With
	With .Columns.Add("Index")
		.FormatColumn = "1 index ``"
		.Position = 0
		.Width = 48
		.AllowSizing = False
		.SortType = exontrol.EXGANTTLib.SortTypeEnum.SortNumeric
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellHasCheckBox,True)
	End With
	With .Items
		.AddItem("A.1")
		.AddItem("A.2")
		.AddItem("B.1")
		.AddItem("B.2")
		.AddItem("B.3")
		.AddItem("C")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXGANTTLib.AppearanceEnum.Etched
	With .Columns
		.Add("Item")
		With .Add("Pos")
			.Position = 0
			.Width = 32
			.AllowSizing = False
			.FormatColumn = "1 index ``"
			.AllowSort = False
			.AllowDragging = False
		End With
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXGANTTLib.AppearanceEnum.Etched
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	With .Columns
		.Add("Item")
		With .Add("Pos")
			.Position = 0
			.Width = 32
			.AllowSizing = False
			.FormatColumn = "1 index ``"
			.AllowSort = False
			.AllowDragging = False
		End With
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exHLines
	.GridLineStyle = exontrol.EXGANTTLib.GridLinesStyleEnum.exGridLinesGeometric
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABMsIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIXRpFMbxAKQahLEiTIgGUYJHgmK4tQLHb7zGAABRDDSOIDnGQJX" & _
"haI4JQSMMQDGLAZxVFiPRhAWLpBh+PQATrOdLUfSjVwhBKAQEBA==")
	With .Columns.Add("Default")
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Columns.Add("Position")
		.FormatColumn = "((1 rindex ``) contains `.`) = 0"
		.Visible = False
	End With
	With .ConditionalFormats.Add("%C1")
		.BackColor32 = &H1e0e0e0
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		h = .AddItem("Root 3")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With

Dim h,hChild
With Exgantt1
	.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 .Columns.Add("Tasks")
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellCaptionFormat,1)
	End With
	.HeaderVisible = True
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,Nothing,"<img>1</img> Task (left)")
		hChild = .InsertItem(h,Nothing,"<c><img>2</img> Task (center)")
		hChild = .InsertItem(h,Nothing,"<r>Task (right) <img>3</img>")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exgantt1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exgantt1.MouseMoveEvent
	Dim c,hit,i
	With Exgantt1
		i = .get_ItemFromPoint(-1,-1,c,hit)
		Debug.Print( i )
		Debug.Print( .Items.get_ItemData(i) )
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.Columns.Add("Default")
	With .Items
		.set_ItemData(.AddItem("method 1"),"your extra data of method 1")
		.InsertItem(0,"your extra data of method 2","method 2")
	End With
	With .Items
		.DefaultItem = .AddItem("method 3")
		.set_ItemData(0,"your extra data of method 3")
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.AttachTemplate("handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}")
	.HeaderAppearance = exontrol.EXGANTTLib.AppearanceEnum.Etched
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXGANTTLib.GridLinesStyleEnum.exGridLinesVSolid
	With .Columns
		.Add("Item")
		With .Add("Pos")
			.Position = 0
			.Width = 32
			.AllowSizing = False
			.FormatColumn = "1 index ``"
		End With
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	With .Columns.Add("Check")
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellHasCheckBox,True)
		.SortType = exontrol.EXGANTTLib.SortTypeEnum.exSortByState
	End With
	With .Items
		.AddItem()
		.set_CellState(.AddItem(),0,1)
		.set_CellState(.AddItem(),0,1)
		.AddItem()
	End With
	.Columns.Item(0).SortOrder = exontrol.EXGANTTLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With

With Exgantt1
	.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 .Columns.Add("Image")
		.SortType = exontrol.EXGANTTLib.SortTypeEnum.exSortByImage
	End With
	With .Items
		.set_CellImage(.AddItem(),0,3)
		.AddItem()
		.set_CellImage(.AddItem(),0,1)
		.set_CellImage(.AddItem(),0,2)
	End With
	.Columns.Item(0).SortOrder = exontrol.EXGANTTLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.Chart.set_PaneWidth(True,0)
	With .Font
		.Name = "Arial Unicode"
		.Size = 22
	End With
	.HeaderVisible = False
	.DefaultItemHeight = 48
	.Columns.Add("").set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellCaptionFormat,1)
	With .Items
		.AddItem("Ӓӓ")
		.AddItem("ᦜᦝ;ᦞ")
		.AddItem("ɮɭ;ɯ")
		.AddItem("勳勴勵勶")
		.set_FormatCell(.AddItem(Exgantt1.Version),0,"(value lfind `UNICODE`) < 0 ? `<fgcolor=FF0000><b>!UNICODE!</b> version</fgcolor> required: ` + value : `` ")
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.Columns.Add("Items").FormatColumn = "((1 apos ``) lpad `00`) + `. `  + value"
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
		.AddItem("Item D")
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exAllLines
	.TreeColumnIndex = 0
	.MarkSearchColumn = False
	.FullRowSelect = False
	.HeaderAppearance = &Hfffffff8 Or exontrol.EXGANTTLib.AppearanceEnum.Bump Or exontrol.EXGANTTLib.AppearanceEnum.Sunken
	.Chart.set_PaneWidth(True,0)
	With .Columns
		.Add("C1").Width = 32
		.Add("C2").FormatColumn = "1 index ``"
	End With
	With .Items
		h = .AddItem("Cell 1")
		.set_CellSingleLine(h,1,exontrol.EXGANTTLib.CellSingleLineEnum.exCaptionWordWrap)
		h = .AddItem("This is bit of text merges all cells in the item (divider shows no +/-)")
		.set_ItemDivider(h,0)
		.set_ItemBackColor(h,Color.FromArgb(240,240,240))
		.set_ItemDividerLine(h,exontrol.EXGANTTLib.DividerLineEnum.EmptyLine)
		.set_CellHAlignment(h,0,exontrol.EXGANTTLib.AlignmentEnum.CenterAlignment)
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Cell 3")
		h = .AddItem("This is bit of text merges all cells in the item (merge shows +/-)")
		.set_ItemBackColor(h,Color.FromArgb(240,240,240))
		.set_CellMerge(h,0,1)
		.InsertItem(h,Nothing,"Child 3")
		.InsertItem(h,Nothing,"Child 4")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

' CellButtonClick event - Fired after the user clicks on the cell of button type. 
Private Sub Exgantt1_CellButtonClick(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Exgantt1.CellButtonClick
	Dim cmd
	With Exgantt1
		cmd = New ADODB.Command()
		With cmd
			.ActiveConnection = Exgantt1.DataSource.ActiveConnection
			.CommandText = "INSERT INTO Orders (EmployeeID) VALUES(12345)"
			.CommandType = 1
			.Execute()
		End With
		.DataSource.Requery()
	End With
End Sub

Dim h,rs
With Exgantt1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXGANTTLib.AppearanceEnum.Etched
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Select * From Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGantt\Sample\Access\sample.accdb",1,3)
	End With
	.DataSource = rs
	.ConditionalFormats.Add("%1=12345").BackColor = Color.FromArgb(240,240,240)
	With .Items
		.set_LockedItemCount(exontrol.EXGANTTLib.VAlignmentEnum.TopAlignment,1)
		h = .get_LockedItem(exontrol.EXGANTTLib.VAlignmentEnum.TopAlignment,0)
		.set_ItemDivider(h,0)
		.set_CellHasButton(h,0,True)
		.set_CellCaption(h,0,"Requery (add a new record, using ADODB.Command)")
		.set_CellHAlignment(h,0,exontrol.EXGANTTLib.AlignmentEnum.CenterAlignment)
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQGhsCYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU8lORLUi+M4zSBPcZVTRtGShPDB" & _
"KTjMKKYgkG4lVpRNa0PC1GTzQ6mazkKQLRADDIDVbAeL3LiMBy9LyLLItQALByua5mWhbcZyBCOPgBTrRb5zO58FjuTK7YLjMB7NrUNYtFaUMy2OpOCADIaecTNcaWLx" & _
"PF2MY1HWYxVj2Jw3DuRJonKYBgggSRAlIYw6B0ThGFgPAkFUDAhBMfZRiGNAkFECZnm4YQdneJwqnsSQrGAAhWAIJBJBIQgFCQIBiEIAglgqYo0i4V4MEgRI9gSToYFS" & _
"b4Fk6Y4+BmBZhFOJgTC8TBogQAArgqco4muCZOkOMJtgmYpIjYKg7GKE4uCUK4AAKKg2DwI4DiCZw5k6KJ2D6D4OHiag4DwIxiiQAArAqMosnEPBPAOIhOg+DozjIJ4P" & _
"GSY4iEwPAkhKLhHUUSQsnKFCnkYU9MjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDya" & _
"ICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tE" & _
"sHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQg" & _
"pDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAA" & _
"MR1EOZxWi+bx7HcWQ8msfRYnnDhQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARViHH" & _
"4HQOYmxuCpF2MsecEQVBvGQCcIQvA6i2CAAIARAQ=")
		.Add(2,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMwwDhEIwjHCEEhsGIbJAGQBJCjWGodQLOEgzN" & _
"C0IxNFCQILhEZJADKII8TTOU5UPRESwTE4cKBmKhQCo2NpKR7VUTxCKQahLLivoCjBT8EzHMqtIzrCA6MpaP4pQjKcqwHJ8YyHEi0ZrjazKaj6T5AXDUcaWbbNVx3PK3" & _
"aioOpLZrqOZZYzYFoABTuJzPMSyIhxXD8cweaZvSpLExVYK9BY3PbKMgxC77QgTIpDaQMNS6PjtF43PAALLFUaNYzoOKzABMHATBIXAYJCwIIR5G7ID4BbQcCQAHL9DB" & _
"aEEIAEEISgGhMGZQmocgymmIRQkIEQ2BcGgbEIRQci8XaMBqTRVgSAZHG+S5pnOep+D6f4vjec5zn0fpfmgBgAH6TRoBYBoAh+eAmAiAgPFgNArgOQpIESdoEmCOAOAq" & _
"BYfFGAgaEaBgYHYFYFmIB5UiGCJUgKCgmgeYoHk4BgCmKRQiCwApgHgYgyH8B54lQU4NkMeJlBoDgjkiXBTg0R54iYIR+koeQVBoKpkgkChKhEJBkF4SFEjkDgJhFQoe" & _
"EmDJlBeehUhWJQJGIXoICWOQ6FeFIlhkfhlDsSJpiQVoamaSY2G6G5nAmRhpCOH5pkwVYdmeCZmHqHpnkmdhzhmaAIFiax8AABAEICA==")
	End With
	.BackColorHeader32 = &H1000000
	.ForeColorHeader = Color.FromArgb(128,128,128)
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H2000000)
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exBackColorFilter,Color.FromArgb(255,255,255))
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exForeColorFilter,Color.FromArgb(0,0,1))
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exSelBackColorFilter,&H1ff8000)
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exSelForeColorFilter,Color.FromArgb(240,240,240))
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.HeaderHeight = 24
	.BackColorLevelHeader = .BackColor
	With .Columns.Add("Filter")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXGANTTLib.FilterListEnum.exSortItemsAsc
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exHeaderPaddingLeft,2)
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exHeaderPaddingRight,2)
	End With
	With .Items
		.AddItem("A")
		.AddItem("B")
		.AddItem("C")
		.AddItem("D")
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.ColumnAutoResize = False
	.HeaderAppearance = exontrol.EXGANTTLib.AppearanceEnum.Etched
	With .Columns
		.Add("City")
		.Add("Start").Visible = False
		.Add("End").Visible = False
	End With
	.set_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exColumnsFloatBar,"Show/Hide")
	.ColumnsFloatBarSortOrder = exontrol.EXGANTTLib.SortOrderEnum.SortAscending
	.ColumnsFloatBarVisible = exontrol.EXGANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeCheckColumns
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.ColumnAutoResize = False
	.HeaderAppearance = exontrol.EXGANTTLib.AppearanceEnum.Etched
	With .Columns
		.Add("City")
		.Add("Start").Visible = False
		.Add("End").Visible = False
	End With
	.set_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exColumnsFloatBar,"Show")
	.ColumnsFloatBarVisible = exontrol.EXGANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
	.ColumnsFloatBarSortOrder = exontrol.EXGANTTLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.HeaderSingleLine = False
	.HeaderHeight = 36
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exRowLines
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	With .Columns
		With .Add("Single-Line (exCaptionSingleLine)")
			.Width = 96
			.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellCaptionFormat,1)
			.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellSingleLine,-1)
		End With
		With .Add("Word-Wrap (exCaptionWordWrap)")
			.Width = 96
			.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellCaptionFormat,1)
			.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellSingleLine,0)
			.FormatColumn = "%0"
		End With
		With .Add("Break-Wrap (exCaptionBreakWrap)")
			.Width = 96
			.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellCaptionFormat,1)
			.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellSingleLine,1)
			.FormatColumn = "%0"
		End With
	End With
	With .Items
		.AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
		.AddItem("This is the <b>first</b> line.\r\nThis is the <b>second</b> line.\r\nThis is the <b>third</b> line.")
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.BeginUpdate()
	.HeaderSingleLine = False
	.HeaderHeight = 36
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exRowLines
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	.Columns.Add("Default").Width = 128
	With .Items
		h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
		h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
		.set_CellCaptionFormat(h,0,exontrol.EXGANTTLib.CaptionFormatEnum.exHTML)
		h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
		.set_CellSingleLine(h,0,exontrol.EXGANTTLib.CellSingleLineEnum.exCaptionWordWrap)
		h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
		.set_CellCaptionFormat(h,0,exontrol.EXGANTTLib.CaptionFormatEnum.exHTML)
		.set_CellSingleLine(h,0,exontrol.EXGANTTLib.CellSingleLineEnum.exCaptionWordWrap)
		h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
		.set_CellSingleLine(h,0,exontrol.EXGANTTLib.CellSingleLineEnum.exCaptionBreakWrap)
		h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
		.set_CellCaptionFormat(h,0,exontrol.EXGANTTLib.CaptionFormatEnum.exHTML)
		.set_CellSingleLine(h,0,exontrol.EXGANTTLib.CellSingleLineEnum.exCaptionBreakWrap)
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exRowLines
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	.Columns.Add("Default").Width = 128
	With .Items
		.set_CellSingleLine(.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0,exontrol.EXGANTTLib.CellSingleLineEnum.exCaptionBreakWrap)
		.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exRowLines
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	With .Columns.Add("Default")
		.Width = 128
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellSingleLine,1)
	End With
	With .Items
		.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
		.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	.BackColorHeader = Color.FromArgb(1,0,0)
	.ForeColorHeader = Color.FromArgb(255,255,255)
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exBackColorFilter,.BackColorHeader)
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exForeColorFilter,.ForeColorHeader)
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,Color.FromArgb(240,240,240))
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.HeaderAppearance = exontrol.EXGANTTLib.AppearanceEnum.Bump
	With .Columns.Add("Items")
		.FilterOnType = True
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exNoItems
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.ColumnAutoResize = True
	With .Columns.Add("Default")
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellCaptionFormat,1)
		.FormatColumn = "((trim(value) replace `   ` with ` `) replace `  ` with ` `) replace ` ` with `<bgcolor=FF0000> </bgcolor>`"
	End With
	With .Items
		.AddItem("")
		.AddItem("Item A")
		.AddItem("    Item B")
		.AddItem("        Item   C    ")
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.ColumnAutoResize = True
	With .Columns.Add("Default")
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellCaptionFormat,1)
		.FormatColumn = "`'` + ( value replace ` ` with `_` ) + `'`"
	End With
	With .Items
		.AddItem("")
		.AddItem("Item A")
		.AddItem("    Item B")
		.AddItem("        Item   C    ")
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.ColumnAutoResize = True
	With .Columns.Add("Default")
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellCaptionFormat,1)
		.FormatColumn = "len(value) = 0 ? `<bgcolor=FF0000> </bgcolor>` : ( value replace ` ` with `<bgcolor=FF0000> </bgcolor>` )"
	End With
	With .Items
		.AddItem("")
		.AddItem("Item A")
		.AddItem("    Item B")
		.AddItem("        Item   C    ")
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exBackColorFilter,Color.FromArgb(0,0,1))
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exForeColorFilter,Color.FromArgb(255,255,255))
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exDateScrollRange,Color.FromArgb(255,255,255))
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exDateHeader,.get_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exBackColorFilter))
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exDateScrollThumb,Color.FromArgb(128,128,128))
	With .Columns.Add("Date")
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exDate
		.DisplayFilterButton = True
		.DisplayFilterDate = True
		.DisplayFilterPattern = False
	End With
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	Dim i
	With Exgantt1
		With .Items
			i = .get_ItemToIndex(Item)
			.AddBar(Item,"Task",#1/2/2008#,#1/9/2008#,"")
			.set_ItemBar(Item,"",exontrol.EXGANTTLib.ItemBarPropertyEnum.exBarDuration,i)
			.set_ItemBar(Item,"",exontrol.EXGANTTLib.ItemBarPropertyEnum.exBarMove,i)
			.set_CellCaption(Item,1,.get_ItemBar(Item,"",exontrol.EXGANTTLib.ItemBarPropertyEnum.exBarStart))
			.set_CellCaption(Item,2,.get_ItemBar(Item,"",exontrol.EXGANTTLib.ItemBarPropertyEnum.exBarEnd))
		End With
	End With
End Sub

Dim sFile
With Exgantt1
	.BeginUpdate()
	.BackColorAlternate = Color.FromArgb(240,240,240)
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exAllLines
	.HeaderAppearance = exontrol.EXGANTTLib.AppearanceEnum.Etched
	.set_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = exontrol.EXGANTTLib.FilterPromptEnum.exFilterPromptContainsAny
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exAllLines
	With .Chart
		.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exAllLines
		.set_PaneWidth(False,196)
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2008#
		.FirstWeekDay = exontrol.EXGANTTLib.WeekDayEnum.exMonday
	End With
	With .ConditionalFormats.Add("(%2 - %1) = 3","K3")
		.ForeColor = Color.FromArgb(255,0,0)
		.BarColor = .ForeColor
		.ApplyToBars = "Task"
	End With
	With .ConditionalFormats.Add("(%2 - %1) = 5","K5")
		.ForeColor = Color.FromArgb(0,255,0)
		.BarColor = .ForeColor
		.ApplyToBars = "Task"
	End With
	With .Columns
		.Add("Tasks").set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellHasCheckBox,True)
		.Add("Start")
		.Add("End")
	End With
	With .Items
		.AddItem("Task 1")
		.AddItem("Task 2")
		.AddItem("Task 3")
		.AddItem("Task 4")
		.AddItem("Task 5")
		.AddItem("Task 6")
		.AddItem("Task 7")
		.AddItem("Task 8")
	End With
	.EndUpdate()
	sFile = "c:/temp/export.html"
	.Export(sFile,"vis")
	With New SHDocVw.ShellBrowserWindow()
		.Navigate2(sFile)
	End With
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	Dim i
	With Exgantt1
		With .Items
			i = .get_ItemToIndex(Item)
			.AddBar(Item,"Task",#1/2/2008#,#1/9/2008#,"")
			.set_ItemBar(Item,"",exontrol.EXGANTTLib.ItemBarPropertyEnum.exBarDuration,i)
			.set_ItemBar(Item,"",exontrol.EXGANTTLib.ItemBarPropertyEnum.exBarMove,i)
			.set_CellCaption(Item,1,.get_ItemBar(Item,"",exontrol.EXGANTTLib.ItemBarPropertyEnum.exBarStart))
			.set_CellCaption(Item,2,.get_ItemBar(Item,"",exontrol.EXGANTTLib.ItemBarPropertyEnum.exBarEnd))
		End With
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	.BackColorAlternate = Color.FromArgb(240,240,240)
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exAllLines
	.HeaderAppearance = exontrol.EXGANTTLib.AppearanceEnum.Etched
	.set_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = exontrol.EXGANTTLib.FilterPromptEnum.exFilterPromptContainsAny
	With .Chart
		.set_PaneWidth(False,196)
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2008#
	End With
	With .ConditionalFormats.Add("(%2 - %1) = 3","K3")
		.ForeColor = Color.FromArgb(255,0,0)
		.BarColor = .ForeColor
		.ApplyToBars = "Task"
	End With
	With .ConditionalFormats.Add("(%2 - %1) = 5","K5")
		.ForeColor = Color.FromArgb(0,255,0)
		.BarColor = .ForeColor
		.ApplyToBars = "Task"
	End With
	With .Columns
		.Add("Tasks").set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellHasCheckBox,True)
		.Add("Start")
		.Add("End")
	End With
	With .Items
		.AddItem("Task 1")
		.AddItem("Task 2")
		.AddItem("Task 3")
		.AddItem("Task 4")
		.AddItem("Task 5")
		.AddItem("Task 6")
		.AddItem("Task 7")
		.AddItem("Task 8")
	End With
	.EndUpdate()
	Debug.Print( .Export("","vis") )
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	Dim bHasParent
	With Exgantt1
		bHasParent = .FormatABC("value != 0",.Items.get_ItemParent(Item))
		With .Items
			.set_CellHasCheckBox(Item,0,False)
		End With
	End With
End Sub

Dim h,hChild
With Exgantt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Tasks")
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellCaptionFormat,1)
		.FormatColumn = "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)"
	End With
	.HeaderVisible = True
	.SingleSel = False
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,Nothing,"Task 1")
		hChild = .InsertItem(h,Nothing,"Task 2")
		hChild = .InsertItem(h,Nothing,"Task 3")
		.set_ExpandItem(h,True)
		.set_LockedItemCount(exontrol.EXGANTTLib.VAlignmentEnum.TopAlignment,1)
		.set_CellCaption(.get_LockedItem(exontrol.EXGANTTLib.VAlignmentEnum.TopAlignment,0),0,"<c>Select multiple items and press the <b>SPACE</b> key")
	End With
	.EndUpdate()
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exgantt1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exgantt1.MouseMoveEvent
	Dim c,hit,i
	With Exgantt1
		i = .get_ItemFromPoint(-1,-1,c,hit)
		Debug.Print( .FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? ( ( (value bitand 0xFFFF0000) bitshift 16 ) array B split `,` )  : `no image`",hit,.Items.get_CellImages(i,c)) )
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Chart.set_PaneWidth(True,0)
	.Columns.Add("Default")
	With .Items
		.set_CellImages(.AddItem("Item 1"),0,"3,2,1")
		.set_CellImages(.AddItem("Item 2"),0,"2,3")
		.set_CellImages(.AddItem("Item 3"),0,"2,")
	End With
	.EndUpdate()
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exgantt1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exgantt1.MouseMoveEvent
	Dim c,hit,i
	With Exgantt1
		i = .get_ItemFromPoint(-1,-1,c,hit)
		Debug.Print( .FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",hit) )
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Chart.set_PaneWidth(True,0)
	.Columns.Add("Default")
	With .Items
		.set_CellImages(.AddItem("Item 1"),0,"3,2,1")
		.set_CellImages(.AddItem("Item 2"),0,"2,3")
		.set_CellImages(.AddItem("Item 3"),0,"2")
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXGANTTLib.AppearanceEnum.Etched
	With .Columns
		.Add("Column 1")
		.Add("Column 2")
		.Add("Column 3")
	End With
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV" & _
"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" & _
"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" & _
"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDI" & _
"BICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAok" & _
"GKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=")
		.Add(2,"CP:1 0 -36 0 0")
	End With
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exColumnsPositionSign,&H2000000)
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.DefaultItemHeight = 20
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1m" & _
"Y1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2h" & _
"hWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY" & _
"6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQR" & _
"JSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd" & _
"0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA==")
	With .Columns.Add("Default")
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Columns.Add("Position")
		.FormatColumn = "1 rindex ``"
		.Visible = False
	End With
	With .ConditionalFormats.Add("%C1 mod 2")
		.BackColor32 = &H1000000
	End With
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 4")
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Default")
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Columns.Add("Position")
		.FormatColumn = "( ( 1:=( ( 0:=(1 rpos '') ) lfind `.`) ) < 0 ? =:0 : (=:0 left =:1) )"
		.Visible = False
	End With
	With .ConditionalFormats.Add("%C1 mod 2")
		.BackColor = Color.FromArgb(240,240,240)
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		h = .AddItem("Root 3")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	.VisualDesign = "gBFLBWIgBAEHhEJAEGg6VAkHeLpgwChAOhULB8XAUUg8MAAREEHGMcgRCJ0ei8dhABDEcQAAYAQGKIYBkAKBQAGaAoDDMOQwQwAAxjGKEEwsACEIrjKCRShyCYZRhGc" & _
"TSBCIZBqEqSZLiEZRQiiCYsS5GQBRWAkEwiBiEQTjea5CgOIAFS7LIqjRQEBxhIaZYIGaiQADENo9TxIMZAfBIHShK6NJABCCSQKkYx0HScRijDIEFwGIQmbKiej4DCi" & _
"CQQW7OYYRVCNMQSfa8HivJyrcamfp/YBgOBYHb1eLVPR5LwfPCGUw1P6PLxkORZHimK4tSLHV7xVpMIwZFafIQhCCoHomS5NU7UNR0TQUFx9FaGX7rDDsGwLAJ6XRgF4" & _
"bg2VpnHePpenAN4bH2GwHFmApSjEGBLnWOpRGOTBZHOegrE6BxPiWVJqCweQrn0LgJAWJBjwgaw1gKO5HmWch5h+fovF+G5bmich4BgfZkB8dynRUVYqiUR5rnmex/F6" & _
"N4tn2AJfnebZ3DEXw3HWXgzAyIwgicKJKBKEIhCeCgiHyHYFEmSAFmqBghFIdgSCeIJygYDAyAgJx6AoIINAMOJNCgCZCGoGoLmMCI+CwJoihMNglCCIhzFCUg0EmMhg" & _
"hWDBkAiQg9CUY4jEYN4Jk2IxklYJoJHIUg+CSZJSESFwkkkGI+FOFIJEIRhPhMCRJCSVoRrSBhiDgTZjHYT4PEkYhwhgJYm0SaIaiaSYuE+GQNlmCIBGCJxjhiZQ5AkM" & _
"hAg6ExJCkPhPguaAiFYUAlAkKZ0g6HoOEmWR/GHcA4m0OwIlIJIHCRgQshGJhpjoaocieaZiC6GAimkUgehIOwnGYGYIGkah6jaE4rg6SpCjKK5rEOMYlGIGIihKOggl" & _
"oFoqj6L5aGaBo6CkGIkAQjiPpCAAaJILCTJQlKPACDaXJgmSaJsnCdJ4nygKEoijKQpSmKcqCpKoqysK0rivLAsSyLMtC1LYty4Lkui7LwvS+L8wDBMIwzEMUxjHMgyT" & _
"KMszDNM4zzQNE0jTNQ1TWNc2DZNo2zcN03jfOA4TiOM5DlOY5zoOk6jrOw7TuO88DxPI8z0PU9j3Pg+T6Ps/D9P4/0AQFAkDQRBUGQdCEJQpC0MQ1DkPRBEUSRNFEVBh" & _
"FkXRhGQ9D6Dxfh+W5gGGd4QH2XQjCmDpFFaKoVB+D5Xmed5+H8YAHnIAh9EwV5Fl0d4MkMKJICmSgygSJAoEmMUCIPgnDCCIOQFYCxJjwFoCcA4kxoF+AIJkAgExegDE" & _
"gEYQInAzCUAIOEGgfxiiRDYF1Q4EQ2BSCaEQYwbAiKREMpRSymFNDIAkAxT6oVRgSA2qdVKq1WqvVirMZQUhSCnBUMoIgoQRgnGSIQUgkg1hIHYAkAYMROAmHiLsE4xx" & _
"SCxBwEwCQ0wmDdBsE0GYXBtg2CSPMFIuwYiQBYBQeAcwOCnBCCZgw0g0glBONAQgqQThCGgPQGoBQfiRGmOEZIPAXjsBoPAO4HRThhA0EQSA5BAgaCKJIGg3QdhOCmNU" & _
"BoQAijTCIF0FwQxpCHDIPAYYMQGgtCmFcaQtRAjZCyFYSojQ2B2BoKwIYFApBXEIBsIQ1QsAWAWEwaA1xCgjAoIAQBAQ="
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child")
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(3,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" & _
"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" & _
"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" & _
"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=")
		.Add(1,"CP:3 -2 -2 2 2")
		.Add(4,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCE" & _
"eBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchO" & _
"FSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQO" & _
"JtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=")
		.Add(2,"CP:4 -2 -2 2 2")
	End With
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exGroupLinesAtRoot
	.HasButtons = exontrol.EXGANTTLib.ExpandButtonEnum.exCustom
	.set_HasButtonsCustom(False,16777216)
	.set_HasButtonsCustom(True,33554432)
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child")
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"XP:TREEVIEW 2 1")
		.Add(2,"XP:TREEVIEW 2 2")
	End With
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exTreeGlyphOpen,&H1000000)
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exTreeGlyphClose,&H2000000)
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child")
	End With
	.EndUpdate()
End With

With Exgantt1
	Debug.Print( .FormatABC("dpi = 1 ? `normal/stretch mode` : `dpi mode`") )
End With

Dim h
With Exgantt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" & _
"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" & _
"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" & _
"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=")
		.Add(2,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCE" & _
"eBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchO" & _
"FSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQO" & _
"JtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=")
	End With
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exTreeGlyphOpen,&H1000000)
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exTreeGlyphClose,&H2000000)
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child")
	End With
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		.set_CellCaption(.AddItem("Item B"),1,"Sub-Item B")
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarShort
	With .Columns.Item(1)
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exPattern
		.Filter = "*B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	Dim i
	With Exgantt1
		i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
		.Items.set_CellImage(Item,3,i)
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

Dim h
With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellHasCheckBox,True)
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exImage
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		h = .AddItem("Item B")
		.set_CellCaption(h,1,"Sub-Item B")
		.set_CellState(h,2,1)
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[" & _
"<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matchi" & _
"temcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount" & _
" + ` item(s)`) )))"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	Dim i
	With Exgantt1
		i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
		.Items.set_CellImage(Item,3,i)
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

Dim h
With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellHasCheckBox,True)
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exImage
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		h = .AddItem("Item B")
		.set_CellCaption(h,1,"Sub-Item B")
		.set_CellState(h,2,1)
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "all"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	Dim i
	With Exgantt1
		i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
		.Items.set_CellImage(Item,3,i)
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

Dim h
With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellHasCheckBox,True)
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exImage
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		h = .AddItem("Item B")
		.set_CellCaption(h,1,"Sub-Item B")
		.set_CellState(h,2,1)
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	Dim i
	With Exgantt1
		i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
		.Items.set_CellImage(Item,3,i)
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

Dim h
With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellHasCheckBox,True)
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exImage
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		h = .AddItem("Item B")
		.set_CellCaption(h,1,"Sub-Item B")
		.set_CellState(h,2,1)
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "allui"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	Dim i
	With Exgantt1
		i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
		.Items.set_CellImage(Item,3,i)
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

Dim h
With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellHasCheckBox,True)
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exImage
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		h = .AddItem("Item B")
		.set_CellCaption(h,1,"Sub-Item B")
		.set_CellState(h,2,1)
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( ava" & _
"ilable replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `" & _
"` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount" & _
" + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	Dim i
	With Exgantt1
		i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
		.Items.set_CellImage(Item,3,i)
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

Dim h
With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellHasCheckBox,True)
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exImage
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		h = .AddItem("Item B")
		.set_CellCaption(h,1,"Sub-Item B")
		.set_CellState(h,2,1)
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "value + ` ` + available"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		.set_CellCaption(.AddItem("Item B"),1,"Sub-Item B")
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.get_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "(`<b>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) +" & _
" ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )) replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replac" & _
"e `]` with ` </b></bgcolor></fgcolor>`"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarToggle
	With .Columns.Item(0)
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	With .Columns.Item(1)
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exPattern
		.Filter = "*B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		.set_CellCaption(.AddItem("Item B"),1,"Sub-Item B")
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.get_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarToggle
	With .Columns.Item(0)
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	With .Columns.Item(1)
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exPattern
		.Filter = "*B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		.set_CellCaption(.AddItem("Item B"),1,"Sub-Item B")
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.set_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.get_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarToggle
	With .Columns.Item(0)
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	With .Columns.Item(1)
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exPattern
		.Filter = "*B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	With .Columns.Add("Item")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarCaption = "`<r>` + value"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarToggle
	With .Columns.Item(0)
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	With .Columns.Add("Item")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowFocusItem Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox Or exontrol.EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarFont = .Font
	.FilterBarPrompt = .FormatABC("`<b>` + value",.FilterBarPrompt)
	.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount " & _
"+ 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarFont = .Font
	.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount " & _
"+ 1) + ` result(s)` ) : ``)"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarFont = .Font
	.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarFont = .Font
	.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

' AfterExpandItem event - Fired after an item is expanded (collapsed).
Private Sub Exgantt1_AfterExpandItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AfterExpandItem
	With Exgantt1
		.Refresh()
	End With
End Sub

Dim h
With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Check")
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellHasCheckBox,True)
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		h = .AddItem("Item B")
		.set_CellState(.InsertItem(h,Nothing,"Sub-Item B1"),1,1)
		.InsertItem(h,Nothing,"Sub-Item B2")
		.set_ExpandItem(h,True)
		.AddItem("Item C")
	End With
	.FilterInclude = exontrol.EXGANTTLib.FilterIncludeEnum.exItemsWithChilds
	.FilterBarFont = .Font
	.FilterBarCaption = "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</" & _
"i></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>" & _
": ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF>" & _
"<i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</" & _
"i></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=8" & _
"08080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount +" & _
" `</fgcolor>`"
	.FilterBarPromptPattern = "B"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarFont = .Font
	.FilterBarCaption = "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
	.FilterBarPromptPattern = "B"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarToggle Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPrompt = .FormatABC("`<r>` + value",.FilterBarPrompt)
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	.RightToLeft = True
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarToggle Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJ" & _
"jyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKm" & _
"SZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OR" & _
"OicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2" & _
"DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJX" & _
"AiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaK" & _
"JDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G" & _
"0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEA" & _
"kjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRS" & _
"MRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhA" & _
"QHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ")
	End With
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarToggle Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exFooterFilterBarButton,&H1000000)
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exFooterFilterBarButton,Color.FromArgb(255,0,0))
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exFooterFilterBarButton,-1)
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

Dim h
With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
		.set_LockedItemCount(exontrol.EXGANTTLib.VAlignmentEnum.BottomAlignment,1)
		h = .get_LockedItem(exontrol.EXGANTTLib.VAlignmentEnum.BottomAlignment,0)
		.set_ItemDivider(h,0)
		.set_CellCaption(h,0,"<c><fgcolor=808080>Press the CTRL + F to turn on/off the control's filter bar. ALT + Up/Down moves the focus.")
		.set_CellCaptionFormat(h,0,exontrol.EXGANTTLib.CaptionFormatEnum.exHTML)
	End With
	.FilterBarCaption = "`<r><fgcolor=808080>` + value"
	.FilterBarPromptPattern = "B"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarToggle Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarCaption = "len(value) ? `filter for: <fgcolor 808080>` + value  : `<fgcolor 808080>no filter`"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarCaption = "`<r>` + value"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

' Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
Private Sub Exgantt1_Click(ByVal sender As System.Object) Handles Exgantt1.Click
	With Exgantt1
		.ClearFilter()
	End With
End Sub

' FilterChange event - Occurs when the filter was changed.
Private Sub Exgantt1_FilterChange(ByVal sender As System.Object) Handles Exgantt1.FilterChange
	With Exgantt1
		Debug.Print( "Items.MatchItemCount" )
		Debug.Print( .Items.MatchItemCount )
		Debug.Print( .FormatABC("value < 0 ? `filter applied: ` + abs(value + 1) + ` result(s)` : `no filter`",.Items.MatchItemCount) )
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptPattern = "Item"
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

' Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
Private Sub Exgantt1_Click(ByVal sender As System.Object) Handles Exgantt1.Click
	With Exgantt1
		.ClearFilter()
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptPattern = "B"
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarPromptPattern = "B"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptPattern = "B"
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.AddBar(Item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.set_PaneWidth(False,256)
	End With
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarCaption = "len(value) = 0 ? `<fgcolor=808080>no filter` : value"
	.FilterBarPromptVisible = exontrol.EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA")
	End With
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H1000000)
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exBackColorFilter,Color.FromArgb(0,0,1))
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exForeColorFilter,Color.FromArgb(255,255,255))
	.set_Description(exontrol.EXGANTTLib.DescriptionTypeEnum.exFilterBarExclude,"<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>")
	.HeaderAppearance = exontrol.EXGANTTLib.AppearanceEnum.None2
	.BackColorHeader = Color.FromArgb(0,0,0)
	.ForeColorHeader = Color.FromArgb(255,255,255)
	.HeaderVisible = True
	.BackColorLevelHeader = .BackColor
	With .Columns.Add("Filter")
		.FilterList = exontrol.EXGANTTLib.FilterListEnum.exShowExclude Or exontrol.EXGANTTLib.FilterListEnum.exShowCheckBox
		.DisplayFilterButton = True
		.AllowSort = False
		.AllowDragging = False
	End With
	With .Chart
		.set_PaneWidth(False,196)
		.LevelCount = 2
		.BackColorLevelHeader = Exgantt1.BackColorHeader
		.ForeColorLevelHeader = Exgantt1.ForeColorHeader
	End With
	With .Items
		.AddItem("One")
		.AddItem("Two")
		.AddItem("Three")
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN" & _
"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" & _
"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" & _
"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" & _
"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" & _
"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=")
		.Add(1,"CP:2 -4 -4 2 4")
	End With
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H1000000)
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exCursorHoverColumn,.BackColor)
	.HeaderAppearance = exontrol.EXGANTTLib.AppearanceEnum.None2
	.BackColorHeader = Color.FromArgb(255,255,255)
	.BackColorLevelHeader = .BackColor
	.HeaderHeight = 24
	.HeaderVisible = True
	With .Chart
		.set_PaneWidth(False,196)
		.LevelCount = 2
		.BackColorLevelHeader = Exgantt1.BackColorHeader
		.ForeColorLevelHeader = Exgantt1.ForeColorHeader
	End With
	With .Columns.Add("Filter")
		.DisplayFilterButton = True
		.AllowSort = False
		.AllowDragging = False
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	With .Chart
		.set_PaneWidth(False,0)
		.LevelCount = 2
		.FirstVisibleDate = #12/12/2007#
		.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exAllLines
		.UnitScale = exontrol.EXGANTTLib.UnitEnum.exWeek
		.WeekNumberAs = exontrol.EXGANTTLib.WeekNumberAsEnum.exISO8601WeekNumber
		.FirstWeekDay = exontrol.EXGANTTLib.WeekDayEnum.exMonday
	End With
	.EndUpdate()
End With

Dim h0
With Exgantt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.Indent = 16
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	.FilterBarPromptVisible = True
	.FilterBarPromptPattern = "Nancy"
	.FilterInclude = exontrol.EXGANTTLib.FilterIncludeEnum.exItemsWithChilds
	.Chart.LevelCount = 2
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .InsertItem(h0,Nothing,"Andrew Fuller")
		.set_CellCaption(h0,1,"Vice President, Sales")
		.set_CellCaption(h0,2,"Tacoma")
		h0 = .InsertItem(h0,Nothing,"Michael Suyama")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Janet Leverling")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Kirkland")
		h0 = .InsertItem(h0,Nothing,"Margaret Peacock")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Redmond")
	End With
	.ApplyFilter()
	.EndUpdate()
End With