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

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddGroupItem(Item)
	With G2antt1
		With .Items
			.ItemDividerLine(Item) = 0
			.AddBar Item,"Summary",#12/2/2017#,#12/2/2017#
			.DefineSummaryBars Item,"",-3,""
			l = .GroupItem(Item)
			.CellSingleLine(Item,l) = False
			.CellBold(Item,l) = True
			.ItemBackColor(Item) = RGB(190,190,190)
		End With
		.Chart.ItemBackColor(Item) = RGB(190,190,190)
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/10/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 0
				.EndShape = 0
				.Shape = 1
				.Color = &H1000000
				.Def(3) = "<%=%513%>"
				.Def(4) = 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 = 0
		.LinesAtRoot = 0
		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 = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2026:
Is it possible to display no +/- button for grouped items

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddGroupItem(Item)
	With G2antt1
		With .Items
			.ItemDividerLine(Item) = 0
			.AddBar Item,"Progress",#12/2/2017#,#12/2/2017#
			.DefineSummaryBars Item,"",-3,""
			l = .GroupItem(Item)
			.CellSingleLine(Item,l) = False
			.CellBold(Item,l) = True
			.ItemBackColor(Item) = RGB(190,190,190)
		End With
		.Chart.ItemBackColor(Item) = RGB(190,190,190)
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/10/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 0
		.LinesAtRoot = 0
		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 = 1
			.Alignment = 1
			.Def(4) = 15790320
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2025:
How can I change the label, caption or the formula of the grouped items

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddGroupItem(Item)
	With G2antt1
		With .Items
			.AddBar Item,"Progress",#12/2/2017#,#12/2/2017#
			.DefineSummaryBars Item,"",-3,""
		End With
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/10/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2024:
How can I change the aspect of grouped items

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddGroupItem(Item)
	With G2antt1
		With .Items
			.ItemDividerLine(Item) = 0
			.AddBar Item,"Progress",#12/2/2017#,#12/2/2017#
			.DefineSummaryBars Item,"",-3,""
			l = .GroupItem(Item)
			.CellSingleLine(Item,l) = False
			.CellBold(Item,l) = True
			.ItemBackColor(Item) = RGB(190,190,190)
		End With
		.Chart.ItemBackColor(Item) = RGB(190,190,190)
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/10/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2023:
How can I collapse all items when the user performs a grouping

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddGroupItem(Item)
	With G2antt1
		With .Items
			.ExpandItem(Item) = False
			.ItemDividerLine(Item) = 0
			.AddBar Item,"Progress",#12/2/2017#,#12/2/2017#
			.DefineSummaryBars Item,"",-3,""
		End With
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/10/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2022:
Is it possible to select columns that user can drop to the sort bar, when using the Group By feature

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/10/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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
End Function
</SCRIPT>
</BODY>

2021:
How can I filter for the type of the bars I have in my chart

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #11/28/2017#
			.PaneWidth(False) = 0
			With .Bars.Item("Task")
				.Def(3) = "<%=%0%>"
				.Def(4) = 18
			End With
			With .Bars.Copy("Task","GTask")
				.Def(3) = "<%=%0%>"
				.Def(4) = 18
				.Color = RGB(0,255,0)
			End With
			With .Bars.Copy("Task","RTask")
				.Def(3) = "<%=%0%>"
				.Def(4) = 18
				.Color = RGB(255,0,0)
			End With
			.ColumnsFormatLevel = "0"
		End With
		.OnResizeControl = 129 ' OnResizeControlEnum.exDisableSplitter Or OnResizeControlEnum.exResizeChart
		With .Columns.Add("Default")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Type")
			.Def(19) = ""
			.Def(18) = 0
			.Visible = False
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or 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
		.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
		.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 = 2579 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(1)
			.FilterType = 240
			.Filter = "GTask|RTask"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2020:
How can I display the control's filter bar in the Items section only, as it was displayed before

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/2/2017#
			.PaneWidth(False) = 256
		End With
		With .Columns.Add("Col-1")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Col-2")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or 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 = 4096
		With .Columns.Item(1)
			.FilterType = 3
			.Filter = "*B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2019:
FilterBarCaption ALL Keyword ( sample 2, result )

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
		.Items.CellImage(Item,3) = i
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Col-2")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Check")
			With .Editor
				.EditType = 19
				.Option(17) = 1
			End With
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterType = 6
		End With
		With .Columns.Add("Image")
			.DisplayFilterButton = True
			.FilterType = 10
			.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or 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
		.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
		.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 = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.Columns.Item(2).Filter = 1
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2018:
FilterBarCaption ALL Keyword ( sample 1 )

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
		.Items.CellImage(Item,3) = i
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Col-2")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Check")
			With .Editor
				.EditType = 19
				.Option(17) = 1
			End With
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterType = 6
		End With
		With .Columns.Add("Image")
			.DisplayFilterButton = True
			.FilterType = 10
			.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or 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
		.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
		.FilterBarCaption = "all"
		.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.Columns.Item(2).Filter = 1
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2017:
FilterBarCaption ALLUI Keyword ( sample 2, result )

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
		.Items.CellImage(Item,3) = i
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Col-2")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Check")
			With .Editor
				.EditType = 19
				.Option(17) = 1
			End With
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterType = 6
		End With
		With .Columns.Add("Image")
			.DisplayFilterButton = True
			.FilterType = 10
			.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or 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
		.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
		.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 = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.Columns.Item(2).Filter = 1
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2016:
FilterBarCaption ALLUI Keyword ( sample 1 )

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
		.Items.CellImage(Item,3) = i
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Col-2")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Check")
			With .Editor
				.EditType = 19
				.Option(17) = 1
			End With
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterType = 6
		End With
		With .Columns.Add("Image")
			.DisplayFilterButton = True
			.FilterType = 10
			.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or 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
		.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
		.FilterBarCaption = "allui"
		.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.Columns.Item(2).Filter = 1
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2015:
FilterBarCaption AVAILABLE Keyword ( sample 2, result )

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
		.Items.CellImage(Item,3) = i
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Col-2")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Check")
			With .Editor
				.EditType = 19
				.Option(17) = 1
			End With
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterType = 6
		End With
		With .Columns.Add("Image")
			.DisplayFilterButton = True
			.FilterType = 10
			.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or 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
		.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
		.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 = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.Columns.Item(2).Filter = 1
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2014:
FilterBarCaption AVAILABLE Keyword ( sample 1 )

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
		.Items.CellImage(Item,3) = i
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Col-2")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Check")
			With .Editor
				.EditType = 19
				.Option(17) = 1
			End With
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterType = 6
		End With
		With .Columns.Add("Image")
			.DisplayFilterButton = True
			.FilterType = 10
			.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or 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
		.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
		.FilterBarCaption = "value + ` ` + available"
		.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.Columns.Item(2).Filter = 1
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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 )

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/2/2017#
			.PaneWidth(False) = 256
		End With
		With .Columns.Add("Col-1")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Col-2")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or 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
		.Description(11) = .FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.Description(11))
		.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 = 256
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		With .Columns.Item(1)
			.FilterType = 3
			.Filter = "*B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2012:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 )

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/2/2017#
			.PaneWidth(False) = 256
		End With
		With .Columns.Add("Col-1")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Col-2")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or 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
		.Description(11) = .FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.Description(11))
		.FilterBarCaption = "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
		.FilterBarPromptVisible = 256
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		With .Columns.Item(1)
			.FilterType = 3
			.Filter = "*B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2011:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 )

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/2/2017#
			.PaneWidth(False) = 256
		End With
		With .Columns.Add("Col-1")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Col-2")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or 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
		.Description(11) = .FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.Description(11))
		.FilterBarCaption = "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
		.FilterBarPromptVisible = 256
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		With .Columns.Item(1)
			.FilterType = 3
			.Filter = "*B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2010:
