2088:
How can I define a column of button type

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_ButtonClick(Item,ColIndex,Key)
	With G2antt1
		With .Items
			alert( .CellValue(Item,ColIndex) )
		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 .Columns.Add("Button")
			.Def(2) = True
			.Def(3) = False
			.FormatColumn = "``"
			.AllowSizing = False
			.Width = 48
		End With
		.Columns.Add("Second").FormatColumn = "` Item ` + 1 index ``"
		With .Items
			.AddItem "Button 1"
			.AddItem "Button 2"
			.AddItem "Button 3 "
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2087:
Is it possible to configure different colour/icon when there is a active filter

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_FilterChange()
	With G2antt1
		.Background(0) = .FormatABC("value = 0 ? 0x1000001 : 0x10000FF ",.Columns.Item(0).FilterType)
	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 .VisualAppearance
			.RenderType = -16777216
			.Add 1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
	"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
	"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA"
		End With
		.DrawGridLines = -1
		.ShowFocusRect = False
		.Background(0) = &H1000001
		.Background(32) = -1
		.HeaderAppearance = 4
		.BackColorHeader = RGB(255,255,255)
		.HeaderVisible = 1
		With .Columns.Add("Filter")
			.DisplayFilterButton = True
			.AllowSort = False
			.AllowDragging = False
			.FilterList = 256
		End With
		With .Items
			.AddItem "Item A"
			.AddItem "Item B"
			.AddItem "Item C"
		End With
		With .Columns.Item(0)
			.Filter = "Item B"
			.FilterType = 240
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2086:
ADODB Requery sample

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_ButtonClick(Item,ColIndex,Key)
	With G2antt1
		Set cmd = CreateObject("ADODB.Command")
		With cmd
			.ActiveConnection = G2antt1.DataSource.ActiveConnection
			.CommandText = "INSERT INTO Orders (EmployeeID) VALUES(12345)"
			.CommandType = 1
			.Execute 
		End With
		.DataSource.Requery 
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function G2antt1_Error(Error,Description)
	With G2antt1
		alert( Description )
	End With
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.HeaderAppearance = 4
		.ColumnAutoResize = False
		Set rs = CreateObject("ADODB.Recordset")
		With rs
			.Open "Select * From Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access2007\sample.accdb",1,3
		End With
		.DataSource = rs
		.ConditionalFormats.Add("%1=12345").BackColor = RGB(240,240,240)
		With .Items
			.LockedItemCount(0) = 1
			h = .LockedItem(0,0)
			.ItemDivider(h) = 0
			.CellHasButton(h,0) = True
			.CellValue(h,0) = "Requery (add a new record, using ADODB.Command)"
			.CellHAlignment(h,0) = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2085:
I am skinning the control's header-bar, but the background of the header-bar is shown on each item in the filter-bar drop down panel. What can I do

<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,"gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
	"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQGhsCYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU8lORLUi+M4zSBPcZVTRtGShPDB" & _
	"KTjMKKYgkG4lVpRNa0PC1GTzQ6mazkKQLRADDIDVbAeL3LiMBy9LyLLItQALByua5mWhbcZyBCOPgBTrRb5zO58FjuTK7YLjMB7NrUNYtFaUMy2OpOCADIaecTNcaWLx" & _
	"PF2MY1HWYxVj2Jw3DuRJonKYBgggSRAlIYw6B0ThGFgPAkFUDAhBMfZRiGNAkFECZnm4YQdneJwqnsSQrGAAhWAIJBJBIQgFCQIBiEIAglgqYo0i4V4MEgRI9gSToYFS" & _
	"b4Fk6Y4+BmBZhFOJgTC8TBogQAArgqco4muCZOkOMJtgmYpIjYKg7GKE4uCUK4AAKKg2DwI4DiCZw5k6KJ2D6D4OHiag4DwIxiiQAArAqMosnEPBPAOIhOg+DozjIJ4P" & _
	"GSY4iEwPAkhKLhHUUSQsnKFCnkYU9MjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDya" & _
	"ICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tE" & _
	"sHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQg" & _
	"pDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAA" & _
	"MR1EOZxWi+bx7HcWQ8msfRYnnDhQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARViHH" & _
	"4HQOYmxuCpF2MsecEQVBvGQCcIQvA6i2CAAIARAQ="
			.Add 2,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMwwDhEIwjHCEEhsGIbJAGQBJCjWGodQLOEgzN" & _
	"C0IxNFCQILhEZJADKII8TTOU5UPRESwTE4cKBmKhQCo2NpKR7VUTxCKQahLLivoCjBT8EzHMqtIzrCA6MpaP4pQjKcqwHJ8YyHEi0ZrjazKaj6T5AXDUcaWbbNVx3PK3" & _
	"aioOpLZrqOZZYzYFoABTuJzPMSyIhxXD8cweaZvSpLExVYK9BY3PbKMgxC77QgTIpDaQMNS6PjtF43PAALLFUaNYzoOKzABMHATBIXAYJCwIIR5G7ID4BbQcCQAHL9DB" & _
	"aEEIAEEISgGhMGZQmocgymmIRQkIEQ2BcGgbEIRQci8XaMBqTRVgSAZHG+S5pnOep+D6f4vjec5zn0fpfmgBgAH6TRoBYBoAh+eAmAiAgPFgNArgOQpIESdoEmCOAOAq" & _
	"BYfFGAgaEaBgYHYFYFmIB5UiGCJUgKCgmgeYoHk4BgCmKRQiCwApgHgYgyH8B54lQU4NkMeJlBoDgjkiXBTg0R54iYIR+koeQVBoKpkgkChKhEJBkF4SFEjkDgJhFQoe" & _
	"EmDJlBeehUhWJQJGIXoICWOQ6FeFIlhkfhlDsSJpiQVoamaSY2G6G5nAmRhpCOH5pkwVYdmeCZmHqHpnkmdhzhmaAIFiax8AABAEICA=="
		End With
		.BackColorHeader = &H1000000
		.ForeColorHeader = RGB(128,128,128)
		.Background(0) = &H2000000
		.Background(26) = RGB(255,255,255)
		.Background(27) = RGB(0,0,1)
		.Background(20) = &H1ff8000
		.Background(21) = RGB(240,240,240)
		.Background(32) = -1
		.HeaderHeight = 24
		.BackColorLevelHeader = .BackColor
		With .Columns.Add("Filter")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
			.Def(52) = 2
			.Def(53) = 2
		End With
		With .Items
			.AddItem "A"
			.AddItem "B"
			.AddItem "C"
			.AddItem "D"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2084:
I specify the ItemHeight for each row, but as soon as I click the chart section, the item's height is restored to default (not working). What could be the cause

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ScrollBySingleLine = True
		.Columns.Add "Types"
		.DrawGridLines = 1
		With .Chart
			.LevelCount = 2
			.DrawGridLines = 1
			.AllowCreateBar = 1
			.AllowLinkBars = False
			.ResizeUnitScale = 65536
			.PaneWidth(False) = 112
			.FirstVisibleDate = #1/1/2001#
			With .Bars.Item("Task")
				.OverlaidType = 3
				.Def(3) = "<%=%9%>"
				.Def(4) = 18
			End With
		End With
		With .Items
			h = .AddItem("ItemMinHeight")
			.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"A1"
			.AddBar h,"Task",#1/8/2001#,#1/12/2001#,"A2"
			.ItemMinHeight(h) = 64
			.AddBar .AddItem("Default (One)"),"Task",#1/7/2001#,#1/10/2001#,"A3"
			h = .AddItem("Default (Two)")
			.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"A4"
			.AddBar h,"Task",#1/8/2001#,#1/12/2001#,"A5"
			h = .AddItem("ItemFixedHeight")
			.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"A6"
			.AddBar h,"Task",#1/8/2001#,#1/12/2001#,"A7"
			.ItemMinHeight(h) = 20
			.ItemMaxHeight(h) = 20
			h = .AddItem("ItemMaxHeight")
			.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"A8"
			.AddBar h,"Task",#1/8/2001#,#1/12/2001#,"A9"
			.ItemMaxHeight(h) = 24
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2083:
The ItemHeight property is not working (method 2)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ColumnAutoResize = False
		.ScrollBySingleLine = True
		.Columns.Add("Column").Width = 128
		With .Items
			.CellSingleLine(.AddItem("This is a bit of text that should break the line"),0) = 0
			h = .AddItem("")
			.ItemDivider(h) = 0
			.SelectableItem(h) = False
			.ItemDividerLineAlignment(h) = 1
			.ItemHeight(h) = 3
			.CellSingleLine(.AddItem("This is a bit of text that should break the line"),0) = 0
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2082:
The ItemHeight property is not working (method 1)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ColumnAutoResize = False
		.ScrollBySingleLine = True
		With .Columns.Add("Column")
			.Width = 128
			.Def(16) = 0
		End With
		With .Items
			.AddItem "This is a bit of text that should break the line"
			h = .AddItem("")
			.ItemDivider(h) = 0
			.SelectableItem(h) = False
			.ItemDividerLineAlignment(h) = 1
			.ItemMinHeight(h) = 3
			.ItemMaxHeight(h) = 3
			.AddItem "This is a bit of text that should break the line"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2081:
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeCheckColumns

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ColumnAutoResize = False
		.HeaderAppearance = 4
		With .Columns
			.Add "City"
			.Add("Start").Visible = False
			.Add("End").Visible = False
		End With
		.Description(26) = "Show/Hide"
		.ColumnsFloatBarSortOrder = 1
		.ColumnsFloatBarVisible = 2
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2080:
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeHiddenColumn

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ColumnAutoResize = False
		.HeaderAppearance = 4
		With .Columns
			.Add "City"
			.Add("Start").Visible = False
			.Add("End").Visible = False
		End With
		.Description(26) = "Show"
		.ColumnsFloatBarVisible = -1
		.ColumnsFloatBarSortOrder = 1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2079:
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeGroupByColumns

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ColumnAutoResize = False
		.HeaderAppearance = 4
		With .Columns
			.Add "City"
			.Add "Start"
			.Add "End"
		End With
		.AllowGroupBy = True
		.SortBarVisible = True
		.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
		.BackColorSortBar = RGB(250,250,250)
		.Description(26) = "Group-By"
		.ColumnsFloatBarVisible = 1
		.ColumnsFloatBarSortOrder = 1
		.Columns.Item("City").SortOrder = 1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2078:
