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

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
956:
Type of wraps the cell's caption support (Sample 1)

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
955:
Can I break the cell's caption using the line break <br> or \r\n (Sample 2)

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
954:
Can I break the cell's caption using the line break <br> or \r\n (Sample 1)

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
953:
How can I change the visual appearance/color of the Filter For ... field

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,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_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 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
951:
How can I highlight the spaces within the column (sample 2)

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
950:
How can I highlight the spaces within the column (sample 1)

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
949:
How can I change the visual aspect of the drop down filter-calendar

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
948:
Export Data in HTML format

' 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
947:
Export Data in CSV format

' 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
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 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,,"Task 1")
		hChild = .InsertItem(h,,"Task 2")
		hChild = .InsertItem(h,,"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
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 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
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 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
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 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
942:
A black portion is shown while I am using the BackColorAlternate with EBN colors. What can I do

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
941:
How can I specify alternate background colors for each root item, similar with BackColorAlternate

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,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_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 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,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_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 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,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_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 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,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_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 Exgantt1
	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 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,,"Child 1")
		.InsertItem(h,,"Child 2")
		.set_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 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
934:
FilterBarCaption ALL Keyword ( sample 2, result )

' 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
933:
FilterBarCaption ALL Keyword ( sample 1 )

' 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
932:
FilterBarCaption ALLUI Keyword ( sample 2, result )

' 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
931:
FilterBarCaption ALLUI Keyword ( sample 1 )

' 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
930:
FilterBarCaption AVAILABLE Keyword ( sample 2, result )

' 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
929:
FilterBarCaption AVAILABLE Keyword ( sample 1 )

' 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
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 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
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 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
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 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
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 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
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 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
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 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
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 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
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 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
920:
FilterBarCaption Predefined Keywords

' 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,,"Sub-Item B1"),1,1)
		.InsertItem(h,,"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
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 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
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 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
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 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
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 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
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 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
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 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
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 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
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 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
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 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
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 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
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 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
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 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
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 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
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 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
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 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
904:
How do I change the drop down filter icon/button (black)

With Exgantt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA")
	End With
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H1000000)
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.set_Background(exontrol.EXGANTTLib.BackgroundPartEnum.exSplitBar,Color.FromArgb(240,240,240))
	.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")
		.DisplayFilterButton = True
		.AllowSort = False
		.AllowDragging = False
	End With
	With .Chart
		.set_PaneWidth(False,196)
		.LevelCount = 2
		.BackColorLevelHeader = Exgantt1.BackColorHeader
		.ForeColorLevelHeader = Exgantt1.ForeColorHeader
	End With
	.EndUpdate()
End With
903:
How do I change the drop down filter icon/button (white)

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
902:
How can I display the week-number in ISO8601 format

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
901:
How can I include the child items, when a filter is applied

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,,"Andrew Fuller")
		.set_CellCaption(h0,1,"Vice President, Sales")
		.set_CellCaption(h0,2,"Tacoma")
		h0 = .InsertItem(h0,,"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,,"Margaret Peacock")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Redmond")
	End With
	.ApplyFilter()
	.EndUpdate()
End With