Is it possible to automatically displays the control's filter label to the right

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/2/2017#
			.PaneWidth(False) = 256
		End With
		With .Columns.Add("Item")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or 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 = 1280 ' FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or FilterBarVisibleEnum.exFilterBarToggle
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2009:
How can I get the number of results/items being shown in the control's filter bar (sample 4)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/2/2017#
			.PaneWidth(False) = 256
		End With
		With .Columns.Add("Item")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or 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 = 3591 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2008:
How can I get the number of results being shown in the control's filter bar (sample 3)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 2055 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2007:
How can I get the number of results being shown in the control's filter bar (sample 2, compact)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 2071 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2006:
How can I get the number of results being shown in the control's filter bar (sample 1)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 7 ' FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2005:
FilterBarCaption Predefined Keywords

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AfterExpandItem(Item)
	With G2antt1
		.Refresh 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/2/2017#
			.PaneWidth(False) = 256
		End With
		.LinesAtRoot = -1
		.Columns.Add("Item").DisplayFilterButton = True
		With .Columns.Add("Check")
			With .Editor
				.EditType = 19
				.Option(17) = 1
			End With
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterType = 6
		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 = 1
		.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 = 7 ' FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 2067 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2003:
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 1281 ' FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or FilterBarVisibleEnum.exFilterBarToggle Or FilterBarVisibleEnum.exFilterBarPromptVisible
		.FilterBarPrompt = .FormatABC("`<r>` + value",.FilterBarPrompt)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2002:
Just wondering if it is possible to show the filter bar's close button on the right ( sample 1 )

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 257 ' FilterBarVisibleEnum.exFilterBarToggle Or FilterBarVisibleEnum.exFilterBarPromptVisible
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2001:
How can I change the visual appearance of the filter bar's close button (EBN)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 257 ' FilterBarVisibleEnum.exFilterBarToggle Or FilterBarVisibleEnum.exFilterBarPromptVisible
		.Background(1) = &H1000000
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2000:
How can I change the visual appearance of the filter bar's close button (solid)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 1
		.Background(1) = RGB(255,0,0)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1999:
Is it possible to prevent definitely showing the filter bar's close button

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 1
		.Background(1) = -1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1998:
Is it possible to show the close button only if there is a filter applied

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 513 ' FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarPromptVisible
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1997:
The control's filter bar is not closed once I click the close button (toggle)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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(2) = 1
			h = .LockedItem(2,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) = 1
		End With
		.FilterBarCaption = "`<r><fgcolor=808080>` + value"
		.FilterBarPromptPattern = "B"
		.FilterBarPromptVisible = 2323 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarToggle Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1996:
How can I display the control's filter on a single line

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 18 ' FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1995:
How can I display the control's filter on a single line (prompt-combined)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 2067 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item A|Item B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1994:
How can I get the number of results after a filter is applied

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function G2antt1_Click()
	With G2antt1
		.ClearFilter 
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function G2antt1_FilterChange()
	With G2antt1
		alert( "Items.MatchItemCount" )
		alert( .Items.MatchItemCount )
		alert( .FormatABC("value < 0 ? `filter applied: ` + abs(value + 1) + ` result(s)` : `no filter`",.Items.MatchItemCount) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 1
		.FilterBarPromptPattern = "Item"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1993:
How can I programmatically clear the control's filter
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function G2antt1_Click()
	With G2antt1
		.ClearFilter 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 1
		.FilterBarPromptPattern = "B"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1992:
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1991:
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 1
		.FilterBarPromptPattern = "B"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1990:
Is it possible to prevent closing the control's filter bar, so it is always shown

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#12/4/2017#,#12/14/2017#
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 2
		With .Columns.Item(0)
			.FilterType = 240
			.Filter = "Item B"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1989:
What are the options to align the percent caption

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Clip"
		.ScrollBySingleLine = True
		.DrawGridLines = -2
		With .Chart
			.AllowResizeChart = 6 ' ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader
			.DrawGridLines = -2
			.FirstVisibleDate = #12/26/2000#
			.LevelCount = 2
			.PaneWidth(False) = 256
			With .Bars.Add("Task%Progress")
				.Shortcut = "Task"
				.Pattern = 32
				.Color = RGB(164,164,164)
				.StartColor = RGB(240,240,240)
				.EndColor = .StartColor
				.OverlaidType = 4611 ' OverlaidBarsTypeEnum.exOverlaidBarsIncludeCaption Or OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
				.Height = 15
				.Def(12) = 0.5
				.Def(14) = True
				.Def(13) = "<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",15) = 2
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K2"
			.ItemBar(h,"K2",15) = 1
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K3"
			.ItemBar(h,"K3",15) = 0
			h = .AddItem("clip, inside (3-5)")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1"
			.ItemBar(h,"K1",15) = 5
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K2"
			.ItemBar(h,"K2",15) = 4
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K3"
			.ItemBar(h,"K3",15) = 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",15) = 8
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K2"
			.ItemBar(h,"K2",15) = 7
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K3"
			.ItemBar(h,"K3",15) = 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",15) = 11
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K2"
			.ItemBar(h,"K2",15) = 10
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K3"
			.ItemBar(h,"K3",15) = 9
			h = .AddItem("no clip, inside, outside (12-14)")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1"
			.ItemBar(h,"K1",15) = 14
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K2"
			.ItemBar(h,"K2",4) = 13
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K3"
			.ItemBar(h,"K3",15) = 12
			h = .AddItem("no clip, outside (16-18)")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1"
			.ItemBar(h,"K1",15) = 18
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K2"
			.ItemBar(h,"K2",15) = 17
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K3"
			.ItemBar(h,"K3",15) = 16
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1988:
Is it possible to determine whether a bar is in the current display area

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_BarResizing(Item,Key)
	With G2antt1
		.Refresh 
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function G2antt1_DateChange()
	With G2antt1
		.Refresh 
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function G2antt1_FormatColumn(Item,ColIndex,Value)
	With G2antt1
		s = .Items.ItemBar(Item,"A",1)
		e = .Items.ItemBar(Item,"A",2)
		l = .FormatABC("A < B",e,.Chart.FirstVisibleDate)
		r = .FormatABC("A > B",s,.Chart.DateFromPoint(1,-1))
		Value = .FormatABC("( A or B ) ? `<fgcolor=C0C0C0>hidden` : `<b>visible`",l,r)
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function G2antt1_LayoutChanged()
	With G2antt1
		.Refresh 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.SelBackMode = 1
		.Columns.Add "Tasks"
		With .Columns.Add("Visible")
			.FireFormatColumn = True
			.Def(17) = 1
		End With
		With .Chart
			.OverviewVisible = -1
			.OverviewHeight = 64
			.FirstVisibleDate = #8/1/2017#
			.LevelCount = 2
			.PaneWidth(False) = 128
			.SelBackColor = G2antt1.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