How can I advance to the next line, once the user presses the ENTER key

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_KeyDown(KeyCode,Shift)
	With G2antt1
		alert( "KeyCode Before:" )
		alert( KeyCode )
		KeyCode = .FormatABC("value = 13 ? 40 : value",KeyCode)
		alert( "KeyCode After:" )
		alert( KeyCode )
	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 .Columns
			With .Add("A").Editor
				.Appearance = 4
				.EditType = 1
			End With
			With .Add("B").Editor
				.Appearance = 4
				.EditType = 1
			End With
		End With
		With .Items
			h0 = .AddItem("Item A.1")
			.CellValue(h0,1) = "Item B.1"
			h0 = .AddItem("Item A.2")
			.CellValue(h0,1) = "Item B.2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2077:
I am using AddNew to add new records, but I can not see them into the control

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		With .Items
			.AddBar Item,"Task",.CellValue(Item,1),.CellValue(Item,2)
		End With
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function G2antt1_ButtonClick(Item,ColIndex,Key)
	With G2antt1
		With .DataSource
			.AddNew 
			.Fields.Item("Name").Value = "Task New"
			.Update 
		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 
		.HeaderAppearance = 4
		Set rs = CreateObject("ADODB.Recordset")
		With rs
			With .Fields
				.Append "Name",8
				.Append "Start",7
				.Append "End",7
			End With
			.Open 
			.AddNew 
			.Fields.Item("Name").Value = "Task A"
			.Fields.Item("Start").Value = #1/4/2001#
			.Fields.Item("End").Value = #1/10/2001#
			.Update 
			.AddNew 
			.Fields.Item("Name").Value = "Task B"
			.Fields.Item("Start").Value = #1/5/2001#
			.Fields.Item("End").Value = #1/11/2001#
			.Update 
		End With
		.DataSource = rs
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.LevelCount = 2
			.PaneWidth(False) = 256
		End With
		.Items.AllowCellValueToItemBar = True
		.Columns.Item("Start").Def(18) = 1
		.Columns.Item("End").Def(18) = 2
		With .Items
			.LockedItemCount(0) = 1
			h = .LockedItem(0,0)
			.ItemDivider(h) = 0
			.CellHasButton(h,0) = True
			.CellValue(h,0) = "AddNew"
			.CellHAlignment(h,0) = 1
		End With
		.DetectAddNew = True
		.DetectDelete = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2076:
How can I create a new ADO recordset

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		With .Items
			.AddBar Item,"Task",.CellValue(Item,1),.CellValue(Item,2)
		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 
		Set rs = CreateObject("ADODB.Recordset")
		With rs
			With .Fields
				.Append "Name",8
				.Append "Start",7
				.Append "End",7
			End With
			.Open 
			.AddNew 
			.Fields = "Task A"
			.Fields = #1/4/2001#
			.Fields = #1/10/2001#
			.Update 
			.AddNew 
			.Fields = "Task B"
			.Fields = #1/5/2001#
			.Fields = #1/11/2001#
			.Update 
		End With
		.DataSource = rs
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.LevelCount = 2
			.PaneWidth(False) = 256
		End With
		.Items.AllowCellValueToItemBar = True
		.Columns.Item("Start").Def(18) = 1
		.Columns.Item("End").Def(18) = 2
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2075:
Do do I get the DAO version I have installed

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		alert( CreateObject("DAO.DBEngine.35").Version.Version )
		alert( CreateObject("DAO.DBEngine.36").Version.Version )
		alert( CreateObject("DAO.DBEngine.120").Version.Version )
	End With
End Function
</SCRIPT>
</BODY>

2074:
How do I get a list of interfaces the object implemenets

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		With .Items
			.AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4)
		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 
		.ColumnAutoResize = False
		With CreateObject("DAO.DBEngine.120")
			Set rs = .OpenDatabase("C:\Program Files\Exontrol\ExG2antt\Sample\Access2007\sample.accdb").OpenRecordset("Orders")
		End With
		alert( CreateObject("Exontrol.PropertiesList").Interfaces(rs).Interfaces(rs) )
		.DataSource = rs
		With .Chart
			.FirstVisibleDate = #8/4/1994#
			.LevelCount = 2
			.PaneWidth(False) = 256
		End With
		.Items.AllowCellValueToItemBar = True
		.Columns.Item(2).Def(18) = 1
		.Columns.Item(4).Def(18) = 2
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2073:
Do do I get the ADO version I have installed

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		alert( "ADO Version:" )
		alert( CreateObject("ADODB.Connection").Version.Version )
	End With
End Function
</SCRIPT>
</BODY>

