957:
Type of wraps the cell's caption support (Sample 2)

With AxGantt1
	.BeginUpdate()
	.HeaderSingleLine = False
	.HeaderHeight = 36
	.DrawGridLines = EXGANTTLib.GridLinesEnum.exRowLines
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	With .Columns
		With .Add("Single-Line (exCaptionSingleLine)")
			.Width = 96
			.Def(EXGANTTLib.DefColumnEnum.exCellCaptionFormat) = 1
			.Def(EXGANTTLib.DefColumnEnum.exCellSingleLine) = -1
		End With
		With .Add("Word-Wrap (exCaptionWordWrap)")
			.Width = 96
			.Def(EXGANTTLib.DefColumnEnum.exCellCaptionFormat) = 1
			.Def(EXGANTTLib.DefColumnEnum.exCellSingleLine) = 0
			.FormatColumn = "%0"
		End With
		With .Add("Break-Wrap (exCaptionBreakWrap)")
			.Width = 96
			.Def(EXGANTTLib.DefColumnEnum.exCellCaptionFormat) = 1
			.Def(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
956:
Type of wraps the cell's caption support (Sample 1)

Dim h
With AxGantt1
	.BeginUpdate()
	.HeaderSingleLine = False
	.HeaderHeight = 36
	.DrawGridLines = 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.")
		.CellCaptionFormat(h,0) = EXGANTTLib.CaptionFormatEnum.exHTML
		h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
		.CellSingleLine(h,0) = 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.")
		.CellCaptionFormat(h,0) = EXGANTTLib.CaptionFormatEnum.exHTML
		.CellSingleLine(h,0) = EXGANTTLib.CellSingleLineEnum.exCaptionWordWrap
		h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
		.CellSingleLine(h,0) = 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.")
		.CellCaptionFormat(h,0) = EXGANTTLib.CaptionFormatEnum.exHTML
		.CellSingleLine(h,0) = EXGANTTLib.CellSingleLineEnum.exCaptionBreakWrap
	End With
	.EndUpdate()
End With
955:
Can I break the cell's caption using the line break <br> or \r\n (Sample 2)

With AxGantt1
	.BeginUpdate()
	.DrawGridLines = EXGANTTLib.GridLinesEnum.exRowLines
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	.Columns.Add("Default").Width = 128
	With .Items
		.CellSingleLine(.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0) = 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
954:
Can I break the cell's caption using the line break <br> or \r\n (Sample 1)

With AxGantt1
	.BeginUpdate()
	.DrawGridLines = EXGANTTLib.GridLinesEnum.exRowLines
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	With .Columns.Add("Default")
		.Width = 128
		.Def(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
953:
How can I change the visual appearance/color of the Filter For ... field

Dim h
With AxGantt1
	.BeginUpdate()
	.LinesAtRoot = EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	.BackColorHeader = RGB(1,0,0)
	.ForeColorHeader = RGB(255,255,255)
	.set_Background(EXGANTTLib.BackgroundPartEnum.exBackColorFilter,.BackColorHeader)
	.set_Background(EXGANTTLib.BackgroundPartEnum.exForeColorFilter,.ForeColorHeader)
	.set_Background(EXGANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,15790320)
	.set_Background(EXGANTTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.HeaderAppearance = EXGANTTLib.AppearanceEnum.Bump
	With .Columns.Add("Items")
		.FilterOnType = True
		.DisplayFilterButton = True
		.FilterList = EXGANTTLib.FilterListEnum.exNoItems
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
	End With
	.EndUpdate()
End With
952:
How can I display the cell's caption without spaces on both sides

With AxGantt1
	.BeginUpdate()
	.ColumnAutoResize = True
	With .Columns.Add("Default")
		.Def(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
951:
How can I highlight the spaces within the column (sample 2)

With AxGantt1
	.BeginUpdate()
	.ColumnAutoResize = True
	With .Columns.Add("Default")
		.Def(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
950:
How can I highlight the spaces within the column (sample 1)

With AxGantt1
	.BeginUpdate()
	.ColumnAutoResize = True
	With .Columns.Add("Default")
		.Def(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
949:
How can I change the visual aspect of the drop down filter-calendar

With AxGantt1
	.BeginUpdate()
	.set_Background(EXGANTTLib.BackgroundPartEnum.exBackColorFilter,65536)
	.set_Background(EXGANTTLib.BackgroundPartEnum.exForeColorFilter,16777215)
	.set_Background(EXGANTTLib.BackgroundPartEnum.exDateScrollRange,16777215)
	.set_Background(EXGANTTLib.BackgroundPartEnum.exDateHeader,.get_Background(EXGANTTLib.BackgroundPartEnum.exBackColorFilter))
	.set_Background(EXGANTTLib.BackgroundPartEnum.exDateScrollThumb,8421504)
	With .Columns.Add("Date")
		.FilterType = EXGANTTLib.FilterTypeEnum.exDate
		.DisplayFilterButton = True
		.DisplayFilterDate = True
		.DisplayFilterPattern = False
	End With
	.EndUpdate()
End With
948:
Export Data in HTML format

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxGantt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXGANTTLib._IGanttEvents_AddItemEvent) Handles AxGantt1.AddItem
	Dim i
	With AxGantt1
		With .Items
			i = .ItemToIndex(e.item)
			.AddBar(e.item,"Task",#1/2/2008#,#1/9/2008#,"")
			.ItemBar(e.item,"",EXGANTTLib.ItemBarPropertyEnum.exBarDuration) = i
			.ItemBar(e.item,"",EXGANTTLib.ItemBarPropertyEnum.exBarMove) = i
			.CellCaption(e.item,1) = .ItemBar(e.item,"",EXGANTTLib.ItemBarPropertyEnum.exBarStart)
			.CellCaption(e.item,2) = .ItemBar(e.item,"",EXGANTTLib.ItemBarPropertyEnum.exBarEnd)
		End With
	End With
End Sub

Dim sFile
With AxGantt1
	.BeginUpdate()
	.BackColorAlternate = RGB(240,240,240)
	.DrawGridLines = EXGANTTLib.GridLinesEnum.exAllLines
	.HeaderAppearance = EXGANTTLib.AppearanceEnum.Etched
	.set_Description(EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = EXGANTTLib.FilterPromptEnum.exFilterPromptContainsAny
	.DrawGridLines = EXGANTTLib.GridLinesEnum.exAllLines
	With .Chart
		.DrawGridLines = EXGANTTLib.GridLinesEnum.exAllLines
		.PaneWidth(False) = 196
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2008#
		.FirstWeekDay = EXGANTTLib.WeekDayEnum.exMonday
	End With
	With .ConditionalFormats.Add("(%2 - %1) = 3","K3")
		.ForeColor = RGB(255,0,0)
		.BarColor = .ForeColor
		.ApplyToBars = "Task"
	End With
	With .ConditionalFormats.Add("(%2 - %1) = 5","K5")
		.ForeColor = RGB(0,255,0)
		.BarColor = .ForeColor
		.ApplyToBars = "Task"
	End With
	With .Columns
		.Add("Tasks").Def(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 CreateObject("InternetExplorer.Application")
		.Navigate2(sFile)
	End With
End With
947:
Export Data in CSV format

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxGantt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXGANTTLib._IGanttEvents_AddItemEvent) Handles AxGantt1.AddItem
	Dim i
	With AxGantt1
		With .Items
			i = .ItemToIndex(e.item)
			.AddBar(e.item,"Task",#1/2/2008#,#1/9/2008#,"")
			.ItemBar(e.item,"",EXGANTTLib.ItemBarPropertyEnum.exBarDuration) = i
			.ItemBar(e.item,"",EXGANTTLib.ItemBarPropertyEnum.exBarMove) = i
			.CellCaption(e.item,1) = .ItemBar(e.item,"",EXGANTTLib.ItemBarPropertyEnum.exBarStart)
			.CellCaption(e.item,2) = .ItemBar(e.item,"",EXGANTTLib.ItemBarPropertyEnum.exBarEnd)
		End With
	End With
End Sub

With AxGantt1
	.BeginUpdate()
	.BackColorAlternate = RGB(240,240,240)
	.DrawGridLines = EXGANTTLib.GridLinesEnum.exAllLines
	.HeaderAppearance = EXGANTTLib.AppearanceEnum.Etched
	.set_Description(EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = EXGANTTLib.FilterPromptEnum.exFilterPromptContainsAny
	With .Chart
		.PaneWidth(False) = 196
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2008#
	End With
	With .ConditionalFormats.Add("(%2 - %1) = 3","K3")
		.ForeColor = RGB(255,0,0)
		.BarColor = .ForeColor
		.ApplyToBars = "Task"
	End With
	With .ConditionalFormats.Add("(%2 - %1) = 5","K5")
		.ForeColor = RGB(0,255,0)
		.BarColor = .ForeColor
		.ApplyToBars = "Task"
	End With
	With .Columns
		.Add("Tasks").Def(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
946:
Is it possible to check multiple-items at once
' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxGantt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXGANTTLib._IGanttEvents_AddItemEvent) Handles AxGantt1.AddItem
	Dim bHasParent
	With AxGantt1
		bHasParent = .FormatABC("value != 0",.Items.ItemParent(e.item))
		With .Items
			.CellHasCheckBox(e.item,0) = False
		End With
	End With
End Sub

Dim h,hChild
With AxGantt1
	.BeginUpdate()
	.LinesAtRoot = EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Tasks")
		.Def(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,,"Task 1")
		hChild = .InsertItem(h,,"Task 2")
		hChild = .InsertItem(h,,"Task 3")
		.ExpandItem(h) = True
		.LockedItemCount(EXGANTTLib.VAlignmentEnum.TopAlignment) = 1
		.CellCaption(.LockedItem(EXGANTTLib.VAlignmentEnum.TopAlignment,0),0) = "<c>Select multiple items and press the <b>SPACE</b> key"
	End With
	.EndUpdate()
End With
945:
How can I get the icon from the cell when using the Items.CellImages property (icon index)

' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxGantt1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXGANTTLib._IGanttEvents_MouseMoveEvent) Handles AxGantt1.MouseMoveEvent
	Dim c,hit,i
	With AxGantt1
		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.CellImages(i,c)) )
	End With
End Sub

With AxGantt1
	.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.PaneWidth(True) = 0
	.Columns.Add("Default")
	With .Items
		.CellImages(.AddItem("Item 1"),0) = "3,2,1"
		.CellImages(.AddItem("Item 2"),0) = "2,3"
		.CellImages(.AddItem("Item 3"),0) = "2,"
	End With
	.EndUpdate()
End With
944:
How can I get the icon from the cell when using the Items.CellImages property (icon position within the cell)

' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxGantt1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXGANTTLib._IGanttEvents_MouseMoveEvent) Handles AxGantt1.MouseMoveEvent
	Dim c,hit,i
	With AxGantt1
		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 AxGantt1
	.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.PaneWidth(True) = 0
	.Columns.Add("Default")
	With .Items
		.CellImages(.AddItem("Item 1"),0) = "3,2,1"
		.CellImages(.AddItem("Item 2"),0) = "2,3"
		.CellImages(.AddItem("Item 3"),0) = "2"
	End With
	.EndUpdate()
End With
943:
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop
With AxGantt1
	.BeginUpdate()
	.HeaderAppearance = 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_Background(EXGANTTLib.BackgroundPartEnum.exColumnsPositionSign,33554432)
	.EndUpdate()
End With
942:
A black portion is shown while I am using the BackColorAlternate with EBN colors. What can I do

With AxGantt1
	.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")
		.Def(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")
		.BackColor = &H1000000
	End With
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 4")
	End With
	.EndUpdate()
End With
941:
How can I specify alternate background colors for each root item, similar with BackColorAlternate

Dim h
With AxGantt1
	.BeginUpdate()
	.LinesAtRoot = EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Default")
		.Def(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 = RGB(240,240,240)
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		h = .AddItem("Root 3")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
	End With
	.EndUpdate()
End With
940:
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 4)

Dim h
With AxGantt1
	.BeginUpdate()
	.LinesAtRoot = 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,,"Child 1")
		.InsertItem(h,,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,,"Child")
	End With
	.EndUpdate()
End With
939:
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 3)

Dim h
With AxGantt1
	.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 = EXGANTTLib.LinesAtRootEnum.exGroupLinesAtRoot
	.HasButtons = EXGANTTLib.ExpandButtonEnum.exCustom
	.set_HasButtonsCustom(False,16777216)
	.set_HasButtonsCustom(True,33554432)
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,,"Child")
	End With
	.EndUpdate()
End With
938:
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 2)

Dim h
With AxGantt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"XP:TREEVIEW 2 1")
		.Add(2,"XP:TREEVIEW 2 2")
	End With
	.set_Background(EXGANTTLib.BackgroundPartEnum.exTreeGlyphOpen,16777216)
	.set_Background(EXGANTTLib.BackgroundPartEnum.exTreeGlyphClose,33554432)
	.LinesAtRoot = EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,,"Child")
	End With
	.EndUpdate()
End With
937:
How can I find if the control is running in DPI mode
With AxGantt1
	Debug.Print( .FormatABC("dpi = 1 ? `normal/stretch mode` : `dpi mode`") )
End With
936:
How can I change the visual appearance of the +/- buttons (method 1)

Dim h
With AxGantt1
	.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 = EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	.set_Background(EXGANTTLib.BackgroundPartEnum.exTreeGlyphOpen,16777216)
	.set_Background(EXGANTTLib.BackgroundPartEnum.exTreeGlyphClose,33554432)
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,,"Child")
	End With
	.EndUpdate()
End With
935:
How can I display the control's filter bar in the Items section only, as it was displayed before

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

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

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxGantt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXGANTTLib._IGanttEvents_AddItemEvent) Handles AxGantt1.AddItem
	Dim i
	With AxGantt1
		i = .FormatABC("value + 1",.Items.ItemToIndex(e.item))
		.Items.CellImage(e.item,3) = i
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

Dim h
With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.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 = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox Or EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox Or EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.Def(EXGANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = EXGANTTLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = EXGANTTLib.FilterTypeEnum.exImage
		.FilterList = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellCaption(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellCaption(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.set_Description(EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With
933:
FilterBarCaption ALL Keyword ( sample 1 )

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxGantt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXGANTTLib._IGanttEvents_AddItemEvent) Handles AxGantt1.AddItem
	Dim i
	With AxGantt1
		i = .FormatABC("value + 1",.Items.ItemToIndex(e.item))
		.Items.CellImage(e.item,3) = i
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

Dim h
With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.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 = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox Or EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox Or EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.Def(EXGANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = EXGANTTLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = EXGANTTLib.FilterTypeEnum.exImage
		.FilterList = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellCaption(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellCaption(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.set_Description(EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "all"
	.FilterBarPromptVisible = EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With
932:
FilterBarCaption ALLUI Keyword ( sample 2, result )

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxGantt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXGANTTLib._IGanttEvents_AddItemEvent) Handles AxGantt1.AddItem
	Dim i
	With AxGantt1
		i = .FormatABC("value + 1",.Items.ItemToIndex(e.item))
		.Items.CellImage(e.item,3) = i
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

Dim h
With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.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 = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox Or EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox Or EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.Def(EXGANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = EXGANTTLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = EXGANTTLib.FilterTypeEnum.exImage
		.FilterList = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellCaption(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellCaption(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.set_Description(EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With
931:
FilterBarCaption ALLUI Keyword ( sample 1 )

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxGantt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXGANTTLib._IGanttEvents_AddItemEvent) Handles AxGantt1.AddItem
	Dim i
	With AxGantt1
		i = .FormatABC("value + 1",.Items.ItemToIndex(e.item))
		.Items.CellImage(e.item,3) = i
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

Dim h
With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.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 = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox Or EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox Or EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.Def(EXGANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = EXGANTTLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = EXGANTTLib.FilterTypeEnum.exImage
		.FilterList = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellCaption(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellCaption(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.set_Description(EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "allui"
	.FilterBarPromptVisible = EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With
930:
FilterBarCaption AVAILABLE Keyword ( sample 2, result )

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxGantt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXGANTTLib._IGanttEvents_AddItemEvent) Handles AxGantt1.AddItem
	Dim i
	With AxGantt1
		i = .FormatABC("value + 1",.Items.ItemToIndex(e.item))
		.Items.CellImage(e.item,3) = i
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

Dim h
With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.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 = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox Or EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox Or EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.Def(EXGANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = EXGANTTLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = EXGANTTLib.FilterTypeEnum.exImage
		.FilterList = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellCaption(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellCaption(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.set_Description(EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With
929:
FilterBarCaption AVAILABLE Keyword ( sample 1 )

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxGantt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXGANTTLib._IGanttEvents_AddItemEvent) Handles AxGantt1.AddItem
	Dim i
	With AxGantt1
		i = .FormatABC("value + 1",.Items.ItemToIndex(e.item))
		.Items.CellImage(e.item,3) = i
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

Dim h
With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.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 = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox Or EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox Or EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.Def(EXGANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = EXGANTTLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = EXGANTTLib.FilterTypeEnum.exImage
		.FilterList = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellCaption(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellCaption(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.set_Description(EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "value + ` ` + available"
	.FilterBarPromptVisible = EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With
928:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 3, results )

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

With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.PaneWidth(False) = 256
	End With
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox Or EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox Or EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
		.CellCaption(.AddItem("Item B"),1) = "Sub-Item B"
		.CellCaption(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.set_Description(EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.get_Description(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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarToggle
	With .Columns.Item(0)
		.FilterType = EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	With .Columns.Item(1)
		.FilterType = EXGANTTLib.FilterTypeEnum.exPattern
		.Filter = "*B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
927:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 )

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

With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.PaneWidth(False) = 256
	End With
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox Or EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox Or EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
		.CellCaption(.AddItem("Item B"),1) = "Sub-Item B"
		.CellCaption(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.set_Description(EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.get_Description(EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
	.FilterBarPromptVisible = EXGANTTLib.FilterBarVisibleEnum.exFilterBarToggle
	With .Columns.Item(0)
		.FilterType = EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	With .Columns.Item(1)
		.FilterType = EXGANTTLib.FilterTypeEnum.exPattern
		.Filter = "*B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
926:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 )

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

With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.PaneWidth(False) = 256
	End With
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox Or EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox Or EXGANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellCaption(.AddItem("Item A"),1) = "Sub-Item A"
		.CellCaption(.AddItem("Item B"),1) = "Sub-Item B"
		.CellCaption(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.set_Description(EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.get_Description(EXGANTTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
	.FilterBarPromptVisible = EXGANTTLib.FilterBarVisibleEnum.exFilterBarToggle
	With .Columns.Item(0)
		.FilterType = EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	With .Columns.Item(1)
		.FilterType = EXGANTTLib.FilterTypeEnum.exPattern
		.Filter = "*B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
925:
Is it possible to automatically displays the control's filter label to the right

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

With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.PaneWidth(False) = 256
	End With
	With .Columns.Add("Item")
		.DisplayFilterButton = True
		.FilterList = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox Or 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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarToggle
	With .Columns.Item(0)
		.FilterType = EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
924:
How can I get the number of results/items being shown in the control's filter bar (sample 4)

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

With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.PaneWidth(False) = 256
	End With
	With .Columns.Add("Item")
		.DisplayFilterButton = True
		.FilterList = EXGANTTLib.FilterListEnum.exShowExclude Or EXGANTTLib.FilterListEnum.exShowFocusItem Or EXGANTTLib.FilterListEnum.exShowCheckBox Or 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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With
923:
How can I get the number of results being shown in the control's filter bar (sample 3)

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

With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
922:
How can I get the number of results being shown in the control's filter bar (sample 2, compact)

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

With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
921:
How can I get the number of results being shown in the control's filter bar (sample 1)

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

With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
920:
FilterBarCaption Predefined Keywords

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

' AfterExpandItem event - Fired after an item is expanded (collapsed).
Private Sub AxGantt1_AfterExpandItem(ByVal sender As System.Object, ByVal e As AxEXGANTTLib._IGanttEvents_AfterExpandItemEvent) Handles AxGantt1.AfterExpandItem
	With AxGantt1
		.Refresh()
	End With
End Sub

Dim h
With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.PaneWidth(False) = 256
	End With
	.LinesAtRoot = EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Check")
		.Def(EXGANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = 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")
		.CellState(.InsertItem(h,,"Sub-Item B1"),1) = 1
		.InsertItem(h,,"Sub-Item B2")
		.ExpandItem(h) = True
		.AddItem("Item C")
	End With
	.FilterInclude = 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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
919:
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines

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

With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
918:
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )

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

With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarToggle Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPrompt = .FormatABC("`<r>` + value",.FilterBarPrompt)
	.EndUpdate()
End With
917:
Just wondering if it is possible to show the filter bar's close button on the right ( sample 1 )

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

With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarToggle Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With
916:
How can I change the visual appearance of the filter bar's close button (EBN)

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

With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarToggle Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.set_Background(EXGANTTLib.BackgroundPartEnum.exFooterFilterBarButton,16777216)
	.EndUpdate()
End With
915:
How can I change the visual appearance of the filter bar's close button (solid)

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

With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.set_Background(EXGANTTLib.BackgroundPartEnum.exFooterFilterBarButton,255)
	.EndUpdate()
End With
914:
Is it possible to prevent definitely showing the filter bar's close button

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

With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.set_Background(EXGANTTLib.BackgroundPartEnum.exFooterFilterBarButton,-1)
	.EndUpdate()
End With
913:
Is it possible to show the close button only if there is a filter applied

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

With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With
912:
The control's filter bar is not closed once I click the close button (toggle)

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

Dim h
With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.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")
		.LockedItemCount(EXGANTTLib.VAlignmentEnum.BottomAlignment) = 1
		h = .LockedItem(EXGANTTLib.VAlignmentEnum.BottomAlignment,0)
		.ItemDivider(h) = 0
		.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."
		.CellCaptionFormat(h,0) = EXGANTTLib.CaptionFormatEnum.exHTML
	End With
	.FilterBarCaption = "`<r><fgcolor=808080>` + value"
	.FilterBarPromptPattern = "B"
	.FilterBarPromptVisible = EXGANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarToggle Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
911:
How can I display the control's filter on a single line

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

With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible
	With .Columns.Item(0)
		.FilterType = EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
910:
How can I display the control's filter on a single line (prompt-combined)

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

With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
909:
How can I get the number of results after a filter is applied

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxGantt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXGANTTLib._IGanttEvents_AddItemEvent) Handles AxGantt1.AddItem
	With AxGantt1
		.Items.AddBar(e.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 AxGantt1_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGantt1.ClickEvent
	With AxGantt1
		.ClearFilter()
	End With
End Sub

' FilterChange event - Occurs when the filter was changed.
Private Sub AxGantt1_FilterChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGantt1.FilterChange
	With AxGantt1
		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 AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptPattern = "Item"
	.EndUpdate()
End With
908:
How can I programmatically clear the control's filter
' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxGantt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXGANTTLib._IGanttEvents_AddItemEvent) Handles AxGantt1.AddItem
	With AxGantt1
		.Items.AddBar(e.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 AxGantt1_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGantt1.ClickEvent
	With AxGantt1
		.ClearFilter()
	End With
End Sub

With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptPattern = "B"
	.EndUpdate()
End With
907:
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)

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

With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
906:
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)

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

With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptPattern = "B"
	.EndUpdate()
End With
905:
Is it possible to prevent closing the control's filter bar, so it is always shown

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

With AxGantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.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 = EXGANTTLib.FilterBarVisibleEnum.exFilterBarVisible
	With .Columns.Item(0)
		.FilterType = EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
904:
How do I change the drop down filter icon/button (black)

With AxGantt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA")
	End With
	.set_Background(EXGANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,16777216)
	.set_Background(EXGANTTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.set_Background(EXGANTTLib.BackgroundPartEnum.exSplitBar,15790320)
	.HeaderAppearance = EXGANTTLib.AppearanceEnum.None2
	.BackColorHeader = RGB(0,0,0)
	.ForeColorHeader = RGB(255,255,255)
	.HeaderVisible = True
	.BackColorLevelHeader = .BackColor
	With .Columns.Add("Filter")
		.DisplayFilterButton = True
		.AllowSort = False
		.AllowDragging = False
	End With
	With .Chart
		.PaneWidth(False) = 196
		.LevelCount = 2
		.BackColorLevelHeader = AxGantt1.BackColorHeader
		.ForeColorLevelHeader = AxGantt1.ForeColorHeader
	End With
	.EndUpdate()
End With
903:
How do I change the drop down filter icon/button (white)

With AxGantt1
	.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_Background(EXGANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,16777216)
	.set_Background(EXGANTTLib.BackgroundPartEnum.exCursorHoverColumn,.BackColor)
	.HeaderAppearance = EXGANTTLib.AppearanceEnum.None2
	.BackColorHeader = RGB(255,255,255)
	.BackColorLevelHeader = .BackColor
	.HeaderHeight = 24
	.HeaderVisible = True
	With .Chart
		.PaneWidth(False) = 196
		.LevelCount = 2
		.BackColorLevelHeader = AxGantt1.BackColorHeader
		.ForeColorLevelHeader = AxGantt1.ForeColorHeader
	End With
	With .Columns.Add("Filter")
		.DisplayFilterButton = True
		.AllowSort = False
		.AllowDragging = False
	End With
	.EndUpdate()
End With
902:
How can I display the week-number in ISO8601 format

With AxGantt1
	.BeginUpdate()
	With .Chart
		.PaneWidth(False) = 0
		.LevelCount = 2
		.FirstVisibleDate = #12/12/2007#
		.DrawGridLines = EXGANTTLib.GridLinesEnum.exAllLines
		.UnitScale = EXGANTTLib.UnitEnum.exWeek
		.WeekNumberAs = EXGANTTLib.WeekNumberAsEnum.exISO8601WeekNumber
		.FirstWeekDay = EXGANTTLib.WeekDayEnum.exMonday
	End With
	.EndUpdate()
End With
901:
How can I include the child items, when a filter is applied

Dim h0
With AxGantt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.Indent = 16
	.LinesAtRoot = EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	.FilterBarPromptVisible = True
	.FilterBarPromptPattern = "Nancy"
	.FilterInclude = 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")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .InsertItem(h0,,"Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		h0 = .InsertItem(h0,,"Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .InsertItem(h0,,"Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
	End With
	.ApplyFilter()
	.EndUpdate()
End With