End Function
</SCRIPT>
</BODY>

1987:
How can I ensure that the bar fits the control's client area

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_SelectionChanged()
	With G2antt1
		h = .Items.FocusItem
		k = .Items.FirstItemBar(h)
		s = .FormatABC("(A+B)/2",.Items.ItemBar(h,k,1),.Items.ItemBar(h,k,2))
		.Chart.ScrollTo s,1
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.SelBackMode = 1
		.Columns.Add "Tasks"
		With .Chart
			.FirstVisibleDate = #8/1/2017#
			.LevelCount = 2
			.PaneWidth(False) = 128
			.SelBackColor = G2antt1.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
End Function
</SCRIPT>
</BODY>

1986:
Is it possible to change the caption from a column without to remove the column and add it with the new caption
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Columns.Add("ColumnName").Caption = "NewName"
		.Columns.Add("ColumnName").HTMLCaption = "<b>New</b>Name"
	End With
End Function
</SCRIPT>
</BODY>

1985:
How can I display the bar's duration in days, minutes, and so so on

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Columns
			.Add("Tasks").AllowSizing = False
			With .Add("Duration")
				.Def(18) = 513
				.Def(19) = "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 = -1
			.OverviewHeight = 64
			.ResizeUnitScale = 16777216
			.AllowResizeChart = 262 ' ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or 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
End Function
</SCRIPT>
</BODY>

1984:
How can I change the background color for checked items (EBN color, frame)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_CellStateChanged(Item,ColIndex)
	With G2antt1
		.Refresh 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		.SelBackMode = 1
		.DefaultItemHeight = 22
		With .Columns.Add("Tasks")
			.Def(0) = 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 = 1
		With .Chart
			.FirstVisibleDate = #8/1/2017#
			.LevelCount = 2
			.PaneWidth(False) = 128
			With .Bars.Item("Summary")
				.StartShape = 0
				.EndShape = 0
				.Shape = 20
			End With
			.SelBackColor = G2antt1.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
End Function
</SCRIPT>
</BODY>

