2027:
How can I add a summary bar once the user group by a column

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub AxG2antt1_AddGroupItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddGroupItemEvent) Handles AxG2antt1.AddGroupItem
	Dim l
	With AxG2antt1
		With .Items
			.ItemDividerLine(e.item) = EXG2ANTTLib.DividerLineEnum.EmptyLine
			.AddBar(e.item,"Summary",#12/2/2017#,#12/2/2017#)
			.DefineSummaryBars(e.item,"",-3,"")
			l = .GroupItem(e.item)
			.CellSingleLine(e.item,l) = False
			.CellBold(e.item,l) = True
			.ItemBackColor(e.item) = RGB(190,190,190)
		End With
		.Chart.ItemBackColor(e.item) = RGB(190,190,190)
	End With
End Sub

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/10/2017#)
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABOUGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCMQwAFBIbhrE4ZBjHGQRUgyI43RhHUBzV" & _
"IUBxDEaTZLlEYJBgeHYhDJPcaUVDcWQHGyeZwjSgpKoWSJIU5NcggPDgEwTKCmKlTAKoSzJMyEmwWRAdVTZLSEaxierKPhyWT/XgAF4PfDFKRXFqXY5mKZJFqKOI8TxI" & _
"NgxPQMGyrBqraLqKwQGrGCQKSBhUZ3dS2JR3OSlYRuQAMVgOXoDZhPWZXbDtSzPE63NgtOR5DiGWalABoeoxRa9cz3ViCJSrGTqIoINIzZLHFQbPpdAYdP6BeIjXhhZx" & _
"BBuLZXmEOh9CcNoni2N4MjWVodh+DpfBeLJinsWR9AyYwVAkGBhEAFphGiRogDEGBamkFgtjcZgHiMbgehYaQhAIEIREAaQYkcQZUHIGRUGQDBOEaBAhDYDxGkMZAkCg" & _
"eoagYZAYEYAYIAWGhemICIFj8WIiCiFR5gkIhogmBoKGKJx2C6C5hniMgggqYwog0UoNGMZJiDiCZRgOLY0ECUAQICA==")
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.PaneWidth(False) = 342
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeSolid
			.Color = &H1000000
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%513%>"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		End With
	End With
	With .Columns
		.Add("C1")
		.Add("C2")
		.Add("C3")
		With .Add("Pos")
			.FormatColumn = "1 pos ``"
			.AllowGroupBy = False
			.Position = 0
			.Width = 48
			.AllowSizing = False
		End With
	End With
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.HasLines = EXG2ANTTLib.HierarchyLineEnum.exNoLine
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exNoLinesAtRoot
	With .Items
		h = .AddItem("Item A")
		.CellValue(h,1) = "SubItem A.1"
		.CellValue(h,2) = "SubItem A.2"
		h = .AddItem("Item A")
		.CellValue(h,1) = "SubItem A.1"
		.CellValue(h,2) = "SubItem A.2"
		h = .AddItem("Item A")
		.CellValue(h,1) = "SubItem A.1"
		.CellValue(h,2) = "SubItem A.2"
		h = .AddItem("Item A")
		.CellValue(h,1) = "SubItem A.1"
		.CellValue(h,2) = "SubItem A.2"
		h = .AddItem("Item B")
		.CellValue(h,1) = "SubItem B.1"
		.CellValue(h,2) = "SubItem B.2"
		h = .AddItem("Item B")
		.CellValue(h,1) = "SubItem B.1"
		.CellValue(h,2) = "SubItem B.2"
	End With
	With .Columns.Item(0)
		.SortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
	End With
	.EndUpdate()