2072:
DAO, ACCDB, 120

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		With .Items
			.AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4)
		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 
		.ColumnAutoResize = False
		With CreateObject("DAO.DBEngine.120")
			Set rs = .OpenDatabase("C:\Program Files\Exontrol\ExG2antt\Sample\Access2007\sample.accdb").OpenRecordset("Orders")
		End With
		.DataSource = rs
		With .Chart
			.FirstVisibleDate = #8/4/1994#
			.LevelCount = 2
			.PaneWidth(False) = 256
		End With
		.Items.AllowCellValueToItemBar = True
		.Columns.Item(2).Def(18) = 1
		.Columns.Item(4).Def(18) = 2
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2071:
DAO, MDB, 120

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		With .Items
			.AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4)
		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 
		.ColumnAutoResize = False
		With CreateObject("DAO.DBEngine.120")
			Set rs = .OpenDatabase("C:\Program Files\Exontrol\ExTree\Sample\VB\SAMPLE.MDB").OpenRecordset("Orders")
		End With
		.DataSource = rs
		With .Chart
			.FirstVisibleDate = #8/4/1994#
			.LevelCount = 2
			.PaneWidth(False) = 256
		End With
		.Items.AllowCellValueToItemBar = True
		.Columns.Item(2).Def(18) = 1
		.Columns.Item(4).Def(18) = 2
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2070:
DAO, MDB

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		With .Items
			.AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4)
		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 
		.ColumnAutoResize = False
		With CreateObject("DAO.DBEngine.36")
			Set rs = .OpenDatabase("C:\Program Files\Exontrol\ExTree\Sample\VB\SAMPLE.MDB").OpenRecordset("Orders")
		End With
		.DataSource = rs
		With .Chart
			.FirstVisibleDate = #8/4/1994#
			.LevelCount = 2
			.PaneWidth(False) = 256
		End With
		.Items.AllowCellValueToItemBar = True
		.Columns.Item(2).Def(18) = 1
		.Columns.Item(4).Def(18) = 2
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2069:
ADODB, ACCDB, x64

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		With .Items
			.AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4)
		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 
		.ColumnAutoResize = False
		Set rs = CreateObject("ADODB.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access2007\sample.accdb",1,1
		End With
		.DataSource = rs
		With .Chart
			.FirstVisibleDate = #8/4/1994#
			.LevelCount = 2
			.PaneWidth(False) = 256
		End With
		.Items.AllowCellValueToItemBar = True
		.Columns.Item(2).Def(18) = 1
		.Columns.Item(4).Def(18) = 2
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2068:
ADOR, ACCDB

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		With .Items
			.AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4)
		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 
		.ColumnAutoResize = False
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access2007\sample.accdb",3,3
		End With
		.DataSource = rs
		With .Chart
			.FirstVisibleDate = #8/4/1994#
			.LevelCount = 2
			.PaneWidth(False) = 256
		End With
		.Items.AllowCellValueToItemBar = True
		.Columns.Item(2).Def(18) = 1
		.Columns.Item(4).Def(18) = 2
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2067:
ADODB, MDB

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		With .Items
			.AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4)
		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 
		.ColumnAutoResize = False
		Set rs = CreateObject("ADODB.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\VB\SAMPLE.MDB",3,3
		End With
		.DataSource = rs
		With .Chart
			.FirstVisibleDate = #8/4/1994#
			.LevelCount = 2
			.PaneWidth(False) = 256
		End With
		.Items.AllowCellValueToItemBar = True
		.Columns.Item(2).Def(18) = 1
		.Columns.Item(4).Def(18) = 2
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2066:
ADOR, MDB

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		With .Items
			.AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4)
		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 
		.ColumnAutoResize = False
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\VB\SAMPLE.MDB",3,3
		End With
		.DataSource = rs
		With .Chart
			.FirstVisibleDate = #8/4/1994#
			.LevelCount = 2
			.PaneWidth(False) = 256
		End With
		.Items.AllowCellValueToItemBar = True
		.Columns.Item(2).Def(18) = 1
		.Columns.Item(4).Def(18) = 2
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2065:
I am using exCellValueToItemBarProperty, Is it possible to “disable” this synchronisation for one (or several) item (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 .Columns
			.Add "Tasks"
			.Add("Start").Def(18) = 1
			.Add("End").Def(18) = 2
		End With
		With .Chart
			.FirstVisibleDate = #9/20/2006#
			.LevelCount = 2
			.PaneWidth(0) = 196
			.AllowCreateBar = 1
		End With
		With .Items
			.AllowCellValueToItemBar = True
			.AddBar .AddItem("Task 1"),"Task",#9/21/2006#,#9/24/2006#
			h = .AddItem("Task 2")
			.AddBar h,"Task",#9/22/2006#,#9/25/2006#
			.ItemBold(h) = True
			.CellValueToItemBar h,1,1,"newbar"
			.CellValueToItemBar h,2,2,"newbar"
			.AddBar .AddItem("Task 3"),"Task",#9/23/2006#,#9/26/2006#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2064:
I am using exCellValueToItemBarProperty, Is it possible to “disable” this synchronisation for one (or several) item (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 .Columns
			.Add "Tasks"
			.Add("Start").Def(18) = 1
			.Add("End").Def(18) = 2
		End With
		With .Chart
			.FirstVisibleDate = #9/20/2006#
			.LevelCount = 2
			.PaneWidth(0) = 196
		End With
		With .Items
			.AllowCellValueToItemBar = True
			.AddBar .AddItem("Task 1"),"Task",#9/21/2006#,#9/24/2006#
			h = .AddItem("Task 2")
			.AddBar h,"Task",#9/22/2006#,#9/25/2006#
			.FormatCell(h,1) = "``"
			.FormatCell(h,2) = "``"
			.ItemBold(h) = True
			.AddBar .AddItem("Task 3"),"Task",#9/23/2006#,#9/26/2006#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2063:
How can I use the CRD (eXCRD format)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.HeaderAppearance = 4
		.SelBackMode = 1
		With .Columns.Add("Default")
			.Def(32) = "[b=0]60;1[b=15]:60,((20;""<fgcolor=808080>Dateigröße""[b=1][a=2]:120,2[b=15])/(20;""<fgcolor=808080>Erstellt am""[a=2]:120,3[b=" & _
	"15])/(20;""<fgcolor=808080>Zuletzt bearbeitet""[b=4][a=2]:120,4[b=15]))"
			.AllowSort = False
		End With
		.Columns.Add(1).Visible = False
		With .Columns.Add(2)
			.Visible = False
			.Editor.EditType = 1
			.FormatColumn = "1 index `A-Z`"
		End With
		With .Columns.Add(3)
			.Visible = False
			.Editor.EditType = 1
			.FormatColumn = "1 index ``"
		End With
		With .Columns.Add(4)
			.Visible = False
			.Editor.EditType = 1
			.FormatColumn = "date(``)"
		End With
		dih = 48
		.DefaultItemHeight = dih
		.DrawGridLines = -2
		.GridLineStyle = 48
		With .Chart
			.DrawGridLines = -2
			.GridLineStyle = 48
			.PaneWidth(False) = 256
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2001#
			.Bars.Item("Task").OverlaidType = 515 ' OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
		End With
		With .Items
			h = .AddItem("")
			.CellValue(h,1) = "One"
			.AddBar h,"Task",#1/2/2001#,#1/12/2001#,"A"
			.AddBar h,"Task",#1/4/2001#,#1/14/2001#,"B"
			.ItemMaxHeight(h) = dih
			h = .AddItem("")
			.CellValue(h,1) = "Two"
			.AddBar h,"Task",#1/5/2001#,#1/10/2001#,"A"
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"B"
			.AddBar h,"Task",#1/5/2001#,#1/14/2001#,"B2"
			.ItemMaxHeight(h) = dih
			h = .AddItem("")
			.CellValue(h,1) = "Three"
			.AddBar h,"Task",#1/5/2001#,#1/10/2001#,"A"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.HeaderSingleLine = False
		.HeaderHeight = 36
		.DrawGridLines = -2
		.ColumnAutoResize = False
		.ScrollBySingleLine = True
		With .Columns
			With .Add("Single-Line (exCaptionSingleLine)")
				.Width = 96
				.Def(17) = 1
				.Def(16) = -1
			End With
			With .Add("Word-Wrap (exCaptionWordWrap)")
				.Width = 96
				.Def(17) = 1
				.Def(16) = 0
				.FormatColumn = "%0"
			End With
			With .Add("Break-Wrap (exCaptionBreakWrap)")
				.Width = 96
				.Def(17) = 1
				.Def(16) = 1
				.FormatColumn = "%0"
			End With
		End With
		With .Items
			.AddItem "This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line."
			.AddItem "This is the <b>first</b> line.\r\nThis is the <b>second</b> line.\r\nThis is the <b>third</b> line."
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2061:
Type of wraps the cell's caption support (Sample 1)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.HeaderSingleLine = False
		.HeaderHeight = 36
		.DrawGridLines = -2
		.ColumnAutoResize = False
		.ScrollBySingleLine = True
		.Columns.Add("Default").Width = 128
		With .Items
			h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
			h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
			.CellValueFormat(h,0) = 1
			h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
			.CellSingleLine(h,0) = 0
			h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
			.CellValueFormat(h,0) = 1
			.CellSingleLine(h,0) = 0
			h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
			.CellSingleLine(h,0) = 1
			h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
			.CellValueFormat(h,0) = 1
			.CellSingleLine(h,0) = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2060:
Can I break the cell's caption using the line break <br> or \r\n (Sample 2)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DrawGridLines = -2
		.ColumnAutoResize = False
		.ScrollBySingleLine = True
		.Columns.Add("Default").Width = 128
		With .Items
			.CellSingleLine(.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0) = 1
			.AddItem "This is the first line.\r\nThis is the second line.\r\nThis is the third line."
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2059:
Can I break the cell's caption using the line break <br> or \r\n (Sample 1)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DrawGridLines = -2
		.ColumnAutoResize = False
		.ScrollBySingleLine = True
		With .Columns.Add("Default")
			.Width = 128
			.Def(16) = 1
		End With
		With .Items
			.AddItem "This is the first line.\r\nThis is the second line.\r\nThis is the third line."
			.AddItem "This is the first line.\r\nThis is the second line.\r\nThis is the third line."
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2058:
The histogram is showing empty space, when expanding an item. What could be wrong

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = 5
		With .Chart
			.LevelCount = 2
			.PaneWidth(False) = 128
			.FirstVisibleDate = #1/1/2001#
			.HistogramVisible = True
			.HistogramHeight = 48
			.HistogramView = 1392 ' HistogramViewEnum.exHistogramNoGrouping Or HistogramViewEnum.exHistogramLeafItems Or HistogramViewEnum.exHistogramAllItems
			.Bars.Item("Task").HistogramPattern = 6
		End With
		.Columns.Add "Column"
		With .Items
			h = .AddItem("Project 1")
			.AddBar .InsertItem(h,,"Item 1"),"Task",#1/2/2001#,#1/4/2001#
			.AddBar .InsertItem(h,,"Item 2"),"Task",#1/3/2001#,#1/5/2001#
			.ExpandItem(h) = True
			h = .AddItem("Project 2")
			.AddBar .InsertItem(h,,"Item 1"),"Task",#1/7/2001#,#1/10/2001#
			.AddBar .InsertItem(h,,"Item 2"),"Task",#1/6/2001#,#1/8/2001#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2057:
How can I change the visual appearance/color of the Filter For ... field

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		.BackColorHeader = RGB(1,0,0)
		.ForeColorHeader = RGB(255,255,255)
		.Background(26) = .BackColorHeader
		.Background(27) = .ForeColorHeader
		.Background(0) = RGB(240,240,240)
		.Background(32) = -1
		.HeaderAppearance = 5
		With .Columns.Add("Items")
			.FilterOnType = True
			.DisplayFilterButton = True
			.FilterList = 2
		End With
		With .Items
			h = .AddItem("Root 1")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.ExpandItem(h) = True
			h = .AddItem("Root 2")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2056:
How can I display the cell's caption without spaces on both sides

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ColumnAutoResize = True
		With .Columns.Add("Default")
			.Def(17) = 1
			.FormatColumn = "((trim(value) replace `   ` with ` `) replace `  ` with ` `) replace ` ` with `<bgcolor=FF0000> </bgcolor>`"
		End With
		With .Items
			.AddItem ""
			.AddItem "Item A"
			.AddItem "    Item B"
			.AddItem "        Item   C    "
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2055:
How can I highlight the spaces within the column (sample 2)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ColumnAutoResize = True
		With .Columns.Add("Default")
			.Def(17) = 1
			.FormatColumn = "`'` + ( value replace ` ` with `_` ) + `'`"
		End With
		With .Items
			.AddItem ""
			.AddItem "Item A"
			.AddItem "    Item B"
			.AddItem "        Item   C    "
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2054:
How can I highlight the spaces within the column (sample 1)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ColumnAutoResize = True
		With .Columns.Add("Default")
			.Def(17) = 1
			.FormatColumn = "len(value) = 0 ? `<bgcolor=FF0000> </bgcolor>` : ( value replace ` ` with `<bgcolor=FF0000> </bgcolor>` )"
		End With
		With .Items
			.AddItem ""
			.AddItem "Item A"
			.AddItem "    Item B"
			.AddItem "        Item   C    "
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2053:
How can I change the visual aspect of the drop down filter-calendar

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Background(26) = RGB(0,0,1)
		.Background(27) = RGB(255,255,255)
		.Background(12) = RGB(255,255,255)
		.Background(8) = .Background(26)
		.Background(11) = RGB(128,128,128)
		With .Columns.Add("Date")
			.FilterType = 4
			.DisplayFilterButton = True
			.DisplayFilterDate = True
			.DisplayFilterPattern = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2052:
How can I scroll the chart to ensure that a bar fits the chart's client area

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_ButtonClick(Item,ColIndex,Key)
	With G2antt1
		kBar = .Items.FirstItemBar(Item)
		dStart = .Items.ItemBar(Item,kBar,1)
		dEnd = .Items.ItemBar(Item,kBar,2)
		dScroll = .FormatABC("(A+B)/2",dStart,dEnd)
		.Chart.ScrollTo dScroll,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 
		.ShowFocusRect = False
		.DrawGridLines = -1
		.GridLineStyle = 3
		.SelBackMode = 1
		With .Chart
			.OverviewVisible = 6402 ' OverviewVisibleEnum.exOverviewShowDateTimeScaleBottom Or OverviewVisibleEnum.exOverviewAllowVerticalScroll Or OverviewVisibleEnum.exOverviewShowAllVisible
			.OverviewHeight = 26
			.FirstVisibleDate = #6/8/2011#
			.AdjustLevelsToBase = True
			.PaneWidth(False) = 64
			.UnitWidth = 14
			.LevelCount = 2
			.DrawGridLines = -1
			.GridLineStyle = 3
			.SelBackColor = G2antt1.SelBackColor
			.ColumnsFormatLevel = """"":2,(""""/14;1/""""):14"
		End With
		With .Columns
			.Add "Default"
			With .Add("")
				.Def(2) = True
				.Def(4) = 15790320
				.Visible = False
			End With
		End With
		With .Items
			.AddBar .AddItem("T1"),"Task",#6/9/2011#,#6/17/2011#
			.AddBar .AddItem("T2"),"Task",#1/10/2012#,#1/17/2012#
			.AddBar .AddItem("T3"),"Task",#2/19/2013#,#2/23/2013#
			.AddBar .AddItem("T4"),"Task",#12/19/2014#,#12/23/2014#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2051:
Is it possible to hide completely the list portion

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.HeaderHeight = 32
		.OnResizeControl = 129 ' OnResizeControlEnum.exDisableSplitter Or OnResizeControlEnum.exResizeChart
		.DrawGridLines = -1
		With .ConditionalFormats.Add("%CS0 = 1")
			.ApplyToBars = "Task"
			.BarColor = RGB(255,0,0)
		End With
		With .Chart
			.FirstVisibleDate = #6/8/2011#
			.AdjustLevelsToBase = True
			.PaneWidth(False) = 0
			.LevelCount = 2
			.AllowInsideZoom = True
			With .Level(0)
				.Alignment = 1
				.Label = "<b><%d%>-<%mmm%>-<%yyyy%>"
				.Unit = 4096
			End With
			With .Level(1)
				.Label = "<%h%>"
				.Count = 8
				.Unit = 65536
				.FormatLabel = "date(int(dvalue)) case (#06/08/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>23/20'; 8 : 'Shift <b>2</b><br>38/30' ; 16 : '" & _
	"Shift <b>3</b><br>24/24' ) ) ; #06/09/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>15/20'; 8 : 'Shift <b>2</b><br>30/32' ; " & _
	"16 : 'Shift <b>3</b><br>26/24' ) ) )"
			End With
			.UnitWidth = 64
			.NonworkingDays = 0
			.ColumnsFormatLevel = "0"
			.AllowInsideZoom = True
			.DefaultInsideZoomFormat.InsideUnit = 1048576
			.AllowResizeInsideZoom = False
			.InsideZoomOnDblClick = False
			With .InsideZooms
				.SplitBaseLevel = False
				.DefaultWidth = 0
			End With
			With .InsideZooms
				.Add #6/9/2011 8:00:00 AM#
				.Add #6/9/2011 4:00:00 PM#
			End With
			.DrawGridLines = -1
			.GridLineStyle = 3
		End With
		.Columns.Add("Defaul").Def(0) = True
		With .Items
			.AddBar .AddItem("T1"),"Task",#6/8/2011 8:00:00 AM#,#6/10/2011#
			.AddBar .AddItem("T2"),"Task",#6/8/2011 4:00:00 PM#,#6/10/2011 8:00:00 AM#
			.AddBar .AddItem("T3"),"Task",#6/9/2011#,#6/10/2011#
			.CellState(.ItemByIndex(1),0) = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2050:
How can I find out what exBarWorkingCount represents

<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
			.Width = 42
		End With
		With .Columns.Add("Format")
			.Def(18) = 258
			.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
		With .Columns.Add("Value")
			.Def(18) = 258
			.SortType = 1
			.Editor.EditType = 1
		End With
		.HeaderAppearance = 4
		.DrawGridLines = -2
		.GridLineStyle = 48
		.SelBackColor = RGB(204,232,255)
		.SelForeColor = RGB(0,0,0)
		With .Chart
			.SelBackColor = G2antt1.SelBackColor
			.FirstVisibleDate = #4/6/2009#
			.PaneWidth(False) = 256
			.LevelCount = 2
			.UnitScale = 65536
			.NonworkingHours = 15728767
			.ShowNonworkingDates = False
			.ShowNonworkingUnits = False
			With .Bars.Item("Task")
				.Def(20) = True
			End With
			.AllowLinkBars = False
			.DrawGridLines = -2
			.GridLineStyle = 48
			.Level(0).DrawGridLines = True
			.ResizeUnitScale = 1048576
			.ResizeUnitCount = 15
			.Label(1048576) = "<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> " & _
	"<%h%>:<%nn%> <%AM/PM%><||>15"
			.AllowZoomOnFly = 280 ' ZoomOnFlyEnum.exZoomOnFlyIncludeNeighborItems Or ZoomOnFlyEnum.exZoomOnFly
			.BackColorZoomOnFly = RGB(255,255,0)
		End With
		.Items.AllowCellValueToItemBar = True
		With .Items
			h = .AddItem("")
			.SelectableItem(h) = False
			.SortableItem(h) = False
			.AddBar .AddItem("T1"),"Task",#4/6/2009 10:00:00 AM#,#4/6/2009 1:00:00 PM#
			.AddBar .AddItem("T2"),"Task",#4/6/2009 10:00:00 AM#,#4/6/2009 4:00:00 PM#
			.AddBar .AddItem("T3"),"Task",#4/6/2009 10:00:00 AM#,#4/6/2009 7:00:00 PM#
			h = .AddItem("")
			.SelectableItem(h) = False
			.SortableItem(h) = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2049:
How can I hide the filter bar description

<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("Filter")
			.DisplayFilterButton = True
			.FilterType = 240
			.Filter = "B"
		End With
		With .Items
			.AddItem "A"
			.AddItem "B"
			.AddItem "C"
		End With
		.ApplyFilter 
		.FilterBarHeight = 0
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2048:
How can I add a break bar

<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
			.Width = 42
		End With
		With .Columns.Add("Working")
			.Def(18) = 258
			.FormatColumn = "((1:=int(0:= (value))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 " & _
	"? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
		End With
		.HeaderAppearance = 4
		.DrawGridLines = -2
		.GridLineStyle = 48
		.SelBackColor = RGB(204,232,255)
		.SelForeColor = RGB(0,0,0)
		With .Chart
			.SelBackColor = G2antt1.SelBackColor
			.FirstVisibleDate = #4/6/2009#
			.PaneWidth(False) = 164
			.LevelCount = 2
			.UnitScale = 65536
			.NonworkingHours = 15728767
			.ShowNonworkingDates = False
			.ShowNonworkingUnits = False
			With .Bars.Add("Task:Split")
				.Def(20) = True
				.Shortcut = "Task"
			End With
			.AllowLinkBars = False
			.DrawGridLines = -2
			.GridLineStyle = 48
			.Level(0).DrawGridLines = True
			.ResizeUnitScale = 1048576
			.ResizeUnitCount = 15
			.Label(1048576) = "<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> " & _
	"<%h%>:<%nn%> <%AM/PM%><||>15"
			.AllowZoomOnFly = 280 ' ZoomOnFlyEnum.exZoomOnFlyIncludeNeighborItems Or ZoomOnFlyEnum.exZoomOnFly
			.BackColorZoomOnFly = RGB(255,255,0)
			.AllowNonworkingBars = True
		End With
		.Items.AllowCellValueToItemBar = True
		With .Items
			.AddItem ""
			h = .AddItem("T1")
			.ItemNonworkingUnits(h,False) = "(weekday(value) in (0,6)) or (timeF(value) < `07:00:00`) or (timeF(value) >= `20:00:00`) "
			.AddBar h,"",#4/6/2009 7:30:00 AM#,#4/6/2009 9:30:00 AM#,"A","<c><font ;4>break<br>bar"
			.ItemBar(h,"A",38) = True
			.AddBar h,"Task",#4/6/2009 10:00:00 AM#,#4/6/2009 0:00:00 PM#
			.AddBar .AddItem("T2"),"Task",#4/6/2009 10:00:00 AM#,#4/6/2009 5:45:00 PM#
			.AddItem ""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2047:
It seems the ResizeUnitCount have no effect on the ZoomOnFly feature, is it normal

<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
			.Width = 42
		End With
		With .Columns.Add("Working")
			.Def(18) = 258
			.FormatColumn = "((1:=int(0:= (value))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 " & _
	"? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
		End With
		.HeaderAppearance = 4
		.DrawGridLines = -2
		.GridLineStyle = 48
		.SelBackColor = RGB(204,232,255)
		.SelForeColor = RGB(0,0,0)
		With .Chart
			.SelBackColor = G2antt1.SelBackColor
			.FirstVisibleDate = #4/6/2009#
			.PaneWidth(False) = 164
			.LevelCount = 2
			.UnitScale = 65536
			.NonworkingHours = 15728767
			.ShowNonworkingDates = False
			.ShowNonworkingUnits = False
			With .Bars.Item("Task")
				.Def(20) = True
			End With
			.AllowLinkBars = False
			.DrawGridLines = -2
			.GridLineStyle = 48
			.Level(0).DrawGridLines = True
			.ResizeUnitScale = 1048576
			.ResizeUnitCount = 15
			.Label(1048576) = "<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> " & _
	"<%h%>:<%nn%> <%AM/PM%><||>15"
			.AllowZoomOnFly = 280 ' ZoomOnFlyEnum.exZoomOnFlyIncludeNeighborItems Or ZoomOnFlyEnum.exZoomOnFly
			.BackColorZoomOnFly = RGB(255,255,0)
		End With
		.Items.AllowCellValueToItemBar = True
		With .Items
			.AddItem ""
			.AddBar .AddItem("T1"),"Task",#4/6/2009 10:00:00 AM#,#4/6/2009 0:00:00 PM#
			.AddBar .AddItem("T2"),"Task",#4/6/2009 10:00:00 AM#,#4/6/2009 5:45:00 PM#
			.AddItem ""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2046:
Export Data in HTML format

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddGroupItem(Item)
	With G2antt1
		With .Items
			.ItemBold(Item) = True
			.AddBar Item,"Summary",.CellValue(Item,2),.CellValue(Item,4)
			.DefineSummaryBars Item,"",-3,""
		End With
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		With .Items
			i = .ItemToIndex(Item)
			.AddBar Item,"Task",#1/2/2008#,#1/9/2008#,""
			.ItemBar(Item,"",514) = i
			.ItemBar(Item,"",513) = i
		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)
		.DrawGridLines = -1
		.HeaderAppearance = 4
		.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
		.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
	"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
	"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
	"nt + ` item(s)`) )))"
		.FilterBarPromptVisible = 2579 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		.FilterBarPromptType = 2
		.SingleSort = False
		.AllowGroupBy = True
		.BackColorSortBar = .BackColor
		.DrawGridLines = -1
		With .VisualAppearance
			.Add 1,"gBFLBCJwBAEHhEJAAEhABOUGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCMQwAFBIbhrE4ZBjHGQRUgyI43RhHUBzV" & _
	"IUBxDEaTZLlEYJBgeHYhDJPcaUVDcWQHGyeZwjSgpKoWSJIU5NcggPDgEwTKCmKlTAKoSzJMyEmwWRAdVTZLSEaxierKPhyWT/XgAF4PfDFKRXFqXY5mKZJFqKOI8TxI" & _
	"NgxPQMGyrBqraLqKwQGrGCQKSBhUZ3dS2JR3OSlYRuQAMVgOXoDZhPWZXbDtSzPE63NgtOR5DiGWalABoeoxRa9cz3ViCJSrGTqIoINIzZLHFQbPpdAYdP6BeIjXhhZx" & _
	"BBuLZXmEOh9CcNoni2N4MjWVodh+DpfBeLJinsWR9AyYwVAkGBhEAFphGiRogDEGBamkFgtjcZgHiMbgehYaQhAIEIREAaQYkcQZUHIGRUGQDBOEaBAhDYDxGkMZAkCg" & _
	"eoagYZAYEYAYIAWGhemICIFj8WIiCiFR5gkIhogmBoKGKJx2C6C5hniMgggqYwog0UoNGMZJiDiCZRgOLY0ECUAQICA=="
			.RenderType = -268435456
		End With
		With .Chart
			.DrawGridLines = -1
			.PaneWidth(False) = 196
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2008#
			.FirstWeekDay = 1
			With .Bars.Item("Summary")
				.StartShape = 0
				.EndShape = 0
				.Shape = 1
				.Color = &H1808080
				.Height = 7
				.Def(3) = "<%=%513%>"
				.Def(4) = 18
			End With
			With .Bars.Item("Task")
				.Def(3) = "<%=(%2-%1) in (3,5) ? %513 : `` %>"
				.Def(4) = 18
			End With
		End With
		With .ConditionalFormats.Add("(%2 - %1) = 3","K3")
			.ForeColor = RGB(255,0,0)
			.BarColor = .ForeColor
			.ApplyToBars = "Task"
		End With
		With .ConditionalFormats.Add("(%2 - %1) = 5","K5")
			.ForeColor = RGB(0,255,0)
			.BarColor = .ForeColor
			.ApplyToBars = "Task"
		End With
		With .Columns
			.Add("Tasks").Def(0) = True
			With .Add("Start")
				.Def(18) = 1
				.Def(19) = ""
			End With
			With .Add("End")
				.Def(18) = 2
				.Def(19) = ""
			End With
		End With
		With .Items
			.AllowCellValueToItemBar = True
			.AddItem "Task A"
			.AddItem "Task A"
			.AddItem "Task A"
			.AddItem "Task A"
			.AddItem "Task B"
			.AddItem "Task B"
			.AddItem "Task B"
			.AddItem "Task C"
		End With
		.Columns.Item("Tasks").SortOrder = 1
		.EndUpdate 
		sFile = "c:/temp/export.html"
		.Export sFile,"vis"
		With CreateObject("InternetExplorer.Application")
			.Navigate2 sFile
		End With
	End With
End Function
</SCRIPT>
</BODY>

2045:
Export Data in CSV format

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		With .Items
			i = .ItemToIndex(Item)
			.AddBar Item,"Task",#1/2/2008#,#1/9/2008#,""
			.ItemBar(Item,"",514) = i
			.ItemBar(Item,"",513) = i
		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)
		.DrawGridLines = -1
		.HeaderAppearance = 4
		.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11))
		.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
	"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
	"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
	"nt + ` item(s)`) )))"
		.FilterBarPromptVisible = 2579 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		.FilterBarPromptType = 2
		With .Chart
			.PaneWidth(False) = 196
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2008#
			With .Bars.Item("Task")
				.Def(3) = "<%=(%2-%1) in (3,5) ? %513 : `` %>"
				.Def(4) = 18
			End With
		End With
		With .ConditionalFormats.Add("(%2 - %1) = 3","K3")
			.ForeColor = RGB(255,0,0)
			.BarColor = .ForeColor
			.ApplyToBars = "Task"
		End With
		With .ConditionalFormats.Add("(%2 - %1) = 5","K5")
			.ForeColor = RGB(0,255,0)
			.BarColor = .ForeColor
			.ApplyToBars = "Task"
		End With
		With .Columns
			.Add("Tasks").Def(0) = True
			With .Add("Start")
				.Def(18) = 1
				.Def(19) = ""
			End With
			With .Add("End")
				.Def(18) = 2
				.Def(19) = ""
			End With
		End With
		With .Items
			.AllowCellValueToItemBar = True
			.AddItem "Task A"
			.AddItem "Task A"
			.AddItem "Task A"
			.AddItem "Task A"
			.AddItem "Task B"
			.AddItem "Task B"
			.AddItem "Task B"
			.AddItem "Task C"
		End With
		.EndUpdate 
		alert( .Export("","vis") )
	End With
End Function
</SCRIPT>
</BODY>

2044:
I want to be able to detect when a user clicks on a row in the chart that is not populated

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		item = .ItemFromPoint(-1,-1,col,hit)
		date = .Chart.DateFromPoint(-1,-1)
		sMessage = .FormatABC("(not(A = 0) ? `chart` : `list`) + ` ` + (not(B = 0) ? `item` : `empty`)  ",date,item)
		alert( sMessage )
	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) = 128
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2018#
		End With
		.Columns.Add "Tasks"
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#1/2/2018#,#1/12/2018#
			.AddBar .AddItem("Task 2"),"Task",#1/3/2018#,#1/13/2018#
			.AddBar .AddItem("Task 3"),"Task",#1/4/2018#,#1/14/2018#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2043:
Is it possible to have multiple calendars. A calendar for each row for example. Reason : some of our lines work 2 shifts but some also have a night shift

<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("Working")
			.Def(18) = 258
			.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
		With .Chart
			.FirstVisibleDate = #4/6/2009#
			.PaneWidth(False) = 148
			.LevelCount = 2
			.ShowNonworkingUnits = False
			.ShowNonworkingDates = False
			With .Bars
				.Add("Task:Split").Shortcut = "Task"
				.Item("Task").Def(20) = True
			End With
			.Label(65536) = "<%h%><||><||>65536"
			.Level(0).FormatLabel = "`<font small fonts;6>` + value"
			.Level(1).FormatLabel = "len(value) = 2 ? (`<font small fonts;4>` + (value left 1) + `<br>` + (value right 1) ) : (`<font small fonts;4>` + ` <br>` + (v" & _
	"alue left 1) + `` )"
			.UnitScale = 65536
			.UnitWidth = 9
		End With
		.Items.AllowCellValueToItemBar = True
		With .Items
			sCalendar1 = "weekday(value) in (0,6) or (hour(value) < 6) or (hour(value) > 18)"
			h = .AddItem("Shift 1")
			.ItemNonworkingUnits(h,False) = sCalendar1
			.AddBar h,"Task",#4/6/2009#,#4/7/2009#
			h = .AddItem("Shift 1")
			.ItemNonworkingUnits(h,False) = sCalendar1
			.AddBar h,"Task",#4/6/2009#,#4/8/2009#
			sCalendar2 = "weekday(value) in (0,6) or (hour(value) < 8) or (hour(value) > 14)"
			h = .AddItem("Shift 2")
			.ItemNonworkingUnits(h,False) = sCalendar2
			.AddBar h,"Task",#4/6/2009#,#4/7/2009#
			h = .AddItem("Shift 2")
			.ItemNonworkingUnits(h,False) = sCalendar2
			.AddBar h,"Task",#4/6/2009#,#4/8/2009#
			sCalendar3 = "weekday(value) in (0,6) or 0 = ( hour(value) mod 3 ) "
			h = .AddItem("Shift 3")
			.ItemNonworkingUnits(h,False) = sCalendar3
			.AddBar h,"Task",#4/6/2009#,#4/7/2009#
			h = .AddItem("Shift 3")
			.ItemNonworkingUnits(h,False) = sCalendar3
			.AddBar h,"Task",#4/6/2009#,#4/8/2009#
			sCalendar4 = "weekday(value) in (0,6)"
			h = .AddItem("Shift 3")
			.ItemNonworkingUnits(h,False) = sCalendar4
			.AddBar h,"Task",#4/6/2009#,#4/7/2009#
			h = .AddItem("Shift 3")
			.ItemNonworkingUnits(h,False) = sCalendar4
			.AddBar h,"Task",#4/6/2009#,#4/8/2009#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2042:
Is it possible to check multiple-items at once

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		bHasParent = .FormatABC("value != 0",.Items.ItemParent(Item))
		With .Items
			.CellHasCheckBox(Item,0) = bHasParent
		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(17) = 1
			.FormatColumn = "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)"
		End With
		.HeaderVisible = 1
		.SingleSel = False
		With .Items
			h = .AddItem("Project")
			hChild = .InsertItem(h,,"Task 1")
			hChild = .InsertItem(h,,"Task 2")
			hChild = .InsertItem(h,,"Task 3")
			.ExpandItem(h) = True
			.LockedItemCount(0) = 1
			.CellValue(.LockedItem(0,0),0) = "<c>Select multiple items and press the <b>SPACE</b> key"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2041:
How can I prevent changing the start/end colors of the bar, when ItemBar(exBarColor) property is applied

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.VisualAppearance.Add 1,"E:\Exontrol\ExButton\sample\EBN\Assorted\bhframe.ebn"
		.Chart.PaneWidth(False) = 96
		With .Chart.Bars
			.AddShapeCorner 12345,1
			.AddShapeCorner 999,2
			.AddShapeCorner 1049,3
			With .Add("T1")
				.StartShape = 12345 ' &H3020 Or ShapeCornerEnum.exShapeIconVBar Or ShapeCornerEnum.exShapeIconRight
				.EndShape = 999 ' &H3e0 Or ShapeCornerEnum.exShapeIconLeft
				.Pattern = 4
				.StartColor = RGB(0,255,0)
				.Color = &H1000000
				.EndColor = RGB(255,0,0)
				.Def(3) = "<%=`<font ;6>  ` + %0 + ``%>"
				.Def(4) = 18
			End With
			With .Add("T2")
				.StartShape = 12345 ' &H3020 Or ShapeCornerEnum.exShapeIconVBar Or ShapeCornerEnum.exShapeIconRight
				.EndShape = 1049 ' &H400 Or ShapeCornerEnum.exShapeIconVBar Or ShapeCornerEnum.exShapeIconRight
				.Pattern = 4
				.StartColor = -1
				.Color = &H1000000
				.EndColor = -1
				.Def(3) = "<%=`<font ;6>  ` + %0 + ``%>"
				.Def(4) = 18
			End With
		End With
		.Chart.FirstVisibleDate = #1/1/2001#
		.Columns.Add "Column"
		With .Items
			h = .AddItem("Item 1")
			.AddBar h,"T1",#1/2/2001#,#1/4/2001#
			h = .AddItem("Item 2")
			.AddBar h,"T1",#1/2/2001#,#1/4/2001#
			.ItemBar(h,"",33) = 65280
			h = .AddItem("Item 3")
			.AddBar h,"T1",#1/2/2001#,#1/4/2001#
			.ItemBar(h,"",33) = 255
			h = .AddItem("Item 4")
			.AddBar h,"T2",#1/2/2001#,#1/4/2001#
			h = .AddItem("Item 5")
			.AddBar h,"T2",#1/2/2001#,#1/4/2001#
			.ItemBar(h,"",33) = 65280
			h = .AddItem("Item 6")
			.AddBar h,"T2",#1/2/2001#,#1/4/2001#
			.ItemBar(h,"",33) = 255
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2040:
How can I get the icon from the cell when using the Items.CellImages property (icon index)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		i = .ItemFromPoint(-1,-1,c,hit)
		alert( .FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? ( ( (value bitand 0xFFFF0000) bitshift 16 ) array B split `,` )  : `no image`",hit,.Items.CellImages(i,c)) )
	End With
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.Chart.PaneWidth(True) = 0
		.Columns.Add "Default"
		With .Items
			.CellImages(.AddItem("Item 1"),0) = "3,2,1"
			.CellImages(.AddItem("Item 2"),0) = "2,3"
			.CellImages(.AddItem("Item 3"),0) = "2,"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2039:
How can I get the icon from the cell when using the Items.CellImages property (icon position within the cell)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		i = .ItemFromPoint(-1,-1,c,hit)
		alert( .FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",hit) )
	End With
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.Chart.PaneWidth(True) = 0
		.Columns.Add "Default"
		With .Items
			.CellImages(.AddItem("Item 1"),0) = "3,2,1"
			.CellImages(.AddItem("Item 2"),0) = "2,3"
			.CellImages(.AddItem("Item 3"),0) = "2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2038:
I have an EBN bar. Now if I apply an additional color to the bar, e,g, yellow, the bar is displayed as "dark yellow", which I assume is due to the black EBN color. How can I get the more "bright yellow" color

<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 
		With .VisualAppearance
			.Add 1,"gBFLBCJwBAEHhEJAAEhABOUGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCMQwAFBIbhrE4ZBjHGQRUgyI43RhHUBzV" & _
	"IUBxDEaTZLlEYJBgeHYhDJPcaUVDcWQHGyeZwjSgpKoWSJIU5NcggPDgEwTKCmKlTAKoSzJMyEmwWRAdVTZLSEaxierKPhyWT/XgAF4PfDFKRXFqXY5mKZJFqKOI8TxI" & _
	"NgxPQMGyrBqraLqKwQGrGCQKSBhUZ3dS2JR3OSlYRuQAMVgOXoDZhPWZXbDtSzPE63NgtOR5DiGWalABoeoxRa9cz3ViCJSrGTqIoINIzZLHFQbPpdAYdP6BeIjXhhZx" & _
	"BBuLZXmEOh9CcNoni2N4MjWVodh+DpfBeLJinsWR9AyYwVAkGBhEAFphGiRogDEGBamkFgtjcZgHiMbgehYaQhAIEIREAaQYkcQZUHIGRUGQDBOEaBAhDYDxGkMZAkCg" & _
	"eoagYZAYEYAYIAWGhemICIFj8WIiCiFR5gkIhogmBoKGKJx2C6C5hniMgggqYwog0UoNGMZJiDiCZRgOLY0ECUAQICA=="
			.RenderType = -268435456
		End With
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/2/2017#
			.PaneWidth(False) = 342
			With .Bars.Item("Summary")
				.StartShape = 0
				.EndShape = 0
				.Shape = 1
				.Color = &H1ff0000
				.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>

2037:
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.HeaderAppearance = 4
		With .Columns
			.Add "Column 1"
			.Add "Column 2"
			.Add "Column 3"
		End With
		With .VisualAppearance
			.Add 1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV" & _
	"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" & _
	"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" & _
	"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDI" & _
	"BICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAok" & _
	"GKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI="
			.Add 2,"CP:1 0 -36 0 0"
		End With
		.Background(182) = &H2000000
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2036:
Overlaid-Types

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		With .Items
			barName = .ItemData(Item)
			.AddBar Item,barName,#1/2/2001#,#1/4/2001#,"A1"
			.AddBar Item,barName,#1/3/2001#,#1/5/2001#,"A2"
			.AddBar Item,barName,#1/4/2001#,#1/7/2001#,"A3"
			.AddBar Item,barName,#1/5/2001#,#1/8/2001#,"A4"
		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 
		.DefaultItemHeight = 22
		.Columns.Add "Task"
		.ScrollBySingleLine = True
		.BackColorAlternate = RGB(240,240,240)
		.DrawGridLines = 1
		With .Chart
			.DrawGridLines = 1
			.ShowNonworkingDates = False
			.PaneWidth(False) = 164
			.FirstVisibleDate = #12/28/2000#
			.LevelCount = 2
			.Bars.Copy("Task","Intersect").Color = RGB(255,0,0)
			.Bars.Item("Task").OverlaidType = 0
			With .Bars.Copy("Task","Task-Transparent")
				.OverlaidType = 0
				.Def(19) = 50
				.Pattern = 32
				.Color = RGB(0,0,0)
				.StartColor = RGB(80,80,255)
				.EndColor = .StartColor
			End With
			.Bars.Copy("Task","Task-Offset").OverlaidType = 1
			With .Bars.Copy("Task","Task-OffsetTransparent")
				.OverlaidType = 257 ' OverlaidBarsTypeEnum.exOverlaidBarsTransparent Or OverlaidBarsTypeEnum.exOverlaidBarsOffset
				.Overlaid(256) = 75
			End With
			With .Bars.Copy("Task","Task-Intersect")
				.OverlaidType = 2
				.Overlaid(2) = "Intersect"
			End With
			.Bars.Copy("Task","Task-Stack").OverlaidType = 3
			With .Bars.Copy("Task","Task-StackAutoArrange")
				.OverlaidType = 515 ' OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
				.Color = RGB(255,0,0)
				.OverlaidGroup = "Task"
			End With
			With .Bars.Copy("Task","Task-Cascade")
				.OverlaidType = 4
				.Color = RGB(255,0,0)
				.OverlaidGroup = "Task"
			End With
			With .Bars.Copy("Task","Task-Strict")
				.OverlaidType = 8195 ' OverlaidBarsTypeEnum.exOverlaidBarsStrict Or OverlaidBarsTypeEnum.exOverlaidBarsStack
				.OverlaidGroup = "Task"
				.Color = RGB(255,0,0)
			End With
		End With
		With .Items
			.InsertItem 0,"Task","Overlaid-None"
			.InsertItem 0,"Task-Transparent","Overlaid-Semi-Transparent"
			.InsertItem 0,"Task-Offset","Overlaid-Offset"
			.InsertItem 0,"Task-OffsetTransparent","Overlaid-OffsetTransparent"
			.InsertItem 0,"Task-Intersect","Overlaid-Intersect"
			.InsertItem 0,"Task-Stack","Overlaid-Stack"
			h = .InsertItem(0,"Task-StackAutoArrange","Overlaid-StackAutoArrange")
			.AddBar h,"Task",#1/7/2001#,#1/9/2001#,"T1"
			.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"T2"
			.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"T3"
			.AddBar h,"Task",#1/5/2001#,#1/8/2001#,"T4"
			h = .InsertItem(0,"Task-Cascade","Overlaid-Cascade")
			.AddBar h,"Task",#1/7/2001#,#1/9/2001#,"T1"
			.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"T2"
			.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"T3"
			.AddBar h,"Task",#1/5/2001#,#1/8/2001#,"T4"
			.ItemBar(h,"<A*>",52) = "A"
			.ItemBar(h,"<T*>",52) = "T"
			h = .InsertItem(0,"Task","Overlaid-StackStrict")
			.AddBar h,"Task-Strict",#1/7/2001#,#1/9/2001#,"T1"
			.ItemBar(0,"<*>",3) = "<%=%9%>"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2035:
FilterBarCaption ALLUI Keyword ( sample 3, result, leaf )

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddGroupItem(Item)
	With G2antt1
		With .Items
			.ItemBackColor(Item) = RGB(240,240,240)
			val = .CellValue(Item,.GroupItem(Item))
			.CellState(Item,.GroupItem(Item)) = G2antt1.FormatABC("A = `Checked` ? 1 : 0",val)
		End With
		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
		End With
		.Chart.ItemBackColor(Item) = RGB(240,240,240)
	End With
End Function
</SCRIPT>

<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 
		.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABOUGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCMQwAFBIbhrE4ZBjHGQRUgyI43RhHUBzV" & _
	"IUBxDEaTZLlEYJBgeHYhDJPcaUVDcWQHGyeZwjSgpKoWSJIU5NcggPDgEwTKCmKlTAKoSzJMyEmwWRAdVTZLSEaxierKPhyWT/XgAF4PfDFKRXFqXY5mKZJFqKOI8TxI" & _
	"NgxPQMGyrBqraLqKwQGrGCQKSBhUZ3dS2JR3OSlYRuQAMVgOXoDZhPWZXbDtSzPE63NgtOR5DiGWalABoeoxRa9cz3ViCJSrGTqIoINIzZLHFQbPpdAYdP6BeIjXhhZx" & _
	"BBuLZXmEOh9CcNoni2N4MjWVodh+DpfBeLJinsWR9AyYwVAkGBhEAFphGiRogDEGBamkFgtjcZgHiMbgehYaQhAIEIREAaQYkcQZUHIGRUGQDBOEaBAhDYDxGkMZAkCg" & _
	"eoagYZAYEYAYIAWGhemICIFj8WIiCiFR5gkIhogmBoKGKJx2C6C5hniMgggqYwog0UoNGMZJiDiCZRgOLY0ECUAQICA=="
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/2/2017#
			.PaneWidth(False) = 256
			With .Bars.Item("Summary")
				.StartShape = 0
				.EndShape = 0
				.Shape = 1
				.Color = &H1000000
				.Def(3) = "<%=%513%>"
				.Def(4) = 18
			End With
		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")
			.Def(0) = True
			.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 rpos ``"
			.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>` + leafitemcount + ` result(s)` ) : (`<r><fgcolor=808080>`+ leafitemcount + `" & _
	" item(s)`) )))"
		.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		.AllowGroupBy = True
		.SortBarVisible = True
		With .Columns.Item(2)
			.FormatColumn = "%CS2 ? `Checked` : `Unchecked`"
			.SortOrder = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2034:
A black portion is shown while I am using the BackColorAlternate with EBN colors. What can I do

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ColumnAutoResize = True
		.DefaultItemHeight = 20
		.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1m" & _
	"Y1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2h" & _
	"hWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY" & _
	"6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQR" & _
	"JSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd" & _
	"0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA=="
		With .Columns.Add("Default")
			.Def(0) = True
			.PartialCheck = True
		End With
		With .Columns.Add("Position")
			.FormatColumn = "1 rindex ``"
			.Visible = False
		End With
		With .ConditionalFormats.Add("%C1 mod 2")
			.BackColor = &H1000000
		End With
		With .Items
			.AddItem "Item 1"
			.AddItem "Item 2"
			.AddItem "Item 3"
			.AddItem "Item 4"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2033:
How can I specify alternate background colors for each root item, similar with BackColorAlternate

<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("Default")
			.Def(0) = True
			.PartialCheck = True
		End With
		With .Columns.Add("Position")
			.FormatColumn = "( ( 1:=( ( 0:=(1 rpos '') ) lfind `.`) ) < 0 ? =:0 : (=:0 left =:1) )"
			.Visible = False
		End With
		With .ConditionalFormats.Add("%C1 mod 2")
			.BackColor = RGB(240,240,240)
		End With
		With .Items
			h = .AddItem("Root 1")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.ExpandItem(h) = True
			h = .AddItem("Root 2")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			h = .AddItem("Root 3")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2032:
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 4)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		.VisualDesign = "gBFLBWIgBAEHhEJAEGg6VAkHeLpgwChAOhULB8XAUUg8MAAREEHGMcgRCJ0ei8dhABDEcQAAYAQGKIYBkAKBQAGaAoDDMOQwQwAAxjGKEEwsACEIrjKCRShyCYZRhGc" & _
	"TSBCIZBqEqSZLiEZRQiiCYsS5GQBRWAkEwiBiEQTjea5CgOIAFS7LIqjRQEBxhIaZYIGaiQADENo9TxIMZAfBIHShK6NJABCCSQKkYx0HScRijDIEFwGIQmbKiej4DCi" & _
	"CQQW7OYYRVCNMQSfa8HivJyrcamfp/YBgOBYHb1eLVPR5LwfPCGUw1P6PLxkORZHimK4tSLHV7xVpMIwZFafIQhCCoHomS5NU7UNR0TQUFx9FaGX7rDDsGwLAJ6XRgF4" & _
	"bg2VpnHePpenAN4bH2GwHFmApSjEGBLnWOpRGOTBZHOegrE6BxPiWVJqCweQrn0LgJAWJBjwgaw1gKO5HmWch5h+fovF+G5bmich4BgfZkB8dynRUVYqiUR5rnmex/F6" & _
	"N4tn2AJfnebZ3DEXw3HWXgzAyIwgicKJKBKEIhCeCgiHyHYFEmSAFmqBghFIdgSCeIJygYDAyAgJx6AoIINAMOJNCgCZCGoGoLmMCI+CwJoihMNglCCIhzFCUg0EmMhg" & _
	"hWDBkAiQg9CUY4jEYN4Jk2IxklYJoJHIUg+CSZJSESFwkkkGI+FOFIJEIRhPhMCRJCSVoRrSBhiDgTZjHYT4PEkYhwhgJYm0SaIaiaSYuE+GQNlmCIBGCJxjhiZQ5AkM" & _
	"hAg6ExJCkPhPguaAiFYUAlAkKZ0g6HoOEmWR/GHcA4m0OwIlIJIHCRgQshGJhpjoaocieaZiC6GAimkUgehIOwnGYGYIGkah6jaE4rg6SpCjKK5rEOMYlGIGIihKOggl" & _
	"oFoqj6L5aGaBo6CkGIkAQjiPpCAAaJILCTJQlKPACDaXJgmSaJsnCdJ4nygKEoijKQpSmKcqCpKoqysK0rivLAsSyLMtC1LYty4Lkui7LwvS+L8wDBMIwzEMUxjHMgyT" & _
	"KMszDNM4zzQNE0jTNQ1TWNc2DZNo2zcN03jfOA4TiOM5DlOY5zoOk6jrOw7TuO88DxPI8z0PU9j3Pg+T6Ps/D9P4/0AQFAkDQRBUGQdCEJQpC0MQ1DkPRBEUSRNFEVBh" & _
	"FkXRhGQ9D6Dxfh+W5gGGd4QH2XQjCmDpFFaKoVB+D5Xmed5+H8YAHnIAh9EwV5Fl0d4MkMKJICmSgygSJAoEmMUCIPgnDCCIOQFYCxJjwFoCcA4kxoF+AIJkAgExegDE" & _
	"gEYQInAzCUAIOEGgfxiiRDYF1Q4EQ2BSCaEQYwbAiKREMpRSymFNDIAkAxT6oVRgSA2qdVKq1WqvVirMZQUhSCnBUMoIgoQRgnGSIQUgkg1hIHYAkAYMROAmHiLsE4xx" & _
	"SCxBwEwCQ0wmDdBsE0GYXBtg2CSPMFIuwYiQBYBQeAcwOCnBCCZgw0g0glBONAQgqQThCGgPQGoBQfiRGmOEZIPAXjsBoPAO4HRThhA0EQSA5BAgaCKJIGg3QdhOCmNU" & _
	"BoQAijTCIF0FwQxpCHDIPAYYMQGgtCmFcaQtRAjZCyFYSojQ2B2BoKwIYFApBXEIBsIQ1QsAWAWEwaA1xCgjAoIAQBAQ="
		.Columns.Add "Column"
		With .Items
			h = .AddItem("Root 1")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.ExpandItem(h) = True
			h = .AddItem("Root 2")
			.InsertItem h,,"Child"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2031:
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 3)

<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 3,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
	"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
	"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
	"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" & _
	"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" & _
	"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" & _
	"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA="
			.Add 1,"CP:3 -2 -2 2 2"
			.Add 4,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
	"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
	"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
	"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCE" & _
	"eBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchO" & _
	"FSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQO" & _
	"JtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI="
			.Add 2,"CP:4 -2 -2 2 2"
		End With
		.LinesAtRoot = 1
		.HasButtons = 4
		.HasButtonsCustom(0) = 16777216
		.HasButtonsCustom(1) = 33554432
		.Columns.Add "Column"
		With .Items
			h = .AddItem("Root 1")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.ExpandItem(h) = True
			h = .AddItem("Root 2")
			.InsertItem h,,"Child"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2030:
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 2)

<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,"XP:TREEVIEW 2 1"
			.Add 2,"XP:TREEVIEW 2 2"
		End With
		.Background(180) = &H1000000
		.Background(181) = &H2000000
		.LinesAtRoot = -1
		.Columns.Add "Column"
		With .Items
			h = .AddItem("Root 1")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.ExpandItem(h) = True
			h = .AddItem("Root 2")
			.InsertItem h,,"Child"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2029:
How can I find if the control is running in DPI mode
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		alert( .FormatABC("dpi = 1 ? `normal/stretch mode` : `dpi mode`") )
	End With
End Function
</SCRIPT>
</BODY>

2028:
How can I change the visual appearance of the +/- buttons (method 1)

<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,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
	"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
	"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
	"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" & _
	"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" & _
	"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" & _
	"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA="
			.Add 2,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
	"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
	"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
	"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCE" & _
	"eBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchO" & _
	"FSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQO" & _
	"JtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI="
		End With
		.LinesAtRoot = -1
		.Background(180) = &H1000000
		.Background(181) = &H2000000
		.Columns.Add "Column"
		With .Items
			h = .AddItem("Root 1")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.ExpandItem(h) = True
			h = .AddItem("Root 2")
			.InsertItem h,,"Child"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount +" & _
	" `</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>