1983:
How can I change the caption of the checked items (sample 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		.SelBackColor = .BackColor
		.SelForeColor = .ForeColor
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
			.Def(17) = 1
			.FormatColumn = "%CS0 = 1 ? `<bgcolor=000000><fgcolor=FFFFFF> ` + value + ` </fgcolor></bgcolor>` : value"
		End With
		.HeaderVisible = 1
		With .Chart
			.FirstVisibleDate = #8/1/2017#
			.LevelCount = 2
			.PaneWidth(False) = 256
			With .Bars.Item("Summary")
				.StartShape = 0
				.EndShape = 0
				.Shape = 20
			End With
			.SelBackColor = G2antt1.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
End Function
</SCRIPT>
</BODY>

1982:
How can I change the caption of the checked items (sample 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
			.Def(17) = 1
			.FormatColumn = "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)"
		End With
		.HeaderVisible = 1
		With .Chart
			.FirstVisibleDate = #8/1/2017#
			.LevelCount = 2
			.PaneWidth(False) = 256
			With .Bars.Item("Summary")
				.StartShape = 0
				.EndShape = 0
				.Shape = 20
			End With
			.SelBackColor = G2antt1.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
End Function
</SCRIPT>
</BODY>

1981:
How can I change the font for the checked items

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_CellStateChanged(Item,ColIndex)
	With G2antt1
		.Refresh 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		.DefaultItemHeight = 22
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
		End With
		With .ConditionalFormats.Add("%CS0 = 1")
			Set f = CreateObject("StdFont")
			With f
				.Name = G2antt1.Font.Name
				.Size = 12
			End With
			.Font = f
		End With
		.HeaderVisible = 1
		With .Chart
			.FirstVisibleDate = #8/1/2017#
			.LevelCount = 2
			.PaneWidth(False) = 196
			With .Bars.Item("Summary")
				.StartShape = 0
				.EndShape = 0
				.Shape = 20
			End With
			.SelBackColor = G2antt1.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
End Function
</SCRIPT>
</BODY>

1980:
How can I bold the checked items

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_CellStateChanged(Item,ColIndex)
	With G2antt1
		.Refresh 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
		End With
		With .ConditionalFormats.Add("%CS0 = 1")
			.Bold = True
		End With
		.HeaderVisible = 1
		With .Chart
			.FirstVisibleDate = #8/1/2017#
			.LevelCount = 2
			.PaneWidth(False) = 128
			With .Bars.Item("Summary")
				.StartShape = 0
				.EndShape = 0
				.Shape = 20
			End With
			.SelBackColor = G2antt1.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
End Function
</SCRIPT>
</BODY>

1979:
How can I change the foreground color for checked items

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_CellStateChanged(Item,ColIndex)
	With G2antt1
		.Refresh 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		.SelBackMode = 1
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
		End With
		With .ConditionalFormats.Add("%CS0 = 1")
			.ForeColor = RGB(255,128,128)
		End With
		.HeaderVisible = 1
		With .Chart
			.FirstVisibleDate = #8/1/2017#
			.LevelCount = 2
			.PaneWidth(False) = 128
			With .Bars.Item("Summary")
				.StartShape = 0
				.EndShape = 0
				.Shape = 20
			End With
			.SelBackColor = G2antt1.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
End Function
</SCRIPT>
</BODY>

1978:
How can I change the background color for checked items (solid color)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_CellStateChanged(Item,ColIndex)
	With G2antt1
		.Refresh 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		.SelBackMode = 1
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
		End With
		With .ConditionalFormats.Add("%CS0 = 1")
			.BackColor = RGB(255,128,128)
			.ChartBackColor = .BackColor
		End With
		.HeaderVisible = 1
		With .Chart
			.FirstVisibleDate = #8/1/2017#
			.LevelCount = 2
			.PaneWidth(False) = 128
			With .Bars.Item("Summary")
				.StartShape = 0
				.EndShape = 0
				.Shape = 20
			End With
			.SelBackColor = G2antt1.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
End Function
</SCRIPT>
</BODY>

1977:
How can I change the color for checked Task bars

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
		End With
		With .ConditionalFormats.Add("%CS0 = 1")
			.ApplyToBars = "Task,Summary"
			.BarColor = RGB(255,0,0)
		End With
		.HeaderVisible = 1
		.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 = 0
				.EndShape = 0
				.Shape = 20
			End With
			.SelBackColor = G2antt1.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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Columns
			.Add("Tasks").AllowSizing = False
			With .Add("Working")
				.Def(18) = 258
				.Def(19) = "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 = 262 ' ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or 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 = -1
			.OverviewHeight = 64
			.AllowOverviewZoom = 1
		End With
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/4/2002#,#1/8/2002#,"A"
			.ItemBar(h,"A",20) = True
			h = .AddItem("Task 2")
			.AddBar h,"Task",#1/3/2002#,#1/4/2002#,"A"
			.ItemBar(h,"A",20) = True
		End With
		With .Chart
			.UnitScale = 4096
			.ScrollTo .FirstVisibleDate,1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1975:
Is it possible to customize the editor selection colour of the built in text editor, from standard blue to black

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 8
			.Mask = ";;;rich"
		End With
		With .Items
			.AddItem ""
			.AddItem "Just a text"
			.AddItem ""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1974:
Is it possible to customize the editor selection colour of the built in dropdown editor, from standard blue to black

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 2
			.Mask = ";;;rich"
		End With
		With .Items
			.AddItem ""
			.AddItem "Just a text"
			.AddItem ""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_OverviewZoom()
	With G2antt1
		.Chart.ResizeUnitScale = 4096
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		With .Columns.Add("Effort")
			.Def(18) = 21
			.Editor.EditType = 4
		End With
		With .Chart
			.AllowOverviewZoom = 1
			.OverviewZoomCaption = "|||<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|||"
			.Label(0) = ""
			.Label(1) = ""
			.Label(2) = ""
			.Label(17) = ""
			.Label(65536) = ""
			.Label(1048576) = ""
			.Label(16777216) = ""
			.OverviewZoomUnit = 64
			.LevelCount = 2
			.NonworkingDays = 0
			.PaneWidth(False) = 96
			.FirstVisibleDate = #6/20/2005#
			.HistogramVisible = True
			.HistogramHeight = 128
			.HistogramView = 112
			.OverviewVisible = -1
			With .Bars.Item("Task")
				.HistogramPattern = .Pattern ' .Pattern
				.HistogramType = 0
				.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
End Function
</SCRIPT>
</BODY>

1972:
The BeforeExpandItem event is fired when clicking the drop down filter button. What we can do to prevent that
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_BeforeExpandItem(Item,Cancel)
	With G2antt1
		alert( "BeforeExpandItem" )
		alert( Item )
		alert( "ColumnFromPoint" )
		alert( .ColumnFromPoint(-1,-1) )
		alert( "ColumnFromPoint return -1, if the user clicks the +/- glitch, else it returns the index of the column where the click occurs." )
		.Items.InsertItem Item,,"new child"
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.PaneWidth(True) = 0
		.LinesAtRoot = -1
		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
End Function
</SCRIPT>
</BODY>

1971:
How do I change the drop down filter icon/button (black)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .VisualAppearance
			.Add 1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
	"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
	"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA"
		End With
		.Background(0) = &H1000000
		.Background(32) = -1
		.HeaderAppearance = 0
		.BackColorHeader = RGB(0,0,0)
		.ForeColorHeader = RGB(255,255,255)
		.HeaderVisible = True
		.BackColorLevelHeader = .BackColor
		With .Columns.Add("Filter")
			.DisplayFilterButton = True
			.AllowSort = False
			.AllowDragging = False
		End With
		With .Chart
			.PaneWidth(False) = 196
			.LevelCount = 2
			.BackColorLevelHeader = G2antt1.BackColorHeader
			.ForeColorLevelHeader = G2antt1.ForeColorHeader
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1970:
How do I change the z-order of the bars (percent)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		b = .Chart.BarFromPoint(-1,-1)
		i = .ItemFromPoint(-1,-1,c,hit)
		alert( .Items.ItemBar(i,b,6) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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(3) = "<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>"
				.Def(4) = 18
				.Def(12) = 0.25
				.Def(39) = .Color
				.Def(18) = 10
				.Def(14) = True
				.Def(13) = "<font ;6><b>%p%</b>"
			End With
			With .Bars.Copy("Task","T2")
				.Height = 26
				.Def(3) = "<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>"
				.Def(5) = 16
				.Def(12) = 0.25
				.Def(39) = .Color
				.Def(14) = True
				.Def(13) = "<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",17) = "Bar A"
			.ItemBar(h1,"2",6) = "Bar A <b>Over</b> Bar B"
			.AddBar h1,"T2",#10/18/2017#,#10/22/2017#,"1"
			.ItemBar(h1,"1",17) = "Bar B"
			.ItemBar(h1,"1",6) = "Bar B <b>Under</b> Bar A"
			h1 = .AddItem("Task")
			.AddBar h1,"T1",#10/15/2017#,#10/25/2017#,"1"
			.ItemBar(h1,"1",17) = "Bar A"
			.ItemBar(h1,"1",6) = "Bar A <b>Under</b> Bar B"
			.AddBar h1,"T2",#10/18/2017#,#10/22/2017#,"2"
			.ItemBar(h1,"2",17) = "Bar B"
			.ItemBar(h1,"2",6) = "Bar B <b>Over</b> Bar A"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1969:
How do I change the z-order of the bars

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		b = .Chart.BarFromPoint(-1,-1)
		i = .ItemFromPoint(-1,-1,c,hit)
		alert( .Items.ItemBar(i,b,6) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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(3) = "<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>"
				.Def(4) = 18
			End With
			With .Bars.Copy("Task","T2")
				.Height = 25
				.Def(3) = "<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>"
				.Def(5) = 16
			End With
		End With
		With .Items
			h1 = .AddItem("Task")
			.AddBar h1,"T1",#10/15/2017#,#10/25/2017#,"2"
			.ItemBar(h1,"2",17) = "Bar A"
			.ItemBar(h1,"2",6) = "Bar A <b>Over</b> Bar B"
			.AddBar h1,"T2",#10/18/2017#,#10/22/2017#,"1"
			.ItemBar(h1,"1",17) = "Bar B"
			.ItemBar(h1,"1",6) = "Bar B <b>Under</b> Bar A"
			h1 = .AddItem("Task")
			.AddBar h1,"T1",#10/15/2017#,#10/25/2017#,"1"
			.ItemBar(h1,"1",17) = "Bar A"
			.ItemBar(h1,"1",6) = "Bar A <b>Under</b> Bar B"
			.AddBar h1,"T2",#10/18/2017#,#10/22/2017#,"2"
			.ItemBar(h1,"2",17) = "Bar B"
			.ItemBar(h1,"2",6) = "Bar B <b>Over</b> Bar A"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1968:
How do I get the duration/working count of the bar (sample 6,excrd)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DefaultItemHeight = 48
		.ShowFocusRect = False
		.SelBackMode = 1
		.BackColorLevelHeader = .BackColor
		.DrawGridLines = -1
		With .Chart
			.DrawGridLines = 1
			.PaneWidth(False) = 64
			.LevelCount = 2
			.FirstVisibleDate = #12/26/2001#
			With .Bars.Add("Task:Split")
				.Shortcut = "Task"
				.Def(6) = "<%=%263%>"
				.Def(18) = -12
			End With
			.ColumnsFormatLevel = "1,2/3"
		End With
		.Columns.Add "Tasks"
		With .Columns.Add("Duration")
			.Def(18) = 513
			.Visible = False
			.Alignment = 0
			.FormatColumn = "value + `d`"
		End With
		With .Columns.Add("Working")
			.Def(18) = 258
			.Visible = False
			.Alignment = 2
			.FormatColumn = "value + `w`"
		End With
		With .Columns.Add("Working-Period")
			.Def(18) = 263
			.Visible = False
			.Alignment = 1
			.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
End Function
</SCRIPT>
</BODY>

1967:
How do I get the duration/working count of the bar (sample 5)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		With .Items
			.ItemMaxHeight(Item) = 64
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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(6) = "<%=%263%>"
			End With
			.ColumnsFormatLevel = "1,2"
			.SelBackColor = G2antt1.SelBackColor
		End With
		With .Columns.Add("Task")
			.AllowSizing = False
			.Width = 48
		End With
		With .Columns.Add("Duration")
			.Def(18) = 513
			.Visible = False
			.Alignment = 0
		End With
		With .Columns.Add("Working")
			.Def(18) = 258
			.Visible = False
			.Alignment = 2
		End With
		With .Columns.Add("Working-Period")
			.Def(18) = 263
			.Def(16) = 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
End Function
</SCRIPT>
</BODY>

1966:
How do I get the duration/working count of the bar (sample 4)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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(18) = 513
			.Visible = False
			.Alignment = 0
			.FormatColumn = "value + `d`"
		End With
		With .Columns.Add("Working")
			.Def(18) = 258
			.Visible = False
			.Alignment = 2
			.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
End Function
</SCRIPT>
</BODY>

1965:
How do I get the duration/working count of the bar (sample 3)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_BarResizing(Item,Key)
	With G2antt1
		With .Items
			alert( .CellCaption(Item,0) )
			alert( "Working" )
			alert( .ItemBar(Item,Key,258) )
			alert( .CellCaption(Item,0) )
			alert( "Duration" )
			alert( .ItemBar(Item,Key,513) )
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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
End Function
</SCRIPT>
</BODY>

1964:
How do I get the duration/working count of the bar (sample 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.PaneWidth(False) = 64
			.LevelCount = 2
			.FirstVisibleDate = #12/26/2001#
			With .Bars.Add("Task:Split")
				.Shortcut = "Task"
				.Def(3) = "<%=%258%>w"
				.Def(4) = 18
				.Def(44) = "<%=%513%>d"
				.Def(45) = 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
End Function
</SCRIPT>
</BODY>

1963:
How do I get the duration/working count of the bar (sample 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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(18) = 513
		.Columns.Add("Working").Def(18) = 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
End Function
</SCRIPT>
</BODY>

1962:
How can I draw a solid frame around the the focusing item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.SingleSel = False
		.DefaultItemHeight = 20
		With .VisualAppearance
			.RenderType = -1
			.Add 1,"gBFLBCJwBAEHhEJAAEhABOkGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEwpFAZBhgeDYMiSNoYDJCM4wH" & _
	"IURRJFCUJSGWQpTgSIgyT5HFIxXKoASbJabZLhWS6EpWOotTbIQQRYCkEyfKKfZyGURZQqOKA1DBZErWTJESRFJqLazgO4LAhyQYrVgAErzVKVCRNOqbJzADApdpGQJT" & _
	"ULDNTQHRFIyhOSnIRrWbMAhid6JUZiVT4dBOIYhSYANAqCwLFqrDJmWrpV5WZjlZ47V6BdAyXJsIrmFJEXaOGhyDDlGybSDZYryfZhUziUw4XjbWwZDqPF6DKTTdSGLR" & _
	"EE8WZVlURZvDaep3C+AY8kAYRgGCCBJECUhjDoHROEYWgoAGTQ1CEEx9lGMY0CQUYSnuZQDBGBYFlOH5+H+igGAKAJgEgFgGgGVgDn4CoCmCSA2A6A5hAgDgQgSYRIE4" & _
	"EoFGGCBiBeBhhkgPgbgcYgICoH4IGGWIOCSBhiGiHgVgoYooFoAoLGIWI+DCCgjCiTgrgII4ImYOoOmOSJ2AYOpWlQDQBICA="
		End With
		.ShowFocusRect = True
		.Background(19) = &H1000000
		.LinesAtRoot = -1
		.Chart.PaneWidth(True) = 1
		With .Columns.Add("P1")
			.Def(0) = 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
End Function
</SCRIPT>
</BODY>

1961:
The frame around the focusing item is not very clear. Can I show it larger or more cleared (sample 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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
		.Background(19) = &H3010101
		.LinesAtRoot = -1
		.Chart.PaneWidth(True) = 1
		With .Columns.Add("P1")
			.Def(0) = 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
End Function
</SCRIPT>
</BODY>

1960:
The frame around the focusing item is not very clear. Can I show it larger or more cleared (sample 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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
		.SelBackColor = &H1000000
		.SelForeColor = RGB(0,0,0)
		.Chart.PaneWidth(True) = 1
		.Background(19) = &H3ff0000
		.LinesAtRoot = -1
		With .Columns.Add("P1")
			.Def(0) = 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
End Function
</SCRIPT>
</BODY>

1959:
How can I display the start/end margins of bars, when cursor hovers it like a tooltip

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "exBarToolTip"
		With .Chart
			.PaneWidth(False) = 96
			.FirstVisibleDate = #1/1/2001#
			.Bars.Item("Task").Def(6) = "<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",6) = "Start:<%=%1%><br>End:<%=%2%>"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1958:
Is it possible to define different kinds of summary bars with using the EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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(4) = 18
				.Color = RGB(1,0,0)
			End With
			With .Bars.Item("Summary")
				.Def(4) = 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*>",33) = 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",33) = 16842496
			.ItemBar(0,"<Z1>",33) = 50266112
			.ItemBar(0,"<Z2>",33) = 33554176
			.ExpandItem(0) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1957:
How can I display the week-number in ISO8601 format

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.PaneWidth(False) = 0
			.LevelCount = 2
			.FirstVisibleDate = #12/12/2007#
			.DrawGridLines = -1
			.UnitScale = 256
			.Level(0).FormatLabel = "value + `<r><off -4><fgcolor=808080><font ;6>` + year(dvalue)"
			.Level(1).FormatLabel = "(value = 1 ? `<bgcolor=000000><fgcolor=FFFFFF>` : ``) + value"
			.WeekNumberAs = 0
			.FirstWeekDay = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ColumnAutoResize = True
		.Chart.PaneWidth(True) = 0
		.DrawGridLines = 2
		With .Columns
			With .Add("Left")
				.AllowSizing = False
				.Width = 96
				.Def(0) = True
				.FormatColumn = "0 pos `A-Z`"
			End With
			With .Add("Center")
				.HeaderAlignment = 1
				.Alignment = .HeaderAlignment ' .HeaderAlignment
				.AllowSizing = False
				.Width = 96
				.Def(0) = True
				.FormatColumn = "0 pos `A-Z`"
			End With
			With .Add("Right")
				.HeaderAlignment = 2
				.Alignment = .HeaderAlignment ' .HeaderAlignment
				.AllowSizing = False
				.Width = 96
				.Def(0) = True
				.FormatColumn = "0 pos `A-Z`"
				.Def(34) = "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
End Function
</SCRIPT>
</BODY>

1955:
Can I display the column's multiple-lines caption vertically oriented (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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(0) = True
				.Def(48) = 8
				.Position = 0
			End With
			With .Add("")
				.HTMLCaption = "<c><b>Second Column"
				.HeaderVertical = True
				.Width = 36
				.AllowSizing = False
				.Def(0) = True
				.Def(48) = 8
				.Position = 1
			End With
			With .Add("")
				.HTMLCaption = "<r>Third Column"
				.HeaderVertical = True
				.Width = 36
				.AllowSizing = False
				.Def(0) = True
				.Def(48) = 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
End Function
</SCRIPT>
</BODY>

1954:
Can I display the column's multiple-lines caption vertically oriented (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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(0) = True
				.Def(48) = 8
				.Position = 0
			End With
			With .Add("Second Column")
				.HeaderBold = True
				.HeaderVertical = True
				.Width = 36
				.AllowSizing = False
				.Def(0) = True
				.Def(48) = 8
				.Position = 1
			End With
			With .Add("Third Column")
				.HeaderVertical = True
				.Width = 36
				.AllowSizing = False
				.Def(0) = True
				.Def(48) = 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
End Function
</SCRIPT>
</BODY>

1953:
Can I display the column's caption vertically oriented (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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(0) = True
				.Position = 0
			End With
			With .Add("")
				.HTMLCaption = "<c><b>Second"
				.HeaderVertical = True
				.Width = 20
				.AllowSizing = False
				.Def(0) = True
				.Position = 1
			End With
			With .Add("")
				.HTMLCaption = "<r>Third"
				.HeaderVertical = True
				.Width = 20
				.AllowSizing = False
				.Def(0) = 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
End Function
</SCRIPT>
</BODY>

1952:
Can I display the column's caption vertically oriented (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.HeaderHeight = 48
		.ColumnAutoResize = True
		.Chart.PaneWidth(True) = 0
		With .Columns
			.Add "And others ..."
			With .Add("First")
				.HeaderVertical = True
				.Width = 20
				.AllowSizing = False
				.Def(0) = True
				.Position = 0
			End With
			With .Add("Second")
				.HeaderBold = True
				.HeaderVertical = True
				.Width = 20
				.AllowSizing = False
				.Def(0) = True
				.Position = 1
			End With
			With .Add("Third")
				.HeaderVertical = True
				.Width = 20
				.AllowSizing = False
				.Def(0) = 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
End Function
</SCRIPT>
</BODY>

1951:
How can I resize all task-bars 0-length

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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`",33) = 255
			.ItemBarEx("itembar(513) = 0 and itembar(0) = `Task`",513) = "value + 1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1950:
Is it possible to mark items that holds items with 0-length (zero,empty, sample 3)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		With .Columns.Add("Duration")
			.Def(18) = 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
End Function
</SCRIPT>
</BODY>

1949:
Is it possible to mark items that holds items with 0-length (zero,empty, sample 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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",3) = "`zero-length`"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1948:
Is it possible to mark items that holds items with 0-length (zero,empty, sample 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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",53) = "`[frame=RGB(255,0,0),framethick,pattern=6,patterncolor=RGB(255,0,0)]`"
			.ItemBarEx("itembar(513) = 0",55) = "`-4,-4,4,4`"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1947:
How can I find how many tasks/bars of 0-length (zero,empty) do I have

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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#
			alert( .ItemBarEx("itembar(513) = 0",256) )
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1946:
How can I remove all bars from selected items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 3
				.OverlaidGroup = "Task,Task-Diff"
				.Def(3) = "<font ;6><%=%0%>"
				.Def(4) = 18
			End With
			With .Bars.Copy("Task","Task-Diff")
				.Height = 4
				.Color = RGB(255,0,0)
				.Def(3) = "<font ;6><%=%0%>"
				.Def(4) = 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#
			alert( "Bars before remove: " )
			alert( .ItemBar(0,"<*>",256) )
			.ItemBarEx("itemisselected",9) = "`toberemove` + value "
			.RemoveBar 0,"<toberemove*>"
			alert( "Bars after remove: " )
			alert( .ItemBar(0,"<*>",256) )
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1945:
How can I remove task bars from selected items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 3
				.OverlaidGroup = "Task,Task-Diff"
				.Def(3) = "<font ;6><%=%0%>"
				.Def(4) = 18
			End With
			With .Bars.Copy("Task","Task-Diff")
				.Height = 4
				.Color = RGB(255,0,0)
				.Def(3) = "<font ;6><%=%0%>"
				.Def(4) = 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#
			alert( "Bars before remove: " )
			alert( .ItemBar(0,"<*>",256) )
			.ItemBarEx("itemisselected and itembar(0) = `Task`",9) = "`toberemove` + value "
			.RemoveBar 0,"<toberemove*>"
			alert( "Bars after remove: " )
			alert( .ItemBar(0,"<*>",256) )
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1944:
How can I change the pattern for some bars only

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add("Tasks").Def(0) = 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)",42) = 6
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1943:
How do I apply the same effort to all bars

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		With .Chart
			.FirstVisibleDate = #8/1/2017#
			.LevelCount = 2
			.PaneWidth(False) = 128
			.HistogramView = 112
			.HistogramVisible = True
			.HistogramHeight = 64
			With .Bars.Item("Task")
				.HistogramPattern = 6
				.HistogramType = 1
			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,21) = 2
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1942:
How do I apply the same percent to all bars

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		With .Chart
			.FirstVisibleDate = #8/1/2017#
			.LevelCount = 2
			.PaneWidth(False) = 128
			With .Bars.Add("Task%Progress")
				.Shortcut = "Task"
				.Def(14) = 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,12) = 0.5
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1941:
How can I set the same duration for all bars

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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,513) = 4
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1940:
How do I move all bars to end at the same date-time

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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,545) = "#8/15/2017#"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1939:
How do I move all bars to start at the same date-time

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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,544) = "#8/2/2017#"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1938:
How do I apply a new color for some bars, while others should be shown with a different color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 3
				.OverlaidGroup = "Task,Task-Diff"
				.Def(3) = "<font ;6><%=%0%>"
				.Def(4) = 18
			End With
			With .Bars.Copy("Task","Task-Diff")
				.Height = 4
				.Color = RGB(255,0,0)
				.Def(3) = "<font ;6><%=%0%>"
				.Def(4) = 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,33) = "cellcaption(0) like `*2` ? 0x0000FF : 0x00FF00"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1937:
How do I hide some bars, and show others

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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 = 3
				.OverlaidGroup = "Task,Task-Diff"
				.Def(3) = "<font ;6><%=%0%>"
				.Def(4) = 18
			End With
			With .Bars.Copy("Task","Task-Diff")
				.Height = 4
				.Color = RGB(255,0,0)
				.Def(3) = "<font ;6><%=%0%>"
				.Def(4) = 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",19) = "itembar(0) = `Task` ? 0 : 100"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1936:
I like how ItemBarEx works, the question is how can I remove the bars based on the same criteria

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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#
			alert( "Bars before remove: " )
			alert( .ItemBar(0,"<*>",256) )
			.ItemBarEx("cellcaption(0) like `*2 *3`",9) = "`toberemove` + value "
			.RemoveBar 0,"<toberemove*>"
			alert( "Bars after remove: " )
			alert( .ItemBar(0,"<*>",256) )
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1935:
Is it possible to automatically color the bar being checked

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_CellStateChanged(Item,ColIndex)
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.SelBackMode = 1
		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(0) = True
			.Width = 256
		End With
		.Columns.Add(G2antt1.ConditionalFormats.Item("check").Expression).FormatColumn = G2antt1.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
End Function
</SCRIPT>
</BODY>

1934:
How do I automatically bold items being checked

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_CellStateChanged(Item,ColIndex)
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.SelBackMode = 1
		.Chart.PaneWidth(True) = 0
		With .ConditionalFormats.Add("%CS0","check")
			.Bold = True
		End With
		.Columns.Add("Items").Def(0) = True
		.Columns.Add(G2antt1.ConditionalFormats.Item("check").Expression).FormatColumn = G2antt1.ConditionalFormats.Item("check").Expression
		With .Items
			.AddItem "Item 1"
			.CellState(.AddItem("Item 2"),0) = 1
			.AddItem "Item 3"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1933:
Can I display the radio-button with a solid color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.PaneWidth(True) = 0
		.RadioImage(0) = 32699122
		.RadioImage(1) = 16777216
		.Columns.Add("Check").Def(1) = True
		With .Items
			.AddItem "Radio 1"
			.CellState(.AddItem("Radio 2"),0) = 1
			.AddItem "Radio 1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1932:
Can I display the check-box with a solid color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.PaneWidth(True) = 0
		.CheckImage(0) = 32699122
		.CheckImage(1) = 16777216
		.Columns.Add("Check").Def(0) = True
		With .Items
			.AddItem "Check 1"
			.CellState(.AddItem("Check 2"),0) = 1
			.AddItem "Check 3"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1931:
How can I use the CellState with ConditionalFormat/ComputedField/FormatColumn

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_CellStateChanged(Item,ColIndex)
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = 4
		.SelBackMode = 1
		.Chart.PaneWidth(True) = 0
		With .Columns.Add("Items")
			.Def(0) = True
			.PartialCheck = True
		End With
		With .Columns.Add("Format")
			.FormatColumn = "%CS0"
			.Caption = .FormatColumn
			.Def(5) = 8421504
			.Def(8) = .Def(5)
		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
End Function
</SCRIPT>
</BODY>

1930:
How can I use the CellData with ConditionalFormat/ComputedField/FormatColumn

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.PaneWidth(True) = 0
		.Columns.Add "Items"
		With .Columns.Add("Format")
			.FormatColumn = "%CD0"
			.Caption = .FormatColumn
			.Def(5) = 8421504
			.Def(8) = .Def(5)
		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
End Function
</SCRIPT>
</BODY>

1929:
How can I use the CellValue/CellCaption with ConditionalFormat/ComputedField/FormatColumn

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.PaneWidth(True) = 0
		With .Columns.Add("Items")
			With .Editor
				.EditType = 3
				.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(5) = 8421504
			.Def(8) = .Def(5)
			.AllowSizing = False
		End With
		With .Columns.Add("Format")
			.FormatColumn = "%C0"
			.Caption = .FormatColumn
			.Def(5) = 8421504
			.Def(8) = .Def(5)
			.AllowSizing = False
		End With
		With .Items
			.AddItem 1
			.CellValue(.AddItem(0),0) = 2
			.AddItem 2
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1928:
How can I use the ShowNonworkingHours property (hide the non-working hours)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.PaneWidth(False) = 0
			.LevelCount = 2
			.UnitScale = 65536
			.NonworkingHours = 16253183
			.ShowNonworkingHours = False
			.ShowNonworkingUnits = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1927:
How can I use the ShowNonworkingDates property (hide the non-working days)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.PaneWidth(False) = 0
			.LevelCount = 2
			.UnitScale = 4096
			.ShowNonworkingDates = False
			.ShowNonworkingUnits = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1926:
How can I show/hide bars once the user checks or un-checks a column

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_CellStateChanged(Item,ColIndex)
	With G2antt1
		With .Items
			.ItemBarEx(True,19) = "cellstate(0) = 1 ? 0 : 100"
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
		End With
		.HeaderVisible = 1
		.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 = 0
				.EndShape = 0
				.Shape = 20
			End With
			.SelBackColor = G2antt1.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,19) = "cellstate(0) = 1 ? 0 : 100"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1925:
How can I change the color for all Task bars

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
		End With
		.HeaderVisible = 1
		.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 = 0
				.EndShape = 0
				.Shape = 20
			End With
			.SelBackColor = G2antt1.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`",33) = 65280
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1924:
Is it possible to automatically select bars only when user selects a new item

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_SelectionChanged()
	With G2antt1
		With .Items
			.ItemBarEx(True,257) = "itemisselected"
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		.Columns.Add "Tasks"
		.HeaderVisible = 1
		.SelBackColor = RGB(240,240,240)
		.SelForeColor = RGB(0,0,0)
		With .Chart
			.AllowSelectObjects = 0
			.FirstVisibleDate = #8/1/2017#
			.LevelCount = 2
			.PaneWidth(False) = 128
			With .Bars.Item("Summary")
				.StartShape = 0
				.EndShape = 0
				.Shape = 20
			End With
			.SelBackColor = G2antt1.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
End Function
</SCRIPT>
</BODY>

1923:
Is it possible to automatically select bars only when the user clicks the column's checkbox

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_CellStateChanged(Item,ColIndex)
	With G2antt1
		With .Items
			.ItemBarEx(True,257) = "cellstate(0) = 1"
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
		End With
		.HeaderVisible = 1
		.SelBackColor = RGB(240,240,240)
		.SelForeColor = RGB(0,0,0)
		With .Chart
			.AllowSelectObjects = 0
			.FirstVisibleDate = #8/1/2017#
			.LevelCount = 2
			.PaneWidth(False) = 128
			With .Bars.Item("Summary")
				.StartShape = 0
				.EndShape = 0
				.Shape = 20
			End With
			.SelBackColor = G2antt1.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
End Function
</SCRIPT>
</BODY>

1922:
How do I select all bars on leaf items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
		End With
		.HeaderVisible = 1
		.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 = 0
				.EndShape = 0
				.Shape = 20
			End With
			.SelBackColor = G2antt1.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",257) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1921:
How can I change the caption for all checked Task bars

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
		End With
		.HeaderVisible = 1
		.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 = 0
				.EndShape = 0
				.Shape = 20
			End With
			.SelBackColor = G2antt1.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`)",3) = "`new caption`"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1920:
How can I change the caption for all Task bars

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
		End With
		.HeaderVisible = 1
		.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 = 0
				.EndShape = 0
				.Shape = 20
			End With
			.SelBackColor = G2antt1.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`)",3) = "`new caption`"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1919:
How can I change the caption for all bars

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
		End With
		.HeaderVisible = 1
		.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 = 0
				.EndShape = 0
				.Shape = 20
			End With
			.SelBackColor = G2antt1.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,3) = "`new caption`"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1918:
How can I move all Task bars to end at the same date time

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
		End With
		.HeaderVisible = 1
		.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 = 0
				.EndShape = 0
				.Shape = 20
			End With
			.SelBackColor = G2antt1.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`)",514) = "#8/14/2017# - itembar(2)"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1917:
How can I move all Task bars to start at the same date time

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
		End With
		.HeaderVisible = 1
		.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 = 0
				.EndShape = 0
				.Shape = 20
			End With
			.SelBackColor = G2antt1.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`)",514) = "#8/3/2017# - itembar(1)"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1916:
How can I change the color for checked Task bars

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
		End With
		.HeaderVisible = 1
		.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 = 0
				.EndShape = 0
				.Shape = 20
			End With
			.SelBackColor = G2antt1.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`",33) = 255
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1915:
How do I resize all Task bars programatically

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
		End With
		.HeaderVisible = 1
		.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 = 0
				.EndShape = 0
				.Shape = 20
			End With
			.SelBackColor = G2antt1.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`",2) = "value + 2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1914:
How do I move just the checked Task bars in the chart

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
		End With
		.HeaderVisible = 1
		.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 = 0
				.EndShape = 0
				.Shape = 20
			End With
			.SelBackColor = G2antt1.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`",514) = -2
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1913:
How do I move all Task bars in the chart

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
		End With
		.HeaderVisible = 1
		.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 = 0
				.EndShape = 0
				.Shape = 20
			End With
			.SelBackColor = G2antt1.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`",514) = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1912:
How do I count all Task bars in the chart
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		.Columns.Add "Tasks"
		.HeaderVisible = 1
		.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 = 0
				.EndShape = 0
				.Shape = 20
			End With
			.SelBackColor = G2antt1.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
			alert( .ItemBarEx("itembar(0) = `Task`",256) )
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1911:
How do I select bars whose items are checked

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
		End With
		.HeaderVisible = 1
		.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 = 0
				.EndShape = 0
				.Shape = 20
			End With
			.SelBackColor = G2antt1.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",257) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1910:
How can I select all bars, where a specified column matches a specified criteria

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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`",257) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1909:
How can I select/unselect all bars

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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,257) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1908:
Is it possible to set the background color of the chart for one item and one day
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.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",7) = 255
			.ItemBar(h,"Back",29) = False
			.AddItem "Item"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1907:
It is possible to search for an item ( inside the Editor ), case insensitive

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Columns.Add("DropDownList").Editor
			.EditType = 3
			.AddItem 1,"One"
			.AddItem 2,"Two"
			.AddItem 3,"Three"
		End With
		With .Items
			.AddItem G2antt1.Columns.Item(0).Editor.FindItem(">ONE")
			.AddItem G2antt1.Columns.Item(0).Editor.FindItem(">ThRee")
			.AddItem G2antt1.Columns.Item(0).Editor.FindItem("ONE")
			.AddItem G2antt1.Columns.Item(0).Editor.FindItem(">tWo")
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1906:
The text after the BR-tag is in same line as the text before the BR-tag (entire column)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DrawGridLines = 1
		.Chart.PaneWidth(True) = 0
		With .Columns.Add("Default")
			.Def(17) = 1
			.Def(16) = 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
End Function
</SCRIPT>
</BODY>

1905:
The text after the BR-tag is in same line as the text before the BR-tag (individual)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DrawGridLines = 1
		.Chart.PaneWidth(True) = 0
		.Columns.Add "Default"
		With .Items
			.CellValueFormat(.AddItem("This is the first line.<br>This is the second line."),0) = 1
			h = .AddItem("<b>This is the first line.<br>This is the second line.</b>")
			.CellValueFormat(h,0) = 1
			.CellSingleLine(h,0) = False
			.CellValueFormat(.AddItem("This is the first line.<br>This is the second line."),0) = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

1904:
How do I prevent showing the control's BackColorAlternate property on empty / non-items part of the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DrawGridLines = -1
		With .Chart
			.DrawGridLines = -1
			.LevelCount = 2
			.PaneWidth(False) = 128
			.FirstVisibleDate = #1/1/2001#
		End With
		.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
End Function
</SCRIPT>
</BODY>

1903:
Can I disable an item once the user selects a new value into a different item

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_Change(Item,ColIndex,NewValue)
	With G2antt1
		With .Items
			.EnableItem(.ItemByIndex(1)) = NewValue
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.FreezeEvents True
		.BeginUpdate 
		.Chart.PaneWidth(True) = 0
		.ScrollBySingleLine = True
		.DrawGridLines = -2
		.Columns.Add "Q"
		.Columns.Add "A"
		With .Items
			h1 = .AddItem("What's your gender?")
			With .CellEditor(h1,1)
				.EditType = 3
				.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
End Function
</SCRIPT>
</BODY>

1902:
How can I get a row expanded / enlarged to fit the cell's text (entire column)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.PaneWidth(True) = 0
		.ScrollBySingleLine = True
		.DrawGridLines = -2
		.Columns.Add "Q"
		With .Columns.Add("A")
			.Def(16) = False
			With .Editor
				.EditType = 5
				.Appearance = 8
			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
End Function
</SCRIPT>
</BODY>

1901:
How can I get a row expanded / enlarged to fit the cell's text (individual cell)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.PaneWidth(True) = 0
		.ScrollBySingleLine = True
		.DrawGridLines = -2
		.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 = 5
				.Appearance = 8
			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
End Function
</SCRIPT>
</BODY>