End With
2026:
Is it possible to display no +/- button for grouped items

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub AxG2antt1_AddGroupItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddGroupItemEvent) Handles AxG2antt1.AddGroupItem
	Dim l
	With AxG2antt1
		With .Items
			.ItemDividerLine(e.item) = EXG2ANTTLib.DividerLineEnum.EmptyLine
			.AddBar(e.item,"Progress",#12/2/2017#,#12/2/2017#)
			.DefineSummaryBars(e.item,"",-3,"")
			l = .GroupItem(e.item)
			.CellSingleLine(e.item,l) = False
			.CellBold(e.item,l) = True
			.ItemBackColor(e.item) = RGB(190,190,190)
		End With
		.Chart.ItemBackColor(e.item) = RGB(190,190,190)
	End With
End Sub

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/10/2017#)
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.PaneWidth(False) = 342
	End With
	With .Columns
		.Add("C1")
		.Add("C2")
		.Add("C3")
		With .Add("Pos")
			.FormatColumn = "1 pos ``"
			.AllowGroupBy = False
			.Position = 0
			.Width = 48
			.AllowSizing = False
		End With
	End With
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	.HasLines = EXG2ANTTLib.HierarchyLineEnum.exNoLine
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exNoLinesAtRoot
	With .Items
		h = .AddItem("Item A")
		.CellValue(h,1) = "SubItem A.1"
		.CellValue(h,2) = "SubItem A.2"
		h = .AddItem("Item A")
		.CellValue(h,1) = "SubItem A.1"
		.CellValue(h,2) = "SubItem A.2"
		h = .AddItem("Item A")
		.CellValue(h,1) = "SubItem A.1"
		.CellValue(h,2) = "SubItem A.2"
		h = .AddItem("Item A")
		.CellValue(h,1) = "SubItem A.1"
		.CellValue(h,2) = "SubItem A.2"
		h = .AddItem("Item B")
		.CellValue(h,1) = "SubItem B.1"
		.CellValue(h,2) = "SubItem B.2"
		h = .AddItem("Item B")
		.CellValue(h,1) = "SubItem B.1"
		.CellValue(h,2) = "SubItem B.2"
	End With
	With .Columns.Item(0)
		.SortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
		.Alignment = EXG2ANTTLib.AlignmentEnum.CenterAlignment
		.Def(EXG2ANTTLib.DefColumnEnum.exCellBackColor) = 15790320
	End With
	.EndUpdate()
End With
2025:
How can I change the label, caption or the formula of the grouped items

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub AxG2antt1_AddGroupItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddGroupItemEvent) Handles AxG2antt1.AddGroupItem
	With AxG2antt1
		With .Items
			.AddBar(e.item,"Progress",#12/2/2017#,#12/2/2017#)
			.DefineSummaryBars(e.item,"",-3,"")
		End With
	End With
End Sub

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/10/2017#)
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.PaneWidth(False) = 342
	End With
	With .Columns
		With .Add("C1")
			.GroupByFormatCell = "upper(value)"
		End With
		.Add("C2")
		.Add("C3")
		With .Add("Pos")
			.FormatColumn = "1 pos ``"
			.AllowGroupBy = False
			.Position = 0
			.Width = 48
			.AllowSizing = False
		End With
	End With
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	With .Items
		h = .AddItem("Item A")
		.CellValue(h,1) = "SubItem A.1"
		.CellValue(h,2) = "SubItem A.2"
		h = .AddItem("Item A")
		.CellValue(h,1) = "SubItem A.1"
		.CellValue(h,2) = "SubItem A.2"
		h = .AddItem("Item A")
		.CellValue(h,1) = "SubItem A.1"
		.CellValue(h,2) = "SubItem A.2"
		h = .AddItem("Item A")
		.CellValue(h,1) = "SubItem A.1"
		.CellValue(h,2) = "SubItem A.2"
		h = .AddItem("Item B")
		.CellValue(h,1) = "SubItem B.1"
		.CellValue(h,2) = "SubItem B.2"
		h = .AddItem("Item B")
		.CellValue(h,1) = "SubItem B.1"
		.CellValue(h,2) = "SubItem B.2"
	End With
	.Columns.Item(0).SortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With
2024:
How can I change the aspect of grouped items

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub AxG2antt1_AddGroupItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddGroupItemEvent) Handles AxG2antt1.AddGroupItem
	Dim l
	With AxG2antt1
		With .Items
			.ItemDividerLine(e.item) = EXG2ANTTLib.DividerLineEnum.EmptyLine
			.AddBar(e.item,"Progress",#12/2/2017#,#12/2/2017#)
			.DefineSummaryBars(e.item,"",-3,"")
			l = .GroupItem(e.item)
			.CellSingleLine(e.item,l) = False
			.CellBold(e.item,l) = True
			.ItemBackColor(e.item) = RGB(190,190,190)
		End With
		.Chart.ItemBackColor(e.item) = RGB(190,190,190)
	End With
End Sub

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/10/2017#)
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.PaneWidth(False) = 342
	End With
	With .Columns
		.Add("C1")
		.Add("C2")
		.Add("C3")
		With .Add("Pos")
			.FormatColumn = "1 pos ``"
			.AllowGroupBy = False
			.Position = 0
			.Width = 48
			.AllowSizing = False
		End With
	End With
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	With .Items
		h = .AddItem("Item A")
		.CellValue(h,1) = "SubItem A.1"
		.CellValue(h,2) = "SubItem A.2"
		h = .AddItem("Item A")
		.CellValue(h,1) = "SubItem A.1"
		.CellValue(h,2) = "SubItem A.2"
		h = .AddItem("Item A")
		.CellValue(h,1) = "SubItem A.1"
		.CellValue(h,2) = "SubItem A.2"
		h = .AddItem("Item A")
		.CellValue(h,1) = "SubItem A.1"
		.CellValue(h,2) = "SubItem A.2"
		h = .AddItem("Item B")
		.CellValue(h,1) = "SubItem B.1"
		.CellValue(h,2) = "SubItem B.2"
		h = .AddItem("Item B")
		.CellValue(h,1) = "SubItem B.1"
		.CellValue(h,2) = "SubItem B.2"
	End With
	.Columns.Item(0).SortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With
2023:
How can I collapse all items when the user performs a grouping

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub AxG2antt1_AddGroupItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddGroupItemEvent) Handles AxG2antt1.AddGroupItem
	With AxG2antt1
		With .Items
			.ExpandItem(e.item) = False
			.ItemDividerLine(e.item) = EXG2ANTTLib.DividerLineEnum.EmptyLine
			.AddBar(e.item,"Progress",#12/2/2017#,#12/2/2017#)
			.DefineSummaryBars(e.item,"",-3,"")
		End With
	End With
End Sub

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/10/2017#)
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.PaneWidth(False) = 342
	End With
	With .Columns
		.Add("C1")
		.Add("C2")
		.Add("C3")
		With .Add("Pos")
			.FormatColumn = "1 pos ``"
			.AllowGroupBy = False
			.Position = 0
			.Width = 48
			.AllowSizing = False
		End With
	End With
	.SortBarVisible = True
	.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
	.AllowGroupBy = True
	With .Items
		h = .AddItem("Item A")
		.CellValue(h,1) = "SubItem A.1"
		.CellValue(h,2) = "SubItem A.2"
		h = .AddItem("Item A")
		.CellValue(h,1) = "SubItem A.1"
		.CellValue(h,2) = "SubItem A.2"
		h = .AddItem("Item A")
		.CellValue(h,1) = "SubItem A.1"
		.CellValue(h,2) = "SubItem A.2"
		h = .AddItem("Item A")
		.CellValue(h,1) = "SubItem A.1"
		.CellValue(h,2) = "SubItem A.2"
		h = .AddItem("Item B")
		.CellValue(h,1) = "SubItem B.1"
		.CellValue(h,2) = "SubItem B.2"
		h = .AddItem("Item B")
		.CellValue(h,1) = "SubItem B.1"
		.CellValue(h,2) = "SubItem B.2"
	End With
	.Columns.Item(0).SortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With
2022:
Is it possible to select columns that user can drop to the sort bar, when using the Group By feature

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/10/2017#)
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.PaneWidth(False) = 342
	End With
	With .Columns
		.Add("C1")
		.Add("C2")
		.Add("C3")
		With .Add("Pos")
			.FormatColumn = "1 pos ``"
			.AllowGroupBy = False
			.Position = 0
			.Width = 48
			.AllowSizing = False
		End With
	End With
	.SortBarVisible = True
	.SortBarCaption = "<fgcolor=FF0000>Try to drag the Pos column here."
	.AllowGroupBy = True
	With .Items
		h = .AddItem("Item A")
		.CellValue(h,1) = "SubItem A.1"
		.CellValue(h,2) = "SubItem A.2"
		h = .AddItem("Item A")
		.CellValue(h,1) = "SubItem A.1"
		.CellValue(h,2) = "SubItem A.2"
		h = .AddItem("Item A")
		.CellValue(h,1) = "SubItem A.1"
		.CellValue(h,2) = "SubItem A.2"
		h = .AddItem("Item A")
		.CellValue(h,1) = "SubItem A.1"
		.CellValue(h,2) = "SubItem A.2"
		h = .AddItem("Item B")
		.CellValue(h,1) = "SubItem B.1"
		.CellValue(h,2) = "SubItem B.2"
		h = .AddItem("Item B")
		.CellValue(h,1) = "SubItem B.1"
		.CellValue(h,2) = "SubItem B.2"
	End With
	.EndUpdate()
End With
2021:
How can I filter for the type of the bars I have in my chart

With AxG2antt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #11/28/2017#
		.PaneWidth(False) = 0
		With .Bars.Item("Task")
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%0%>"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		End With
		With .Bars.Copy("Task","GTask")
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%0%>"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
			.Color = RGB(0,255,0)
		End With
		With .Bars.Copy("Task","RTask")
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%0%>"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
			.Color = RGB(255,0,0)
		End With
		.ColumnsFormatLevel = "0"
	End With
	.OnResizeControl = EXG2ANTTLib.OnResizeControlEnum.exDisableSplitter Or EXG2ANTTLib.OnResizeControlEnum.exResizeChart
	With .Columns.Add("Default")
		.DisplayFilterButton = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Type")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey) = ""
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 0
		.Visible = False
		.DisplayFilterButton = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Items
		.AllowCellValueToItemBar = True
		.AddBar(.AddItem("Item 1"),"Task",#12/4/2017#,#12/12/2017#)
		.AddBar(.AddItem("Item 2"),"GTask",#12/4/2017#,#12/12/2017#)
		.AddBar(.AddItem("Item 3"),"RTask",#12/4/2017#,#12/12/2017#)
		.AddBar(.AddItem("Item 4"),"Task",#12/4/2017#,#12/12/2017#)
		.AddBar(.AddItem("Item 5"),"GTask",#12/4/2017#,#12/12/2017#)
		.AddBar(.AddItem("Item 6"),"RTask",#12/4/2017#,#12/12/2017#)
	End With
	.FilterBarFont = .Font
	.set_Description(EXG2ANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(EXG2ANTTLib.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(1)
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "GTask|RTask"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
2020:
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 AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

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

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	Dim i
	With AxG2antt1
		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 AxG2antt1
	.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 = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.CheckValueType
			.Option(EXG2ANTTLib.EditorOptionEnum.exCheckValue2) = 1
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exImage
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellValue(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.set_Description(EXG2ANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(EXG2ANTTLib.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With
2018:
FilterBarCaption ALL Keyword ( sample 1 )

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	Dim i
	With AxG2antt1
		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 AxG2antt1
	.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 = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.CheckValueType
			.Option(EXG2ANTTLib.EditorOptionEnum.exCheckValue2) = 1
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exImage
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellValue(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.set_Description(EXG2ANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(EXG2ANTTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "all"
	.FilterBarPromptVisible = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With
2017:
FilterBarCaption ALLUI Keyword ( sample 2, result )

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	Dim i
	With AxG2antt1
		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 AxG2antt1
	.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 = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.CheckValueType
			.Option(EXG2ANTTLib.EditorOptionEnum.exCheckValue2) = 1
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exImage
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellValue(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.set_Description(EXG2ANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(EXG2ANTTLib.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With
2016:
FilterBarCaption ALLUI Keyword ( sample 1 )

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	Dim i
	With AxG2antt1
		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 AxG2antt1
	.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 = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.CheckValueType
			.Option(EXG2ANTTLib.EditorOptionEnum.exCheckValue2) = 1
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exImage
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellValue(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.set_Description(EXG2ANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(EXG2ANTTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "allui"
	.FilterBarPromptVisible = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With
2015:
FilterBarCaption AVAILABLE Keyword ( sample 2, result )

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	Dim i
	With AxG2antt1
		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 AxG2antt1
	.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 = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.CheckValueType
			.Option(EXG2ANTTLib.EditorOptionEnum.exCheckValue2) = 1
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exImage
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellValue(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.set_Description(EXG2ANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(EXG2ANTTLib.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With
2014:
FilterBarCaption AVAILABLE Keyword ( sample 1 )

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	Dim i
	With AxG2antt1
		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 AxG2antt1
	.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 = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.CheckValueType
			.Option(EXG2ANTTLib.EditorOptionEnum.exCheckValue2) = 1
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exImage
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellValue(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.set_Description(EXG2ANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(EXG2ANTTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "value + ` ` + available"
	.FilterBarPromptVisible = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With
2013:
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 AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.PaneWidth(False) = 256
	End With
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
		.CellValue(.AddItem("Item B"),1) = "Sub-Item B"
		.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.set_Description(EXG2ANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.get_Description(EXG2ANTTLib.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarToggle
	With .Columns.Item(0)
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	With .Columns.Item(1)
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exPattern
		.Filter = "*B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
2012:
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 AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.PaneWidth(False) = 256
	End With
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
		.CellValue(.AddItem("Item B"),1) = "Sub-Item B"
		.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.set_Description(EXG2ANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.get_Description(EXG2ANTTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
	.FilterBarPromptVisible = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarToggle
	With .Columns.Item(0)
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	With .Columns.Item(1)
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exPattern
		.Filter = "*B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
2011:
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 AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.PaneWidth(False) = 256
	End With
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
		.CellValue(.AddItem("Item B"),1) = "Sub-Item B"
		.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.set_Description(EXG2ANTTLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.get_Description(EXG2ANTTLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
	.FilterBarPromptVisible = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarToggle
	With .Columns.Item(0)
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	With .Columns.Item(1)
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exPattern
		.Filter = "*B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
2010:
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 AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.PaneWidth(False) = 256
	End With
	With .Columns.Add("Item")
		.DisplayFilterButton = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarToggle
	With .Columns.Item(0)
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
2009:
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 AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.PaneWidth(False) = 256
	End With
	With .Columns.Add("Item")
		.DisplayFilterButton = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With
2008:
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 AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With AxG2antt1
	.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
2007:
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 AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With AxG2antt1
	.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
2006:
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 AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With AxG2antt1
	.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
2005:
FilterBarCaption Predefined Keywords

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.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 AxG2antt1_AfterExpandItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AfterExpandItemEvent) Handles AxG2antt1.AfterExpandItem
	With AxG2antt1
		.Refresh()
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/2/2017#
		.PaneWidth(False) = 256
	End With
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Check")
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.CheckValueType
			.Option(EXG2ANTTLib.EditorOptionEnum.exCheckValue2) = 1
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = EXG2ANTTLib.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 = EXG2ANTTLib.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>`"
	.FilterBarPromptPattern = "B"
	.FilterBarPromptVisible = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
2004:
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 AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With AxG2antt1
	.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
2003:
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 AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With AxG2antt1
	.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarToggle Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPrompt = .FormatABC("`<r>` + value",.FilterBarPrompt)
	.EndUpdate()
End With
2002:
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 AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With AxG2antt1
	.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarToggle Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With
2001:
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 AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With AxG2antt1
	.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarToggle Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exFooterFilterBarButton,16777216)
	.EndUpdate()
End With
2000:
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 AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With AxG2antt1
	.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exFooterFilterBarButton,255)
	.EndUpdate()
End With
1999:
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 AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With AxG2antt1
	.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exFooterFilterBarButton,-1)
	.EndUpdate()
End With
1998:
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 AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With AxG2antt1
	.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With
1997:
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 AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

Dim h
With AxG2antt1
	.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(EXG2ANTTLib.VAlignmentEnum.exBottom) = 1
		h = .LockedItem(EXG2ANTTLib.VAlignmentEnum.exBottom,0)
		.ItemDivider(h) = 0
		.CellValue(h,0) = "<c><fgcolor=808080>Press the CTRL + F to turn on/off the control's filter bar. ALT + Up/Down moves the focus."
		.CellValueFormat(h,0) = EXG2ANTTLib.ValueFormatEnum.exHTML
	End With
	.FilterBarCaption = "`<r><fgcolor=808080>` + value"
	.FilterBarPromptPattern = "B"
	.FilterBarPromptVisible = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarToggle Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
1996:
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 AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With AxG2antt1
	.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible
	With .Columns.Item(0)
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
1995:
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 AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With AxG2antt1
	.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
1994:
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 AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.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 AxG2antt1_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.ClickEvent
	With AxG2antt1
		.ClearFilter()
	End With
End Sub

' FilterChange event - Occurs when the filter was changed.
Private Sub AxG2antt1_FilterChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.FilterChange
	With AxG2antt1
		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 AxG2antt1
	.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptPattern = "Item"
	.EndUpdate()
End With
1993:
How can I programmatically clear the control's filter
' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.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 AxG2antt1_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.ClickEvent
	With AxG2antt1
		.ClearFilter()
	End With
End Sub

With AxG2antt1
	.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptPattern = "B"
	.EndUpdate()
End With
1992:
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 AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With AxG2antt1
	.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
1991:
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 AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With AxG2antt1
	.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptPattern = "B"
	.EndUpdate()
End With
1990:
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 AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
	End With
End Sub

With AxG2antt1
	.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible
	With .Columns.Item(0)
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
1989:
What are the options to align the percent caption

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Clip")
	.ScrollBySingleLine = True
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	With .Chart
		.AllowResizeChart = EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartMiddle Or EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartHeader
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
		.FirstVisibleDate = #12/26/2000#
		.LevelCount = 2
		.PaneWidth(False) = 256
		With .Bars.Add("Task%Progress")
			.Shortcut = "Task"
			.Pattern = EXG2ANTTLib.PatternEnum.exPatternBox
			.Color = RGB(164,164,164)
			.StartColor = RGB(240,240,240)
			.EndColor = .StartColor
			.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsIncludeCaption Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
			.Height = 15
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarPercent) = 0.5
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarShowPercentCaption) = True
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarPercentCaptionFormat) = "<sha ;;0>%p%"
		End With
	End With
	With .Items
		h = .AddItem("no clip, (0-2)")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1")
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 2
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K2")
		.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 1
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K3")
		.ItemBar(h,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 0
		h = .AddItem("clip, inside (3-5)")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1")
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 5
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K2")
		.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 4
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K3")
		.ItemBar(h,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 3
		h = .AddItem("hide on min width, clip if not fit, inside (6-8)")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1")
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 8
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K2")
		.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 7
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K3")
		.ItemBar(h,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 6
		h = .AddItem("hide if not fit, no clip, inside (9-11)")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1")
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 11
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K2")
		.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 10
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K3")
		.ItemBar(h,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 9
		h = .AddItem("no clip, inside, outside (12-14)")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1")
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 14
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K2")
		.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 13
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K3")
		.ItemBar(h,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 12
		h = .AddItem("no clip, outside (16-18)")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1")
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 18
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K2")
		.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 17
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K3")
		.ItemBar(h,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 16
	End With
	.EndUpdate()
End With
1988:
Is it possible to determine whether a bar is in the current display area

' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub AxG2antt1_BarResizing(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_BarResizingEvent) Handles AxG2antt1.BarResizing
	With AxG2antt1
		.Refresh()
	End With
End Sub

' DateChange event - Occurs when the first visible date is changed.
Private Sub AxG2antt1_DateChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.DateChange
	With AxG2antt1
		.Refresh()
	End With
End Sub

' FormatColumn event - Fired when a cell requires to format its caption.
Private Sub AxG2antt1_FormatColumn(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_FormatColumnEvent) Handles AxG2antt1.FormatColumn
	Dim e,l,r,s
	With AxG2antt1
		s = .Items.ItemBar(e.item,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarStart)
		e = .Items.ItemBar(e.item,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarEnd)
		l = .FormatABC("A < B",e,.Chart.FirstVisibleDate)
		r = .FormatABC("A > B",s,.Chart.DateFromPoint(1,-1))
		e.value = .FormatABC("( A or B ) ? `<fgcolor=C0C0C0>hidden` : `<b>visible`",l,r)
	End With
End Sub

' LayoutChanged event - Occurs when column's position or column's size is changed.
Private Sub AxG2antt1_LayoutChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.LayoutChanged
	With AxG2antt1
		.Refresh()
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
	.Columns.Add("Tasks")
	With .Columns.Add("Visible")
		.FireFormatColumn = True
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
	End With
	With .Chart
		.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAll
		.OverviewHeight = 64
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	.SelBackColor = .BackColor
	.SelForeColor = .ForeColor
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/8/2017#,"A")
		.AddBar(.AddItem("Task 2"),"Task",#8/3/2018#,#8/10/2018#,"A")
		.AddBar(.AddItem("Task 3"),"Task",#8/4/2019#,#8/12/2019#,"A")
		.SelectItem(.FocusItem) = True
	End With
	.EndUpdate()
End With
1987:
How can I ensure that the bar fits the control's client area

' SelectionChanged event - Fired after a new item has been selected.
Private Sub AxG2antt1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.SelectionChanged
	Dim h,k,s
	With AxG2antt1
		h = .Items.FocusItem
		k = .Items.FirstItemBar(h)
		s = .FormatABC("(A+B)/2",.Items.ItemBar(h,k,EXG2ANTTLib.ItemBarPropertyEnum.exBarStart),.Items.ItemBar(h,k,EXG2ANTTLib.ItemBarPropertyEnum.exBarEnd))
		.Chart.ScrollTo(s,1)
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
	.Columns.Add("Tasks")
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/8/2017#)
		.AddBar(.AddItem("Task 2"),"Task",#8/3/2018#,#8/10/2018#)
		.AddBar(.AddItem("Task 3"),"Task",#8/4/2019#,#8/12/2019#)
		.SelectItem(.FocusItem) = True
	End With
	.EndUpdate()
End With
1986:
Is it possible to change the caption from a column without to remove the column and add it with the new caption
With AxG2antt1
	.Columns.Add("ColumnName").Caption = "NewName"
	.Columns.Add("ColumnName").HTMLCaption = "<b>New</b>Name"
End With
1985:
How can I display the bar's duration in days, minutes, and so so on

Dim h
With AxG2antt1
	.BeginUpdate()
	With .Columns
		.Add("Tasks").AllowSizing = False
		With .Add("Duration")
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 513
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey) = "A"
			.FormatColumn = "trim((1:=int((0:=value)/365) ? =:1 + ` year(s) ` : ``)  + (1:=int((0:=(=:0 - (=:1*365)))/31) ? =:1 + ` month(s) ` : ``) + (1:=i" & _
"nt((0:=(=:0 - (=:1*31)))/7) ? =:1 + ` week(s) ` : ``) + (1:=int((0:=(=:0 - (=:1*7)))/1) ? =:1 + ` day(s) ` : ``) + (1:=int((0:=(" & _
"=:0 - =:1 + 1/24/60/60/2))*24) ? =:1 + ` hour(s) ` : ``) + (1:=int((0:=(=:0*24 - =:1))*60) ? =:1 + ` min(s) ` : ``) + (1:=int((0" & _
":=(=:0*60 - =:1))*60) ? =:1 + ` sec(s)` : ``))"
		End With
	End With
	.Items.AllowCellValueToItemBar = True
	With .Chart
		.FirstVisibleDate = #12/30/2001#
		.LevelCount = 2
		.PaneWidth(False) = 196
		.Bars.Add("Task:Split").Shortcut = "Task"
		.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAll
		.OverviewHeight = 64
		.ResizeUnitScale = EXG2ANTTLib.UnitEnum.exSecond
		.AllowResizeChart = EXG2ANTTLib.ResizeChartEnum.exAllowChangeUnitScale Or EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartMiddle Or EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartHeader
	End With
	With .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",#12/31/2001#,#1/7/2002#,"A")
		h = .AddItem("Task 2")
		.AddBar(h,"Task",#1/1/2002#,#2/14/2002#,"A")
		h = .AddItem("Task 3")
		.AddBar(h,"Task",#1/2/2002 10:00:00 AM#,#1/2/2002 0:00:00 PM#,"A")
		h = .AddItem("Task 4")
		.AddBar(h,"Task",#1/3/2002#,#1/4/2002 8:30:30 AM#,"A")
	End With
	.EndUpdate()
End With
1984:
How can I change the background color for checked items (EBN color, frame)

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
	With AxG2antt1
		.Refresh()
	End With
End Sub

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
	.DefaultItemHeight = 22
	With .Columns.Add("Tasks")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .VisualAppearance
		.Add(2,"gBFLBCJwBAEHhEJAAEhABUkIQAAYAQGKIcBiAKBQAGYBIJDEMQ3DjAUBjMK4ZwTC4AIQjCK4JDKHYJRpHEZgLBMJAAGIZYhhUYRUiYMkiJBGGDIDiGGI2SJAcbTVIEc" & _
"x9EyUJSgSTJOjCMokTTIU4TTLYASbJafJJhWSaAiyMouDIOMg1BDNIw/Hika6jOgKUisNJXRzWIBTbDlOQ3JqnbCjOQRSrQBoNDAMAiiaKlbwJPK9RoieQXfwUAJrXJc" & _
"FqXFSLVxNBKAQEBA=")
		.Add(1,"CP:2 1 1 -1 -1")
	End With
	With .ConditionalFormats.Add("%CS0 = 1")
		.BackColor = &H1000000
		.ChartBackColor = .BackColor
	End With
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
		End With
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
		.CellState(hChild) = 1
		.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
		.DefineSummaryBars(h,"sum",-3,"")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
1983:
How can I change the caption of the checked items (sample 2)

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.SelBackColor = .BackColor
	.SelForeColor = .ForeColor
	With .Columns.Add("Tasks")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
		.FormatColumn = "%CS0 = 1 ? `<bgcolor=000000><fgcolor=FFFFFF> ` + value + ` </fgcolor></bgcolor>` : value"
	End With
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 256
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
		End With
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
		.CellState(hChild) = 1
		.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
		.DefineSummaryBars(h,"sum",-3,"")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
1982:
How can I change the caption of the checked items (sample 1)

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Tasks")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
		.FormatColumn = "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)"
	End With
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 256
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
		End With
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
		.CellState(hChild) = 1
		.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
		.DefineSummaryBars(h,"sum",-3,"")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
1981:
How can I change the font for the checked items

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
	With AxG2antt1
		.Refresh()
	End With
End Sub

Dim f,h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.DefaultItemHeight = 22
	With .Columns.Add("Tasks")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .ConditionalFormats.Add("%CS0 = 1")
		f = CreateObject("StdFont")
		With f
			.Name = AxG2antt1.Font.Name
			.Size = 12
		End With
		.Font = f
	End With
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 196
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
		End With
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
		.CellState(hChild) = 1
		.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
		.DefineSummaryBars(h,"sum",-3,"")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
1980:
How can I bold the checked items

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
	With AxG2antt1
		.Refresh()
	End With
End Sub

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Tasks")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .ConditionalFormats.Add("%CS0 = 1")
		.Bold = True
	End With
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
		End With
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
		.CellState(hChild) = 1
		.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
		.DefineSummaryBars(h,"sum",-3,"")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
1979:
How can I change the foreground color for checked items

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
	With AxG2antt1
		.Refresh()
	End With
End Sub

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
	With .Columns.Add("Tasks")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .ConditionalFormats.Add("%CS0 = 1")
		.ForeColor = RGB(255,128,128)
	End With
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
		End With
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
		.CellState(hChild) = 1
		.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
		.DefineSummaryBars(h,"sum",-3,"")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
1978:
How can I change the background color for checked items (solid color)

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
	With AxG2antt1
		.Refresh()
	End With
End Sub

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
	With .Columns.Add("Tasks")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .ConditionalFormats.Add("%CS0 = 1")
		.BackColor = RGB(255,128,128)
		.ChartBackColor = .BackColor
	End With
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
		End With
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
		.CellState(hChild) = 1
		.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
		.DefineSummaryBars(h,"sum",-3,"")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
1977:
How can I change the color for checked Task bars

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Tasks")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .ConditionalFormats.Add("%CS0 = 1")
		.ApplyToBars = "Task,Summary"
		.BarColor = RGB(255,0,0)
	End With
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.SelBackColor = RGB(240,240,240)
	.SelForeColor = RGB(0,0,0)
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
		End With
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
		.CellState(hChild) = 1
		.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
		.DefineSummaryBars(h,"sum",-3,"")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
1976:
I have defined "NonWorkingHours" for the Gantt, and the "exBarWorkingCount" properly excludes these hours as long as the Gantt is using "exDay" or "exHour" as the level unit. However when displaying a quarter or a year, I'm changing the unit to "exWeek", but then the "NonWorkingHours" are no longer excluded from the bars "exBarWorkingCount" and displays the wrong value

Dim h
With AxG2antt1
	.BeginUpdate()
	With .Columns
		.Add("Tasks").AllowSizing = False
		With .Add("Working")
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 258
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey) = "A"
			.FormatColumn = "((1:=int(0:=( 24*int(value) + (value - int(value) + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((" & _
"1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
		End With
	End With
	.Items.AllowCellValueToItemBar = True
	With .Chart
		.AllowResizeChart = EXG2ANTTLib.ResizeChartEnum.exAllowChangeUnitScale Or EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartMiddle Or EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartHeader
		.PaneWidth(False) = 196
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #1/3/2002#
		.LevelCount = 2
		.Level(0).Label = "<%ddd%>"
		.Level(1).Label = "<%hh%>"
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAll
		.OverviewHeight = 64
		.AllowOverviewZoom = EXG2ANTTLib.OverviewZoomEnum.exAlwaysZoom
	End With
	With .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",#1/4/2002#,#1/8/2002#,"A")
		.ItemBar(h,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = True
		h = .AddItem("Task 2")
		.AddBar(h,"Task",#1/3/2002#,#1/4/2002#,"A")
		.ItemBar(h,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = True
	End With
	With .Chart
		.UnitScale = EXG2ANTTLib.UnitEnum.exDay
		.ScrollTo(.FirstVisibleDate,1)
	End With
	.EndUpdate()
End With
1975:
Is it possible to customize the editor selection colour of the built in text editor, from standard blue to black

With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.SelBackColor = RGB(0,0,0)
	.SelForeColor = RGB(255,255,255)
	.Chart.PaneWidth(True) = 0
	With .Columns.Add("Edit").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.MaskType
		.Mask = ";;;rich"
	End With
	With .Items
		.AddItem("")
		.AddItem("Just a text")
		.AddItem("")
	End With
	.EndUpdate()
End With
1974:
Is it possible to customize the editor selection colour of the built in dropdown editor, from standard blue to black

With AxG2antt1
	.BeginUpdate()
	.SelBackColor = RGB(0,0,0)
	.SelForeColor = RGB(255,255,255)
	.Chart.PaneWidth(True) = 0
	With .Columns.Add("DropDown").Editor
		.AddItem(1,"This is just the first item")
		.AddItem(2,"This is just the second item")
		.AddItem(3,"This is just the third item")
		.EditType = EXG2ANTTLib.EditTypeEnum.DropDownType
		.Mask = ";;;rich"
	End With
	With .Items
		.AddItem("")
		.AddItem("Just a text")
		.AddItem("")
	End With
	.EndUpdate()
End With
1973:
When I display the chart in the daily view, the histogram shows correctly the data while if the chart displays the data in weekly or monthly view, the histogram shows no data or incorrectly. What can be the problem

' OverviewZoom event - Occurs once the user selects a new time scale unit in the overview zoom area.
Private Sub AxG2antt1_OverviewZoom(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.OverviewZoom
	With AxG2antt1
		.Chart.ResizeUnitScale = EXG2ANTTLib.UnitEnum.exDay
	End With
End Sub

Dim h1
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Columns.Add("Effort")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 21
		.Editor.EditType = EXG2ANTTLib.EditTypeEnum.SpinType
	End With
	With .Chart
		.AllowOverviewZoom = EXG2ANTTLib.OverviewZoomEnum.exAlwaysZoom
		.OverviewZoomCaption = "|||<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|||"
		.Label(EXG2ANTTLib.UnitEnum.exYear) = ""
		.Label(EXG2ANTTLib.UnitEnum.exHalfYear) = ""
		.Label(EXG2ANTTLib.UnitEnum.exQuarterYear) = ""
		.Label(EXG2ANTTLib.UnitEnum.exThirdMonth) = ""
		.Label(EXG2ANTTLib.UnitEnum.exHour) = ""
		.Label(EXG2ANTTLib.UnitEnum.exMinute) = ""
		.Label(EXG2ANTTLib.UnitEnum.exSecond) = ""
		.OverviewZoomUnit = 64
		.LevelCount = 2
		.NonworkingDays = 0
		.PaneWidth(False) = 96
		.FirstVisibleDate = #6/20/2005#
		.HistogramVisible = True
		.HistogramHeight = 128
		.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
		.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAll
		With .Bars.Item("Task")
			.HistogramPattern = .Pattern
			.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistOverload
			.HistogramCriticalValue = 3
			.HistogramItems = -7
			.HistogramGridLinesColor = RGB(192,192,192)
			.HistogramRulerLinesColor = RGB(0,0,1)
		End With
	End With
	With .Items
		.AllowCellValueToItemBar = True
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#6/21/2005#,#6/23/2005#)
		.CellValue(h1,1) = 4
		h1 = .AddItem("Task 2")
		.AddBar(h1,"Task",#6/24/2005#,#6/26/2005#)
		.CellValue(h1,1) = 3
		h1 = .AddItem("Task 3")
		.AddBar(h1,"Task",#6/27/2005#,#6/29/2005#)
		.CellValue(h1,1) = 2
		h1 = .AddItem("Task 4")
		.AddBar(h1,"Task",#6/30/2005#,#7/2/2005#)
		.CellValue(h1,1) = 1
	End With
	.EndUpdate()
End With
1972:
The BeforeExpandItem event is fired when clicking the drop down filter button. What we can do to prevent that
' BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
Private Sub AxG2antt1_BeforeExpandItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_BeforeExpandItemEvent) Handles AxG2antt1.BeforeExpandItem
	With AxG2antt1
		Debug.Print( "BeforeExpandItem" )
		Debug.Print( e.item )
		Debug.Print( "ColumnFromPoint" )
		Debug.Print( .get_ColumnFromPoint(-1,-1) )
		Debug.Print( "ColumnFromPoint return -1, if the user clicks the +/- glitch, else it returns the index of the column where the click occurs." )
		.Items.InsertItem(e.item,,"new child")
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns
		.Add("Items").DisplayFilterButton = True
	End With
	With .Items
		.ItemHasChildren(.InsertItem(,,"Group 1")) = True
		.ItemHasChildren(.InsertItem(,,"Group 2")) = True
	End With
	.EndUpdate()
End With
1971:
How do I change the drop down filter icon/button (black)

With AxG2antt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA")
	End With
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,16777216)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.None2
	.BackColorHeader = RGB(0,0,0)
	.ForeColorHeader = RGB(255,255,255)
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisible
	.BackColorLevelHeader = .BackColor
	With .Columns.Add("Filter")
		.DisplayFilterButton = True
		.AllowSort = False
		.AllowDragging = False
	End With
	With .Chart
		.PaneWidth(False) = 196
		.LevelCount = 2
		.BackColorLevelHeader = AxG2antt1.BackColorHeader
		.ForeColorLevelHeader = AxG2antt1.ForeColorHeader
	End With
	.EndUpdate()
End With
1970:
How do I change the z-order of the bars (percent)

' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxG2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent) Handles AxG2antt1.MouseMoveEvent
	Dim b,c,hit,i
	With AxG2antt1
		b = .Chart.BarFromPoint(-1,-1)
		i = .get_ItemFromPoint(-1,-1,c,hit)
		Debug.Print( .Items.ItemBar(i,b,EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) )
	End With
End Sub

Dim h1
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	.DefaultItemHeight = 52
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #10/10/2017#
		.PaneWidth(False) = 0
		.NonworkingDays = 0
		.MarkTodayColor = .BackColor
		.Bars.Add("Task%Progress").Shortcut = "Task"
		With .Bars.Copy("Task","T1")
			.Color = RGB(255,0,0)
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarPercent) = 0.25
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarPercentColor) = .Color
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarOffset) = 10
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarShowPercentCaption) = True
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarPercentCaptionFormat) = "<font ;6><b>%p%</b>"
		End With
		With .Bars.Copy("Task","T2")
			.Height = 26
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarVAlignCaption) = 16
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarPercent) = 0.25
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarPercentColor) = .Color
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarShowPercentCaption) = True
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarPercentCaptionFormat) = "<font ;6><b>%p%</b>"
		End With
	End With
	With .Items
		h1 = .AddItem("Task")
		.AddBar(h1,"T1",#10/15/2017#,#10/25/2017#,"2")
		.ItemBar(h1,"2",EXG2ANTTLib.ItemBarPropertyEnum.exBarData) = "Bar A"
		.ItemBar(h1,"2",EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "Bar A <b>Over</b> Bar B"
		.AddBar(h1,"T2",#10/18/2017#,#10/22/2017#,"1")
		.ItemBar(h1,"1",EXG2ANTTLib.ItemBarPropertyEnum.exBarData) = "Bar B"
		.ItemBar(h1,"1",EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "Bar B <b>Under</b> Bar A"
		h1 = .AddItem("Task")
		.AddBar(h1,"T1",#10/15/2017#,#10/25/2017#,"1")
		.ItemBar(h1,"1",EXG2ANTTLib.ItemBarPropertyEnum.exBarData) = "Bar A"
		.ItemBar(h1,"1",EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "Bar A <b>Under</b> Bar B"
		.AddBar(h1,"T2",#10/18/2017#,#10/22/2017#,"2")
		.ItemBar(h1,"2",EXG2ANTTLib.ItemBarPropertyEnum.exBarData) = "Bar B"
		.ItemBar(h1,"2",EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "Bar B <b>Over</b> Bar A"
	End With
	.EndUpdate()
End With
1969:
How do I change the z-order of the bars

' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxG2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent) Handles AxG2antt1.MouseMoveEvent
	Dim b,c,hit,i
	With AxG2antt1
		b = .Chart.BarFromPoint(-1,-1)
		i = .get_ItemFromPoint(-1,-1,c,hit)
		Debug.Print( .Items.ItemBar(i,b,EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) )
	End With
End Sub

Dim h1
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	.DefaultItemHeight = 52
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #10/10/2017#
		.PaneWidth(False) = 0
		.NonworkingDays = 0
		.MarkTodayColor = .BackColor
		With .Bars.Copy("Task","T1")
			.Color = RGB(255,0,0)
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		End With
		With .Bars.Copy("Task","T2")
			.Height = 25
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarVAlignCaption) = 16
		End With
	End With
	With .Items
		h1 = .AddItem("Task")
		.AddBar(h1,"T1",#10/15/2017#,#10/25/2017#,"2")
		.ItemBar(h1,"2",EXG2ANTTLib.ItemBarPropertyEnum.exBarData) = "Bar A"
		.ItemBar(h1,"2",EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "Bar A <b>Over</b> Bar B"
		.AddBar(h1,"T2",#10/18/2017#,#10/22/2017#,"1")
		.ItemBar(h1,"1",EXG2ANTTLib.ItemBarPropertyEnum.exBarData) = "Bar B"
		.ItemBar(h1,"1",EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "Bar B <b>Under</b> Bar A"
		h1 = .AddItem("Task")
		.AddBar(h1,"T1",#10/15/2017#,#10/25/2017#,"1")
		.ItemBar(h1,"1",EXG2ANTTLib.ItemBarPropertyEnum.exBarData) = "Bar A"
		.ItemBar(h1,"1",EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "Bar A <b>Under</b> Bar B"
		.AddBar(h1,"T2",#10/18/2017#,#10/22/2017#,"2")
		.ItemBar(h1,"2",EXG2ANTTLib.ItemBarPropertyEnum.exBarData) = "Bar B"
		.ItemBar(h1,"2",EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "Bar B <b>Over</b> Bar A"
	End With
	.EndUpdate()
End With
1968:
How do I get the duration/working count of the bar (sample 6,excrd)

With AxG2antt1
	.BeginUpdate()
	.DefaultItemHeight = 48
	.ShowFocusRect = False
	.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
	.BackColorLevelHeader = .BackColor
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	With .Chart
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exHLines
		.PaneWidth(False) = 64
		.LevelCount = 2
		.FirstVisibleDate = #12/26/2001#
		With .Bars.Add("Task:Split")
			.Shortcut = "Task"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "<%=%263%>"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarOffset) = -12
		End With
		.ColumnsFormatLevel = "1,2/3"
	End With
	.Columns.Add("Tasks")
	With .Columns.Add("Duration")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 513
		.Visible = False
		.Alignment = EXG2ANTTLib.AlignmentEnum.LeftAlignment
		.FormatColumn = "value + `d`"
	End With
	With .Columns.Add("Working")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 258
		.Visible = False
		.Alignment = EXG2ANTTLib.AlignmentEnum.RightAlignment
		.FormatColumn = "value + `w`"
	End With
	With .Columns.Add("Working-Period")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 263
		.Visible = False
		.Alignment = EXG2ANTTLib.AlignmentEnum.CenterAlignment
		.FormatColumn = "((value replace `\r\n` with `,`) replace `#` with ``) replace ` ` with ``"
	End With
	With .Items
		.AllowCellValueToItemBar = True
		.AddBar(.AddItem("Task 1"),"Task",#1/2/2002#,#1/11/2002#)
		.AddBar(.AddItem("Task 2"),"Task",#1/3/2002#,#1/15/2002#)
		.AddBar(.AddItem("Task 3"),"Task",#12/31/2001#,#1/13/2002#)
	End With
	.EndUpdate()
End With
1967:
How do I get the duration/working count of the bar (sample 5)

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		With .Items
			.ItemMaxHeight(e.item) = 64
		End With
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	.BackColorAlternate = RGB(240,240,240)
	With .Chart
		.PaneWidth(False) = 256
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2002#
		With .Bars.Add("Task:Split")
			.Shortcut = "Task"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "<%=%263%>"
		End With
		.ColumnsFormatLevel = "1,2"
		.SelBackColor = AxG2antt1.SelBackColor
	End With
	With .Columns.Add("Task")
		.AllowSizing = False
		.Width = 48
	End With
	With .Columns.Add("Duration")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 513
		.Visible = False
		.Alignment = EXG2ANTTLib.AlignmentEnum.LeftAlignment
	End With
	With .Columns.Add("Working")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 258
		.Visible = False
		.Alignment = EXG2ANTTLib.AlignmentEnum.RightAlignment
	End With
	With .Columns.Add("Working-Period")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 263
		.Def(EXG2ANTTLib.DefColumnEnum.exCellSingleLine) = False
	End With
	With .Items
		.AllowCellValueToItemBar = True
		.AddBar(.AddItem("Task 1"),"Task",#1/2/2002#,#1/12/2002#)
		.AddBar(.AddItem("Task 2"),"Task",#1/3/2002#,#1/15/2002#)
		.AddBar(.AddItem("Task 2"),"Task",#1/4/2002#,#1/16/2002#)
	End With
	.EndUpdate()
End With
1966:
How do I get the duration/working count of the bar (sample 4)

With AxG2antt1
	.BeginUpdate()
	With .Chart
		.PaneWidth(False) = 64
		.LevelCount = 2
		.FirstVisibleDate = #12/26/2001#
		.Bars.Add("Task:Split").Shortcut = "Task"
		.ColumnsFormatLevel = "1,2"
	End With
	.Columns.Add("Task").Width = 48
	With .Columns.Add("Duration")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 513
		.Visible = False
		.Alignment = EXG2ANTTLib.AlignmentEnum.LeftAlignment
		.FormatColumn = "value + `d`"
	End With
	With .Columns.Add("Working")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 258
		.Visible = False
		.Alignment = EXG2ANTTLib.AlignmentEnum.RightAlignment
		.FormatColumn = "value + `w`"
	End With
	With .Items
		.AllowCellValueToItemBar = True
		.AddBar(.AddItem("Task 1"),"Task",#1/2/2002#,#1/12/2002#)
		.AddBar(.AddItem("Task 2"),"Task",#1/3/2002#,#1/15/2002#)
	End With
	.EndUpdate()
End With
1965:
How do I get the duration/working count of the bar (sample 3)

' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub AxG2antt1_BarResizing(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_BarResizingEvent) Handles AxG2antt1.BarResizing
	With AxG2antt1
		With .Items
			Debug.Print( .CellCaption(e.item,0) )
			Debug.Print( "Working" )
			Debug.Print( .ItemBar(e.item,e.key,EXG2ANTTLib.ItemBarPropertyEnum.exBarWorkingCount) )
			Debug.Print( .CellCaption(e.item,0) )
			Debug.Print( "Duration" )
			Debug.Print( .ItemBar(e.item,e.key,EXG2ANTTLib.ItemBarPropertyEnum.exBarDuration) )
		End With
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	With .Chart
		.PaneWidth(False) = 64
		.LevelCount = 2
		.FirstVisibleDate = #12/26/2001#
		.Bars.Add("Task:Split").Shortcut = "Task"
	End With
	.Columns.Add("Task").Width = 48
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#1/2/2002#,#1/12/2002#)
		.AddBar(.AddItem("Task 2"),"Task",#1/3/2002#,#1/15/2002#)
	End With
	.EndUpdate()
End With
1964:
How do I get the duration/working count of the bar (sample 2)

With AxG2antt1
	.BeginUpdate()
	With .Chart
		.PaneWidth(False) = 64
		.LevelCount = 2
		.FirstVisibleDate = #12/26/2001#
		With .Bars.Add("Task:Split")
			.Shortcut = "Task"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%258%>w"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption) = "<%=%513%>d"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign) = 16
		End With
	End With
	.Columns.Add("Task").Width = 48
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#1/2/2002#,#1/12/2002#)
		.AddBar(.AddItem("Task 2"),"Task",#1/3/2002#,#1/15/2002#)
	End With
	.EndUpdate()
End With
1963:
How do I get the duration/working count of the bar (sample 1)

With AxG2antt1
	.BeginUpdate()
	With .Chart
		.PaneWidth(False) = 196
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2002#
		.Bars.Add("Task:Split").Shortcut = "Task"
	End With
	.Columns.Add("Task").Width = 48
	.Columns.Add("Duration").Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 513
	.Columns.Add("Working").Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 258
	With .Items
		.AllowCellValueToItemBar = True
		.AddBar(.AddItem("Task 1"),"Task",#1/2/2002#,#1/12/2002#)
		.AddBar(.AddItem("Task 2"),"Task",#1/3/2002#,#1/15/2002#)
	End With
	.EndUpdate()
End With
1962:
How can I draw a solid frame around the the focusing item

Dim h
With AxG2antt1
	.BeginUpdate()
	.SingleSel = False
	.DefaultItemHeight = 20
	With .VisualAppearance
		.RenderType = -1
		.Add(1,"gBFLBCJwBAEHhEJAAEhABOkGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEwpFAZBhgeDYMiSNoYDJCM4wH" & _
"IURRJFCUJSGWQpTgSIgyT5HFIxXKoASbJabZLhWS6EpWOotTbIQQRYCkEyfKKfZyGURZQqOKA1DBZErWTJESRFJqLazgO4LAhyQYrVgAErzVKVCRNOqbJzADApdpGQJT" & _
"ULDNTQHRFIyhOSnIRrWbMAhid6JUZiVT4dBOIYhSYANAqCwLFqrDJmWrpV5WZjlZ47V6BdAyXJsIrmFJEXaOGhyDDlGybSDZYryfZhUziUw4XjbWwZDqPF6DKTTdSGLR" & _
"EE8WZVlURZvDaep3C+AY8kAYRgGCCBJECUhjDoHROEYWgoAGTQ1CEEx9lGMY0CQUYSnuZQDBGBYFlOH5+H+igGAKAJgEgFgGgGVgDn4CoCmCSA2A6A5hAgDgQgSYRIE4" & _
"EoFGGCBiBeBhhkgPgbgcYgICoH4IGGWIOCSBhiGiHgVgoYooFoAoLGIWI+DCCgjCiTgrgII4ImYOoOmOSJ2AYOpWlQDQBICA=")
	End With
	.ShowFocusRect = True
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exShowFocusRect,16777216)
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Chart.PaneWidth(True) = 1
	With .Columns.Add("P1")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
1961:
The frame around the focusing item is not very clear. Can I show it larger or more cleared (sample 2)

Dim h
With AxG2antt1
	.BeginUpdate()
	.SingleSel = False
	.DefaultItemHeight = 20
	.ShowFocusRect = True
	With .VisualAppearance
		.RenderType = -1
		.Add(2,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEwpFAZBhgeCRUgyJI3RgMUIzV" & _
"AcRRFEiUJQlIZZCjOAw0SIMU7xZRcNxsACnaZnCR4NiuRYiUhOcqzRIQIQ4CiEahqOgJbDUJYwWZKAyjBY8XTZFCSJCpeJ6egOc5jRxQUp1WAEXx3GSsJKvCZ5cADBY+" & _
"VLQNS0JBtMSTKSLaiuWoIJqCPaDRheWKQJh1NSnLqEcjyYANDxDCZlWzAYxWTZ2Uz7N7PbB0HY4DyPGKZYrfESVRbQcZNS6nNigPI9XhfGq6VjRe63ZaOaYpWrnOJqTR" & _
"WjOKYujWdZ2BGO5lkuBAAkmcQkDmDBEAwEQJCgGhMGcQ4pkiSxGAAOYmkQIhvkYNg2gSCgyj+LI4GIMIwF2XQoAYAoAmASAWAaAZgggJgKFiT54DYDoDmECBGBKBJgGg" & _
"TgWgWYRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChiigYgsgsYYYBYMIKCMKJOCuDRjGiOgLg6Y5InYPoPmQCAkmsXAQDQBCAg=")
		.Add(3,"CP:2 -3 0 3 0")
	End With
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exShowFocusRect,50397441)
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Chart.PaneWidth(True) = 1
	With .Columns.Add("P1")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
1960:
The frame around the focusing item is not very clear. Can I show it larger or more cleared (sample 1)

Dim h
With AxG2antt1
	.BeginUpdate()
	.SingleSel = False
	.ShowFocusRect = True
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABHoDg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASV" & _
"AceAAGaUZrjSgobjmOYhAJCLqhYIgASXJqLaBlOCaAieSc+QhjQJIJoeCZXU5TFg1BTsOhqEqcRiseaRVDCaIJWzbdYWLDdNQHHKYLjnWorbpSJZ5XjNEySDQkMS9PrE" & _
"J7vST8FBCdAABLJUB2BR9RwxRafKpnWwJDpmCaOQLXEB5DK1PyVMTKYrtGy7GrIAJxWxbV4UHh+QABOzIMAvHKJMwvHYcUZne5XVLeF41HbONogPaJZyIAK2cLROq6Xo" & _
"7GEcJZEcLASB4DwvgWUZlE6AQQhKAYkkYdA6hyDIwHgSoqFwQgmnsYxjGgSIiBOTpSEiAwRgOJI7j4JAHA6U5wm0MpPlOBIjD8TZiGYCICiCGAuA6AxhAgMgSgOYQ4DY" & _
"Bg/g6cw1n+ABOmMMJ9DmCwjnScw4RsVJngkYh4hoKIKmKKI2CmC5ikiQgqgiT5jhyMw8g4QwIn0OIKEiCJhD8DwTGyfA7k0WQOEWEQkGkJhIhKZB5DYSoTiSCQEn4PQO" & _
"COXJcCeIJjliaIQk0aRyF4O5llmAhfhgZhJg4ZoYiaAxYn4PZOhOZJaCUZYTiYQw1mcOZUm+HQnHmWh4h6Z4pnYeYfk0eYsmqG4nAgNJ2DqD5DkCWoiGiOgqgyI5omoR" & _
"oNiSaQKFKEojCaM4ugSFhOjkAJcieKgDkaH4oioGoOiaKRqgqEoqDddwyhuAxPgOMJ8DyDZqk6NYtCsapmjiLprHqdo6i+K5K1oPhOlqPgKD4DpjnII4yiOewuk6MxtA" & _
"sMpSjObQ7EaT4wk6ewYn0PgPAiCJkjeLgDk6X44i4G4OmaORuguEpqDkLAzkaWg+E8GIUmaPIvEOVpzj2Lxbl6eo+G+S5in4OYPmOaJyjuTwjnYWpBg6DAjAqQZwkwJw" & _
"NkKcJsEcEJCDBEpaD6Dw8BiapGjGSgfB2RpxmyBwgkicZ8haBw/g+M5TBcPQPlOXJskscp8jsMJMnMLJXDGTZzEyYw2kwMoDlcFw9i2M4/EGUJPg0CxFlENBtCcSJSnQ" & _
"fQ0m+SgPHsaJ7lALZLG6XZVHWDRfFqVY1k0ZxdladYTnifJUGaeAWAeMnSGcGWgBObJ3lWbwdjKW5cHcTZPHaLkN4GxXDlFqFsA4uRbBOGAFAEIzAsDEFOBkfYqR4D6A" & _
"OBEYo8QuBvAmMceInBDgcD0JwOIqQyJ1DMAwG4IANDnHSMoK4QhOgMBGNEIQvQWAdGenETIswGiddsAAQAgCAgA==")
		.Add(2,"gBFLBCJwBAEHhEJAAEhABeEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADDFIBQSLAYROGSDJBGODJDjWGIeQLOEhQH" & _
"IMRxPE6UYLhWYpBDKPYcUbGc7yBBMVwGf59XzACoKSheQIVSDQkw6Fo6NYhAxHALyNRkBy8f60KjtGpodDUJYvW5JYyjBZ8EznOqbJBkeJ7BgOe5NQjaD72VgdWQJFSW" & _
"JajWYYJDOJY2ZAAE5TVINEwxJbDaylChIdxaF6WAzZEBhBYoATPNLBMrhWqKDw2XaQWBCOgwHYeR5LU7BdRwbIrRq2eAAXbcVyXfDddZlBK+QA0SK9lRVTKvJZmKgBWw" & _
"1COSxmAAGw4kcNx1iKFBiCAfQsG8lJemucg7nsXpUHOOxrm+DI3jOH4XAOBx2nscw0j2HhPG4L5uGEVIECQCBCEUAYkGMHQHFGSBlGaAxkEgQgTGCVBsDYQhCgQJZrHK" & _
"UggGEShkFGNgIlsNpPnMHJHD+TADAIJIJiIWIeCqChikiIgmgiD5zHyXxgiACJKCuC4jHiZgtg6I4IlkCQwkwOIonMPJjEkFhGhGZBpA4KoMBCGJuEiE5lAkGg7hMY4J" & _
"EYVoUCUNAOE6FZl0KWQACWOR2GKF5mBmChchkJRZhoXYaCKKYqGuDglEmNhuhWZpIiYc4dCcCRqGmHZlgm2YxAwSQKESHwkFkKgpiAIAIH4PIimOOg2DiChoiQJRRD+T" & _
"ZDHCfwyAyCgyg+JpiioYJ/DgDgIlECQ6lwRAEICA=")
		.Add(3,"CP:2 -2 0 2 0")
	End With
	.GetOcx().SelBackColor = &H1000000
	.SelForeColor = RGB(0,0,0)
	.Chart.PaneWidth(True) = 1
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exShowFocusRect,67043328)
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("P1")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,,"Child 1")
		.InsertItem(h,,"Child 2")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
1959:
How can I display the start/end margins of bars, when cursor hovers it like a tooltip

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("exBarToolTip")
	With .Chart
		.PaneWidth(False) = 96
		.FirstVisibleDate = #1/1/2001#
		.Bars.Item("Task").Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "<b><%=%9 + '/' + %C0%></b><br><upline><dotline>Start: <%=%1%><br>End: <%=%2%><br>Duration: <%=(%2-%1)%><br>Working: <%=%258%>"
	End With
	With .Items
		.AddBar(.AddItem("Bar.Def"),"Task",#1/2/2001#,#1/9/2001#,"K1")
		.AddBar(.AddItem("Bar.Def"),"Task",#1/3/2001#,#1/10/2001#,"K1")
		h = .AddItem("Items.ItemBar")
		.AddBar(h,"Unknown",#1/4/2001#,#1/11/2001#,"K")
		.ItemBar(h,"K",EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "Start:<%=%1%><br>End:<%=%2%>"
	End With
	.EndUpdate()
End With
1958:
Is it possible to define different kinds of summary bars with using the EBN files

Dim hSummaryJ,hSummaryK,hSummaryZ,hTaskJ,hTaskK,hTaskZ
With AxG2antt1
	.BeginUpdate()
	With .VisualAppearance
		.RenderType = -16777216
		.Add(1,"gBFLBCJwBAEHhEJAAEhABN0GACAADACAxRDAMgBQKAAzQFAYahuGSGAAGMYxQgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQyDAAUIjOKsIhkGYcZAGQBJCjWGodQLOEgwH" & _
"IERQjEyUJAGGQIHhyPYbUbGUpQHKkeRtGqgBgoKhKEouNYgAbGYIwTRsdyfDSXBpEWwbDgkNQwWTDNoRDIUQStCysaYjOpnfrUAJ1P7FdQ1NJkXRhGSSK7maapaiCSZ6" & _
"STCMj1FhVKSNJ7DQKhGpgKh/ApgYpQOK4fLNXyRBK4QAyKA6bgPFZOZbFViaXY1V5bNKrcjhHQwAyHJ4XXRdV4YRAkUT4GqiJKGSYcQhuXZWbRqO6ABhef6DRThc6jKp" & _
"FHIE4llEcojHqSZNgoIxnlgd5thsLREleL43gsYZ9BkaAYkMAgAm+CxGDWWAtiKCRfjcdRgHoHYnicUwgAIEIREAaQYkcQZUHIGRUDQJBOEYRAhDYCxGgMZAkCgdYQha" & _
"XQIAYERwQuahXggdgeG6VZ4H4IhdiIGIOB8YIiGiHZZgqYpGF4KYHiKCI+CAU5jCiTQ2g0YhEFyax4gABAEIC")
		.Add(2,"gBFLBCJwBAEHhEJAAEhABU0IQAAYAQGKQYhiAKBQAGaAoDDcMA4QwAAyjAKMEwsACEIrjKCRShyCYZRhGcTAJBMIhiGQYAChEZxVhEMgzDjIAxSJAcQRFESaAABGCQG" & _
"h+N4/S4NIi0CIsZQjCaiZ7pKA5bgMCo+UrNMixZQVCSOGChYRpCaZWpGGodQRUFbVHAlKypJKCKrEWSrDhuYAAW7XM7yBS1TzVNSuLZtaLqSroAJ1WTWMB0Ra8NzZEKf" & _
"aZACj4arKejrRDCMAggI=")
	End With
	.Columns.Add("Task")
	With .Chart
		.PaneWidth(False) = 128
		.FirstVisibleDate = #1/1/2001#
		With .Bars.Item("Task")
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
			.Color = RGB(1,0,0)
		End With
		With .Bars.Item("Summary")
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
			.Color = &H2000000
		End With
	End With
	With .Items
		hSummaryJ = .AddItem("Summary A")
		.AddBar(hSummaryJ,"Summary",#1/2/2001#,#1/2/2001#,"J")
		hTaskJ = .InsertItem(hSummaryJ,,"Task A.1")
		.AddBar(hTaskJ,"Task",#1/2/2001#,#1/5/2001#,"J1")
		hTaskJ = .InsertItem(hSummaryJ,,"Task A.2")
		.AddBar(hTaskJ,"Task",#1/4/2001#,#1/8/2001#,"J2")
		.DefineSummaryBars(hSummaryJ,"J",-1,"<*>")
		hSummaryK = .AddItem("Summary B")
		.AddBar(hSummaryK,"Summary",#1/2/2001#,#1/2/2001#,"K")
		hTaskK = .InsertItem(hSummaryK,,"Task B.1")
		.AddBar(hTaskK,"Task",#1/2/2001#,#1/5/2001#,"K1")
		hTaskK = .InsertItem(hSummaryK,,"Task B.2")
		.AddBar(hTaskK,"Task",#1/4/2001#,#1/8/2001#,"K2")
		.DefineSummaryBars(hSummaryK,"K",-1,"<*>")
		.ItemBar(0,"<K*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 255
		hSummaryZ = .AddItem("Summary B")
		.AddBar(hSummaryZ,"Summary",#1/2/2001#,#1/2/2001#,"Z")
		hTaskZ = .InsertItem(hSummaryZ,,"Task B.1")
		.AddBar(hTaskZ,"Task",#1/2/2001#,#1/5/2001#,"Z1")
		hTaskZ = .InsertItem(hSummaryZ,,"Task B.2")
		.AddBar(hTaskZ,"Task",#1/4/2001#,#1/8/2001#,"Z2")
		.DefineSummaryBars(hSummaryZ,"Z",-1,"<*>")
		.ItemBar(hSummaryZ,"Z",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 16842496
		.ItemBar(0,"<Z1>",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 50266112
		.ItemBar(0,"<Z2>",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 33554176
		.ExpandItem(0) = True
	End With
	.EndUpdate()
End With
1957:
How can I display the week-number in ISO8601 format

With AxG2antt1
	.BeginUpdate()
	With .Chart
		.PaneWidth(False) = 0
		.LevelCount = 2
		.FirstVisibleDate = #12/12/2007#
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
		.UnitScale = EXG2ANTTLib.UnitEnum.exWeek
		.Level(0).FormatLabel = "value + `<r><off -4><fgcolor=808080><font ;6>` + year(dvalue)"
		.Level(1).FormatLabel = "(value = 1 ? `<bgcolor=000000><fgcolor=FFFFFF>` : ``) + value"
		.WeekNumberAs = EXG2ANTTLib.WeekNumberAsEnum.exISO8601WeekNumber
		.FirstWeekDay = EXG2ANTTLib.WeekDayEnum.exMonday
	End With
	.EndUpdate()
End With
1956:
I have a column right-aligned. How can I display its check box aligned to the right, as it appears to the left of the cell's caption

With AxG2antt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.Chart.PaneWidth(True) = 0
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exVLines
	With .Columns
		With .Add("Left")
			.AllowSizing = False
			.Width = 96
			.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
			.FormatColumn = "0 pos `A-Z`"
		End With
		With .Add("Center")
			.HeaderAlignment = EXG2ANTTLib.AlignmentEnum.CenterAlignment
			.Alignment = .HeaderAlignment
			.AllowSizing = False
			.Width = 96
			.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
			.FormatColumn = "0 pos `A-Z`"
		End With
		With .Add("Right")
			.HeaderAlignment = EXG2ANTTLib.AlignmentEnum.RightAlignment
			.Alignment = .HeaderAlignment
			.AllowSizing = False
			.Width = 96
			.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
			.FormatColumn = "0 pos `A-Z`"
			.Def(EXG2ANTTLib.DefColumnEnum.exCellDrawPartsOrder) = "caption,check,icon,icons,picture"
		End With
		.Add("")
	End With
	With .Items
		.CellState(.AddItem("Item 1"),3) = 1
		.CellState(.AddItem("Item 2"),2) = 1
		.CellState(.AddItem("Item 3"),1) = 1
	End With
	.EndUpdate()
End With
1955:
Can I display the column's multiple-lines caption vertically oriented (method 2)

With AxG2antt1
	.BeginUpdate()
	.HeaderHeight = 48
	.ColumnAutoResize = True
	.Chart.PaneWidth(True) = 0
	With .Columns
		.Add("And others ...")
		With .Add("")
			.HTMLCaption = "First Column"
			.HeaderVertical = True
			.Width = 36
			.AllowSizing = False
			.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
			.Def(EXG2ANTTLib.DefColumnEnum.exCellPaddingLeft) = 8
			.Position = 0
		End With
		With .Add("")
			.HTMLCaption = "<c><b>Second Column"
			.HeaderVertical = True
			.Width = 36
			.AllowSizing = False
			.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
			.Def(EXG2ANTTLib.DefColumnEnum.exCellPaddingLeft) = 8
			.Position = 1
		End With
		With .Add("")
			.HTMLCaption = "<r>Third Column"
			.HeaderVertical = True
			.Width = 36
			.AllowSizing = False
			.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
			.Def(EXG2ANTTLib.DefColumnEnum.exCellPaddingLeft) = 8
			.Position = 2
		End With
	End With
	With .Items
		.CellState(.AddItem("Item 1"),3) = 1
		.CellState(.AddItem("Item 2"),2) = 1
		.CellState(.AddItem("Item 3"),1) = 1
	End With
	.EndUpdate()
End With
1954:
Can I display the column's multiple-lines caption vertically oriented (method 1)

With AxG2antt1
	.BeginUpdate()
	.HeaderHeight = 48
	.HeaderSingleLine = False
	.ColumnAutoResize = True
	.Chart.PaneWidth(True) = 0
	With .Columns
		.Add("And others ...")
		With .Add("First Column")
			.HeaderVertical = True
			.Width = 36
			.AllowSizing = False
			.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
			.Def(EXG2ANTTLib.DefColumnEnum.exCellPaddingLeft) = 8
			.Position = 0
		End With
		With .Add("Second Column")
			.HeaderBold = True
			.HeaderVertical = True
			.Width = 36
			.AllowSizing = False
			.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
			.Def(EXG2ANTTLib.DefColumnEnum.exCellPaddingLeft) = 8
			.Position = 1
		End With
		With .Add("Third Column")
			.HeaderVertical = True
			.Width = 36
			.AllowSizing = False
			.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
			.Def(EXG2ANTTLib.DefColumnEnum.exCellPaddingLeft) = 8
			.Position = 2
		End With
	End With
	With .Items
		.CellState(.AddItem("Item 1"),3) = 1
		.CellState(.AddItem("Item 2"),2) = 1
		.CellState(.AddItem("Item 3"),1) = 1
	End With
	.EndUpdate()
End With
1953:
Can I display the column's caption vertically oriented (method 2)

With AxG2antt1
	.BeginUpdate()
	.HeaderHeight = 48
	.ColumnAutoResize = True
	.Chart.PaneWidth(True) = 0
	With .Columns
		.Add("And others ...")
		With .Add("")
			.HTMLCaption = "First"
			.HeaderVertical = True
			.Width = 20
			.AllowSizing = False
			.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
			.Position = 0
		End With
		With .Add("")
			.HTMLCaption = "<c><b>Second"
			.HeaderVertical = True
			.Width = 20
			.AllowSizing = False
			.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
			.Position = 1
		End With
		With .Add("")
			.HTMLCaption = "<r>Third"
			.HeaderVertical = True
			.Width = 20
			.AllowSizing = False
			.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
			.Position = 2
		End With
	End With
	With .Items
		.CellState(.AddItem("Item 1"),3) = 1
		.CellState(.AddItem("Item 2"),2) = 1
		.CellState(.AddItem("Item 3"),1) = 1
	End With
	.EndUpdate()
End With
1952:
Can I display the column's caption vertically oriented (method 1)

With AxG2antt1
	.BeginUpdate()
	.HeaderHeight = 48
	.ColumnAutoResize = True
	.Chart.PaneWidth(True) = 0
	With .Columns
		.Add("And others ...")
		With .Add("First")
			.HeaderVertical = True
			.Width = 20
			.AllowSizing = False
			.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
			.Position = 0
		End With
		With .Add("Second")
			.HeaderBold = True
			.HeaderVertical = True
			.Width = 20
			.AllowSizing = False
			.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
			.Position = 1
		End With
		With .Add("Third")
			.HeaderVertical = True
			.Width = 20
			.AllowSizing = False
			.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
			.Position = 2
		End With
	End With
	With .Items
		.CellState(.AddItem("Item 1"),3) = 1
		.CellState(.AddItem("Item 2"),2) = 1
		.CellState(.AddItem("Item 3"),1) = 1
	End With
	.EndUpdate()
End With
1951:
How can I resize all task-bars 0-length

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
		.AddBar(.AddItem("Task 2"),"Task",#8/3/2017#,#8/3/2017#)
		.AddBar(.AddItem("Task 3"),"Task",#8/4/2017#,#8/13/2017#)
		.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/5/2017#)
		.ItemBarEx("itembar(513) = 0 and itembar(0) = `Task`",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 255
		.ItemBarEx("itembar(513) = 0 and itembar(0) = `Task`",EXG2ANTTLib.ItemBarPropertyEnum.exBarDuration) = "value + 1"
	End With
	.EndUpdate()
End With
1950:
Is it possible to mark items that holds items with 0-length (zero,empty, sample 3)
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Columns.Add("Duration")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 513
		.Visible = False
	End With
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
	End With
	With .ConditionalFormats.Add("%1 = 0")
		.Bold = True
		.BackColor = RGB(190,190,190)
		.ChartBackColor = .BackColor
	End With
	With .Items
		.AllowCellValueToItemBar = True
		.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
		.AddBar(.AddItem("Task 2"),"Task",#8/3/2017#,#8/3/2017#)
		.AddBar(.AddItem("Task 3"),"Task",#8/4/2017#,#8/13/2017#)
		.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/5/2017#)
	End With
	.EndUpdate()
End With
1949:
Is it possible to mark items that holds items with 0-length (zero,empty, sample 2)

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
		.AddBar(.AddItem("Task 2"),"Task",#8/3/2017#,#8/3/2017#)
		.AddBar(.AddItem("Task 3"),"Task",#8/4/2017#,#8/13/2017#)
		.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/5/2017#)
		.ItemBarEx("itembar(513) = 0",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "`zero-length`"
	End With
	.EndUpdate()
End With
1948:
Is it possible to mark items that holds items with 0-length (zero,empty, sample 1)

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
		.AddBar(.AddItem("Task 2"),"Task",#8/3/2017#,#8/3/2017#)
		.AddBar(.AddItem("Task 3"),"Task",#8/4/2017#,#8/13/2017#)
		.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/5/2017#)
		.ItemBarEx("itembar(513) = 0",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "`[frame=RGB(255,0,0),framethick,pattern=6,patterncolor=RGB(255,0,0)]`"
		.ItemBarEx("itembar(513) = 0",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExtInflate) = "`-4,-4,4,4`"
	End With
	.EndUpdate()
End With
1947:
How can I find how many tasks/bars of 0-length (zero,empty) do I have

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
		.AddBar(.AddItem("Task 2"),"Task",#8/3/2017#,#8/3/2017#)
		.AddBar(.AddItem("Task 3"),"Task",#8/4/2017#,#8/13/2017#)
		.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/5/2017#)
		Debug.Print( .ItemBarEx("itembar(513) = 0",EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
	End With
	.EndUpdate()
End With
1946:
How can I remove all bars from selected items

Dim h
With AxG2antt1
	.BeginUpdate()
	.SingleSel = False
	.Columns.Add("Tasks")
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		.SelBackColor = RGB(240,240,240)
		With .Bars.Item("Task")
			.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
			.OverlaidGroup = "Task,Task-Diff"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<font ;6><%=%0%>"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		End With
		With .Bars.Copy("Task","Task-Diff")
			.Height = 4
			.Color = RGB(255,0,0)
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<font ;6><%=%0%>"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 16
		End With
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
		h = .AddItem("Task 2")
		.AddBar(h,"Task",#8/3/2017#,#8/9/2017#)
		.SelectItem(h) = True
		h = .AddItem("Task 3")
		.AddBar(h,"Task",#8/4/2017#,#8/13/2017#,"")
		.AddBar(h,"Task-Diff",#8/5/2017#,#8/14/2017#,"P")
		.SelectItem(h) = True
		.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/16/2017#)
		Debug.Print( "Bars before remove: " )
		Debug.Print( .ItemBar(0,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
		.ItemBarEx("itemisselected",EXG2ANTTLib.ItemBarPropertyEnum.exBarKey) = "`toberemove` + value "
		.RemoveBar(0,"<toberemove*>")
		Debug.Print( "Bars after remove: " )
		Debug.Print( .ItemBar(0,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
	End With
	.EndUpdate()
End With
1945:
How can I remove task bars from selected items

Dim h
With AxG2antt1
	.BeginUpdate()
	.SingleSel = False
	.Columns.Add("Tasks")
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		.SelBackColor = RGB(240,240,240)
		With .Bars.Item("Task")
			.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
			.OverlaidGroup = "Task,Task-Diff"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<font ;6><%=%0%>"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		End With
		With .Bars.Copy("Task","Task-Diff")
			.Height = 4
			.Color = RGB(255,0,0)
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<font ;6><%=%0%>"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 16
		End With
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
		h = .AddItem("Task 2")
		.AddBar(h,"Task",#8/3/2017#,#8/9/2017#)
		.SelectItem(h) = True
		h = .AddItem("Task 3")
		.AddBar(h,"Task",#8/4/2017#,#8/13/2017#,"")
		.AddBar(h,"Task-Diff",#8/5/2017#,#8/14/2017#,"P")
		.SelectItem(h) = True
		.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/16/2017#)
		Debug.Print( "Bars before remove: " )
		Debug.Print( .ItemBar(0,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
		.ItemBarEx("itemisselected and itembar(0) = `Task`",EXG2ANTTLib.ItemBarPropertyEnum.exBarKey) = "`toberemove` + value "
		.RemoveBar(0,"<toberemove*>")
		Debug.Print( "Bars after remove: " )
		Debug.Print( .ItemBar(0,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
	End With
	.EndUpdate()
End With
1944:
How can I change the pattern for some bars only

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks").Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
		h = .AddItem("Task 2")
		.AddBar(h,"Task",#8/3/2017#,#8/9/2017#)
		.CellState(h,0) = 1
		h = .AddItem("Task 3")
		.AddBar(h,"Task",#8/4/2017#,#8/13/2017#)
		.CellState(h,0) = 1
		.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/16/2017#)
		.ItemBarEx("cellstate(0)",EXG2ANTTLib.ItemBarPropertyEnum.exBarPattern) = 6
	End With
	.EndUpdate()
End With
1943:
How do I apply the same effort to all bars

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
		.HistogramVisible = True
		.HistogramHeight = 64
		With .Bars.Item("Task")
			.HistogramPattern = EXG2ANTTLib.PatternEnum.exPatternBDiagonal
			.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistOverAllocation
		End With
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
		.AddBar(.AddItem("Task 2"),"Task",#8/3/2017#,#8/9/2017#)
		.AddBar(.AddItem("Task 3"),"Task",#8/4/2017#,#8/13/2017#)
		.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/16/2017#)
		.ItemBarEx(True,EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = 2
	End With
	.EndUpdate()
End With
1942:
How do I apply the same percent to all bars

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		With .Bars.Add("Task%Progress")
			.Shortcut = "Task"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarShowPercentCaption) = True
		End With
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
		.AddBar(.AddItem("Task 2"),"Task",#8/3/2017#,#8/9/2017#)
		.AddBar(.AddItem("Task 3"),"Task",#8/4/2017#,#8/13/2017#)
		.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/16/2017#)
		.ItemBarEx(True,EXG2ANTTLib.ItemBarPropertyEnum.exBarPercent) = 0.5
	End With
	.EndUpdate()
End With
1941:
How can I set the same duration for all bars

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
		.AddBar(.AddItem("Task 2"),"Task",#8/3/2017#,#8/9/2017#)
		.AddBar(.AddItem("Task 3"),"Task",#8/4/2017#,#8/13/2017#)
		.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/16/2017#)
		.ItemBarEx(True,EXG2ANTTLib.ItemBarPropertyEnum.exBarDuration) = 4
	End With
	.EndUpdate()
End With
1940:
How do I move all bars to end at the same date-time

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
		.AddBar(.AddItem("Task 2"),"Task",#8/3/2017#,#8/9/2017#)
		.AddBar(.AddItem("Task 3"),"Task",#8/4/2017#,#8/13/2017#)
		.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/16/2017#)
		.ItemBarEx(True,EXG2ANTTLib.ItemBarPropertyEnum.exBarMoveEnd) = "#8/15/2017#"
	End With
	.EndUpdate()
End With
1939:
How do I move all bars to start at the same date-time

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
		.AddBar(.AddItem("Task 2"),"Task",#8/3/2017#,#8/9/2017#)
		.AddBar(.AddItem("Task 3"),"Task",#8/4/2017#,#8/13/2017#)
		.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/16/2017#)
		.ItemBarEx(True,EXG2ANTTLib.ItemBarPropertyEnum.exBarMoveStart) = "#8/2/2017#"
	End With
	.EndUpdate()
End With
1938:
How do I apply a new color for some bars, while others should be shown with a different color

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		.SelBackColor = RGB(240,240,240)
		With .Bars.Item("Task")
			.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
			.OverlaidGroup = "Task,Task-Diff"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<font ;6><%=%0%>"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		End With
		With .Bars.Copy("Task","Task-Diff")
			.Height = 4
			.Color = RGB(255,0,0)
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<font ;6><%=%0%>"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 16
		End With
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
		.AddBar(.AddItem("Task 2"),"Task",#8/3/2017#,#8/9/2017#)
		h = .AddItem("Task 3")
		.AddBar(h,"Task",#8/4/2017#,#8/13/2017#,"")
		.AddBar(h,"Task-Diff",#8/5/2017#,#8/14/2017#,"P")
		.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/16/2017#)
		.ItemBarEx(True,EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = "cellcaption(0) like `*2` ? 0x0000FF : 0x00FF00"
	End With
	.EndUpdate()
End With
1937:
How do I hide some bars, and show others

Dim h
With AxG2antt1
	.BeginUpdate()
	.SingleSel = False
	.Columns.Add("Tasks")
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		.SelBackColor = RGB(240,240,240)
		With .Bars.Item("Task")
			.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
			.OverlaidGroup = "Task,Task-Diff"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<font ;6><%=%0%>"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		End With
		With .Bars.Copy("Task","Task-Diff")
			.Height = 4
			.Color = RGB(255,0,0)
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<font ;6><%=%0%>"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 16
		End With
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
		h = .AddItem("Task 2")
		.AddBar(h,"Task",#8/3/2017#,#8/9/2017#)
		.SelectItem(h) = True
		h = .AddItem("Task 3")
		.AddBar(h,"Task",#8/4/2017#,#8/13/2017#,"")
		.AddBar(h,"Task-Diff",#8/5/2017#,#8/14/2017#,"P")
		.SelectItem(h) = True
		.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/16/2017#)
		.ItemBarEx("-1",EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent) = "itembar(0) = `Task` ? 0 : 100"
	End With
	.EndUpdate()
End With
1936:
I like how ItemBarEx works, the question is how can I remove the bars based on the same criteria

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
		.AddBar(.AddItem("Task 2"),"Task",#8/3/2017#,#8/9/2017#)
		.AddBar(.AddItem("Task 3"),"Task",#8/4/2017#,#8/13/2017#)
		.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/16/2017#)
		Debug.Print( "Bars before remove: " )
		Debug.Print( .ItemBar(0,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
		.ItemBarEx("cellcaption(0) like `*2 *3`",EXG2ANTTLib.ItemBarPropertyEnum.exBarKey) = "`toberemove` + value "
		.RemoveBar(0,"<toberemove*>")
		Debug.Print( "Bars after remove: " )
		Debug.Print( .ItemBar(0,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
	End With
	.EndUpdate()
End With
1935:
Is it possible to automatically color the bar being checked

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
	With .Chart
		.LevelCount = 2
		.PaneWidth(False) = 256
		.FirstVisibleDate = #1/1/2017#
	End With
	With .ConditionalFormats.Add("%CS0","check")
		.Bold = True
		.ApplyToBars = "Task"
		.BarColor = RGB(0,0,1)
	End With
	With .Columns.Add("Items")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.Width = 256
	End With
	.Columns.Add(AxG2antt1.ConditionalFormats.Item("check").Expression).FormatColumn = AxG2antt1.ConditionalFormats.Item("check").Expression
	With .Items
		.AddBar(.AddItem("Item 1"),"Task",#1/2/2017#,#1/12/2017#)
		h = .AddItem("Item 2")
		.AddBar(h,"Task",#1/3/2017#,#1/13/2017#)
		.CellState(h,0) = 1
		h = .AddItem("Item 3")
		.AddBar(h,"Task",#1/4/2017#,#1/14/2017#)
		.CellState(h,0) = 1
	End With
	.EndUpdate()
End With
1934:
How do I automatically bold items being checked

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
End Sub

With AxG2antt1
	.BeginUpdate()
	.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
	.Chart.PaneWidth(True) = 0
	With .ConditionalFormats.Add("%CS0","check")
		.Bold = True
	End With
	.Columns.Add("Items").Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
	.Columns.Add(AxG2antt1.ConditionalFormats.Item("check").Expression).FormatColumn = AxG2antt1.ConditionalFormats.Item("check").Expression
	With .Items
		.AddItem("Item 1")
		.CellState(.AddItem("Item 2"),0) = 1
		.AddItem("Item 3")
	End With
	.EndUpdate()
End With
1933:
Can I display the radio-button with a solid color

With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.set_RadioImage(False,32699122)
	.set_RadioImage(True,16777216)
	.Columns.Add("Check").Def(EXG2ANTTLib.DefColumnEnum.exCellHasRadioButton) = True
	With .Items
		.AddItem("Radio 1")
		.CellState(.AddItem("Radio 2"),0) = 1
		.AddItem("Radio 1")
	End With
	.EndUpdate()
End With
1932:
Can I display the check-box with a solid color

With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.set_CheckImage(EXG2ANTTLib.CheckStateEnum.Unchecked,32699122)
	.set_CheckImage(EXG2ANTTLib.CheckStateEnum.Checked,16777216)
	.Columns.Add("Check").Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
	With .Items
		.AddItem("Check 1")
		.CellState(.AddItem("Check 2"),0) = 1
		.AddItem("Check 3")
	End With
	.EndUpdate()
End With
1931:
How can I use the CellState with ConditionalFormat/ComputedField/FormatColumn

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exGroupLinesInsideLeaf
	.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
	.Chart.PaneWidth(True) = 0
	With .Columns.Add("Items")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Columns.Add("Format")
		.FormatColumn = "%CS0"
		.Caption = .FormatColumn
		.Def(EXG2ANTTLib.DefColumnEnum.exCellForeColor) = 8421504
		.Def(EXG2ANTTLib.DefColumnEnum.exHeaderForeColor) = .Def(EXG2ANTTLib.DefColumnEnum.exCellForeColor)
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,,"Item 1")
		.CellState(.InsertItem(h,,"Item 2"),0) = 1
		.CellState(.InsertItem(h,,"Item 3"),0) = 1
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
1930:
How can I use the CellData with ConditionalFormat/ComputedField/FormatColumn

With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.Columns.Add("Items")
	With .Columns.Add("Format")
		.FormatColumn = "%CD0"
		.Caption = .FormatColumn
		.Def(EXG2ANTTLib.DefColumnEnum.exCellForeColor) = 8421504
		.Def(EXG2ANTTLib.DefColumnEnum.exHeaderForeColor) = .Def(EXG2ANTTLib.DefColumnEnum.exCellForeColor)
	End With
	With .Items
		.CellData(.AddItem("Item 1"),0) = 1234
		.CellData(.AddItem("Item 2"),0) = "this is just an user data"
		.CellData(.AddItem("Item 3"),0) = #1/1/2001#
	End With
	.EndUpdate()
End With
1929:
How can I use the CellValue/CellCaption with ConditionalFormat/ComputedField/FormatColumn

With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	With .Columns.Add("Items")
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
			.AddItem(1,"Item 1")
			.AddItem(2,"Item 2")
			.AddItem(3,"Item 3")
		End With
	End With
	With .Columns.Add("Format")
		.FormatColumn = "%0"
		.Caption = .FormatColumn
		.Def(EXG2ANTTLib.DefColumnEnum.exCellForeColor) = 8421504
		.Def(EXG2ANTTLib.DefColumnEnum.exHeaderForeColor) = .Def(EXG2ANTTLib.DefColumnEnum.exCellForeColor)
		.AllowSizing = False
	End With
	With .Columns.Add("Format")
		.FormatColumn = "%C0"
		.Caption = .FormatColumn
		.Def(EXG2ANTTLib.DefColumnEnum.exCellForeColor) = 8421504
		.Def(EXG2ANTTLib.DefColumnEnum.exHeaderForeColor) = .Def(EXG2ANTTLib.DefColumnEnum.exCellForeColor)
		.AllowSizing = False
	End With
	With .Items
		.AddItem(1)
		.CellValue(.AddItem(0),0) = 2
		.AddItem(2)
	End With
	.EndUpdate()
End With
1928:
How can I use the ShowNonworkingHours property (hide the non-working hours)

With AxG2antt1
	.BeginUpdate()
	With .Chart
		.PaneWidth(False) = 0
		.LevelCount = 2
		.UnitScale = EXG2ANTTLib.UnitEnum.exHour
		.NonworkingHours = 16253183
		.ShowNonworkingHours = False
		.ShowNonworkingUnits = False
	End With
	.EndUpdate()
End With
1927:
How can I use the ShowNonworkingDates property (hide the non-working days)

With AxG2antt1
	.BeginUpdate()
	With .Chart
		.PaneWidth(False) = 0
		.LevelCount = 2
		.UnitScale = EXG2ANTTLib.UnitEnum.exDay
		.ShowNonworkingDates = False
		.ShowNonworkingUnits = False
	End With
	.EndUpdate()
End With
1926:
How can I show/hide bars once the user checks or un-checks a column

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
	With AxG2antt1
		With .Items
			.ItemBarEx(True,EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent) = "cellstate(0) = 1 ? 0 : 100"
		End With
	End With
End Sub

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Tasks")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.SelBackColor = RGB(240,240,240)
	.SelForeColor = RGB(0,0,0)
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
		End With
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
		.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
		.DefineSummaryBars(h,"sum",-3,"")
		.ExpandItem(h) = True
		.ItemBarEx(True,EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent) = "cellstate(0) = 1 ? 0 : 100"
	End With
	.EndUpdate()
End With
1925:
How can I change the color for all Task bars

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Tasks")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.SelBackColor = RGB(240,240,240)
	.SelForeColor = RGB(0,0,0)
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
		End With
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
		.CellState(hChild) = 1
		.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
		.DefineSummaryBars(h,"sum",-3,"")
		.ExpandItem(h) = True
		.ItemBarEx("itembar(0) = `Task`",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 65280
	End With
	.EndUpdate()
End With
1924:
Is it possible to automatically select bars only when user selects a new item

' SelectionChanged event - Fired after a new item has been selected.
Private Sub AxG2antt1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.SelectionChanged
	With AxG2antt1
		With .Items
			.ItemBarEx(True,EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected) = "itemisselected"
		End With
	End With
End Sub

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Tasks")
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.SelBackColor = RGB(240,240,240)
	.SelForeColor = RGB(0,0,0)
	With .Chart
		.AllowSelectObjects = EXG2ANTTLib.SelectObjectsEnum.exNoSelectObjects
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
		End With
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
		.CellState(hChild) = 1
		.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
		.DefineSummaryBars(h,"sum",-3,"")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
1923:
Is it possible to automatically select bars only when the user clicks the column's checkbox

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
	With AxG2antt1
		With .Items
			.ItemBarEx(True,EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected) = "cellstate(0) = 1"
		End With
	End With
End Sub

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Tasks")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.SelBackColor = RGB(240,240,240)
	.SelForeColor = RGB(0,0,0)
	With .Chart
		.AllowSelectObjects = EXG2ANTTLib.SelectObjectsEnum.exNoSelectObjects
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
		End With
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
		.CellState(hChild) = 1
		.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
		.DefineSummaryBars(h,"sum",-3,"")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With
1922:
How do I select all bars on leaf items

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Tasks")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.SelBackColor = RGB(240,240,240)
	.SelForeColor = RGB(0,0,0)
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
		End With
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
		.CellState(hChild) = 1
		.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
		.DefineSummaryBars(h,"sum",-3,"")
		.ExpandItem(h) = True
		.ItemBarEx("itemlevel = 1",EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected) = True
	End With
	.EndUpdate()
End With
1921:
How can I change the caption for all checked Task bars

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Tasks")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.SelBackColor = RGB(240,240,240)
	.SelForeColor = RGB(0,0,0)
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
		End With
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
		.CellState(hChild) = 1
		.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
		.DefineSummaryBars(h,"sum",-3,"")
		.ExpandItem(h) = True
		.ItemBarEx("(cellstate(0) = 1) and (itembar(0) = `Task`)",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "`new caption`"
	End With
	.EndUpdate()
End With
1920:
How can I change the caption for all Task bars

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Tasks")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.SelBackColor = RGB(240,240,240)
	.SelForeColor = RGB(0,0,0)
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
		End With
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
		.CellState(hChild) = 1
		.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
		.DefineSummaryBars(h,"sum",-3,"")
		.ExpandItem(h) = True
		.ItemBarEx("(itembar(0) = `Task`)",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "`new caption`"
	End With
	.EndUpdate()
End With
1919:
How can I change the caption for all bars

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Tasks")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.SelBackColor = RGB(240,240,240)
	.SelForeColor = RGB(0,0,0)
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
		End With
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
		.CellState(hChild) = 1
		.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
		.DefineSummaryBars(h,"sum",-3,"")
		.ExpandItem(h) = True
		.ItemBarEx(True,EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "`new caption`"
	End With
	.EndUpdate()
End With
1918:
How can I move all Task bars to end at the same date time

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Tasks")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.SelBackColor = RGB(240,240,240)
	.SelForeColor = RGB(0,0,0)
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
		End With
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
		.CellState(hChild) = 1
		.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
		.DefineSummaryBars(h,"sum",-3,"")
		.ExpandItem(h) = True
		.ItemBarEx("(itembar(0) = `Task`)",EXG2ANTTLib.ItemBarPropertyEnum.exBarMove) = "#8/14/2017# - itembar(2)"
	End With
	.EndUpdate()
End With
1917:
How can I move all Task bars to start at the same date time

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Tasks")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.SelBackColor = RGB(240,240,240)
	.SelForeColor = RGB(0,0,0)
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
		End With
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
		.CellState(hChild) = 1
		.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
		.DefineSummaryBars(h,"sum",-3,"")
		.ExpandItem(h) = True
		.ItemBarEx("(itembar(0) = `Task`)",EXG2ANTTLib.ItemBarPropertyEnum.exBarMove) = "#8/3/2017# - itembar(1)"
	End With
	.EndUpdate()
End With
1916:
How can I change the color for checked Task bars

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Tasks")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.SelBackColor = RGB(240,240,240)
	.SelForeColor = RGB(0,0,0)
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
		End With
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
		.CellState(hChild) = 1
		.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
		.DefineSummaryBars(h,"sum",-3,"")
		.ExpandItem(h) = True
		.ItemBarEx("cellstate(0) = 1 and itembar(0) = `Task`",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 255
	End With
	.EndUpdate()
End With
1915:
How do I resize all Task bars programatically

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Tasks")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.SelBackColor = RGB(240,240,240)
	.SelForeColor = RGB(0,0,0)
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
		End With
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
		.CellState(hChild) = 1
		.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
		.DefineSummaryBars(h,"sum",-3,"")
		.ExpandItem(h) = True
		.ItemBarEx("itembar(0) = `Task`",EXG2ANTTLib.ItemBarPropertyEnum.exBarEnd) = "value + 2"
	End With
	.EndUpdate()
End With
1914:
How do I move just the checked Task bars in the chart

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Tasks")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.SelBackColor = RGB(240,240,240)
	.SelForeColor = RGB(0,0,0)
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
		End With
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
		.CellState(hChild) = 1
		.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
		.DefineSummaryBars(h,"sum",-3,"")
		.ExpandItem(h) = True
		.ItemBarEx("cellstate(0) = 1 and itembar(0) = `Task`",EXG2ANTTLib.ItemBarPropertyEnum.exBarMove) = -2
	End With
	.EndUpdate()
End With
1913:
How do I move all Task bars in the chart

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Tasks")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.SelBackColor = RGB(240,240,240)
	.SelForeColor = RGB(0,0,0)
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
		End With
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
		.CellState(hChild) = 1
		.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
		.DefineSummaryBars(h,"sum",-3,"")
		.ExpandItem(h) = True
		.ItemBarEx("itembar(0) = `Task`",EXG2ANTTLib.ItemBarPropertyEnum.exBarMove) = 1
	End With
	.EndUpdate()
End With
1912:
How do I count all Task bars in the chart
Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Tasks")
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.SelBackColor = RGB(240,240,240)
	.SelForeColor = RGB(0,0,0)
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
		End With
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
		hChild = .InsertItem(h,,"Task 2")
		.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
		hChild = .InsertItem(h,,"Task 3")
		.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
		.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
		.DefineSummaryBars(h,"sum",-3,"")
		.ExpandItem(h) = True
		Debug.Print( .ItemBarEx("itembar(0) = `Task`",EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
	End With
	.EndUpdate()
End With
1911:
How do I select bars whose items are checked

Dim h,hChild
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Tasks")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.SelBackColor = RGB(240,240,240)
	.SelForeColor = RGB(0,0,0)
	With .Chart
		.FirstVisibleDate = #8/1/2017#
		.LevelCount = 2
		.PaneWidth(False) = 128
		With .Bars.Item("Summary")
			.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
			.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
		End With
		.SelBackColor = AxG2antt1.SelBackColor
		.SelBarColor = RGB(128,128,128)
	End With
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
		.CellState(hChild) = 1
		.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
		.DefineSummaryBars(h,"sum",-3,"")
		.ExpandItem(h) = True
		.ItemBarEx("cellstate(0) = 1",EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected) = True
	End With
	.EndUpdate()
End With
1910:
How can I select all bars, where a specified column matches a specified criteria

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = #1/1/2001#
	.Chart.PaneWidth(False) = 48
	.Chart.SelBarColor = RGB(255,0,0)
	With .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1","K1")
		.AddBar(h,"Task",#1/5/2001#,#1/7/2001#,"K2","K2")
		.AddBar(h,"Task",#1/8/2001#,#1/10/2001#,"P","P")
		.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"Q","Q")
		.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"M","M")
		.ItemBarEx("cellcaption(0) = `Task 1`",EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected) = True
	End With
	.EndUpdate()
End With
1909:
How can I select/unselect all bars

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = #1/1/2001#
	.Chart.PaneWidth(False) = 48
	.Chart.SelBarColor = RGB(255,0,0)
	With .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1","K1")
		.AddBar(h,"Task",#1/5/2001#,#1/7/2001#,"K2","K2")
		.AddBar(h,"Task",#1/8/2001#,#1/10/2001#,"P","P")
		.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"Q","Q")
		.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"M","M")
		.ItemBarEx(True,EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected) = True
	End With
	.EndUpdate()
End With
1908:
Is it possible to set the background color of the chart for one item and one day
Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Items")
	With .Chart
		.LevelCount = 2
		.PaneWidth(False) = 96
		.FirstVisibleDate = #1/1/2001#
	End With
	With .Items
		.AddItem("Item")
		h = .AddItem("Item")
		.AddBar(h,"",#1/2/2001#,#1/3/2001#,"Back"," ")
		.ItemBar(h,"Back",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackColor) = 255
		.ItemBar(h,"Back",EXG2ANTTLib.ItemBarPropertyEnum.exBarSelectable) = False
		.AddItem("Item")
	End With
	.EndUpdate()
End With
1907:
It is possible to search for an item ( inside the Editor ), case insensitive

With AxG2antt1
	.BeginUpdate()
	With .Columns.Add("DropDownList").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
		.AddItem(1,"One")
		.AddItem(2,"Two")
		.AddItem(3,"Three")
	End With
	With .Items
		.AddItem(AxG2antt1.Columns.Item(0).Editor.FindItem(">ONE"))
		.AddItem(AxG2antt1.Columns.Item(0).Editor.FindItem(">ThRee"))
		.AddItem(AxG2antt1.Columns.Item(0).Editor.FindItem("ONE"))
		.AddItem(AxG2antt1.Columns.Item(0).Editor.FindItem(">tWo"))
	End With
	.EndUpdate()
End With
1906:
The text after the BR-tag is in same line as the text before the BR-tag (entire column)

With AxG2antt1
	.BeginUpdate()
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exHLines
	.Chart.PaneWidth(True) = 0
	With .Columns.Add("Default")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
		.Def(EXG2ANTTLib.DefColumnEnum.exCellSingleLine) = False
	End With
	With .Items
		.AddItem("This is the first line.<br>This is the second line.")
		.AddItem("This is the first line.<br>This is the second line.")
		.AddItem("This is the first line.<br>This is the second line.")
	End With
	.EndUpdate()
End With
1905:
The text after the BR-tag is in same line as the text before the BR-tag (individual)

Dim h
With AxG2antt1
	.BeginUpdate()
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exHLines
	.Chart.PaneWidth(True) = 0
	.Columns.Add("Default")
	With .Items
		.CellValueFormat(.AddItem("This is the first line.<br>This is the second line."),0) = EXG2ANTTLib.ValueFormatEnum.exHTML
		h = .AddItem("<b>This is the first line.<br>This is the second line.</b>")
		.CellValueFormat(h,0) = EXG2ANTTLib.ValueFormatEnum.exHTML
		.CellSingleLine(h,0) = False
		.CellValueFormat(.AddItem("This is the first line.<br>This is the second line."),0) = EXG2ANTTLib.ValueFormatEnum.exHTML
	End With
	.EndUpdate()
End With
1904:
How do I prevent showing the control's BackColorAlternate property on empty / non-items part of the control

With AxG2antt1
	.BeginUpdate()
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	With .Chart
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
		.LevelCount = 2
		.PaneWidth(False) = 128
		.FirstVisibleDate = #1/1/2001#
	End With
	.GetOcx().BackColorAlternate = &H7ff0f0f0
	.BackColorLevelHeader = .BackColor
	.Columns.Add("Column")
	With .Items
		.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/12/2001#)
		.AddBar(.AddItem("Item 2"),"Task",#1/3/2001#,#1/13/2001#)
		.AddBar(.AddItem("Item 3"),"Task",#1/2/2001#,#1/12/2001#)
		.AddBar(.AddItem("Item 4"),"Task",#1/3/2001#,#1/13/2001#)
		.AddBar(.AddItem("Item 5"),"Task",#1/2/2001#,#1/12/2001#)
	End With
	.EndUpdate()
End With
1903:
Can I disable an item once the user selects a new value into a different item

' Change event - Occurs when the user changes the cell's content.
Private Sub AxG2antt1_Change(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ChangeEvent) Handles AxG2antt1.Change
	With AxG2antt1
		With .Items
			.EnableItem(.ItemByIndex(1)) = False
		End With
	End With
End Sub

Dim h1,h2
With AxG2antt1
	.FreezeEvents(True)
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.ScrollBySingleLine = True
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	.Columns.Add("Q")
	.Columns.Add("A")
	With .Items
		h1 = .AddItem("What's your gender?")
		With .CellEditor(h1,1)
			.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
			.AddItem(1,"Male")
			.AddItem(0,"Female")
		End With
		.CellValue(h1,1) = 1
		h2 = .AddItem("What's pet name?")
		.CellValue(h2,1) = "This is my pet favorite long long long name, that shoul break the line in multiple pieces"
		.CellSingleLine(h2,1) = False
	End With
	.EndUpdate()
	.FreezeEvents(False)
End With
1902:
How can I get a row expanded / enlarged to fit the cell's text (entire column)

Dim h1,h2
With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.ScrollBySingleLine = True
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	.Columns.Add("Q")
	With .Columns.Add("A")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellSingleLine) = False
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.MemoType
			.Appearance = EXG2ANTTLib.InplaceAppearanceEnum.SingleApp
		End With
	End With
	With .Items
		h1 = .AddItem("What's name?")
		.CellValue(h1,1) = "This is my pet favorite long long long name, that shoul break the line in multiple pieces"
		h2 = .AddItem("What's your pet name?")
		.CellValue(h2,1) = "This is my pet favorite long long long name, that shoul break the line in multiple pieces"
	End With
	.EndUpdate()
End With
1901:
How can I get a row expanded / enlarged to fit the cell's text (individual cell)

Dim h1,h2
With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.ScrollBySingleLine = True
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	.Columns.Add("Q")
	.Columns.Add("A")
	With .Items
		h1 = .AddItem("What's name?")
		.CellValue(h1,1) = "This is my pet favorite long long long name, that shoul break the line in multiple pieces"
		h2 = .AddItem("What's your pet name?")
		With .CellEditor(h2,1)
			.EditType = EXG2ANTTLib.EditTypeEnum.MemoType
			.Appearance = EXG2ANTTLib.InplaceAppearanceEnum.SingleApp
		End With
		.CellValue(h2,1) = "This is my pet favorite long long long name, that shoul break the line in multiple pieces"
		.CellSingleLine(h2,1) = False
	End With
	.EndUpdate()
End With