2337
How can I convert the exBarStart/exBarEnd property to a string (by default it returns as VARIANT/VT_DATE type, method 3)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_BarResizing(Item,Key)
	With G2antt1
		alert( "Start" )
		alert( Key )
		alert( .Items.ItemBar(Item,Key,547) )
		alert( "End" )
		alert( Key )
		alert( .Items.ItemBar(Item,Key,548) )
	End With
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		.Debug = True
		With .Chart
			.FirstVisibleDate = #9/20/2006#
			.LevelCount = 2
			.PaneWidth(0) = 96
			.ResizeUnitScale = 1048576
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#9/21/2006#,#9/24/2006#,"K1"
			.AddBar .AddItem("Task 2"),"Task",#9/22/2006#,#9/25/2006#,"K2"
			.AddBar .AddItem("Task 3"),"Task",#9/23/2006#,#9/26/2006#,"K3"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2336
How can I convert the exBarStart/exBarEnd property to a string (by default it returns as VARIANT/VT_DATE type, method 2)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_BarResizing(Item,Key)
	With G2antt1
		alert( "Start" )
		alert( Key )
		alert( .FormatABC("dateF(value)",.Items.ItemBar(Item,Key,1)) )
		alert( "End" )
		alert( Key )
		alert( .FormatABC("dateF(value)",.Items.ItemBar(Item,Key,2)) )
	End With
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		.Debug = True
		With .Chart
			.FirstVisibleDate = #9/20/2006#
			.LevelCount = 2
			.PaneWidth(0) = 96
			.ResizeUnitScale = 1048576
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#9/21/2006#,#9/24/2006#,"K1"
			.AddBar .AddItem("Task 2"),"Task",#9/22/2006#,#9/25/2006#,"K2"
			.AddBar .AddItem("Task 3"),"Task",#9/23/2006#,#9/26/2006#,"K3"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2335
How can I convert the exBarStart/exBarEnd property to a string (by default it returns as VARIANT/VT_DATE type, method 1)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_BarResizing(Item,Key)
	With G2antt1
		alert( "Start" )
		alert( Key )
		alert( .FormatABC("date(value) format `MM/dd/yyyy HH:mm:ss`",.Items.ItemBar(Item,Key,1)) )
		alert( "End" )
		alert( Key )
		alert( .FormatABC("date(value) format `MM/dd/yyyy HH:mm:ss`",.Items.ItemBar(Item,Key,2)) )
	End With
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		.Debug = True
		With .Chart
			.FirstVisibleDate = #9/20/2006#
			.LevelCount = 2
			.PaneWidth(0) = 96
			.ResizeUnitScale = 1048576
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#9/21/2006#,#9/24/2006#,"K1"
			.AddBar .AddItem("Task 2"),"Task",#9/22/2006#,#9/25/2006#,"K2"
			.AddBar .AddItem("Task 3"),"Task",#9/23/2006#,#9/26/2006#,"K3"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2334
Add/Remove/Updates the item-bar's resources

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_Click()
	With G2antt1
		With .Items
			h = .SelectedItem(0)
			.ItemBar(h,.FirstItemBar(h),49) = "+R4[10%]"
		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
		.HeaderHeight = 24
		With .Chart
			.PaneWidth(False) = 96
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2001#
			With .Bars.Item("Task")
				.Def(4) = 18
				.Def(3) = "<%=%49%>"
			End With
		End With
		.Columns.Add "Machines"
		With .Items
			h = .AddItem("Machine 1")
			.AddBar h,"Task",#1/6/2001#,#1/12/2001#,"K1"
			.ItemBar(h,"K1",49) = "R1,R2"
			h = .AddItem("Machine 2")
			.AddBar h,"Task",#1/4/2001#,#1/14/2001#,"K2"
			.ItemBar(h,"K2",49) = "R2[75%],R3"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2333
Distributes resources to a bar

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.HeaderAppearance = 4
		.HeaderHeight = 24
		With .Chart
			.PaneWidth(False) = 96
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2001#
			With .Bars.Item("Task")
				.Def(4) = 18
				.Def(3) = "<%=%49%>"
			End With
		End With
		.Columns.Add "Machines"
		With .Items
			h = .AddItem("Machine 1")
			.AddBar h,"Task",#1/6/2001#,#1/12/2001#,"K1"
			.ItemBar(h,"K1",49) = "R1,R2"
			h = .AddItem("Machine 2")
			.AddBar h,"Task",#1/4/2001#,#1/14/2001#,"K2"
			.ItemBar(h,"K2",49) = "R2[75%],R3"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2332
How can I display additional information about a time zone when the user clicks on it (expandable)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.PaneWidth(False) = 0
			.LevelCount = 2
			.FirstVisibleDate = #12/20/2009#
			.MarkTimeZone "TZ",#1/1/2010#,#1/3/2010#,65280,"1;;<c>TimeZone<b><off -4><a ;exp=just more info about>*</a></b>;1"
		End With
	End With
End Function
</SCRIPT>
</BODY>

2331
How can I have a tooltip for a marked TimeZone

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		.ShowToolTip .Chart.TimeZoneFromPoint(-1,-1),"",,"+8"
	End With
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.PaneWidth(False) = 0
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2009#
			.MarkTimeZone "Top",#1/1/2010#,#1/5/2010#,16711680,"1;;<fgcolor=FFFFFF>Top;1"
			.MarkTimeZone "Partial",#1/8/2010#,#1/12/2010#,16711680,"50;;<fgcolor=FFFFFF>Partial;1"
			.MarkTimeZone "Default",#1/15/2010#,#1/19/2010#,16711680,";;<fgcolor=FFFFFF>Default;1"
		End With
	End With
End Function
</SCRIPT>
</BODY>

2330
Can I set a filter that automatically adds a * before and after the word, so the user can just search for 'cat' and it becomes '*cat*' automatically

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.HeaderAppearance = 4
		.HeaderHeight = 24
		.LinesAtRoot = -1
		With .Columns.Add("Items")
			.DisplayFilterButton = True
			.DisplayFilterPattern = True
			.Def(21) = "*<%filter%>*"
			.FilterType = 3
			.Filter = "1"
		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
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2329
The fine dotted lines in the control appear much thicker than the standard ones we've been using. How can we fix this

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.HeaderAppearance = 4
		.HeaderHeight = 24
		.DrawGridLines = -1
		.GridLineStyle = 512
		With .Chart
			.GridLineStyle = 512
			.DrawGridLines = -1
		End With
		.ColumnAutoResize = False
		.Columns.Add "Column 1"
		.Columns.Add "Column 2"
		.Columns.Add "Column 3"
		.Columns.Add "Column 4"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2328
Load data as a tree using a parent-id relationship

<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
		.HeaderHeight = 24
		.DrawGridLines = 2
		.LinesAtRoot = -1
		Set rs = CreateObject("ADODB.Recordset")
		With rs
			.Open "Select * FROM Employees WHERE 1=0","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.mdb",3,3
		End With
		.DataSource = rs
		.Columns.Item(0).Width = 128
		Set rs = CreateObject("ADODB.Recordset")
		With rs
			.Open "Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.mdb",3,3
		End With
		.PutItems rs.GetRows(),";0;17"
		.Items.ExpandItem(0) = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2327
Is there a way to change the contents of the drop down editor based on a value in another column

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.CellEditorVisible(Item,0) = 1
		.Items.CellEditorVisible(Item,1) = 1
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function G2antt1_EditOpen()
	With G2antt1
		With .Items
			v = .CellValue(.FocusItem,0)
			c = .CellCaption(.FocusItem,0)
		End With
		With .Columns.Item(1).Editor
			.ClearItems 
			.AddItem v,c
		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
		.HeaderHeight = 24
		.GridLineStyle = 512
		With .Columns.Add("DropDownList")
			With .Editor
				.EditType = 3
				.AddItem 1,"First"
				.AddItem 2,"Second"
				.AddItem 3,"Third"
			End With
		End With
		.DrawGridLines = -1
		.Columns.Add("DropDownList-Related").Editor.EditType = 3
		With .Items
			.CellValue(.AddItem(1),1) = -1
			.CellValue(.AddItem(2),1) = -1
			.CellValue(.AddItem(3),1) = -1
			.LockedItemCount(2) = 1
			h = .LockedItem(2,0)
			.ItemDivider(h) = 0
			.ItemDividerLineAlignment(h) = 2
			.CellEditorVisible(h,0) = False
			.CellSingleLine(h,0) = False
			.CellValueFormat(h,0) = 1
			.CellValue(h,0) = "The drop down editor in the second column is filled during the <b>EditOpen event</b>, and the values are based on the selection" & _
	" on the first column."
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2326
Highlight the editable fields

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_Change(Item,ColIndex,NewValue)
	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
		.FreezeEvents True
		.BeginUpdate 
		.HeaderAppearance = 4
		.HeaderHeight = 24
		.LinesAtRoot = -1
		With .ConditionalFormats
			With .Add("%CE1")
				.Bold = True
				.BackColor = RGB(245,245,245)
				.ApplyTo = 1 ' &H1
			End With
			With .Add("%CE2")
				.Bold = True
				.BackColor = RGB(245,245,245)
				.ApplyTo = 2 ' &H2
			End With
			With .Add("%CE3")
				.Bold = True
				.BackColor = RGB(245,245,245)
				.ApplyTo = 3 ' &H3
			End With
		End With
		With .Columns
			.Add "Description"
			With .Add("Qty")
				.Editor.EditType = 4
				.Def(20) = "sum(current,rec,%1)"
			End With
			With .Add("Price")
				.Def(20) = "avg(current,rec,%2)"
				.Editor.EditType = 4
			End With
			With .Add("Amount")
				.ComputedField = "%1 * %2"
				.Def(20) = "sum(current,rec,%3)"
			End With
		End With
		With .Items
			r = .AddItem("Root")
			g1 = .InsertItem(r,,"Group 1")
			h = .InsertItem(g1,,"Item 1")
			.CellValue(h,1) = 1
			.CellValue(h,2) = 10
			h = .InsertItem(g1,,"Item 2")
			.CellValue(h,1) = 2
			.CellValue(h,2) = 11
			g2 = .InsertItem(r,,"Group 2")
			h = .InsertItem(g2,,"Item 1")
			.CellValue(h,1) = 3
			.CellValue(h,2) = 12
			h = .InsertItem(g2,,"Item 2")
			.CellValue(h,1) = 4
			.CellValue(h,2) = 13
			.ExpandItem(0) = True
		End With
		.EndUpdate 
		.FreezeEvents False
	End With
End Function
</SCRIPT>
</BODY>

2325
Highlight the total fields

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_Change(Item,ColIndex,NewValue)
	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
		.FreezeEvents True
		.BeginUpdate 
		.HeaderAppearance = 4
		.HeaderHeight = 24
		.LinesAtRoot = -1
		With .ConditionalFormats
			With .Add("%CT1")
				.ForeColor = RGB(128,128,128)
				.ApplyTo = 1 ' &H1
			End With
			With .Add("%CT2")
				.ForeColor = RGB(128,128,128)
				.ApplyTo = 2 ' &H2
			End With
			With .Add("%CT3")
				.ForeColor = RGB(128,128,128)
				.ApplyTo = 3 ' &H3
			End With
		End With
		With .Columns
			.Add "Description"
			With .Add("Qty")
				.Editor.EditType = 4
				.Def(20) = "sum(current,rec,%1)"
			End With
			With .Add("Price")
				.Def(20) = "avg(current,rec,%2)"
				.Editor.EditType = 4
			End With
			With .Add("Amount")
				.ComputedField = "%1 * %2"
				.Def(20) = "sum(current,rec,%3)"
			End With
		End With
		With .Items
			r = .AddItem("Root")
			g1 = .InsertItem(r,,"Group 1")
			h = .InsertItem(g1,,"Item 1")
			.CellValue(h,1) = 1
			.CellValue(h,2) = 10
			h = .InsertItem(g1,,"Item 2")
			.CellValue(h,1) = 2
			.CellValue(h,2) = 11
			g2 = .InsertItem(r,,"Group 2")
			h = .InsertItem(g2,,"Item 1")
			.CellValue(h,1) = 3
			.CellValue(h,2) = 12
			h = .InsertItem(g2,,"Item 2")
			.CellValue(h,1) = 4
			.CellValue(h,2) = 13
			.ExpandItem(0) = True
		End With
		.EndUpdate 
		.FreezeEvents False
	End With
End Function
</SCRIPT>
</BODY>

2324
Highlight the leaf items

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ConditionalFormats.Add("%CC0=0").ForeColor = RGB(128,128,128)
		.HeaderAppearance = 4
		.HeaderHeight = 24
		.LinesAtRoot = -1
		With .Columns
			.Add("Item").Width = 16
			.Add "Desc"
		End With
		With .Items
			hR = .AddItem("Root")
			.CellValue(hR,1) = "The root directory /"
			.ExpandItem(hR) = True
			h = .InsertItem(hR,,"Home")
			.CellValue(h,1) = "The home directory with user directories Alice and Bob"
			.InsertItem h,,"Alice"
			.InsertItem h,,"Bob"
			.ExpandItem(h) = True
			h = .InsertItem(hR,,"Etc")
			.CellValue(h,1) = "The etc directory with one configuration file"
			h = .InsertItem(h,,"nginx.conf")
			.CellValue(.InsertItem(hR,,"Var"),1) = "The var directory"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2323
Highlight the parent items

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ConditionalFormats.Add("%CC0").ForeColor = RGB(255,0,0)
		.HeaderAppearance = 4
		.HeaderHeight = 24
		.LinesAtRoot = -1
		With .Columns
			.Add("Item").Width = 16
			.Add "Desc"
		End With
		With .Items
			hR = .AddItem("Root")
			.CellValue(hR,1) = "The root directory /"
			.ExpandItem(hR) = True
			h = .InsertItem(hR,,"Home")
			.CellValue(h,1) = "The home directory with user directories Alice and Bob"
			.InsertItem h,,"Alice"
			.InsertItem h,,"Bob"
			.ExpandItem(h) = True
			h = .InsertItem(hR,,"Etc")
			.CellValue(h,1) = "The etc directory with one configuration file"
			h = .InsertItem(h,,"nginx.conf")
			.CellValue(.InsertItem(hR,,"Var"),1) = "The var directory"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2322
Highlight the item being expanded or collapsed

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ConditionalFormats.Add("%CX0").Bold = True
		.HeaderAppearance = 4
		.HeaderHeight = 24
		.LinesAtRoot = -1
		With .Columns
			.Add("Item").Width = 16
			.Add "Desc"
		End With
		With .Items
			hR = .AddItem("Root")
			.CellValue(hR,1) = "The root directory /"
			.ExpandItem(hR) = True
			h = .InsertItem(hR,,"Home")
			.CellValue(h,1) = "The home directory with user directories Alice and Bob"
			.InsertItem h,,"Alice"
			.InsertItem h,,"Bob"
			.ExpandItem(h) = True
			h = .InsertItem(hR,,"Etc")
			.CellValue(h,1) = "The etc directory with one configuration file"
			h = .InsertItem(h,,"nginx.conf")
			.CellValue(.InsertItem(hR,,"Var"),1) = "The var directory"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2321
I am using exTotalColumn. Is there an option to exclude specific cells to display the total

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_Change(Item,ColIndex,NewValue)
	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
		.FreezeEvents True
		.BeginUpdate 
		.HeaderAppearance = 4
		.HeaderHeight = 24
		.LinesAtRoot = -1
		With .Columns
			.Add "Description"
			With .Add("Qty")
				.Editor.EditType = 4
				.Def(20) = "sum(current,rec,%1)"
			End With
			With .Add("Price")
				.Def(20) = "avg(current,rec,%2)"
				.Editor.EditType = 4
			End With
			With .Add("Amount")
				.ComputedField = "%1 * %2"
				.Def(20) = "sum(current,rec,%3)"
			End With
		End With
		With .Items
			r = .AddItem("Root")
			g1 = .InsertItem(r,,"Group 1")
			.FormatCell(g1,2) = "`<average missing>`"
			.CellEditorVisible(g1,2) = False
			.CellBold(g1,2) = True
			.CellForeColor(g1,2) = RGB(255,0,0)
			h = .InsertItem(g1,,"Item 1")
			.CellValue(h,1) = 1
			.CellValue(h,2) = 10
			h = .InsertItem(g1,,"Item 2")
			.CellValue(h,1) = 2
			.CellValue(h,2) = 11
			g2 = .InsertItem(r,,"Group 2")
			h = .InsertItem(g2,,"Item 1")
			.CellValue(h,1) = 3
			.CellValue(h,2) = 12
			h = .InsertItem(g2,,"Item 2")
			.CellValue(h,1) = 4
			.CellValue(h,2) = 13
			.ExpandItem(0) = True
		End With
		.EndUpdate 
		.FreezeEvents False
	End With
End Function
</SCRIPT>
</BODY>

2320
How can I add a total column

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_Change(Item,ColIndex,NewValue)
	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
		.FreezeEvents True
		.BeginUpdate 
		.HeaderAppearance = 4
		.HeaderHeight = 24
		.LinesAtRoot = -1
		With .Columns
			.Add "Description"
			With .Add("Qty")
				.Editor.EditType = 4
				.Def(20) = "sum(current,rec,%1)"
			End With
			With .Add("Price")
				.Def(20) = "avg(current,rec,%2)"
				.Editor.EditType = 4
			End With
			With .Add("Amount")
				.ComputedField = "%1 * %2"
				.Def(20) = "sum(current,rec,%3)"
			End With
		End With
		With .Items
			r = .AddItem("Root")
			g1 = .InsertItem(r,,"Group 1")
			h = .InsertItem(g1,,"Item 1")
			.CellValue(h,1) = 1
			.CellValue(h,2) = 10
			h = .InsertItem(g1,,"Item 2")
			.CellValue(h,1) = 2
			.CellValue(h,2) = 11
			g2 = .InsertItem(r,,"Group 2")
			h = .InsertItem(g2,,"Item 1")
			.CellValue(h,1) = 3
			.CellValue(h,2) = 12
			h = .InsertItem(g2,,"Item 2")
			.CellValue(h,1) = 4
			.CellValue(h,2) = 13
			.ExpandItem(0) = True
		End With
		.EndUpdate 
		.FreezeEvents False
	End With
End Function
</SCRIPT>
</BODY>

2319
Is it possible when I move the horizontal scroll bar, that the whole chart scrolls live during move the horizontal scroll bar. Not it scrolls just when I release the left mouse, not during change the horizontal scroll position
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.PaneWidth(False) = 0
			.LevelCount = 2
			.ToolTip = ""
		End With
	End With
End Function
</SCRIPT>
</BODY>

2318
The exLinkStyle is not valid (the style of the link is still solid) if the link's width is greater than 1. What can be done
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(False) = 128
		End With
		.AntiAliasing = True
		With .Items
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
			h2 = .AddItem("Task 2")
			.AddBar h2,"Task",#1/5/2001#,#1/7/2001#,"K2"
			.AddLink "L1",h1,"K1",h2,"K2"
			.Link("L1",9) = 2
			.Link("L1",10) = 2
			h3 = .AddItem("Task 4")
			.AddBar h3,"Task",#1/8/2001#,#1/10/2001#,"K3"
			.AddLink "L2",h2,"K2",h3,"K3"
			.Link("L2",9) = 1
			.Link("L2",10) = 2
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2317
How can I change the tooltip's margins (method 2)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		.ShowToolTip .Chart.BarFromPoint(-1,-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 
		.ToolTipMargin = "16,8"
		.Columns.Add "Def"
		With .Chart
			.AllowCreateBar = 0
			.PaneWidth(False) = 64
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2010#
			.Bars.Item("Task").Def(6) = "..."
		End With
		With .Items
			h = .AddItem("Task")
			.AddBar h,"Task",#1/2/2010#,#1/5/2010#,"A","A"
			.AddBar h,"Task",#1/5/2010#,#1/8/2010#,"B","B"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2316
Are there any properties to set text margins at tooltip, like Margins="5,5" (method 1). Margins is used to get some space between text and the tooltips border

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		.ShowToolTip .Chart.BarFromPoint(-1,-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 
		.ToolTipMargin = "16,8"
		.Columns.Add "Def"
		With .Chart
			.AllowCreateBar = 0
			.PaneWidth(False) = 64
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2010#
			.Bars.Item("Task").Def(6) = "..."
		End With
		With .Items
			h = .AddItem("Task")
			.AddBar h,"Task",#1/2/2010#,#1/5/2010#,"A","A"
			.AddBar h,"Task",#1/5/2010#,#1/8/2010#,"B","B"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2315
exShowExtendedLinks

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DefaultItemHeight = 24
		.HeaderHeight = 20
		.HeaderAppearance = 4
		.AntiAliasing = True
		.Columns.Add "Task"
		With .Chart
			.PaneWidth(False) = 48
			.LevelCount = 2
			.UnitScale = 65536
			.FirstVisibleDate = #1/10/2024#
			With .Level(1)
				.DrawTickLines = 0
				.DrawTickLinesFrom 0,1
			End With
			.AllowResizeChart = -1 ' &Hfffffef9 Or ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader
			.ShowLinks = 1
		End With
		With .Items
			.AddBar .AddItem("T1"),"Task",#1/10/2024 10:00:00 AM#,#1/10/2024 10:20:00 AM#,"T1"
			.AddBar .AddItem("T2"),"Task",#1/10/2024 9:00:00 AM#,#1/10/2024 0:00:00 PM#,"T2"
			.AddBar .AddItem("T3"),"Task",#1/10/2024 8:00:00 AM#,#1/10/2024 8:30:00 AM#,"T3"
			.AddBar .AddItem("T4"),"Task",#1/10/2024 8:00:00 AM#,#1/10/2024 8:30:00 AM#,"T4"
			.AddLink "L13",.ItemByIndex(0),"T1",.ItemByIndex(2),"T3"
			.AddLink "L14",.ItemByIndex(0),"T1",.ItemByIndex(3),"T4"
			.AddLink "L24",.ItemByIndex(1),"T2",.ItemByIndex(3),"T4"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2314
According to the documentation of the ShowExtendedLinksEnum value exShowExtendedLinks (1) it is possible to distinctly visualise links (rather than showing them one over another) when two or more links start or end on the same bar

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DefaultItemHeight = 24
		.HeaderHeight = 20
		.HeaderAppearance = 4
		.AntiAliasing = True
		.Columns.Add "Task"
		With .Chart
			.PaneWidth(False) = 48
			.LevelCount = 2
			.UnitScale = 65536
			.FirstVisibleDate = #1/10/2024#
			With .Level(1)
				.DrawTickLines = 0
				.DrawTickLinesFrom 0,1
			End With
			.AllowResizeChart = -1 ' &Hfffffef9 Or ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader
		End With
		With .Items
			.AddBar .AddItem("T1"),"Task",#1/10/2024 10:00:00 AM#,#1/10/2024 10:20:00 AM#,"T1"
			.AddBar .AddItem("T2"),"Task",#1/10/2024 9:00:00 AM#,#1/10/2024 0:00:00 PM#,"T2"
			.AddBar .AddItem("T3"),"Task",#1/10/2024 8:00:00 AM#,#1/10/2024 8:30:00 AM#,"T3"
			.AddBar .AddItem("T4"),"Task",#1/10/2024 8:00:00 AM#,#1/10/2024 8:30:00 AM#,"T4"
			.AddLink "L1",.ItemByIndex(0),"T1",.ItemByIndex(2),"T3"
			.AddLink "L2",.ItemByIndex(1),"T2",.ItemByIndex(3),"T4"
			.Link("L2",15) = 4
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2313
How to use arrows key left/right to move the cursor left/right inside the text
<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("Edit").Editor
			.EditType = 1
			.Option(20) = False
			.Option(21) = False
		End With
		With .Items
			.AddItem "000"
			.AddItem "111"
			.AddItem "222"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2312
How can I force the cursor to jump to the end of the editor once the user clicks the cell
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.SelBackColor = .BackColor
		.SelForeColor = .ForeColor
		With .Columns.Add("Edit").Editor
			.EditType = 1
			.Option(48) = -1
		End With
		With .Items
			.AddItem "000"
			.AddItem "111"
			.AddItem "222"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2311
How can I show the overview with a different color except or outside the selection

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABVIDg6AADACAxRDAMgBQKAAzAJBIYhiGgcYCgMZBSDeCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADE2YAoJDUN4nDKMMDybBkRxtDCPIDnGQoD" & _
	"iGI4nSbKIzSCKMQhrEKZZrnaLJFgOTY8ABLEBvfSgASof6MKBlKhKGoiUo2SCFEaBTBNHxDL6raqqWJ5HDINQlWzbcjjKKFYRbOqTZDkGj4XqKTo3YBAdZSXJsXwTGKk" & _
	"ji3ZgMOR3HaQaTjOgINpuDZdRzkUYZUDFSwSDqQIRtCpbJqzFZDZbLNbYBYME47AayID0CbdCgmaalSZHNxbVa0BzpXrFLw1TLoDy8AJ+ABseKzfo9PxdIygZRzKJ8ao" & _
	"fE+YxynIfJcC8QgbCmL5eiEPIKH6RABlibJpicW4/FcAx/HOYRGmud4+CcHxdmiDhkGEIIIEkQJSGMHQHFGSBlFEUITEmewAAQIQ2AYRpDGQJAoEIXhXCkCB5kmSAdmg" & _
	"VZPmgZJ8gaT4oHSeIHk8aIEnWCJiEiFgmgmYoIiYJIIE8aB8niB0pmyfIGE+ZYmDQPpjgOUg6DqY5DgYPg2mQAxqEKEJkEkFhGhGZIJA4QA2mOY4GDwOsumCe4NAACJK" & _
	"DoPQOFkZJThaSoZHSGYXmYCYGGKGJmEmFhmCsJoDFYag5iaSISDIAAjAkPJLhyS4JlYbA5iSeZmHqHpnkmdh+hOZx5lSOAzGgSQ+DAAAimkNIkiKTh6DSbIjmkChGhKJ" & _
	"JpEoVoWiSaJThyKImmSWI4ACCwNkqBhgDsahKhaJopmqComiqKpqkqEhghKYpAAIJIQmYA46jaLZrgqZo6i6a5KnaPotiZRQkiyIg6lIXw7myCwmkqMpsksNpOjObQLC" & _
	"KQYQiwOpOEKGAPAsZpajabZLHaXo3m4C4GlmNJNisVpFjWZZzkaao6m6S42m6O5vAuRpyjqLhLhidYxgmE5KnqPpvkudp+j+cAMAcAo+i8WIOkSPZuguZwDkKcJMDafp" & _
	"BE8XAengPJxEwVwWkWcYMGcGpGnGTBTBCRIwhkXwikichMhcJpJnKDIPB+NYNimAgqkucwMkcMoInKO4fC2F5ikyZw6k6c5MncPpPnOLJXAiTZJhOXxGlGdINCcSpSnS" & _
	"TQ3E6UY0CuYgulSdRNFcVpVnWDRnFSVBwh0axeledgNFsXJRA+HYXGaWZ2g2JxqlqdpNjcZZYmYCJDHKXJ3E2K4doux3gbE8OEF4ygtjuH6L8eAHAHgFGCO8bY2QZgZD" & _
	"iBwJ4FRijxE4G8DoxBxj6B6EINwTADjvBaMseYHBng1GaPMTg7wepxA4J4Rx8RjgfCYFMeoEQ6BpGqPUTob2MD2A6IQLoNAKiHAuG0WYAAJCVBCCETAHR3DMFWPgDwD2" & _
	"9j4E8CoV4sw7imAIIcJASggAHBeBIJw5grikCmHoSYNxWjrH2BMAoNgqAZE8O0GYEg5DgAIG8DgxwjhXGaCYZIcgnxBGSDILgmwTjKHkJMNwqgjCREoGEC4RRMifHqJc" & _
	"YokQ6BgEYJEUIaQOhlHIIESAECAg="
		.BackColorLevelHeader = .BackColor
		.Background(199) = RGB(1,0,0)
		.Background(200) = RGB(240,240,240)
		.Chart.OverviewSelBackColor = RGB(255,255,255)
		.Background(201) = &H1000000
		With .Chart
			.FirstVisibleDate = #6/21/2001#
			.PaneWidth(False) = 48
			.OverviewVisible = 31746 ' &H400 Or OverviewVisibleEnum.exOverviewShowSelMargins Or OverviewVisibleEnum.exOverviewShowMargins Or OverviewVisibleEnum.exOverviewShowDateTimeScaleBottom Or OverviewVisibleEnum.exOverviewShowAllVisible
			.OverviewHeight = 64
			.LevelCount = 2
			.UnitScale = 4096
			.Label(65536) = ""
			.Label(1048576) = ""
			.Label(16777216) = ""
			.AllowOverviewZoom = 1
		End With
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/11/2001#
			.AddBar .AddItem("Item 2"),"Task",#7/2/2001#,#7/11/2001#
			.AddBar .AddItem("Item 3"),"Task",#11/2/2001#,#11/11/2001#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2310
Resize the chart using the overview's selection left and right margins (blue)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.BackColorLevelHeader = .BackColor
		.Background(199) = RGB(0,0,255)
		With .Chart
			.FirstVisibleDate = #6/21/2001#
			.PaneWidth(False) = 48
			.OverviewVisible = 31746 ' &H400 Or OverviewVisibleEnum.exOverviewShowSelMargins Or OverviewVisibleEnum.exOverviewShowMargins Or OverviewVisibleEnum.exOverviewShowDateTimeScaleBottom Or OverviewVisibleEnum.exOverviewShowAllVisible
			.OverviewHeight = 64
			.LevelCount = 2
			.UnitScale = 4096
		End With
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/11/2001#
			.AddBar .AddItem("Item 2"),"Task",#7/2/2001#,#7/11/2001#
			.AddBar .AddItem("Item 3"),"Task",#11/2/2001#,#11/11/2001#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2309
Resize the chart using the overview's selection left and right margins (black)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.BackColorLevelHeader = .BackColor
		.Background(199) = RGB(1,0,0)
		With .Chart
			.FirstVisibleDate = #6/21/2001#
			.PaneWidth(False) = 48
			.OverviewVisible = 31746 ' &H400 Or OverviewVisibleEnum.exOverviewShowSelMargins Or OverviewVisibleEnum.exOverviewShowMargins Or OverviewVisibleEnum.exOverviewShowDateTimeScaleBottom Or OverviewVisibleEnum.exOverviewShowAllVisible
			.OverviewHeight = 64
			.LevelCount = 2
			.UnitScale = 4096
		End With
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/11/2001#
			.AddBar .AddItem("Item 2"),"Task",#7/2/2001#,#7/11/2001#
			.AddBar .AddItem("Item 3"),"Task",#11/2/2001#,#11/11/2001#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2308
Disable temporarily the column's sort, resize and 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 
		.OnResizeControl = 1
		.SortBarVisible = True
		.SortBarCaption = "<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)"
		.AllowGroupBy = True
		.HeaderEnabled = False
		.HeaderAppearance = 4
		.Columns.Add("Index").FormatColumn = "1 index ``"
		.Columns.Add("Pos").FormatColumn = "1 apos ``"
		.Columns.Add("Edit").Editor.EditType = 1
		.GridLineStyle = 512
		.DrawGridLines = 2
		.GridLineColor = RGB(224,224,224)
		With .Chart
			.AllowCreateBar = 1
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 196
			.GridLineStyle = 512
			.DrawGridLines = -1
			With .Level(1)
				.DrawGridLines = True
				.GridLineColor = G2antt1.GridLineColor
			End With
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2307
Adds a Finish-Start(FS) link (method 3)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Name"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 64
		End With
		With .Items
			h1 = .AddItem("Item 1")
			.AddBar h1,"Task",#1/3/2001#,#1/6/2001#
			h2 = .AddItem("Item 2")
			.AddBar h2,"Task",#1/3/2001#,#1/6/2001#
			.AddLink "Link1",h1,"",h2,""
			.SchedulePDM 0,""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2306
Adds a Start-Start(SS) link (method 3)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Name"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 64
		End With
		With .Items
			h1 = .AddItem("Item 1")
			.AddBar h1,"Task",#1/3/2001#,#1/6/2001#
			h2 = .AddItem("Item 2")
			.AddBar h2,"Task",#1/3/2001#,#1/6/2001#
			.AddLink "Link1",h1,"",h2,""
			.Link("Link1",6) = 0
			.Link("Link1",7) = 0
			.SchedulePDM 0,""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2305
Adds a Finish-Finish(FF) link (method 3)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Name"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 64
		End With
		With .Items
			h1 = .AddItem("Item 1")
			.AddBar h1,"Task",#1/3/2001#,#1/6/2001#
			h2 = .AddItem("Item 2")
			.AddBar h2,"Task",#1/3/2001#,#1/6/2001#
			.AddLink "Link1",h1,"",h2,""
			.Link("Link1",6) = 2
			.Link("Link1",7) = 2
			.SchedulePDM 0,""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2304
Adds a Start-Finish(SF) link (method 3)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Name"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 64
		End With
		With .Items
			h1 = .AddItem("Item 1")
			.AddBar h1,"Task",#1/3/2001#,#1/6/2001#
			h2 = .AddItem("Item 2")
			.AddBar h2,"Task",#1/3/2001#,#1/6/2001#
			.AddLink "Link1",h1,"",h2,""
			.Link("Link1",6) = 0
			.Link("Link1",7) = 2
			.SchedulePDM 0,""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2303
Adds a Finish-Start(FS) link (method 2)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Name"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 64
		End With
		With .Items
			h1 = .AddItem("Item 1")
			.AddBar h1,"Task",#1/3/2001#,#1/6/2001#
			h2 = .AddItem("Item 2")
			.AddBar h2,"Task",#1/3/2001#,#1/6/2001#
			.ItemBar(h2,"",270) = "1FS"
			.SchedulePDM 0,""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2302
Adds a Start-Start(SS) link (method 2)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Name"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 64
		End With
		With .Items
			h1 = .AddItem("Item 1")
			.AddBar h1,"Task",#1/3/2001#,#1/6/2001#
			h2 = .AddItem("Item 2")
			.AddBar h2,"Task",#1/3/2001#,#1/6/2001#
			.ItemBar(h2,"",270) = "1SS"
			.SchedulePDM 0,""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2301
Adds a Finish-Finish(FF) link (method 2)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Name"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 64
		End With
		With .Items
			h1 = .AddItem("Item 1")
			.AddBar h1,"Task",#1/3/2001#,#1/6/2001#
			h2 = .AddItem("Item 2")
			.AddBar h2,"Task",#1/3/2001#,#1/6/2001#
			.ItemBar(h2,"",270) = "1FF"
			.SchedulePDM 0,""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2300
Adds a Start-Finish(SF) link (method 2)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Name"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 64
		End With
		With .Items
			h1 = .AddItem("Item 1")
			.AddBar h1,"Task",#1/3/2001#,#1/6/2001#
			h2 = .AddItem("Item 2")
			.AddBar h2,"Task",#1/3/2001#,#1/6/2001#
			.ItemBar(h2,"",270) = "1SF"
			.SchedulePDM 0,""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2299
Adds a Start-Finish(SF) link (method 1)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Name"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 64
		End With
		With .Items
			h1 = .AddItem("Item 1")
			.AddBar h1,"Task",#1/3/2001#,#1/6/2001#
			h2 = .AddItem("Item 2")
			.AddBar h2,"Task",#1/3/2001#,#1/6/2001#
			.AddLink "Link1",h1,"",h2,""
			.Link("Link1",260) = "SF"
			.SchedulePDM 0,""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2298
Adds a Finish-Finish(FF) link (method 1)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Name"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 64
		End With
		With .Items
			h1 = .AddItem("Item 1")
			.AddBar h1,"Task",#1/3/2001#,#1/6/2001#
			h2 = .AddItem("Item 2")
			.AddBar h2,"Task",#1/3/2001#,#1/6/2001#
			.AddLink "Link1",h1,"",h2,""
			.Link("Link1",260) = "FF"
			.SchedulePDM 0,""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2297
Adds a Start-Start(SS) link (method 1)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Name"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 64
		End With
		With .Items
			h1 = .AddItem("Item 1")
			.AddBar h1,"Task",#1/3/2001#,#1/6/2001#
			h2 = .AddItem("Item 2")
			.AddBar h2,"Task",#1/3/2001#,#1/6/2001#
			.AddLink "Link1",h1,"",h2,""
			.Link("Link1",260) = "SS"
			.SchedulePDM 0,""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2296
Adds a Finish-Start(FS) link (method 1)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Name"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 64
		End With
		With .Items
			h1 = .AddItem("Item 1")
			.AddBar h1,"Task",#1/3/2001#,#1/6/2001#
			h2 = .AddItem("Item 2")
			.AddBar h2,"Task",#1/3/2001#,#1/6/2001#
			.AddLink "Link1",h1,"",h2,""
			.Link("Link1",260) = "FS"
			.SchedulePDM 0,""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2295
What is the difference between lags with "W" or without

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Name"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 64
			With .Bars.Add("Task:Split")
				.Shortcut = "Task"
				.Def(20) = True
			End With
		End With
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/3/2001#,#1/6/2001#
			.AddBar .AddItem("Item 2"),"Task",#1/3/2001#,#1/6/2001#
			.AddBar .AddItem("Item 3"),"Task",#1/3/2001#,#1/6/2001#
			.ItemBar(.ItemByIndex(0),"",271) = "2SF:-1,3SF:-1W"
			.SchedulePDM 0,""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2294
What is the difference between lags with "W" or without

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Name"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 64
		End With
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/3/2001#,#1/6/2001#
			.AddBar .AddItem("Item 2"),"Task",#1/3/2001#,#1/6/2001#
			.AddBar .AddItem("Item 3"),"Task",#1/3/2001#,#1/6/2001#
			.ItemBar(.ItemByIndex(0),"",271) = "2SF:-1,3SF:-1W"
			.SchedulePDM 0,""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2293
How can I remove all outgoing links

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Name"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 64
		End With
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/1/2001#,#1/4/2001#
			.AddBar .AddItem("Item 2"),"Task",#1/5/2001#,#1/8/2001#
			.AddBar .AddItem("Item 3"),"Task",#1/9/2001#,#1/12/2001#
			.AddLink "L1",.ItemByIndex(0),"",.ItemByIndex(1),""
			.AddLink "L2",.ItemByIndex(1),"",.ItemByIndex(2),""
			.ItemBar(.ItemByIndex(1),"",271) = ""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2292
How can I remove all incoming links

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Name"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 64
		End With
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/1/2001#,#1/4/2001#
			.AddBar .AddItem("Item 2"),"Task",#1/5/2001#,#1/8/2001#
			.AddBar .AddItem("Item 3"),"Task",#1/9/2001#,#1/12/2001#
			.AddLink "L1",.ItemByIndex(0),"",.ItemByIndex(1),""
			.AddLink "L2",.ItemByIndex(1),"",.ItemByIndex(2),""
			.ItemBar(.ItemByIndex(1),"",270) = ""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2291
How do I add a link between two bars (method 3)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Name"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 64
		End With
		With .Items
			h = .AddItem("Item 1")
			.AddBar h,"Task",#1/1/2001#,#1/4/2001#
			.AddBar .AddItem("Item 2"),"Task",#1/5/2001#,#1/8/2001#
			.ItemBar(h,"",271) = "2SF"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2290
How do I add a link between two bars (method 2)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Name"
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 64
		End With
		With .Items
			h = .AddItem("Item 1")
			.AddBar h,"Task",#1/1/2001#,#1/4/2001#
			.AddBar .AddItem("Item 2"),"Task",#1/5/2001#,#1/8/2001#
			.ItemBar(h,"",270) = "2SF"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2289
Highlight the selected-link while editing the predecessor/successor column

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddLink(LinkKey)
	With G2antt1
		.Items.Link(LinkKey,15) = 3
	End With
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.OnResizeControl = 1
		.HeaderAppearance = 4
		.ColumnAutoResize = False
		.HeaderHeight = 32
		.DefaultItemHeight = 28
		.BackColorLevelHeader = RGB(255,255,255)
		.Background(197) = RGB(160,160,160)
		.Background(198) = RGB(128,128,128)
		With .Columns
			.Add("Name").Width = 48
			With .Add("Start")
				.Width = 48
				.Editor.EditType = 7
				.Def(18) = 1
			End With
			With .Add("End")
				.Width = 48
				.Editor.EditType = 7
				.Def(18) = 543
			End With
			With .Add("Predecessor")
				With .Editor
					.EditType = 1
					.EditType = 8
					.Mask = ";;;rich"
				End With
				.Def(18) = 270
			End With
			With .Add("Successor")
				With .Editor
					.EditType = 1
					.EditType = 8
					.Mask = ";;;rich"
				End With
				.Def(18) = 271
			End With
			With .Add("(I)")
				.FormatColumn = "1 index ``"
				.Position = 0
				.AllowSizing = False
				.Width = 20
			End With
		End With
		.ColumnAutoResize = True
		.GridLineStyle = 512
		.DrawGridLines = -1
		.GridLineColor = RGB(224,224,224)
		.AntiAliasing = True
		With .Chart
			.ShowLinks = 1
			.LinksStyle = 0
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 362
			.NonworkingDays = 0
			.AllowLinkBars = True
			.AllowCreateBar = 2
			.AllowZoomOnFly = -1 ' &Hfffffcc4 Or ZoomOnFlyEnum.exZoomOnFlyIncludeSelectedItems Or ZoomOnFlyEnum.exZoomOnFlyBarsOnly Or ZoomOnFlyEnum.exZoomOnFly Or ZoomOnFlyEnum.exZoomOnFlyCtrl Or ZoomOnFlyEnum.exZoomOnFlyShift
			.GridLineStyle = 512
			.DrawGridLines = -1
			With .Bars.Item("Task")
				.Height = 15
				.Def(3) = "<%=%C5%>"
			End With
		End With
		With .Items
			.AllowCellValueToItemBar = True
			.AddBar .AddItem("Phase A"),"Task",#1/1/2001#,#1/6/2001#
			.AddBar .AddItem("Phase B"),"Task",#1/2/2001#,#1/7/2001#
			.AddBar .AddItem("Phase C"),"Task",#12/29/2000#,#1/4/2001#
			.AddLink "L1",.ItemByIndex(0),"",.ItemByIndex(1),""
			.Link("L1",17) = 1
			.AddLink "L2",.ItemByIndex(0),"",.ItemByIndex(2),""
			.AddLink "L3",.ItemByIndex(2),"",.ItemByIndex(1),""
			.SchedulePDM 0,""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2288
Adding an editable successor column

<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("Name").Width = 48
			With .Add("Successor")
				With .Editor
					.EditType = 1
					.EditType = 8
					.Mask = ";;;rich"
				End With
				.Def(18) = 271
			End With
			With .Add("(I)")
				.FormatColumn = "1 index ``"
				.Position = 0
				.AllowSizing = False
				.Width = 20
			End With
		End With
		.ColumnAutoResize = True
		.GridLineStyle = 512
		.DrawGridLines = -1
		.GridLineColor = RGB(224,224,224)
		.AntiAliasing = True
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 256
			.AllowLinkBars = True
			.AllowCreateBar = 2
		End With
		With .Items
			.AllowCellValueToItemBar = True
			.AddBar .AddItem("Phase A"),"Task",#1/1/2001#,#1/6/2001#
			.AddBar .AddItem("Phase B"),"Task",#1/2/2001#,#1/7/2001#
			.AddBar .AddItem("Phase C"),"Task",#12/29/2000#,#1/4/2001#
			.AddLink "L1",.ItemByIndex(0),"",.ItemByIndex(1),""
			.AddLink "L2",.ItemByIndex(0),"",.ItemByIndex(2),""
			.AddLink "L3",.ItemByIndex(2),"",.ItemByIndex(1),""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2287
Adding an editable predecessor column

<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("Name").Width = 48
			With .Add("Predecessor")
				With .Editor
					.EditType = 1
					.EditType = 8
					.Mask = ";;;rich"
				End With
				.Def(18) = 270
			End With
			With .Add("(I)")
				.FormatColumn = "1 index ``"
				.Position = 0
				.AllowSizing = False
				.Width = 20
			End With
		End With
		.ColumnAutoResize = True
		.GridLineStyle = 512
		.DrawGridLines = -1
		.GridLineColor = RGB(224,224,224)
		.AntiAliasing = True
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 256
			.AllowLinkBars = True
			.AllowCreateBar = 2
		End With
		With .Items
			.AllowCellValueToItemBar = True
			.AddBar .AddItem("Phase A"),"Task",#1/1/2001#,#1/6/2001#
			.AddBar .AddItem("Phase B"),"Task",#1/2/2001#,#1/7/2001#
			.AddBar .AddItem("Phase C"),"Task",#12/29/2000#,#1/4/2001#
			.AddLink "L1",.ItemByIndex(0),"",.ItemByIndex(1),""
			.AddLink "L2",.ItemByIndex(0),"",.ItemByIndex(2),""
			.AddLink "L3",.ItemByIndex(2),"",.ItemByIndex(1),""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2286
Adding an Index column

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.PaneWidth(True) = 0
		With .Columns
			.Add("Name").Width = 48
			With .Add("Index")
				.FormatColumn = "1 index ``"
				.Position = 0
				.AllowSizing = False
				.Width = 48
			End With
		End With
		With .Items
			.AddItem "Phase A"
			.AddItem "Phase B"
			.AddItem "Phase C"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2285
Create a new bar should start at 1 day (after moving some pixel to the right 1 days is showing) and new days should been showing as soon as you hit the next day. How can I do that (create bar manually)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_CreateBar(Item,DateStart,DateEnd)
	With G2antt1
		.Items.AddBar Item,"Task",DateStart,DateEnd,"","new"
	End With
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.OnResizeControl = 1
		.HeaderAppearance = 4
		.Columns.Add("Index").FormatColumn = "1 index ``"
		.GridLineStyle = 512
		.DrawGridLines = 1
		.GridLineColor = RGB(224,224,224)
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 64
			.NonworkingDays = 0
			.AllowLinkBars = True
			.AllowCreateBar = -2
			.AllowZoomOnFly = -1 ' &Hfffffcc4 Or ZoomOnFlyEnum.exZoomOnFlyIncludeSelectedItems Or ZoomOnFlyEnum.exZoomOnFlyBarsOnly Or ZoomOnFlyEnum.exZoomOnFly Or ZoomOnFlyEnum.exZoomOnFlyCtrl Or ZoomOnFlyEnum.exZoomOnFlyShift
			.GridLineStyle = G2antt1.GridLineStyle ' G2antt1.GridLineStyle
			.DrawGridLines = -1
			With .Level(1)
				.DrawGridLines = True
				.GridLineColor = G2antt1.GridLineColor
			End With
		End With
		With .Items
			.AddItem ""
			.AddItem ""
			.AddItem ""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2284
Create a new bar should start at 1 day (after moving some pixel to the right 1 days is showing) and new days should been showing as soon as you hit the next day. How can I do that (create bar automatically)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.OnResizeControl = 1
		.HeaderAppearance = 4
		.Columns.Add("Index").FormatColumn = "1 index ``"
		.GridLineStyle = 512
		.DrawGridLines = 1
		.GridLineColor = RGB(224,224,224)
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/28/2000#
			.PaneWidth(False) = 64
			.NonworkingDays = 0
			.AllowLinkBars = True
			.AllowCreateBar = 2
			.AllowZoomOnFly = -1 ' &Hfffffcc4 Or ZoomOnFlyEnum.exZoomOnFlyIncludeSelectedItems Or ZoomOnFlyEnum.exZoomOnFlyBarsOnly Or ZoomOnFlyEnum.exZoomOnFly Or ZoomOnFlyEnum.exZoomOnFlyCtrl Or ZoomOnFlyEnum.exZoomOnFlyShift
			.GridLineStyle = G2antt1.GridLineStyle ' G2antt1.GridLineStyle
			.DrawGridLines = -1
			With .Level(1)
				.DrawGridLines = True
				.GridLineColor = G2antt1.GridLineColor
			End With
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2283
How can I display the "<%ddd%> <%d%> <%mmm%>" format followed by number of working-days when using the DateTickerLabel property (method 4, locale)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ScrollBars = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
		.Background(195) = RGB(1,0,0)
		.Columns.Add "Tasks"
		With .Chart
			.Bars.Add("Task:Split").Shortcut = "Task"
			.Bars.Item("Task").Def(20) = True
			.PaneWidth(0) = 96
			.AllowCreateBar = 1
			.FirstVisibleDate = #6/20/2005#
			.LevelCount = 2
			.DrawDateTicker = True
			.DateTickerLabel = "<%=value format `ddd dd`%><fgcolor 808080><%=(value=end?` (` + (wcount) + `wd)`:``)%>"
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#
			.AddBar .AddItem("Task 2"),"Task",#6/28/2005#,#7/1/2005#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2282
How can I display the "<%ddd%> <%d%> <%mmm%>" format followed by number of days when using the DateTickerLabel property (method 4, locale)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ScrollBars = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
		.Background(195) = RGB(1,0,0)
		.Columns.Add "Tasks"
		With .Chart
			.PaneWidth(0) = 96
			.AllowCreateBar = 1
			.FirstVisibleDate = #6/20/2005#
			.LevelCount = 2
			.DrawDateTicker = True
			.DateTickerLabel = "<%=value format `ddd dd`%><fgcolor 808080><%=(value=end?` (` + (end-start) + `d)`:``)%>"
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#
			.AddBar .AddItem("Task 2"),"Task",#6/28/2005#,#7/1/2005#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2281
How can I display the "<%ddd%> <%d%> <%mmm%>" format followed by number of days when using the DateTickerLabel property (method 3, english locale)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ScrollBars = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
		.Background(195) = RGB(1,0,0)
		.Columns.Add "Tasks"
		With .Chart
			.PaneWidth(0) = 96
			.AllowCreateBar = 1
			.FirstVisibleDate = #6/20/2005#
			.LevelCount = 2
			.DrawDateTicker = True
			.DateTickerLabel = "<%=(0 array (0:=(longdate(date(value)) split `,`)) left 3) + ` ` +  ((2 array ((1 array =:0) split ` `)) lpad `00`) + (value=en" & _
	"d?` (` + (end-start) + `d)`:``)%>"
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#
			.AddBar .AddItem("Task 2"),"Task",#6/28/2005#,#7/1/2005#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2280
How can I display the "<%ddd%> <%d%> <%mmm%>" format for start and end margins, but end margin should display one day before followed by the number of days

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ScrollBars = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
		.Background(195) = RGB(1,0,0)
		.Columns.Add "Tasks"
		With .Chart
			.PaneWidth(0) = 96
			.AllowCreateBar = 1
			.FirstVisibleDate = #6/20/2005#
			.LevelCount = 2
			.DrawDateTicker = True
			.DateTickerLabel = "<%=(weekday(0:=(value-(value=end?1:0))) array 'Sun Mon Tue Wed Thu Fri Sat' split ' ') + ` ` + day(=:0) + ` ` + ((month(=:0) - " & _
	"1) array 'Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec' split ' ') + (value=end?` (` + (end-start) + `d)`:``)%>"
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#
			.AddBar .AddItem("Task 2"),"Task",#6/28/2005#,#7/1/2005#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2279
How can I display the "<%ddd%> <%d%> <%mmm%>" format followed by number of days when using the DateTickerLabel property (method 2)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ScrollBars = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
		.Background(195) = RGB(1,0,0)
		.Columns.Add "Tasks"
		With .Chart
			.PaneWidth(0) = 96
			.AllowCreateBar = 1
			.FirstVisibleDate = #6/20/2005#
			.LevelCount = 2
			.DrawDateTicker = True
			.DateTickerLabel = "<%ddd%> <%d%> <%mmm%><%=(value=end?` (` + (end-start) + `d)`:``)%>"
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#
			.AddBar .AddItem("Task 2"),"Task",#6/28/2005#,#7/1/2005#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2278
How can I display the "<%ddd%> <%d%> <%mmm%>" format followed by number of days when using the DateTickerLabel property (method 1)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ScrollBars = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
		.Background(195) = RGB(1,0,0)
		.Columns.Add "Tasks"
		With .Chart
			.PaneWidth(0) = 96
			.AllowCreateBar = 1
			.FirstVisibleDate = #6/20/2005#
			.LevelCount = 2
			.DrawDateTicker = True
			.DateTickerLabel = "<%=(weekday(value) array 'Sun Mon Tue Wed Thu Fri Sat' split ' ') + ` ` + day(value) + ` ` + ((month(value) - 1) array 'Jan Feb" & _
	" Mar Apr May Jun Jul Aug Sep Oct Nov Dec' split ' ') + (value=end?` (` + (end-start) + `d)`:``)%>"
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#
			.AddBar .AddItem("Task 2"),"Task",#6/28/2005#,#7/1/2005#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2277
How can I display just the end-margin when user resizes the bar

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ScrollBars = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
		.Background(195) = RGB(1,0,0)
		.Columns.Add "Tasks"
		With .Chart
			.PaneWidth(0) = 96
			.AllowCreateBar = 1
			.FirstVisibleDate = #6/20/2005#
			.LevelCount = 2
			.DrawDateTicker = True
			.DateTickerLabel = "<%=value=start?``:value%>"
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#
			.AddBar .AddItem("Task 2"),"Task",#6/23/2005#,#7/3/2005#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2276
Is it possible to include the number of days (duration in days, hours, minutes) within the date-label

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ScrollBars = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
		.Background(195) = RGB(1,0,0)
		.Columns.Add "Tasks"
		With .Chart
			.PaneWidth(0) = 96
			.AllowCreateBar = 1
			.ResizeUnitScale = 65536
			.FirstVisibleDate = #6/20/2005#
			.LevelCount = 2
			.DrawDateTicker = True
			.DateTickerLabel = "<%=date(value=end?value-1:value)%><fgcolor 666666><off -4><%=value=end?` ` + ((1:=int(0:= end - start)) != 0 ? (=:1 + ' day(s)'" & _
	") : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s) ' : '' ) + ((1:=round((=:0 - " & _
	"=:1)*60)) != 0 ? =:1 + ' min(s)' : ''):``%>"
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#
			.AddBar .AddItem("Task 2"),"Task",#6/23/2005#,#7/3/2005#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2275
Is it possible to include the number of days within the date-label

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ScrollBars = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
		.Background(195) = RGB(1,0,0)
		.Columns.Add "Tasks"
		With .Chart
			.PaneWidth(0) = 96
			.AllowCreateBar = 1
			.FirstVisibleDate = #6/20/2005#
			.LevelCount = 2
			.DrawDateTicker = True
			.DateTickerLabel = "<%mmm%> <%d%><fgcolor 808080><%=value=end?` (`+(end - start) + ` days)`:``%>"
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#
			.AddBar .AddItem("Task 2"),"Task",#6/23/2005#,#7/3/2005#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2274
Is it possible to show the date-label with the bar being created, moved or resized instead below the header-bar

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ScrollBars = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
		.Background(195) = RGB(1,0,0)
		.Columns.Add "Tasks"
		With .Chart
			.PaneWidth(0) = 96
			.AllowCreateBar = 1
			.FirstVisibleDate = #6/20/2005#
			.LevelCount = 2
			.DrawDateTicker = True
			.DateTickerLabel = "<%mmm%> <%d%>"
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#
			.AddBar .AddItem("Task 2"),"Task",#6/23/2005#,#7/3/2005#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2273
Date-label customization

<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,"gBFLBCJwBAEHhEJAAEhABT0GACAADACAxRDAMgBQKAAzAJBIYhiGgcYCgMZBSDeCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCOIwAFBIZhrE4ZRwGCQRRgyI43RhHUBzV" & _
	"IUBxDEaTZLlGY4NjSIYHThPMzyDRlEyBBqVKKoWLZMjiIY2RhJM7SBR0OROGQaRJrewZHDUMJiQjZVoVNTkNyxH6uYzoKSqVACLowTJNFZXDDkeR5JqcKBqChIEpKO5w" & _
	"RriAABVZoAA3Rq+AAuPBJIwYAAyXTIdTwThkBz3R6tchgOw7LxeZJpWbZOo0TgGFwTLDQNCifI7Vi6NJ1DdcKLNNx3tDBdpGXZ4JznGa8a7jN57dr+JQ7U6degACytKx" & _
	"LBeOprHMcA+GafxaAiBIUA0JgziGVJkGUGJIFyUYiBEN5VBsGxCEUEIcn0cAxBgWBijmM4Ekec57n0RwJBgBgCgCEZCC4BoBmAdBwgSApgkgMQcB8YQIEYERHAceBWBa" & _
	"BYRkGQgagaYY0HAaYHmICIBBwGJiEiFglEcBYYiYKoKhGQRCC6C5inQcBNgyYxIlIMoNGMWI2DCDAigiLgrgiYhohoHoIGIGBmByBwhEgXgXgOYQoEoCoDGCWAWAiAgg" & _
	"AgDgDEcH5pGUHAoCWSR2F0cxOjSHQJEAQCAg="
			.Add 2,"CP:1 -2 -2 4 4"
		End With
		.ScrollBars = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
		.Background(192) = &H2000000
		.Background(193) = RGB(255,255,255)
		.Background(194) = RGB(1,0,0)
		.Background(195) = RGB(1,0,0)
		.Background(196) = RGB(4,0,0)
		.Columns.Add "Tasks"
		With .Chart
			.PaneWidth(0) = 96
			.AllowCreateBar = 1
			.FirstVisibleDate = #6/20/2005#
			.LevelCount = 2
			.DrawDateTicker = True
			.DateTickerLabel = "<%mmm%><br><%d%>"
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#
			.AddBar .AddItem("Task 2"),"Task",#6/23/2005#,#7/3/2005#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2272
How can I change the visual appearance for the date-label (EBN)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABaICg6AADACAxRDAMgBQKAAzAJBIYhiGgcYCgMZBSDeCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASV" & _
	"AceAAGaUZrjSgobjmOYhAJCL70WAFFr/DCgZThGgJHomMIhAhHAJwTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69" & _
	"JbwMLbSgMIKFABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFo" & _
	"iC8X4QnAOQ8B4dp6BONQoBoTBnEOKZIkoMYQi2JZECIb4mDYNoEgoIQ8k2PIIDEGBAEuO4UmcF5xHufgqiACAGAKAJfmKdJogGWRAACbYCk0KA0mCA5OFgRgSgSYRIDy" & _
	"YAymGCAsm0QhNAgdJmgeX5DgiYYImISIWCaCBhCMUgqEITJIjSZ4Lk4OJGDKDJjEiVgvDmYpTDILILGAc4gmSD5kAkBhChCY5YmYOwzA6GQmBSEpkkgShJDoZBkA4OQ6" & _
	"iUSB+FaFZlgkZJmhUDopEQAIOE6OYGDeGJmEmFg3hgTo5HoYIYGOWY2G6G9cCIaoLE6SZWE+HZngmZhPh1YJMkyBolkoBoCiCZbBn4O4ogmIoKiKaJJiKCA7ieY4+hKH" & _
	"wpEoVoW3MI4+H4PApkgaoeieagIGqHF3jocoPimaoKiaD4omeY5Gi6JhrAqRoyiYapjkYfg8iuCoOjqLprkqDo4DzcROkKLRsEsFpG4+I5OH4PQskqfpOjObQKn6TA9X" & _
	"EVpWjIbYLGaWoyG0Y5WlWNYtDuBpijibQ7HYfg9i6Cx2mqOpuksdpoD3cRenKO5vEuVp26wI5eH4PgvkuZp+j+cALmafA+XEZwGkCcIMCcCpAnAY5mH4PoxAwNwSkScR" & _
	"MDcEA+jCfBfBqRpxkwdwYgsZBzm8IpInITIXCaSdxHMKpKnKTI3C6S4lmgNJSkCT5slcNpNnODJnAMNZzkQJpvDYdAMDUTpQnQRQ7A2UANhuPRKFKZJ4iiVIOHUDRGDm" & _
	"U4higJJrGuQAEAQgI"
		.ScrollBars = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
		.Background(192) = &H1000000
		.Background(193) = RGB(10,10,10)
		.Columns.Add "Tasks"
		With .Chart
			.PaneWidth(0) = 96
			.AllowCreateBar = 1
			.FirstVisibleDate = #6/20/2005#
			.LevelCount = 2
			.DrawDateTicker = True
			.DateTickerLabel = " <%mmm%> <%d%>"
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#
			.AddBar .AddItem("Task 2"),"Task",#6/23/2005#,#7/3/2005#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2271
How can I change the visual appearance for the date-label (solid colors)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ScrollBars = 2050 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exVertical
		.Background(192) = RGB(1,0,0)
		.Background(193) = RGB(255,255,255)
		.Columns.Add "Tasks"
		With .Chart
			.PaneWidth(0) = 96
			.AllowCreateBar = 1
			.FirstVisibleDate = #6/20/2005#
			.LevelCount = 2
			.DrawDateTicker = True
			.DateTickerLabel = "<%mmm%> <%d%>"
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#6/21/2005#,#6/28/2005#
			.AddBar .AddItem("Task 2"),"Task",#6/23/2005#,#7/3/2005#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2270
Expandable-caption

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AnchorClick(AnchorID,Options)
	With G2antt1
		alert( AnchorID )
	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 = True
		.TreeColumnIndex = -1
		.DrawGridLines = -1
		.GridLineStyle = 512
		.BackColorAlternate = RGB(240,240,240)
		.ShowFocusRect = False
		.Columns.Add "Default"
		With .Items
			.AddItem "before item"
			h = .AddItem("<solidline> <c><b>Bank Account 1</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4" & _
	"AjMGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAA" & _
	"EBA==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8D" & _
	"ABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>&" & _
	"#9650;</a><br>+ withdraw(amount: Currency)")
			.CellValueFormat(h,0) = 1
			.CellSingleLine(h,0) = False
			h = .AddItem("<solidline> <c><b>Bank Account 2</b><br> <c><fgcolor 808080>properties</solidline><a 1;e64=gArAAgABvAB3ABuABlAByAA6gYAKYAOkNABp" & _
	"hIAM8RHgAMMRGIAHcLAA2AA0AA9jQAIIAHEsABCAB6mEyO01ABznBwnBrlcvJU4Os4NkwlsClstjctIoAIYAJoAMYAKkXk8wqMIltRlEtNVQABHABoAFNsRPABVABWo1" & _
	"XpMHAE+l88otTONWslasoAosbGFwjFqoton1owN7jZRAE3jdTI1jnIAJeQnxJyFqxWHtUKqdTr9/jcKv9fNtgj8bwUFuFbABOAFonlNM1xsGun0+0tFpt3h1TitfxWlt" & _
	"9ft41toyyM6nRIqQAMUZnxkAF3kJMjMhxUVtkT4FtpsylsqlQ+AEdh3kEwAEYAHMlAHGv8jjovjwA8kd5/n8uRg1FjDpP8jKGPIgSCOej6io+ziSIgginqGhyHIZBY8o" & _
	"ilSCL++b+L4q0AKshUBgBESAgA==><r>▼</a></fgcolor><br><c><fgcolor 808080>methods</fgcolor><r><a 2;e64=gArAAgABkABlABwABvABzAB" & _
	"pAB0AAoABhABthYAOoAN0RAA6gYAIcaAByksHjgAMYAPIAFIAHkVkIyAA7lA2AA0AA9ABnABBAA4n4AIQANVDoECoBFkQAJoAO9Dp9CIlDop2q0NABojNAJ4AKNDplAo" & _
	"BIpAAI4AphXo1qmVHp9pJ1dp10r8+oFzphSut4AFfldmsgArFLABKrcqt1cGFgxONKk9AGNkcYNYAON1p5GABsABVklcy54h91yMQhxYttzkdHy84plRwxZodmJNDtIx" & _
	"utH2g3zufrUdy9RrlCF8p0Ejz2XGuS2ViolDnk8H0wk/VEwAEYAHIAnHNxs2mPHi3VmJi64AgUEqMQiVcg0mi1RikWjEMjcdiUggkjjaTJMhCOpWlqXgAACAg><fgcol" & _
	"or 808080>▼</fgcolor></a>")
			.CellValueFormat(h,0) = 1
			.CellSingleLine(h,0) = False
			.AddItem "after item"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2269
Expandable-caption

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ColumnAutoResize = True
		.TreeColumnIndex = -1
		.DrawGridLines = -1
		.GridLineStyle = 512
		.BackColorAlternate = RGB(240,240,240)
		.ShowFocusRect = False
		.Columns.Add "Default"
		With .Items
			.AddItem "before item"
			h = .AddItem("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
			.CellValueFormat(h,0) = 1
			.CellSingleLine(h,0) = False
			.AddItem "after item"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2268
Can I change the pattern for a specific bar only
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.FirstVisibleDate = #12/31/2009#
			.LevelCount = 2
			.PaneWidth(False) = 96
			With .Bars.Item("Task")
				.StartColor = RGB(255,255,255)
				.EndColor = .Color
			End With
		End With
		.Columns.Add "Types"
		With .Items
			.AddBar .AddItem("Original"),"Task",#1/4/2010#,#1/9/2010#,""
			h = .AddItem("W/h Pattern")
			.AddBar h,"Task",#1/4/2010#,#1/9/2010#,""
			.ItemBar(h,"",42) = 6
			.AddBar .AddItem("Original"),"Task",#1/4/2010#,#1/9/2010#,""
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Background(500) = -1
	End With
End Function
</SCRIPT>
</BODY>

2266
Disable hover-all feature (Windows 11 or greater)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.Background(500) = RGB(1,0,0)
	End With
End Function
</SCRIPT>
</BODY>

2265
I'm using the Milestone bar type, but find it to small and want to enlarge it. I can change the bar height, but then the shape gets a bit distorted (e.g. it doesn't scale properly)

<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,"gBFLBCJwBAEHhEJAAEhABJYCg6AADACAxRDgMQBQKAAzQFAYZhmGSGAAGIZhXgmFgAQhFcZQSKUOQTDKMIRfeQwAiNf4hQKBMIjKKAShaHCVIDlSThYAKCQxDZNUCQX" & _
	"DcdRRDaBR7hGgoaj6JolSRFUgSABEEigNIxToOU4jFgeCR2C7AZBEbTENBtBIUKDsKA4IBiFxAVjQFpSNZlWzdN64LhuK47UrWbYiXZeN5XXblaTxPrAMBwKzrLwPBqH" & _
	"XrfeIYXhlDzVC7GchxTCsSxXCaPY7lWZZPRGN49ODMNBibL9EwSA6laToWpRVpGSYpVrGdT2KgNQxbL61YLse5ZTrGF5vXrONz4LBeAwHP7FXLwfJaVxFeaPZq7eT6LR" & _
	"fEKa5PmgdJ7DuLotkeL5Am0eA4F2ToOHeK5hnOco8HIfQ/GOUZumWeY9h2fx/lOJ5Im8bY+j+LpWnecYxH6YAHgWMB/hgeAGAYe4aheSZ5gGYJICGG4BByaA2BIfRgjY" & _
	"RgTgWihaAobhhggdgBG+IY1nYHoImCRgaBAeQiEiJgHHGIgVnoKoLmEOBFmUchjAiVgYF4XZoloOoImKaJNGyDpkAiJZdggZAZBYLxphmWQaEqDRYmkLhOhEZJZD4UoM" & _
	"FSGJ6FOFZhheEhDhYJZHGYW4PGWWYFlSDQjmkbhi0WBZaCcepmgmBgygsJtLHCCYnBkBh0hkWAJlYMIICeBgKHqBxhimdh3h+ZYWEoa4MigR4hh6IZnhoJheGuIpYD6D" & _
	"humAOhFh+JJaCedoWgIaYGg2RYjCgahNnGIIbgmaZqigKI5jmaoVGqOIiEuKxjnobZjhGKwJCKNRoCSSpejaLorggeo8i8a51koVIwFaeoijOIRsEsApJhgIArC4ZIzi" & _
	"aKg+lCM5tDsRoUjUXRqkqWIrhuSxulmKQtmkIYsjgY4LGqZIum4e4UAAOpRBQJQBICA=="
			.Add 2,"CP:1 1 1 11 -2"
		End With
		.DefaultItemHeight = 32
		.HeaderAppearance = 4
		.Columns.Add "Task"
		With .Chart
			.LevelCount = 2
			.PaneWidth(False) = 128
			.FirstVisibleDate = #1/1/2001#
			With .Bars.Item("Milestone")
				.Height = 24
				.Color = &H2000000
			End With
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Milestone",#1/2/2001#,#1/2/2001#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2264
I'm using the Milestone bar type, but find it to small and want to enlarge it. I can change the bar height, but then the shape gets a bit distorted (e.g. it doesn't scale properly)

<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,"gBFLBCJwBAEHhEJAAEhABXYCg6AADACAxRDgMQBQKAAzQFAYZhmGSGAAGIZhXgmFgAQhFcZQSKUOQTDKMIRfeQwAiNf4hQKBMIjKKAShaHCVIDlSThYAKCQxDZNUCDN" & _
	"DYAR1FCeQACCCaDgOII/SZJMiRNIEQARBIoDRMM5DVLIZYHQjCcBkERtNQvHiBRQoSw6GAAGIaRDQMZSNZlWxMfx9XyeBoVeapFhbO4mZavEyCeTgfS3MBwLA3XZxTTx" & _
	"KIaD6KASbepEKh6VDNF52bYrA6XWy/T6PW7GDLmUY1H5UQpnfR4Uj/JyUT7KIS7bpMNTOWYfZ7XcxibKaZw2LDvIoxWL6UosH7UEpXfR/RLGcIVL7KKTLbpQNp8GwYXJ" & _
	"WAMBJ+mubB3gaV5qhyNp/FIFhfmoLgPg+RZkmCeA7gWN46iSXJ4G2Mh6m+ax7nGdJ4G6MxegoXpaiSPJ/CmRZTnyJR3iAOAKASAZgGOfImBcD5iigXx7B6ZhVHAPhPHM" & _
	"WJDD0CohkSfQrEYE58ioGAPnKJBfggYg4goJIJmIaImCOA8gjQYg9kqMZAngNQMAOSIrByT5CmAcA/ksMYon8K4GEOfIsBjLQuESEYkFkHhKhIZJJCCLQYk+YpEGZNhB" & _
	"kSbgrkeM7viIT5zBCAA/kucZsn8LxHHOfI4BwT5ylQbU9kGLJ/CyBoJj4cYcCcKZUjYGwPkMDDlkqcZhgUMwPBKaIID8DQSReMoIVYRQgmiIgIn8MJlnMCB+VKaYUjpO" & _
	"xylgboaEbQQ3BuD5TBgfg8kuAgMncbobgOYJjDWTwCmCB1oGIVJ/DQCQDnyTAjCsYgujkP5MjqaJKhcDIaCSRwg3eMIGDyCxyAieA3k0FxRG8dgOCMVJxC8CJTnCVwmg" & _
	"+cxchgP5NCIUpcjeLZbHyfw1gkexYhteZSDjkQNAeSYDGyT5LCyUQ8EvL58DeSkrFwJ+ZmSG4/G+cxsh0PxNkKDJ0C+CQGkWOBthadpQniNBtDIMJ8DiSlWGMKYPnOCI" & _
	"mD8TgiiidI6GyO41huQwdGcYorj1g5smIKZPkOBweC+SQjmCYA0i6bIRjYbgYFMNJvC0CBLCCCA9k2Iwik6SQOjWJQDEAQCAg"
			.Add 2,"CP:1 -6 0 20 0"
		End With
		.DefaultItemHeight = 32
		.HeaderAppearance = 4
		.Columns.Add "Task"
		With .Chart
			.LevelCount = 2
			.PaneWidth(False) = 128
			.FirstVisibleDate = #1/1/2001#
			With .Bars.Item("Milestone")
				.Height = 28
				.Color = &H2000000
			End With
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Milestone",#1/2/2001#,#1/2/2001#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2263
I'm using the Milestone bar type, but find it to small and want to enlarge it. I can change the bar height, but then the shape gets a bit distorted (e.g. it doesn't scale properly)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DefaultItemHeight = 32
		.HeaderAppearance = 4
		.Columns.Add "Task"
		With .Chart
			.LevelCount = 2
			.PaneWidth(False) = 128
			.FirstVisibleDate = #1/1/2001#
			.Bars.Item("Milestone").Height = 28
		End With
		With .Items
			.AddBar .AddItem("Task 1"),"Milestone",#1/2/2001#,#1/2/2001#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2262
Display the bar's tooltip at runtime

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		.ShowToolTip .Chart.BarFromPoint(-1,-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 
		.Columns.Add "Def"
		With .Chart
			.AllowCreateBar = 0
			.PaneWidth(False) = 64
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2010#
			.Bars.Item("Task").Def(6) = "..."
		End With
		With .Items
			h = .AddItem("Task")
			.AddBar h,"Task",#1/2/2010#,#1/5/2010#,"A","A"
			.AddBar h,"Task",#1/5/2010#,#1/8/2010#,"B","B"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2261
Includes the cell's state and user-data to bar's tooltip

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add("Def").Def(0) = True
		With .Chart
			.AllowCreateBar = 0
			.PaneWidth(False) = 96
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2010#
			.Bars.Item("Task").Def(6) = "<%=%C0%><br>Start: <%=%1%><br>End: <%=%2%><br>State: <b><%=%CS0%></b><br>UserData: <b><%=%CD0%></b>"
		End With
		With .Items
			h = .AddItem("Machine 1")
			.CellState(h,0) = 1
			.CellData(h,0) = "just some data"
			.AddBar h,"Task",#1/2/2010#,#1/5/2010#,"A","A"
			h = .AddItem("Machine 2")
			.AddBar h,"Task",#1/2/2010#,#1/5/2010#,"B","B"
			.CellData(h,0) = "just nother data"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2260
Shows the tooltip of the object moved relative to its default position

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		.ShowToolTip "<null>","<null>",,"+8","+8"
	End With
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Def"
		With .Chart
			.AllowCreateBar = 0
			.PaneWidth(False) = 64
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2010#
			.Bars.Item("Task").Def(6) = "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
		End With
		With .Items
			h = .AddItem("Task")
			.AddBar h,"Task",#1/2/2010#,#1/5/2010#,"A","A"
			.AddBar h,"Task",#1/5/2010#,#1/8/2010#,"B","B"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2259
Adds, changes or replaces the title of the object's tooltip

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		.ShowToolTip "<null>",.Chart.BarFromPoint(-1,-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 
		.Columns.Add "Def"
		With .Chart
			.AllowCreateBar = 0
			.PaneWidth(False) = 64
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2010#
			.Bars.Item("Task").Def(6) = "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
		End With
		With .Items
			h = .AddItem("Task")
			.AddBar h,"Task",#1/2/2010#,#1/5/2010#,"A","A"
			.AddBar h,"Task",#1/5/2010#,#1/8/2010#,"B","B"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2258
Adds, changes or replaces the object's tooltip

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		.ShowToolTip .Chart.BarFromPoint(-1,-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 
		.Columns.Add "Def"
		With .Chart
			.AllowCreateBar = 0
			.PaneWidth(False) = 64
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2010#
			.Bars.Item("Task").Def(6) = "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
		End With
		With .Items
			h = .AddItem("Task")
			.AddBar h,"Task",#1/2/2010#,#1/5/2010#,"A","A"
			.AddBar h,"Task",#1/5/2010#,#1/8/2010#,"B","B"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2257
Shows a new tooltip and title at current position

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		.ShowToolTip "new content","new title"
	End With
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Def"
		With .Chart
			.AllowCreateBar = 0
			.PaneWidth(False) = 64
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2010#
			.Bars.Item("Task").Def(6) = "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
		End With
		With .Items
			h = .AddItem("Task")
			.AddBar h,"Task",#1/2/2010#,#1/5/2010#,"A","A"
			.AddBar h,"Task",#1/5/2010#,#1/8/2010#,"B","B"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2256
Shows a new tooltip and title moved relative to the current position

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		.ShowToolTip "new content","new title",,"+8","+8"
	End With
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Def"
		With .Chart
			.AllowCreateBar = 0
			.PaneWidth(False) = 64
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2010#
			.Bars.Item("Task").Def(6) = "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
		End With
		With .Items
			h = .AddItem("Task")
			.AddBar h,"Task",#1/2/2010#,#1/5/2010#,"A","A"
			.AddBar h,"Task",#1/5/2010#,#1/8/2010#,"B","B"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2255
Displays a different tooltip at a fixed position
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		.ShowToolTip "new content","",,128,128
	End With
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Def"
		With .Chart
			.AllowCreateBar = 0
			.PaneWidth(False) = 64
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2010#
			.Bars.Item("Task").Def(6) = "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
		End With
		With .Items
			h = .AddItem("Task")
			.AddBar h,"Task",#1/2/2010#,#1/5/2010#,"A","A"
			.AddBar h,"Task",#1/5/2010#,#1/8/2010#,"B","B"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2254
Hide the tooltip

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_MouseMove(Button,Shift,X,Y)
	With G2antt1
		.ShowToolTip "",""
	End With
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Def"
		With .Chart
			.AllowCreateBar = 0
			.PaneWidth(False) = 64
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2010#
			.Bars.Item("Task").Def(6) = "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
		End With
		With .Items
			h = .AddItem("Task")
			.AddBar h,"Task",#1/2/2010#,#1/5/2010#,"A","A"
			.AddBar h,"Task",#1/5/2010#,#1/8/2010#,"B","B"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2253
I need 2 bars that are linked together and cannot be moved/splitted alone (moving one should move the two bars, like a « Group » of bars). How can I achieve that

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		.HeaderVisible = 1
		.HeaderAppearance = 4
		With .Chart
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(False) = 96
			.LevelCount = 2
		End With
		With .Items
			.AddItem 
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/5/2001 0:00:00 PM#,#1/7/2001#,"T1"
			.ItemBar(h1,"",4) = 18
			.AddBar h1,"Task",#1/3/2001#,#1/4/2001 0:00:00 PM#,"T2"
			.ItemBar(h1,"T2",33) = 255
			.GroupBars h1,"T1",True,h1,"T2",True,27,0
			.AddItem 
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2252
How can I show the tooltip programmatically ( I want to be able to set the tooltip content dynamically just before the tooltip start to appear, not using the exBarTooltip )
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_ToolTip(Item,ColIndex,Visible,X,Y,CX,CY)
	With G2antt1
		.ShowToolTip .Chart.BarFromPoint(-1,-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 
		.Columns.Add "Def"
		With .Chart
			.AllowCreateBar = 0
			.PaneWidth(False) = 64
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2010#
			.Bars.Item("Task").Def(6) = "..."
		End With
		With .Items
			h = .AddItem("Task")
			.AddBar h,"Task",#1/2/2010#,#1/5/2010#,"A","A"
			.AddBar h,"Task",#1/5/2010#,#1/8/2010#,"B","B"
			.AddBar h,"Task",#1/8/2010#,#1/11/2010#,"C","C"
			.GroupBars h,"A",False,h,"B",True,39
			.GroupBars h,"B",False,h,"C",True,39
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2251
I'd like to move itembars from one item to another, using .Chart.Bars("Task").Def(exBarCanMoveToAnother) = True this works for any new bar. The question is how can I specify this feature for bars already created

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DefaultItemHeight = 32
		.DrawGridLines = -2
		.GridLineStyle = 512
		.HeaderAppearance = 4
		With .Chart
			.LevelCount = 2
			.DrawGridLines = -2
			.GridLineStyle = 512
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(False) = 48
			.AllowLinkBars = False
			With .Bars.Item("Task")
				.OverlaidType = 4
				.Def(3) = "only horizontal"
				.Def(59) = 18
				.Def(28) = True
			End With
		End With
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/3/2001#,#1/5/2001#,"A"
			.AddBar .AddItem("Item 2"),"Task",#1/4/2001#,#1/6/2001#,"B"
			.AddBar .AddItem("Item 3"),"Task",#1/3/2001#,#1/5/2001#,"C"
			.ItemBar(0,"<*>",28) = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2250
I'd like to move itembars from one item to another, using .Chart.Bars("Task").Def(exBarCanMoveToAnother) = True this works for any new bar. The question is can I disable this for particular item-bars

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DefaultItemHeight = 32
		.DrawGridLines = -2
		.GridLineStyle = 512
		.HeaderAppearance = 4
		With .Chart
			.LevelCount = 2
			.DrawGridLines = -2
			.GridLineStyle = 512
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(False) = 48
			.AllowLinkBars = False
			With .Bars.Item("Task")
				.OverlaidType = 4
				.Def(3) = "anywhere"
				.Def(59) = 18
				.Def(28) = True
			End With
		End With
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/3/2001#,#1/5/2001#,"A"
			h = .AddItem("Item 2")
			.AddBar h,"Task",#1/4/2001#,#1/6/2001#,"B","only horiontal"
			.ItemBar(h,"B",28) = False
			.AddBar .AddItem("Item 3"),"Task",#1/3/2001#,#1/5/2001#,"C"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2249
I need the top row to display months, while the second to show units in weeks, but can 10 by 10 days days. Is it possible

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.PaneWidth(False) = 0
			.DrawGridLines = 2
			.FirstVisibleDate = #1/1/2001#
			.UnitWidth = 30
			.LevelCount = 2
			.Level(0).Unit = 16
			With .Level(1)
				.Unit = 4096
				.Count = 10
			End With
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2248
Limit the chart's margins when using the CopyTo method

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.MarkSearchColumn = False
		With .Columns
			.Add "Tasks"
			With .Add("Start")
				.Def(18) = 1
				.Editor.EditType = 4
			End With
			With .Add("End")
				.Def(18) = 2
				.Editor.EditType = 4
			End With
		End With
		With .Chart
			.PaneWidth(False) = 196
			.LevelCount = 2
			.ShowEmptyBars = 1
			.FirstVisibleDate = #1/1/2009#
		End With
		With .Items
			.AllowCellValueToItemBar = True
			.AddBar .AddItem("Task 1"),"Task",#1/2/2009#,#1/7/2009#
			.AddBar .AddItem("Task 2"),"Task",#1/4/2009#,#1/9/2009#
		End With
		With .Chart
			.StartPrintDate = #1/4/2009#
			.EndPrintDate = #1/5/2009#
		End With
		var_CopyTo = .CopyTo("c:/temp/xtest.pdf")
		alert( "Look for C:\Temp\xtest.pdf file." )
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2247
I want to always keep the bottom item stationary. It can always display even when scrolling vertically. The bar placed at the bottom item is must be movable to other items

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		color = 15790320
		.BeginUpdate 
		.Debug = True
		.HeaderVisible = 1
		.HeaderAppearance = 4
		.ShowLockedItems = True
		With .Chart
			.PaneWidth(False) = 128
			.LevelCount = 2
			.FirstVisibleDate = #12/31/2015#
			.Bars.Item("Task").Def(28) = True
		End With
		.Columns.Add "Column"
		With .Items
			.LockedItemCount(0) = 3
			h = .LockedItem(0,0)
			.ItemBackColor(h) = color
			G2antt1.Chart.ItemBackColor(h) = color
			.CellValue(h,0) = "locked-top 1"
			.AddBar h,"Task",#1/4/2016#,#1/8/2016#,"T1"
			h = .LockedItem(0,1)
			.ItemBackColor(h) = color
			G2antt1.Chart.ItemBackColor(h) = color
			.CellValue(h,0) = "locked-top 2"
			.AddBar h,"Task",#1/5/2016#,#1/9/2016#,"T2"
			h = .LockedItem(0,2)
			.SelectItem(h) = False
			.ItemDivider(h) = 0
			.ItemHeight(h) = 2
			.AddBar .AddItem("un-locked item 1"),"Task",#1/4/2016#,#1/8/2016#,"T3"
			.AddBar .AddItem("un-locked item 2"),"Task",#1/5/2016#,#1/9/2016#,"T4"
			.LockedItemCount(1) = 3
			h = .LockedItem(1,0)
			.SelectItem(h) = False
			.ItemDivider(h) = 0
			.ItemHeight(h) = 2
			h = .LockedItem(1,1)
			.ItemBackColor(h) = color
			G2antt1.Chart.ItemBackColor(h) = color
			.CellValue(h,0) = "locked-bottom 1"
			.AddBar h,"Task",#1/4/2016#,#1/8/2016#,"T5"
			h = .LockedItem(1,2)
			.ItemBackColor(h) = color
			G2antt1.Chart.ItemBackColor(h) = color
			.CellValue(h,0) = "locked-bottom 2"
			.AddBar h,"Task",#1/5/2016#,#1/9/2016#,"T6"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2246
How can I get a cell that shows the sum of a column of minutes in hours + minutes 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
		With .Columns.Add("Minutes")
			.SortType = 1
			With .Editor
				.EditType = 1
				.Numeric = -1
			End With
		End With
		With .Items
			.AddItem 10
			.AddItem 20
			.AddItem 30
			.AddItem 40
			.AddItem 50
			h = .AddItem("sum(all,dir,dbl(%0))")
			.SelectableItem(h) = False
			.SortableItem(h) = False
			.CellValueFormat(h,0) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
			.CellHAlignment(h,0) = 2
			.FormatCell(h,0) = "'<b>HH:NN</b>: '+ (int(value/60) lpad '00') + ':' + ((value mod 60) lpad '00')"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2245
Ensure that a bar fits the chart's visible area (unique keys)

<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 .Chart
			.FirstVisibleDate = #3/26/2023#
			.LevelCount = 2
			.PaneWidth(False) = 128
		End With
		.Columns.Add "Tasks"
		With .Items
			.AddBar .AddItem("Task A"),"Task",#1/2/2001#,#1/12/2001#,"T1"
			.AddBar .AddItem("Task B"),"Task",#1/20/2001#,#1/31/2001#,"T2"
			.EnsureVisibleBar 0,"T1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2244
Ensure that a bar fits the chart's visible area

<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 .Chart
			.FirstVisibleDate = #3/26/2023#
			.LevelCount = 2
			.PaneWidth(False) = 128
		End With
		.Columns.Add "Tasks"
		With .Items
			h1 = .AddItem("Task A")
			.AddBar h1,"Task",#1/2/2001#,#1/12/2001#,"T1"
			h2 = .AddItem("Task B")
			.AddBar h2,"Task",#1/20/2001#,#1/31/2001#,"T2"
			.EnsureVisibleBar h1,"T1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2243
Is it possible to change the visual appearance for the frame to create newly bar 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 
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Background(188) = &H1000000
		.Background(189) = RGB(15,0,0)
		With .Chart
			.AllowCreateBar = 1
			.PaneWidth(False) = 128
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2001#
			With .Bars.Item("Task")
				.Color = &H1000000
				.Height = 15
			End With
		End With
		.Columns.Add "Column"
		With .Items
			.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/7/2001#
			.AddBar .AddItem("Item 2"),"Task",#1/6/2001#,#1/14/2001#
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2242
Highlight the match once the filter is applied

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_FilterChange()
	With G2antt1
		format = .FormatABC("`lower(value) replace lower('` + value + `') with '<bgcolor 000000><fgcolor FFFFFF>` + value  + `</fgcolor></bgcolor>'`",.FilterBarPromptPattern)
		.Columns.Item(0).FormatColumn = format
		.Columns.Item(1).FormatColumn = format
		.Columns.Item(2).FormatColumn = format
	End With
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.SelBackColor = .BackColor
		.SelForeColor = .ForeColor
		.ColumnAutoResize = True
		.ContinueColumnScroll = 0
		.MarkSearchColumn = False
		.SearchColumnIndex = 1
		.HeaderAppearance = 4
		.HeaderHeight = 23
		.BackColorLevelHeader = .BackColor
		.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
		.FilterBarPromptVisible = 2055 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		.FilterBarBackColor = .BackColor
		.FilterBarPromptPattern = "and"
		With .Columns
			With .Add("Name")
				.Def(17) = 1
				.FormatColumn = "lower(value)"
			End With
			With .Add("Title")
				.Def(17) = 1
				.FormatColumn = "lower(value)"
			End With
			With .Add("City")
				.Def(17) = 1
				.FormatColumn = "lower(value)"
			End With
		End With
		With .Items
			h0 = .AddItem("Nancy Davolio")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Andrew Fuller")
			.CellValue(h0,1) = "Vice President, Sales"
			.CellValue(h0,2) = "Tacoma"
			.SelectItem(h0) = 1
			h0 = .AddItem("Janet Leverling")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Kirkland"
			h0 = .AddItem("Margaret Peacock")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "Redmond"
			h0 = .AddItem("Steven Buchanan")
			.CellValue(h0,1) = "Sales Manager"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Michael Suyama")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Robert King")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
			h0 = .AddItem("Laura Callahan")
			.CellValue(h0,1) = "Inside Sales Coordinator"
			.CellValue(h0,2) = "Seattle"
			h0 = .AddItem("Anne Dodsworth")
			.CellValue(h0,1) = "Sales Representative"
			.CellValue(h0,2) = "London"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2241
The count of filtered items includes the group-parents. How can I exclude them from count

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DrawGridLines = 2
		.HeaderAppearance = 1
		.HeaderHeight = 24
		.SortBarHeight = 28
		.SortBarVisible = True
		.AllowGroupBy = True
		.Columns.Add "Col 1"
		.Columns.Add "Col 2"
		With .Items
			.CellValue(.AddItem("219 Smith"),1) = "Ignacio 1234"
			.CellValue(.AddItem("1666 County Road 309A"),1) = "897 Manassa"
			.CellValue(.AddItem("38 Lone Pine"),1) = "Durango 11"
			.CellValue(.AddItem("612 Jachim Street"),1) = "Lamar 222"
		End With
		.Layout = "MultipleSort=""C1:1"""
		.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? leafitemcount + ` result(s)` : ``)"
		.FilterBarPromptVisible = 2055 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		.FilterBarPromptType = 257 ' FilterPromptEnum.exFilterPromptCaseSensitive Or FilterPromptEnum.exFilterPromptContainsAll
		.FilterBarPromptPattern = "12"
		.FilterBarBackColor = .BackColor
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2240
Is it possible to display the count of filtered items

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DrawGridLines = 2
		.HeaderAppearance = 4
		.HeaderHeight = 24
		.Columns.Add "Col 1"
		.Columns.Add "Col 2"
		With .Items
			.CellValue(.AddItem("219 Smith"),1) = "Ignacio 1234"
			.CellValue(.AddItem("1666 County Road 309A"),1) = "897 Manassa"
			.CellValue(.AddItem("38 Lone Pine"),1) = "Durango 11"
			.CellValue(.AddItem("612 Jachim Street"),1) = "Lamar 222"
		End With
		.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
		.FilterBarPromptVisible = 2055 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		.FilterBarPromptType = 257 ' FilterPromptEnum.exFilterPromptCaseSensitive Or FilterPromptEnum.exFilterPromptContainsAll
		.FilterBarPromptPattern = "12"
		.FilterBarBackColor = .BackColor
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2239
ADOR, MDB (JET)
<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\ExG2antt\Sample\Access\misc.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>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.DefaultItemHeight = 22
		.DrawGridLines = -2
		.GridLineStyle = 512
		.Columns.Add "Task"
		With .Chart
			.DrawGridLines = -2
			.GridLineStyle = 512
			.ResizeUnitScale = 65536
			.PaneWidth(False) = 48
			.FirstVisibleDate = #1/1/2001#
			With .Bars.Item("Task")
				.OverlaidType = 257 ' OverlaidBarsTypeEnum.exOverlaidBarsTransparent Or OverlaidBarsTypeEnum.exOverlaidBarsOffset
				.Overlaid(256) = 70
				.Def(28) = True
			End With
		End With
		.ItemsAllowSizing = -1
		With .Items
			.SelectableItem(.AddItem()) = False
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A1"
			.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"A2"
			.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"A3"
			.ItemHeight(h) = 64
			h = .AddItem("Task 2")
			.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"A4"
			.AddBar h,"Task",#1/8/2001#,#1/12/2001#,"A5"
			.SelectableItem(.AddItem()) = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2237
Editors (ImageSize = 32)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ImageSize = 32
		.DefaultItemHeight = 36
		.HeaderHeight = .DefaultItemHeight
		.SortBarHeight = .DefaultItemHeight
		.Font.Size = 16
		.FilterBarFont.Size = G2antt1.Font.Size
		.ToolTipFont.Size = G2antt1.Font.Size
		.Indent = 26
		.Images "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" & _
	"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" & _
	"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" & _
	"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" & _
	"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" & _
	"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" & _
	"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" & _
	"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" & _
	"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" & _
	"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" & _
	"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" & _
	"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" & _
	"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" & _
	"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" & _
	"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" & _
	"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" & _
	"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA=="
		With .VisualAppearance
			.Add 1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
	"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
	"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" & _
	"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" & _
	"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" & _
	"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" & _
	"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" & _
	"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" & _
	"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" & _
	"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="
			.Add 2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
	"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
	"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
	"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" & _
	"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" & _
	"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" & _
	"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" & _
	"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" & _
	"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" & _
	"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" & _
	"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" & _
	"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" & _
	"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" & _
	"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" & _
	"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" & _
	"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" & _
	"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" & _
	"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" & _
	"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" & _
	"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" & _
	"gRBCCQAgQEA=="
			.Add 3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
	"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
	"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
	"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" & _
	"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" & _
	"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" & _
	"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" & _
	"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" & _
	"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" & _
	"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" & _
	"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" & _
	"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" & _
	"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" & _
	"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" & _
	"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" & _
	"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" & _
	"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" & _
	"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" & _
	"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI="
			.Add 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
	"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
	"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
	"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
	"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
	"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
	"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
	"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
	"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
		End With
		.BackColorHeader = &H4c6c6c6
		.SelBackColor = &H4000000
		.SelForeColor = RGB(0,0,1)
		.ShowFocusRect = False
		.CheckImage(0) = 16777216
		.CheckImage(1) = 33554432
		.CheckImage(2) = 50331648
		.Columns.Add("Editors").Def(17) = 1
		With .Items
			.CellEditor(.AddItem("(ReadOnly)"),0).EditType = 0
			.CellEditor(.AddItem("(EditType)"),0).EditType = 1
			h = .AddItem("Value 1")
			With .CellEditor(h,0)
				.EditType = 2
				.AddItem 1,"Value 1",1
				.AddItem 2,"Value 2",2
				.AddItem 3,"Value 3",3
			End With
			.FormatCell(h,0) = "value + ' (DropDownType)'"
			h = .AddItem(1)
			With .CellEditor(h,0)
				.EditType = 3
				.DropDownAutoWidth = 0
				.AddItem 1,"Nancy Davolio",1
				.AddItem 2,"Andrew Fuller",2
				.AddItem 3,"Janet Leverling",3
				.AddItem 4,"Peacock Margaret",3
				.AddItem 5,"Steven Buchanan",2
				.AddItem 6,"Michael Suyama",1
				.AddItem 7,"Robert King",2
				.AddItem 8,"Laura Callahan",3
				.AddItem 9,"Anne Dodsworth",2
			End With
			.FormatCell(h,0) = "value + ' (DropDownList - single column list)'"
			h = .AddItem(1)
			With .CellEditor(h,0)
				.EditType = 3
				.DropDownAutoWidth = 0
				.AddItem 1,"Nancy Davolio",1
				.AddItem 2,"Andrew Fuller",2
				.InsertItem 3,"Janet Leverling",3,2
				.InsertItem 4,"Peacock Margaret",3,2
				.InsertItem 5,"Steven Buchanan",2,2
				.InsertItem 6,"Michael Suyama",1,5
				.InsertItem 7,"Robert King",2,2
				.InsertItem 8,"Laura Callahan",3,2
				.InsertItem 9,"Anne Dodsworth",2,5
				.ExpandAll 
			End With
			.FormatCell(h,0) = "value + ' (DropDownList - single column tree)'"
			h = .AddItem(1)
			With .CellEditor(h,0)
				.EditType = 3
				.DropDownAutoWidth = 0
				.Option(57) = "Name¦Title¦City¦Phone"
				.Option(58) = "312¦¦¦96"
				.AddItem 1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1
				.AddItem 2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2
				.AddItem 3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3
				.AddItem 4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3
				.AddItem 5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2
				.AddItem 6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1
				.AddItem 7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2
				.AddItem 8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3
				.AddItem 9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2
			End With
			.FormatCell(h,0) = "value + ' (DropDownList - multiple columns list)'"
			h = .AddItem(1)
			With .CellEditor(h,0)
				.EditType = 3
				.DropDownAutoWidth = 0
				.Option(57) = "Name¦Title¦City¦Phone"
				.Option(58) = "312¦¦¦96"
				.AddItem 1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1
				.AddItem 2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2
				.InsertItem 3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3,2
				.InsertItem 4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3,2
				.InsertItem 5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2,2
				.InsertItem 6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1,5
				.InsertItem 7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2,2
				.InsertItem 8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3,2
				.InsertItem 9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2,5
				.ExpandAll 
			End With
			.FormatCell(h,0) = "value + ' (DropDownList - multiple columns tree)'"
			h = .AddItem(100)
			.CellEditor(h,0).EditType = 4
			.FormatCell(h,0) = "value + ' (SpinType)'"
			.CellEditor(.AddItem("(MemoType)"),0).EditType = 5
			h = .AddItem(3)
			With .CellEditor(h,0)
				.EditType = 6
				.AddItem 1,"Border",1
				.AddItem 2,"Single",2
				.AddItem 4,"Frame",3
			End With
			.FormatCell(h,0) = "value + ' (CheckListType)'"
			h = .AddItem("193.226.40.161")
			With .CellEditor(h,0)
				.Mask = "{0,255}.{0,255}.{0,255}.{0,255}"
				.EditType = 8
			End With
			.FormatCell(h,0) = "value + ' (MaskType)'"
			h = .AddItem(65280)
			With .CellEditor(h,0)
				.EditType = 9
				.Mask = "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0"
			End With
			.FormatCell(h,0) = "value + ' (ColorType)'"
			h = .AddItem("Tahoma")
			.CellEditor(h,0).EditType = 10
			.FormatCell(h,0) = "value + ' (FontType)'"
			h = .AddItem("gBHJJGHA5MIwAEIe4AAAFhwbiAliQwig7ixFjBQjRbjhljxwkB7kSFkiQkyblCllSwli7lzFmDQmTbmjlmzwnD7nQBnk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1YhgAEL5AgBhj/AAssMJthABFof4JDhIWCgYKDBATFT8M6hUIFAQAEQCCDwYF/QoWDZCRBgOKgIYHCQXMisKBAEQAAgOBZaSgQhjERANKQiZhIWam" & _
	"YyIBQ6FzcNKxQLJT4ADA4RjwObAAidBYdHwABQgUxMQYZEI0cD4OgnYKaKyzIRFNQx2YCKoFHScYD0ADXQwUAgwLoLQDqaCWBJoNQ9NBxFJTVQORgiarqSABbamGwtDA" & _
	"wBUWhQmqYALnOFQvGYPA4m6AwKhkZxKj2PBWC0SZCgmVY6CwIJgieBAniubRKHgaYgiwQwGiCfxGDWbBRmGZYIi2VwGnAexxGUSwUFiaR+hQPbBgOCoLCIHh4DAARCmQ" & _
	"G4AlgNxuhwWgpFAEQUhuOxOk0NrhAaQoBmgPYdFSIZPjYGYbn+HhgEoAA7HMBIOjUM51AoPojHkEwVlET5slgWZtAEUBdjeSoeF6X5/rQRRSi+QB6GychsEAfZshKYAB" & _
	"GQZorlAOgMBqEgAjYHB2jqSoigmYBLk+QZnBqGhggAEwImgbojgoIwSE+MxUHiS4REQCQWluD48B+JJoL+YQikuaI9AALgLmsJQfnSdAvDkCJEhIIIBgOegLEiPBqCyC" & _
	"AAjcCwgAAIJBhQBQkHGL4gDaNBokkZQMiwUAuioJQiCAQYsHMcwwEIeoigAYIogsGIwFKIYICIWguEoPgQhsawBASGgwCuJwLH8K4LigAIaDwbxMAOKxbisPwfASQATF" & _
	"ASoagIEYwgcSoKGiAA/mEdIuiGPxCmObIlhMIJNHONxFH8EpPCGeB+noEpBBSSRjCsPZEiyKhgjAH5whSdLEjwDxjC8TxVEMFRzFWJJZBUSI0gQEQLBOM4VHkIg1D0CA" & _
	"JDQNg/p4AAdoC")
			.CellEditor(h,0).EditType = 11
			.FormatCell(h,0) = "value + ' (PictureType)'"
			.CellEditor(.AddItem("(ButtonType)"),0).EditType = 12
			h = .AddItem(25)
			.CellEditor(h,0).EditType = 13
			.FormatCell(h,0) = "value + ' (ProgressBarType)'"
			h = .AddItem("Value 1")
			With .CellEditor(h,0)
				.EditType = 14
				.AddItem 1,"Value 1",1
				.AddItem 2,"Value 2",2
				.AddItem 3,"Value 3",3
			End With
			.FormatCell(h,0) = "value + ' (PickEditType)'"
			.CellEditor(.AddItem("(LinkEditType)"),0).EditType = 15
			With .CellEditor(.AddItem("(UserEditorType)"),0)
				.EditType = 16
				.UserEditor "Exontrol.ComboBox",""
				With .UserEditorObject
					.BeginUpdate 
					.LabelHeight = G2antt1.DefaultItemHeight
					.Style = 2
					.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\Access\misc.accdb",3,3
					End With
					.DataSource = rs
					.MinHeightList = 128
					.SearchColumnIndex = 0
					.UseTabKey = False
					.EndUpdate 
				End With
			End With
			h = .AddItem(255)
			With .CellEditor(h,0)
				.EditType = 17
				.Option(4) = True
			End With
			.FormatCell(h,0) = "value + ' (ColorListType)'"
			.CellEditor(.AddItem(65280),0).EditType = 17
			.CellEditor(.AddItem("(MemoDropDownType)"),0).EditType = 18
			With .CellEditor(.AddItem(-1),0)
				.EditType = 19
				.Option(17) = 1
			End With
			h = .AddItem(50)
			With .CellEditor(h,0)
				.EditType = 20
				.Option(41) = -60
				.Option(53) = 10
				.Option(63) = 2
			End With
			.FormatCell(h,0) = "value + ' (SliderType)'"
			h = .AddItem(100)
			.CellEditor(h,0).EditType = 21
			.FormatCell(h,0) = "value + ' (CalculatorType)'"
			.EnsureVisibleItem h
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2236
Editors (ImageSize = 16, default)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ImageSize = 16
		.Images "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" & _
	"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" & _
	"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" & _
	"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" & _
	"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" & _
	"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
		With .VisualAppearance
			.Add 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
	"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
	"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
	"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
	"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
	"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
	"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
	"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
	"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
		End With
		.Columns.Add("Editors").Def(17) = 1
		With .Items
			.CellEditor(.AddItem("(ReadOnly)"),0).EditType = 0
			.CellEditor(.AddItem("(EditType)"),0).EditType = 1
			h = .AddItem("Value 1")
			With .CellEditor(h,0)
				.EditType = 2
				.AddItem 1,"Value 1",1
				.AddItem 2,"Value 2",2
				.AddItem 3,"Value 3",3
			End With
			.FormatCell(h,0) = "value + ' (DropDownType)'"
			h = .AddItem(1)
			With .CellEditor(h,0)
				.EditType = 3
				.DropDownAutoWidth = 0
				.AddItem 1,"Nancy Davolio",1
				.AddItem 2,"Andrew Fuller",2
				.AddItem 3,"Janet Leverling",3
				.AddItem 4,"Peacock Margaret",3
				.AddItem 5,"Steven Buchanan",2
				.AddItem 6,"Michael Suyama",1
				.AddItem 7,"Robert King",2
				.AddItem 8,"Laura Callahan",3
				.AddItem 9,"Anne Dodsworth",2
			End With
			.FormatCell(h,0) = "value + ' (DropDownList - single column list)'"
			h = .AddItem(1)
			With .CellEditor(h,0)
				.EditType = 3
				.DropDownAutoWidth = 0
				.AddItem 1,"Nancy Davolio",1
				.AddItem 2,"Andrew Fuller",2
				.InsertItem 3,"Janet Leverling",3,2
				.InsertItem 4,"Peacock Margaret",3,2
				.InsertItem 5,"Steven Buchanan",2,2
				.InsertItem 6,"Michael Suyama",1,5
				.InsertItem 7,"Robert King",2,2
				.InsertItem 8,"Laura Callahan",3,2
				.InsertItem 9,"Anne Dodsworth",2,5
				.ExpandAll 
			End With
			.FormatCell(h,0) = "value + ' (DropDownList - single column tree)'"
			h = .AddItem(1)
			With .CellEditor(h,0)
				.EditType = 3
				.DropDownAutoWidth = 0
				.Option(57) = "Name¦Title¦City¦Phone"
				.Option(58) = "312¦¦¦96"
				.AddItem 1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1
				.AddItem 2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2
				.AddItem 3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3
				.AddItem 4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3
				.AddItem 5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2
				.AddItem 6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1
				.AddItem 7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2
				.AddItem 8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3
				.AddItem 9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2
			End With
			.FormatCell(h,0) = "value + ' (DropDownList - multiple columns list)'"
			h = .AddItem(1)
			With .CellEditor(h,0)
				.EditType = 3
				.DropDownAutoWidth = 0
				.Option(57) = "Name¦Title¦City¦Phone"
				.Option(58) = "312¦¦¦96"
				.AddItem 1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1
				.AddItem 2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2
				.InsertItem 3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3,2
				.InsertItem 4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3,2
				.InsertItem 5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2,2
				.InsertItem 6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1,5
				.InsertItem 7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2,2
				.InsertItem 8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3,2
				.InsertItem 9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2,5
				.ExpandAll 
			End With
			.FormatCell(h,0) = "value + ' (DropDownList - multiple columns tree)'"
			h = .AddItem(100)
			.CellEditor(h,0).EditType = 4
			.FormatCell(h,0) = "value + ' (SpinType)'"
			.CellEditor(.AddItem("(MemoType)"),0).EditType = 5
			h = .AddItem(3)
			With .CellEditor(h,0)
				.EditType = 6
				.AddItem 1,"Border",1
				.AddItem 2,"Single",2
				.AddItem 4,"Frame",3
			End With
			.FormatCell(h,0) = "value + ' (CheckListType)'"
			h = .AddItem("193.226.40.161")
			With .CellEditor(h,0)
				.Mask = "{0,255}.{0,255}.{0,255}.{0,255}"
				.EditType = 8
			End With
			.FormatCell(h,0) = "value + ' (MaskType)'"
			h = .AddItem(65280)
			With .CellEditor(h,0)
				.EditType = 9
				.Mask = "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0"
			End With
			.FormatCell(h,0) = "value + ' (ColorType)'"
			h = .AddItem("Tahoma")
			.CellEditor(h,0).EditType = 10
			.FormatCell(h,0) = "value + ' (FontType)'"
			h = .AddItem("gBHJJGHA5MIwAEIe4AAAFhwbiAliQwig7ixFjBQjRbjhljxwkB7kSFkiQkyblCllSwli7lzFmDQmTbmjlmzwnD7nQBnk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1YhgAEL5AgBhj/AAssMJthABFof4JDhIWCgYKDBATFT8M6hUIFAQAEQCCDwYF/QoWDZCRBgOKgIYHCQXMisKBAEQAAgOBZaSgQhjERANKQiZhIWam" & _
	"YyIBQ6FzcNKxQLJT4ADA4RjwObAAidBYdHwABQgUxMQYZEI0cD4OgnYKaKyzIRFNQx2YCKoFHScYD0ADXQwUAgwLoLQDqaCWBJoNQ9NBxFJTVQORgiarqSABbamGwtDA" & _
	"wBUWhQmqYALnOFQvGYPA4m6AwKhkZxKj2PBWC0SZCgmVY6CwIJgieBAniubRKHgaYgiwQwGiCfxGDWbBRmGZYIi2VwGnAexxGUSwUFiaR+hQPbBgOCoLCIHh4DAARCmQ" & _
	"G4AlgNxuhwWgpFAEQUhuOxOk0NrhAaQoBmgPYdFSIZPjYGYbn+HhgEoAA7HMBIOjUM51AoPojHkEwVlET5slgWZtAEUBdjeSoeF6X5/rQRRSi+QB6GychsEAfZshKYAB" & _
	"GQZorlAOgMBqEgAjYHB2jqSoigmYBLk+QZnBqGhggAEwImgbojgoIwSE+MxUHiS4REQCQWluD48B+JJoL+YQikuaI9AALgLmsJQfnSdAvDkCJEhIIIBgOegLEiPBqCyC" & _
	"AAjcCwgAAIJBhQBQkHGL4gDaNBokkZQMiwUAuioJQiCAQYsHMcwwEIeoigAYIogsGIwFKIYICIWguEoPgQhsawBASGgwCuJwLH8K4LigAIaDwbxMAOKxbisPwfASQATF" & _
	"ASoagIEYwgcSoKGiAA/mEdIuiGPxCmObIlhMIJNHONxFH8EpPCGeB+noEpBBSSRjCsPZEiyKhgjAH5whSdLEjwDxjC8TxVEMFRzFWJJZBUSI0gQEQLBOM4VHkIg1D0CA" & _
	"JDQNg/p4AAdoC")
			.CellEditor(h,0).EditType = 11
			.FormatCell(h,0) = "value + ' (PictureType)'"
			.CellEditor(.AddItem("(ButtonType)"),0).EditType = 12
			h = .AddItem(25)
			.CellEditor(h,0).EditType = 13
			.FormatCell(h,0) = "value + ' (ProgressBarType)'"
			h = .AddItem("Value 1")
			With .CellEditor(h,0)
				.EditType = 14
				.AddItem 1,"Value 1",1
				.AddItem 2,"Value 2",2
				.AddItem 3,"Value 3",3
			End With
			.FormatCell(h,0) = "value + ' (PickEditType)'"
			.CellEditor(.AddItem("(LinkEditType)"),0).EditType = 15
			With .CellEditor(.AddItem("(UserEditorType)"),0)
				.EditType = 16
				.UserEditor "Exontrol.ComboBox",""
				With .UserEditorObject
					.BeginUpdate 
					.LabelHeight = G2antt1.DefaultItemHeight
					.Style = 2
					.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\Access\misc.accdb",3,3
					End With
					.DataSource = rs
					.MinHeightList = 128
					.SearchColumnIndex = 0
					.UseTabKey = False
					.EndUpdate 
				End With
			End With
			h = .AddItem(255)
			With .CellEditor(h,0)
				.EditType = 17
				.Option(4) = True
			End With
			.FormatCell(h,0) = "value + ' (ColorListType)'"
			.CellEditor(.AddItem(65280),0).EditType = 17
			.CellEditor(.AddItem("(MemoDropDownType)"),0).EditType = 18
			With .CellEditor(.AddItem(-1),0)
				.EditType = 19
				.Option(17) = 1
			End With
			h = .AddItem(50)
			With .CellEditor(h,0)
				.EditType = 20
				.Option(41) = -60
				.Option(53) = 10
				.Option(63) = 2
			End With
			.FormatCell(h,0) = "value + ' (SliderType)'"
			h = .AddItem(100)
			.CellEditor(h,0).EditType = 21
			.FormatCell(h,0) = "value + ' (CalculatorType)'"
			.EnsureVisibleItem h
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2235
Is it possible to limit the overlaid to two rows only

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		With .Chart
			.NonworkingDays = 0
			.FirstVisibleDate = #9/17/2006#
			.PaneWidth(False) = 64
			.LevelCount = 2
			.Bars.Item("Task").OverlaidType = 4
		End With
		With .Items
			h1 = .AddItem("Task")
			.AddBar h1,"Task",#9/26/2006#,#10/6/2006#,"K1","K1"
			.AddBar h1,"Task",#10/5/2006#,#10/10/2006#,"K3","K2"
			.AddBar h1,"Task",#9/21/2006#,#9/27/2006#,"T1","T"
			.ItemBar(0,"<T*>",33) = 65280
			.ItemBar(0,"<K*>",52) = "Level0"
			.ItemBar(0,"<T*>",52) = "Level1"
			.ItemMaxHeight(h1) = 26
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2234
Is it possible to sort the bars

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.AntiAliasing = True
		.Columns.Add("Task").AllowSort = False
		With .Columns.Add("Name")
			.Def(18) = 0
			.SortType = 0
			.Visible = False
		End With
		With .Chart
			.FirstVisibleDate = #12/31/2000#
			.PaneWidth(False) = 48
			.LevelCount = 2
			.Bars.Item("Task").Pattern = 1
			.Bars.Copy("Task","Red").Color = RGB(255,0,0)
			.NonworkingDaysPattern = 6
			.NonworkingDaysColor = RGB(224,224,224)
			.LinksStyle = 0
		End With
		With .Items
			.AllowCellValueToItemBar = True
			h1 = .AddItem("Task 1")
			.AddBar h1,"Task",#1/2/2001#,#1/4/2001#
			h2 = .AddItem("Task 2")
			.AddBar h2,"Red",#1/2/2001#,#1/5/2001#
			h3 = .AddItem("Task 3")
			.AddBar h3,"Task",#1/2/2001#,#1/5/2001#
			h4 = .AddItem("Task 4")
			.AddBar h4,"Red",#1/2/2001#,#1/5/2001#
			h5 = .AddItem("Task 5")
			.AddBar h5,"Red",#1/2/2001#,#1/5/2001#
			.AddLink "L1",h1,"",h3,""
			.AddLink "L2",h2,"",h4,""
			.AddLink "L3",h3,"",h4,""
			.AddLink "L4",h4,"",h5,""
			.SchedulePDM 0,""
		End With
		.Chart.ShowLinks = 1
		.Columns.Item("Name").SortOrder = 1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2233
Re-order the cell's caption, icons and images/pictures

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Images "gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmD" & _
	"cD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB"
		With .Columns.Add("ToLeft")
			.Def(0) = True
		End With
		With .Columns.Add("ToRight")
			.Def(0) = True
			.Def(34) = "caption,picture,icons,icon,check"
		End With
		.DefaultItemHeight = 32
		.DrawGridLines = 2
		.HeaderAppearance = 4
		With .Items
			h = .AddItem("Caption")
			.CellImage(h,0) = 2
			.CellImages(h,0) = "1,2"
			.CellPicture(h,0) = G2antt1.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLs" & _
	"GL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7" & _
	"FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0F" & _
	"CjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4" & _
	"wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/Ay" & _
	"QJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZe" & _
	"nEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSF" & _
	"pTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5si" & _
	"qbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8Yx" & _
	"XhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8D" & _
	"PH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZA" & _
	"mBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCM" & _
	"EgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rBy" & _
	"jJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0W" & _
	"gLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTH" & _
	"CBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB" & _
	"1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHw" & _
	"L4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0" & _
	"FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYd" & _
	"guhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCG" & _
	"USNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmh" & _
	"AFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg" & _
	"6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GF" & _
	"ZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" & _
	"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsA" & _
	"YAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg" & _
	"5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARA" & _
	"SA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9A" & _
	"IBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcA" & _
	"dAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJB" & _
	"PhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzA" & _
	"hhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARB" & _
	"vgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURA" & _
	"Ghvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh" & _
	"/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3s" & _
	"UhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4A" & _
	"fgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8x" & _
	"MhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA" & _
	"2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXB" & _
	"WhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBag" & _
	"xAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9B" & _
	"tnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqB" & _
	"UgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDA" & _
	"jAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBih" & _
	"Fh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdA" & _
	"uAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeA" & _
	"FBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg" & _
	"3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" & _
	"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCB" & _
	"QAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxh" & _
	"Tg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5" & _
	"WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJA" & _
	"kgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEg" & _
	"qgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyh" & _
	"VgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADB" & _
	"Wh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMA" & _
	"GAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFO" & _
	"rC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZT" & _
	"WP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwd" & _
	"i4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8" & _
	"PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnL" & _
	"Cs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIy" & _
	"DQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhO" & _
	"ApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj" & _
	"5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)")
			.CellValue(h,1) = .CellValue(h,0)
			.CellHAlignment(h,1) = 2
			.CellImage(h,1) = .CellImage(h,0)
			.CellImages(h,1) = "2,1"
			.CellPicture(h,1) = .CellPicture(h,0)
			h = .AddItem("<b>HTML</b> <off 4>Caption")
			.CellValueFormat(h,0) = 1
			.CellImage(h,0) = 2
			.CellImages(h,0) = "1,2"
			.CellPicture(h,0) = G2antt1.ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLs" & _
	"GL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7" & _
	"FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0F" & _
	"CjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4" & _
	"wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/Ay" & _
	"QJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZe" & _
	"nEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSF" & _
	"pTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5si" & _
	"qbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8Yx" & _
	"XhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8D" & _
	"PH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZA" & _
	"mBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCM" & _
	"EgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rBy" & _
	"jJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0W" & _
	"gLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTH" & _
	"CBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB" & _
	"1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHw" & _
	"L4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0" & _
	"FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYd" & _
	"guhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCG" & _
	"USNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmh" & _
	"AFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg" & _
	"6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GF" & _
	"ZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" & _
	"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsA" & _
	"YAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg" & _
	"5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARA" & _
	"SA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9A" & _
	"IBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcA" & _
	"dAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJB" & _
	"PhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzA" & _
	"hhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARB" & _
	"vgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURA" & _
	"Ghvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh" & _
	"/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3s" & _
	"UhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4A" & _
	"fgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8x" & _
	"MhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA" & _
	"2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXB" & _
	"WhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBag" & _
	"xAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9B" & _
	"tnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqB" & _
	"UgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDA" & _
	"jAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBih" & _
	"Fh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdA" & _
	"uAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeA" & _
	"FBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg" & _
	"3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" & _
	"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCB" & _
	"QAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxh" & _
	"Tg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5" & _
	"WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJA" & _
	"kgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEg" & _
	"qgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyh" & _
	"VgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADB" & _
	"Wh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMA" & _
	"GAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFO" & _
	"rC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZT" & _
	"WP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwd" & _
	"i4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8" & _
	"PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnL" & _
	"Cs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIy" & _
	"DQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhO" & _
	"ApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj" & _
	"5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)")
			.CellValue(h,1) = .CellValue(h,0)
			.CellValueFormat(h,1) = 1
			.CellHAlignment(h,1) = 2
			.CellImage(h,1) = .CellImage(h,0)
			.CellImages(h,1) = "2,1"
			.CellPicture(h,1) = .CellPicture(h,0)
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2232
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddColumn(Column)
	' Column.Def(48) = 2
	' Column.Def(49) = 2
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#1/2/2022#,#1/8/2022#,,"<img>1</img>"
	End With
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ImageSize = 32
		.DefaultItemHeight = 36
		.HeaderHeight = .DefaultItemHeight
		.SortBarHeight = .DefaultItemHeight
		.Font.Size = 16
		.FilterBarFont.Size = G2antt1.Font.Size
		.ToolTipFont.Size = G2antt1.Font.Size
		.Indent = 26
		With .Chart
			.FirstVisibleDate = #1/1/2022#
			.Bars.Item("Task").Height = 22
		End With
		.Images "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" & _
	"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" & _
	"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" & _
	"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" & _
	"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" & _
	"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" & _
	"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" & _
	"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" & _
	"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" & _
	"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" & _
	"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" & _
	"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" & _
	"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" & _
	"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" & _
	"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" & _
	"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" & _
	"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA=="
		With .VisualAppearance
			.Add 1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
	"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
	"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" & _
	"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" & _
	"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" & _
	"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" & _
	"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" & _
	"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" & _
	"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" & _
	"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="
			.Add 2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
	"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
	"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
	"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" & _
	"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" & _
	"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" & _
	"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" & _
	"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" & _
	"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" & _
	"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" & _
	"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" & _
	"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" & _
	"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" & _
	"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" & _
	"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" & _
	"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" & _
	"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" & _
	"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" & _
	"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" & _
	"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" & _
	"gRBCCQAgQEA=="
			.Add 3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" & _
	"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" & _
	"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" & _
	"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" & _
	"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" & _
	"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" & _
	"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" & _
	"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" & _
	"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" & _
	"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" & _
	"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" & _
	"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" & _
	"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" & _
	"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" & _
	"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" & _
	"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" & _
	"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" & _
	"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" & _
	"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI="
			.Add 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
	"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
	"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
	"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
	"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
	"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
	"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
	"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
	"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
		End With
		.BackColorHeader = &H4c6c6c6
		.SelBackColor = &H4000000
		.SelForeColor = RGB(0,0,1)
		.CheckImage(0) = 16777216
		.CheckImage(1) = 33554432
		.CheckImage(2) = 50331648
		.Background(20) = .SelBackColor
		.Background(21) = .SelForeColor
		.Background(26) = .BackColor
		.Background(27) = .ForeColor
		.Background(32) = -1
		.Background(0) = &H4000000
		.Background(41) = &H4010101
		.Background(1) = &H40000ff
		.HeaderAppearance = 4
		.ShowFocusRect = False
		.SortBarVisible = True
		.AllowGroupBy = True
		.BackColorSortBar = .BackColor
		.BackColorLevelHeader = .BackColor
		.FilterBarDropDownHeight = 1
		With .Columns.Add("Check")
			.Def(0) = True
			.PartialCheck = True
			.Width = 128
			.DisplayFilterButton = True
			.FilterList = 256
		End With
		With .Columns.Add("Pos")
			.FormatColumn = "1 pos ``"
			.AllowSort = False
			.Width = 48
			.AllowSizing = False
			.Alignment = 1
			.HeaderAlignment = 1
		End With
		With .Columns.Add("Image")
			.DisplayFilterButton = True
			.FilterList = 8480 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
			.FilterType = 10
			.DisplayExpandButton = True
			.ExpandColumns = "1,2,3"
			.Width = 128
			.HeaderImage = 1
		End With
		With .Columns.Add("Images")
			.Def(0) = True
			.Width = 196
			.HTMLCaption = "<img>1</img><img>2</img><img>3</img> Images"
		End With
		.Columns.Item("Pos").Position = 3
		With .Items
			hR = .AddItem("Root")
			.ItemDivider(hR) = 0
			.ItemDividerLine(hR) = 0
			h = .InsertItem(hR,,"Child A")
			.CellImage(h,2) = 1
			.CellImages(h,3) = "1,2,3"
			.CellValue(h,3) = "123"
			h = .InsertItem(hR,,"Child B")
			.CellState(h,0) = 1
			.CellImage(h,2) = 3
			.CellImages(h,3) = "2,3,1"
			.CellValue(h,3) = "231"
			.SelectItem(h) = True
			h = .InsertItem(hR,,"Child C")
			.CellImage(h,2) = 2
			.CellState(h,3) = 1
			.CellValue(h,3) = "312"
			.CellImages(h,3) = "3,1,2"
			.ExpandItem(hR) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2231
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddColumn(Column)
	' Column.Def(48) = 2
	' Column.Def(49) = 2
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
	With G2antt1
		.Items.AddBar Item,"Task",#1/2/2022#,#1/8/2022#,,"<img>1</img>"
	End With
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Chart.FirstVisibleDate = #1/1/2022#
		.ImageSize = 16
		.Images "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" & _
	"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" & _
	"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" & _
	"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" & _
	"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" & _
	"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
		With .VisualAppearance
			.Add 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
	"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
	"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
	"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
	"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
	"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
	"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
	"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
	"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
		End With
		.BackColorHeader = &H4c6c6c6
		.SelBackColor = &H4000000
		.SelForeColor = RGB(0,0,1)
		.Background(20) = .SelBackColor
		.Background(21) = .SelForeColor
		.Background(26) = .BackColor
		.Background(27) = .ForeColor
		.Background(32) = -1
		.Background(0) = &H4000000
		.Background(41) = &H4010101
		.Background(1) = &H40000ff
		.HeaderAppearance = 4
		.ShowFocusRect = False
		.SortBarVisible = True
		.AllowGroupBy = True
		.BackColorSortBar = .BackColor
		.BackColorLevelHeader = .BackColor
		.FilterBarDropDownHeight = 1
		With .Columns.Add("Check")
			.Def(0) = True
			.PartialCheck = True
			.Width = 128
			.DisplayFilterButton = True
			.FilterList = 256
		End With
		With .Columns.Add("Pos")
			.FormatColumn = "1 pos ``"
			.AllowSort = False
			.Width = 48
			.AllowSizing = False
			.Alignment = 1
			.HeaderAlignment = 1
		End With
		With .Columns.Add("Image")
			.DisplayFilterButton = True
			.FilterList = 8480 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
			.FilterType = 10
			.DisplayExpandButton = True
			.ExpandColumns = "1,2,3"
			.Width = 128
			.HeaderImage = 1
		End With
		With .Columns.Add("Images")
			.Def(0) = True
			.Width = 196
			.HTMLCaption = "<img>1</img><img>2</img><img>3</img> Images"
		End With
		.Columns.Item("Pos").Position = 3
		With .Items
			hR = .AddItem("Root")
			.ItemDivider(hR) = 0
			.ItemDividerLine(hR) = 0
			h = .InsertItem(hR,,"Child A")
			.CellImage(h,2) = 1
			.CellImages(h,3) = "1,2,3"
			.CellValue(h,3) = "123"
			h = .InsertItem(hR,,"Child B")
			.CellState(h,0) = 1
			.CellImage(h,2) = 3
			.CellImages(h,3) = "2,3,1"
			.CellValue(h,3) = "231"
			.SelectItem(h) = True
			h = .InsertItem(hR,,"Child C")
			.CellImage(h,2) = 2
			.CellState(h,3) = 1
			.CellValue(h,3) = "312"
			.CellImages(h,3) = "3,1,2"
			.ExpandItem(hR) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2230
How do I clip/hide/align the bar's caption/text based on the bar's size/width/length

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Clip"
		.ScrollBySingleLine = True
		.DrawGridLines = -2
		With .Chart
			.AllowResizeChart = 6 ' ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader
			.DrawGridLines = -2
			.FirstVisibleDate = #12/23/2000#
			.LevelCount = 2
			.PaneWidth(False) = 216
			With .Bars.Item("Task")
				.Pattern = 32
				.Color = RGB(164,164,164)
				.StartColor = RGB(240,240,240)
				.EndColor = .StartColor
				.OverlaidType = 4611 ' OverlaidBarsTypeEnum.exOverlaidBarsIncludeCaption Or OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
				.Height = 15
			End With
			.MinUnitWidth = .UnitWidth
		End With
		With .Items
			h = .AddItem("no clip, (0-2)")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1"
			.ItemBar(h,"K1",44) = "no clip, right(<b>2</b>)"
			.ItemBar(h,"K1",45) = 2
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K2"
			.ItemBar(h,"K2",44) = "no clip, center(<b>1</b>)"
			.ItemBar(h,"K2",45) = 1
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K3"
			.ItemBar(h,"K3",44) = "no clip, left(<b>0</b>)"
			.ItemBar(h,"K3",45) = 0
			h = .AddItem("clip, inside (3-5)")
			.AddBar h,"Task",#12/28/2000#,#1/8/2001#,"K1"
			.ItemBar(h,"K1",44) = "clip, inside, right(<b>5</b>)"
			.ItemBar(h,"K1",45) = 5
			.AddBar h,"Task",#12/28/2000#,#1/8/2001#,"K2"
			.ItemBar(h,"K2",44) = "clip, inside, center(<b>4</b>)"
			.ItemBar(h,"K2",45) = 4
			.AddBar h,"Task",#12/28/2000#,#1/8/2001#,"K3"
			.ItemBar(h,"K3",44) = "clip, inside, left(<b>3</b>)"
			.ItemBar(h,"K3",45) = 3
			h = .AddItem("hide on min width, clip if not fit, inside (6-8)")
			.AddBar h,"Task",#12/26/2000#,#1/10/2001#,"K1"
			.ItemBar(h,"K1",44) = "hide on min width, clip if not fit, inside, right(<b>8</b>)"
			.ItemBar(h,"K1",45) = 8
			.AddBar h,"Task",#12/26/2000#,#1/10/2001#,"K2"
			.ItemBar(h,"K2",44) = "hide on min width, clip if not fit, inside, center(<b>7</b>)"
			.ItemBar(h,"K2",45) = 7
			.AddBar h,"Task",#12/26/2000#,#1/10/2001#,"K3"
			.ItemBar(h,"K3",44) = "hide on min width, clip if not fit, inside, left(<b>6</b>)"
			.ItemBar(h,"K3",45) = 6
			h = .AddItem("hide if not fit, no clip, inside (9-11)")
			.AddBar h,"Task",#12/28/2000#,#1/8/2001#,"K1"
			.ItemBar(h,"K1",44) = "hide if not fit, no clip, inside, right(<b>11</b>)"
			.ItemBar(h,"K1",45) = 11
			.AddBar h,"Task",#12/28/2000#,#1/8/2001#,"K2"
			.ItemBar(h,"K2",44) = "hide if not fit, no clip, center(<b>10</b>)"
			.ItemBar(h,"K2",45) = 10
			.AddBar h,"Task",#12/28/2000#,#1/8/2001#,"K3"
			.ItemBar(h,"K3",44) = "hide if not fit, no clip, inside, left(<b>9</b>)"
			.ItemBar(h,"K3",45) = 9
			h = .AddItem("no clip, inside, outside (12-14)")
			.AddBar h,"Task",#12/28/2000#,#1/8/2001#,"K1"
			.ItemBar(h,"K1",44) = "no clip, inside, outside, right(<b>14</b>)"
			.ItemBar(h,"K1",45) = 14
			.AddBar h,"Task",#12/28/2000#,#1/8/2001#,"K2"
			.ItemBar(h,"K2",44) = "no clip, inside, outside, center(<b>13</b>)"
			.ItemBar(h,"K2",45) = 13
			.AddBar h,"Task",#12/28/2000#,#1/8/2001#,"K3"
			.ItemBar(h,"K3",44) = "no clip, inside, outside, left(<b>12</b>)"
			.ItemBar(h,"K3",45) = 12
			h = .AddItem("no clip, outside (16-18)")
			.AddBar h,"Task",#12/30/2000#,#1/6/2001#,"K1"
			.ItemBar(h,"K1",44) = "no clip, outside, right(<b>18</b>)"
			.ItemBar(h,"K1",45) = 18
			.AddBar h,"Task",#12/30/2000#,#1/6/2001#,"K2"
			.ItemBar(h,"K2",44) = "no clip, outside, center(<b>17</b>)"
			.ItemBar(h,"K2",45) = 17
			.AddBar h,"Task",#12/30/2000#,#1/6/2001#,"K3"
			.ItemBar(h,"K3",44) = "no clip, outside, left(<b>16</b>)"
			.ItemBar(h,"K3",45) = 16
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2229
The user clicks the drop-down filter, select a value and the control's list filters for the selected item(s). Is there a way for when the user then goes to the next column to add another filter and the drop down arrow is clicked for the list of values they can filter by to be limited to what is being displayed in the list due to the first filter they set

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddColumn(Column)
	With G2antt1
		With Column
		End With
	End With
End Function
</SCRIPT>

<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\Access\misc.accdb",3,3
		End With
		.DataSource = rs
		With .Chart
			.FirstVisibleDate = #8/4/1994#
			.LevelCount = 2
			.PaneWidth(False) = 290
		End With
		.Items.AllowCellValueToItemBar = True
		.Columns.Item(2).Def(18) = 1
		.Columns.Item(4).Def(18) = 2
		.Columns.Item("ShipVia").Position = 2
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2228
Does the control display images from database (DAO)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ColumnAutoResize = False
		.DrawGridLines = -1
		.GridLineStyle = 512
		.DefaultItemHeight = 48
		With CreateObject("DAO.DBEngine.36")
			Set rs = .OpenDatabase("C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.mdb").OpenRecordset("Employees")
		End With
		.DataSource = rs
		With .Columns.Item("Photo")
			.Position = 1
			.Width = 128
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2227
Does the control display images from database (ADO)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.ColumnAutoResize = False
		.DrawGridLines = -1
		.GridLineStyle = 512
		.DefaultItemHeight = 48
		Set rs = CreateObject("ADODB.Recordset")
		With rs
			.Open "Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3
		End With
		.DataSource = rs
		With .Columns.Item("Photo")
			.Position = 1
			.Width = 128
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2226
Is it possible to set from code, a column sort without being inserted in the sortbar

<BODY onload="Init()">
<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\Access\misc.accdb",1,3
		End With
		.DataSource = rs
		.SortBarVisible = True
		.Layout = "singlesort=""C1:1"""
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2225
Is it possible to view all events the control fires
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_BeforeExpandItem(Item,Cancel)
	With G2antt1
		.Refresh 
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function G2antt1_Event(EventID)
	With G2antt1
		alert( .EventParam(-2) )
	End With
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Indent = 16
		.LinesAtRoot = -1
		.HasLines = 1
		.DrawGridLines = 1
		.Columns.Add "Tasks"
		With .Chart
			.FirstVisibleDate = #9/20/2006#
			.ShowCollapsedBars = True
			.LevelCount = 2
			.PaneWidth(0) = 128
			.DrawGridLines = 1
			With .Bars.Item("Task")
				.OverlaidType = 3
				.Color = RGB(0,0,0)
				.StartColor = RGB(196,196,196)
				.EndColor = RGB(196,196,196)
				.Pattern = 32
			End With
		End With
		With .Items
			h = .AddItem("Project 1")
			h1 = .InsertItem(h,,"Resources")
			.AddBar h1,"Task",#9/21/2006#,#9/25/2006#,"A"
			.AddBar h1,"Task",#9/24/2006#,#9/28/2006#,"B"
			.AddBar h1,"Task",#9/27/2006#,#9/29/2006#,"C"
			h = .AddItem("Project 2")
			h1 = .InsertItem(h,,"Resources")
			.AddBar h1,"Task",#9/21/2006#,#9/25/2006#,"A"
			.AddBar h1,"Task",#9/24/2006#,#9/28/2006#,"B"
			.AddBar h1,"Task",#9/27/2006#,#9/29/2006#,"C"
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2224
How can I find all occurences of the giving value, within a column
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Default"
		With .Columns.Add("Pos")
			.FormatColumn = "1 pos 'A-Z'"
			.Position = 0
			.AllowSizing = False
			.Width = 32
			.Enabled = False
		End With
		With .Columns.Add("Index")
			.FormatColumn = "0 index ''"
			.AllowSizing = False
			.Width = 32
			.Enabled = False
		End With
		With .Items
			.AddItem "A"
			.AddItem "A"
			.AddItem "A"
			alert( .CellCaption(.FindItem("A",0,0),1) )
			alert( .CellCaption(.FindItem("A",0,1),1) )
			alert( .CellCaption(.FindItem("A",0,2),1) )
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2223
How can I specify the bar's legend within the control's histogram (sample 2, expression)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Machines"
		.DrawGridLines = 1
		.HeaderAppearance = 4
		.HeaderVisible = 1
		With .Chart
			.DrawGridLines = 1
			.PaneWidth(False) = 128
			.FirstVisibleDate = #1/1/2001#
			.LevelCount = 2
			With .Bars.Item("Task")
				.Pattern = 1
				.Def(4) = 18
				.OverlaidType = 4
				.HistogramPattern = .Pattern ' .Pattern
				.HistogramType = 256
				.HistogramCumulativeOriginalColorBars = 1
				.HistogramItems = -4
				.HistogramRulerLinesColor = RGB(102,102,102)
				.Def(6) = "<%=%3%> <fgcolor 666666><font ;6><off 4><%=%C0%>"
				.Def(60) = "<fgcolor=666666><%=lower(%3)%>"
			End With
			.HistogramHeight = 64
			.HistogramVisible = True
		End With
		With .Items
			h = .AddItem("Machine 1")
			.AddBar h,"Task",#1/2/2001#,#1/9/2001#,1,"Bill"
			.AddBar h,"Task",#1/3/2001#,#1/10/2001#,2,"Laura"
			.ItemBar(h,2,33) = 16776960
			h = .AddItem("Machine 2")
			.AddBar h,"Task",#1/12/2001#,#1/19/2001#,3,"Bill"
			.AddBar h,"Task",#1/10/2001#,#1/13/2001#,4,"Laura"
			.AddBar h,"Task",#1/10/2001#,#1/14/2001#,5,"Bill"
			.ItemBar(h,4,33) = 16776960
			.AddBar .AddItem("Machine 3"),"Task",#1/2/2001#,#1/9/2001#,6,"Bill"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2222
How can I specify the bar's legend within the control's histogram (sample 1)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Machines"
		.DrawGridLines = 1
		.HeaderAppearance = 4
		.HeaderVisible = 1
		With .Chart
			.DrawGridLines = 1
			.PaneWidth(False) = 128
			.FirstVisibleDate = #1/1/2001#
			.LevelCount = 2
			With .Bars.Item("Task")
				.Pattern = 1
				.Def(4) = 18
				.OverlaidType = 4
				.HistogramPattern = .Pattern ' .Pattern
				.HistogramType = 256
				.HistogramCumulativeOriginalColorBars = 1
				.HistogramItems = -4
				.Def(3) = "Bill"
				.Def(60) = "B(ill)"
			End With
			.HistogramHeight = 64
			.HistogramVisible = True
		End With
		With .Items
			h = .AddItem("Machine 1")
			.AddBar h,"Task",#1/2/2001#,#1/9/2001#,1
			.AddBar h,"Task",#1/3/2001#,#1/10/2001#,2,"Laura"
			.ItemBar(h,2,33) = 16776960
			.ItemBar(h,2,60) = "L(aura)"
			h = .AddItem("Machine 2")
			.AddBar h,"Task",#1/12/2001#,#1/19/2001#,3
			.AddBar h,"Task",#1/10/2001#,#1/13/2001#,4,"Laura"
			.AddBar h,"Task",#1/10/2001#,#1/14/2001#,5
			.ItemBar(h,4,33) = 16776960
			.ItemBar(h,4,60) = "L(aura)"
			.AddBar .AddItem("Machine 3"),"Task",#1/2/2001#,#1/9/2001#,6
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2221
When I drag a bar and I drag it over other items, but just release it on one of the items (last item), the BarParentChange event is triggered for every item. I need it just when I drop it (release left mouse). How can I do this
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_BarParentChange(Item,Key,NewItem,Cancel)
	With G2antt1
		alert( "Hover Over Item: " )
		alert( .Items.CellCaption(NewItem,0) )
		Cancel = .Items.ItemData(NewItem)
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function G2antt1_ChartEndChanging(Operation)
	With G2antt1
		alert( "ChartEndChanging " )
		alert( Operation )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function G2antt1_ChartStartChanging(Operation)
	With G2antt1
		alert( "ChartStartChanging " )
		alert( Operation )
	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
			.FirstVisibleDate = #1/1/2001#
			.PaneWidth(False) = 48
			.AllowLinkBars = False
			.Bars.Item("Task").OverlaidType = 257 ' OverlaidBarsTypeEnum.exOverlaidBarsTransparent Or OverlaidBarsTypeEnum.exOverlaidBarsOffset
		End With
		.Columns.Add "Column"
		With .Items
			h = .AddItem("Item 1")
			.EnableItem(h) = False
			.ItemData(h) = -1
			h = .AddItem("Item 2")
			.ItemData(h) = 0
			.AddBar h,"Task",#1/5/2001#,#1/7/2001#,"B"
			.ItemBar(h,"B",28) = True
			.ItemData(.AddItem("Item 3")) = 0
			.ItemData(.AddItem("Item 4")) = 0
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2220
Hide non-working days, Hide non-working hours

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.FirstVisibleDate = #7/29/2022#
			.Label(65536) = "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, " & _
	"<%yyyy%> <%h%> <%AM/PM%><||><||>65536"
			.PaneWidth(0) = 0
			.LevelCount = 2
			.UnitWidth = 12
			.NonworkingDaysColor = RGB(51,51,51)
			.NonworkingDaysPattern = 6
			.NonworkingHoursColor = RGB(187,187,187)
			.NonworkingHoursPattern = 6
			.AllowResizeChart = 262 ' ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader
			With .Level(0)
				.Label = "<%dddd%>"
				.Alignment = 1
			End With
			.Level(1).Label = 65536
			.UnitScale = 65536
			.NonworkingHours = 16773375
			.ShowNonworkingUnits = False
			.ShowNonworkingDates = False
			.ShowNonworkingHours = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2219
Show non-working days pattern, Hide non-working hours

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.FirstVisibleDate = #7/29/2022#
			.Label(65536) = "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, " & _
	"<%yyyy%> <%h%> <%AM/PM%><||><||>65536"
			.PaneWidth(0) = 0
			.LevelCount = 2
			.UnitWidth = 12
			.NonworkingDaysColor = RGB(51,51,51)
			.NonworkingDaysPattern = 6
			.NonworkingHoursColor = RGB(187,187,187)
			.NonworkingHoursPattern = 6
			.AllowResizeChart = 262 ' ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader
			With .Level(0)
				.Label = "<%dddd%>"
				.Alignment = 1
			End With
			.Level(1).Label = 65536
			.UnitScale = 65536
			.NonworkingHours = 16773375
			.ShowNonworkingUnits = False
			.ShowNonworkingDates = True
			.ShowNonworkingHours = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2218
Hide non-working days, Show non-working hours pattern

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.FirstVisibleDate = #7/29/2022#
			.Label(65536) = "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, " & _
	"<%yyyy%> <%h%> <%AM/PM%><||><||>65536"
			.PaneWidth(0) = 0
			.LevelCount = 2
			.UnitWidth = 12
			.NonworkingDaysColor = RGB(51,51,51)
			.NonworkingDaysPattern = 6
			.NonworkingHoursColor = RGB(187,187,187)
			.NonworkingHoursPattern = 6
			.AllowResizeChart = 262 ' ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader
			With .Level(0)
				.Label = "<%dddd%>"
				.Alignment = 1
			End With
			.Level(1).Label = 65536
			.UnitScale = 65536
			.NonworkingHours = 16773375
			.ShowNonworkingUnits = False
			.ShowNonworkingDates = False
			.ShowNonworkingHours = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2217
Hide non-working days pattern, Show non-working hours pattern

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.FirstVisibleDate = #7/29/2022#
			.Label(65536) = "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, " & _
	"<%yyyy%> <%h%> <%AM/PM%><||><||>65536"
			.PaneWidth(0) = 0
			.LevelCount = 2
			.UnitWidth = 12
			.NonworkingDaysColor = RGB(51,51,51)
			.NonworkingDaysPattern = 6
			.NonworkingHoursColor = RGB(187,187,187)
			.NonworkingHoursPattern = 6
			.AllowResizeChart = 262 ' ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader
			With .Level(0)
				.Label = "<%dddd%>"
				.Alignment = 1
			End With
			.Level(1).Label = 65536
			.UnitScale = 65536
			.NonworkingHours = 16773375
			.ShowNonworkingUnits = True
			.ShowNonworkingDates = False
			.ShowNonworkingHours = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2216
Hide non-working days pattern, Hide non-working hours pattern

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.FirstVisibleDate = #7/29/2022#
			.Label(65536) = "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, " & _
	"<%yyyy%> <%h%> <%AM/PM%><||><||>65536"
			.PaneWidth(0) = 0
			.LevelCount = 2
			.UnitWidth = 12
			.NonworkingDaysColor = RGB(51,51,51)
			.NonworkingDaysPattern = 6
			.NonworkingHoursColor = RGB(187,187,187)
			.NonworkingHoursPattern = 6
			.AllowResizeChart = 262 ' ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader
			With .Level(0)
				.Label = "<%dddd%>"
				.Alignment = 1
			End With
			.Level(1).Label = 65536
			.UnitScale = 65536
			.NonworkingHours = 16773375
			.ShowNonworkingUnits = True
			.ShowNonworkingDates = False
			.ShowNonworkingHours = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2215
Show non-working days pattern, Hide non-working hours pattern

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.FirstVisibleDate = #7/29/2022#
			.Label(65536) = "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, " & _
	"<%yyyy%> <%h%> <%AM/PM%><||><||>65536"
			.PaneWidth(0) = 0
			.LevelCount = 2
			.UnitWidth = 12
			.NonworkingDaysColor = RGB(51,51,51)
			.NonworkingDaysPattern = 6
			.NonworkingHoursColor = RGB(187,187,187)
			.NonworkingHoursPattern = 6
			.AllowResizeChart = 262 ' ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader
			With .Level(0)
				.Label = "<%dddd%>"
				.Alignment = 1
			End With
			.Level(1).Label = 65536
			.UnitScale = 65536
			.NonworkingHours = 16773375
			.ShowNonworkingUnits = True
			.ShowNonworkingDates = True
			.ShowNonworkingHours = False
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2214
Show non-working days pattern, Show non-working hours pattern

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.FirstVisibleDate = #7/29/2022#
			.Label(65536) = "<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, " & _
	"<%yyyy%> <%h%> <%AM/PM%><||><||>65536"
			.PaneWidth(0) = 0
			.LevelCount = 2
			.UnitWidth = 12
			.NonworkingDaysColor = RGB(51,51,51)
			.NonworkingDaysPattern = 6
			.NonworkingHoursColor = RGB(187,187,187)
			.NonworkingHoursPattern = 6
			.AllowResizeChart = 262 ' ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader
			With .Level(0)
				.Label = "<%dddd%>"
				.Alignment = 1
			End With
			.Level(1).Label = 65536
			.UnitScale = 65536
			.NonworkingHours = 16773375
			.ShowNonworkingUnits = True
			.ShowNonworkingDates = True
			.ShowNonworkingHours = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2213
The chart display no labels (empty header) when the unit's width is too small. What can I do to change this behavior

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		With .Chart
			.Label(4096) = "<font ;6><%d1%><|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%>, <%m3%> <%d%>, '<%yy%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%><||><" & _
	"||>4096"
			.AllowResizeChart = 262 ' ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader
			.LevelCount = 2
			.PaneWidth(False) = 0
			.MarkTodayColor = .BackColor
			.UnitScale = 4096
			.UnitWidth = 12
		End With
	End With
End Function
</SCRIPT>
</BODY>

2212
How do I get the height of the bar from the cursor

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

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Tasks"
		.DefaultItemHeight = 52
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #10/10/2017#
			.PaneWidth(False) = 0
			.NonworkingDays = 0
			.MarkTodayColor = .BackColor
			.Bars.Item("Task").Pattern = 1
			.Bars.Copy("Task","T1").Color = RGB(255,0,0)
			.Bars.Copy("Task","T2").Height = 25
		End With
		With .Items
			h1 = .AddItem("Task")
			.AddBar h1,"T1",#10/15/2017#,#10/25/2017#,"2"
			.AddBar h1,"T2",#10/18/2017#,#10/22/2017#,"1"
			h1 = .AddItem("Task")
			.AddBar h1,"T1",#10/15/2017#,#10/25/2017#,"1"
			.AddBar h1,"T2",#10/18/2017#,#10/22/2017#,"2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2211
The zone shows truncated if I use BackColorAlternate. Is there anything I can do so it shows as solid instead

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.BackColorAlternate = RGB(240,240,240)
		With .Chart
			.PaneWidth(False) = 0
			.LevelCount = 2
			.FirstVisibleDate = #1/1/2010#
			.MarkTimeZone "Z1",#1/4/2010#,#1/4/2010#,16744544,"1:3;;solid-zone"
			.MarkTimeZone "Z2",#1/8/2010#,#1/8/2010#,16744544,"0:3;;truncated-zone"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2210
How can I prevent expanding/collapsing the child items

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_BeforeExpandItem(Item,Cancel)
	With G2antt1
		Cancel = G2antt1.Items.ItemParent(Item)
	End With
End Function
</SCRIPT>

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.SingleSel = False
		.Columns.Add "Default"
		.LinesAtRoot = -1
		With .Items
			h = .AddItem("Root 1")
			.InsertItem .InsertItem(h,,"Child 1.1"),,"Child"
			.InsertItem h,,"Child 1.2"
			.ExpandItem(h) = True
			h = .AddItem("Root 2")
			.InsertItem .InsertItem(h,,"Child 2.1"),,"Child"
			.InsertItem h,,"Child 2.2"
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2209
How can I display the EBN bigger or smaller (thumb)

<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,"c:\exontrol\images\normal.ebn"
			.Add 10,"CP:1 0 3 0 -3"
			.Add 17,"CP:1 3 0 -3 0"
		End With
		.Background(388) = &Ha000000
		.Background(260) = &H11000000
		.ScrollBars = 3855 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exHScrollEmptySpace Or ScrollBarsEnum.exVScrollOnThumbRelease Or ScrollBarsEnum.exHScrollOnThumbRelease Or ScrollBarsEnum.exDisableBoth
		.ScrollBySingleLine = True
		.Columns.Add "Def"
		With .Items
			.AddItem 1
			.AddItem 2
			.AddItem 3
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2208
I am using GroupBy feature to create a tree, but the top rows are aligned with the children, not indented. What could be wrong

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddGroupItem(Item)
	With G2antt1
		color = 14474460
		With .Items
			.ItemDivider(Item) = -1
			.CellValue(Item,1) = .CellCaption(Item,.GroupItem(Item))
			.AddBar Item,"Progress",#12/2/2017#,#12/2/2017#
			.DefineSummaryBars Item,"",-3,""
			.ItemBold(Item) = True
			.ItemBackColor(Item) = color
		End With
		.Chart.ItemBackColor(Item) = color
	End With
End Function
</SCRIPT>

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

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.LevelCount = 2
			.FirstVisibleDate = #12/2/2017#
			.PaneWidth(False) = 128
		End With
		With .Columns
			.Add "C1"
			.Add "C2"
		End With
		.LinesAtRoot = -1
		.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"
			h = .AddItem("Item A")
			.CellValue(h,1) = "SubItem A.1"
			h = .AddItem("Item A")
			.CellValue(h,1) = "SubItem A.1"
			h = .AddItem("Item A")
			.CellValue(h,1) = "SubItem A.1"
			h = .AddItem("Item B")
			.CellValue(h,1) = "SubItem B.1"
			h = .AddItem("Item B")
			.CellValue(h,1) = "SubItem B.1"
		End With
		.Columns.Item(0).SortOrder = 1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2207
How can I change the names from English to my locale (localization)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		With .Chart
			.AllowResizeChart = 262 ' ResizeChartEnum.exAllowChangeUnitScale Or ResizeChartEnum.exAllowResizeChartMiddle Or ResizeChartEnum.exAllowResizeChartHeader
			.MonthNames = .LocMonthNames
			.WeekDays = .LocWeekDays
			.AMPM = .LocAMPM
			.FirstWeekDay = .LocFirstWeekDay ' .LocFirstWeekDay
			.Label(16) = "<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yyyy%>"
			.Label(256) = "<|>KW<%ww%><|><%d%>. <%loc_m3%>, '<%yy%><r>KW<%ww%><|><%d%>. <%loc_mmmm%>, <%yyyy%><r>KW<%ww%><||><||>256"
			.Label(4096) = "<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%><|><%loc_dddd%>, <%d%>. <%loc_mm" & _
	"mm%>, <%yyyy%><||><||>4096"
			.Label(65536) = "<|><%hh%><|><%hh%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%> <%hh%><|><%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%><||><||>" & _
	"65536"
			.Label(1048576) = "<|><%nn%><|><%hh%>:<%nn%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%> <%hh%>:<%nn%><|><%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> " & _
	"<%hh%>:<%nn%>"
			.Label(16777216) = "<|><%ss%><|><%nn%>:<%ss%><|><%hh%>:<%nn%>:<%ss%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%> <%hh%>:<%nn%>:<%ss%><|><%loc_dddd%>, " & _
	"<%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%>:<%nn%>:<%ss%>"
			.LabelToolTip(16) = "<%loc_mmmm%>/<%yyyy%>"
			.LabelToolTip(256) = "<%d%>. <%loc_mmmm%>, <%yyyy%> KW<%ww%>"
			.LabelToolTip(4096) = "<%loc_dddd%>, <%d%>. <%loc_mmmm%> , <%yyyy%>"
			.LabelToolTip(65536) = "<%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%>"
			.LabelToolTip(1048576) = "<%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%>:<%nn%>"
			.LabelToolTip(16777216) = "<%loc_dddd%>, <%d%>. <%loc_mmmm%>  <%yyyy%> <%hh%>:<%nn%>:<%ss%>"
			.ToolTip = "<%ddd%> <%d%>. <%loc_mmmm%> <%yyyy%>"
			.PaneWidth(False) = 0
			.LevelCount = 2
			.UnitScale = 4096
			.UnitWidth = 24
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2206
Is it possible to change the pattern for selection within the control's overview part (I would prefer a semi-transparent or solid color instead)

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.VisualAppearance.Add 2,"gBFLBCJwBAEHhEJAAEhABMsGACAADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYJAKCQ5DBJUBjTBcEwKGCQBwASQpUhqHYDTbIMByB" & _
	"IUIxUACUJAgeCRYiAMo8RrSEZARBNGR3GqaJ7oGTpRoaP4iSBTUThBRsPyhHqOBpEWIRSqKEQ1DBYcI2RZUaxBJQAAbrWr5VpKKYnSzBA4TBQkSTpGicZxteoJeiefIE" & _
	"VTHFwRNaFNS1Linb7ia5qCwmOJXUjcYAYfBOIR1SSBbIsawbNACbJnWjENYVdAdNTlAbPNAyPBqSDaMYRDCOND1BhuNATWSNLq2XZ5OzrGIaVjmWbbfwELZFUqydJ0ex" & _
	"eiYNw/kGZBuDCHR/DeEYaCgGhMGcQ4pkiSxDgGXhIESW5MFgbQJBQZx+DScJEGsVZdnufggG+f5fnPFB/ooBZ/EaIAoBYBoBmASAeAqApfjgJgMgOYAoDoEIEl+WBKBS" & _
	"BQhGgXgQgYYYoDIHIHGCKB+CCAYiCiDgREWYhoG4KIKGGaIuCyCBfhiRQJDqXxgAEASAg"
		.SelBackMode = 1
		.Columns.Add "Tasks"
		With .Chart
			.OverviewVisible = -1
			.OverviewHeight = 64
			.FirstVisibleDate = #7/30/2018#
			.LevelCount = 2
			.PaneWidth(False) = 128
			.SelBackColor = G2antt1.SelBackColor
			.SelBarColor = RGB(128,128,128)
			.OverviewSelBackColor = &H200ff00
			.OverviewSelTransparent(True) = 50
		End With
		.SelBackColor = .BackColor
		.SelForeColor = .ForeColor
		With .Items
			.AddBar .AddItem("Task 1"),"Task",#8/2/2017#,#8/8/2017#
			.AddBar .AddItem("Task 2"),"Task",#8/3/2018#,#8/10/2018#
			.AddBar .AddItem("Task 3"),"Task",#8/4/2019#,#8/12/2019#
			.SelectItem(.ItemByIndex(1)) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2205
How can I display an item of picture type

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.LinesAtRoot = -1
		.ScrollBySingleLine = False
		.HeaderAppearance = 4
		.HeaderHeight = 24
		.Columns.Add("Artikel").HTMLCaption = "<u>Artikel"
		.Columns.Add("Waarde").HTMLCaption = "<u>Waarde"
		.HTMLPicture("T22128") = "c:\exontrol\images\zipdisk.gif"
		With .Items
			h = .AddItem("T22128-28)2D")
			h1 = .InsertItem(h,,"<img>T22128:128</img>")
			.CellValueFormat(h1,0) = 1
			.ItemHeight(h1) = 128
			h1 = .InsertItem(h,,"werkvoorbereiding")
			.CellValue(h1,1) = "5.80"
			.CellBold(h1,1) = True
			.CellValue(.InsertItem(h1,,"Type"),1) = "Eenvoudig"
			.CellValue(.InsertItem(h1,,"Prijs p/uur"),1) = "60,00"
			.CellValue(.InsertItem(h1,,"Marhe"),1) = "15,00%"
			.CellValue(.InsertItem(h1,,"Insteltijd min."),1) = "5,00"
			.CellValue(.InsertItem(h1,,"Aantal"),1) = 1
			.CellValue(.InsertItem(h1,,"Kostprije"),1) = "5,00"
			.ExpandItem(h1) = True
			h1 = .InsertItem(h,,"materiall")
			.CellValue(h1,1) = "14.82"
			.CellBold(h1,1) = True
			.ItemHasChildren(h1) = True
			h1 = .InsertItem(h,,"snijden")
			.CellValue(h1,1) = "3.13"
			.CellBold(h1,1) = True
			.ItemHasChildren(h1) = True
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2204
How can I bold the root group-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,""
			.ItemBold(Item) = True
		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 = "'<caption> (' + 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>

2203
The exBarTransparent does not work for overlaid-bars

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.BackColorAlternate = RGB(240,240,240)
		.Columns.Add "Task"
		With .Chart
			.AllowCreateBar = 1
			.AllowLinkBars = False
			.PaneWidth(False) = 48
			.FirstVisibleDate = #1/1/2001#
			.LevelCount = 2
			With .Bars.Item("Task")
				.OverlaidType = 515 ' OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
				.Pattern = 1
				.Overlaid(256) = 0
				.Def(3) = "<%=%9%>"
				.Def(4) = 18
			End With
		End With
		With .Items
			h = .AddItem("Task 1")
			.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A1"
			.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"A2"
			h = .AddItem("Task 2")
			.AddBar h,"Task",#1/7/2001#,#1/11/2001#,"B1"
			.AddBar h,"Task",#1/8/2001#,#1/12/2001#,"B2"
			.ItemBar(0,"<*>",19) = 75
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2202
We’re adding tasks on the chart which have a caption that is not clipped (and left aligned). When we add another task right after the first one, then the caption from that first bar is “stuck” behind the second bar. The bar's z-order is determined by the bar's key.

<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"
		.DefaultItemHeight = 24
		With .Chart
			.NonworkingDays = 0
			.FirstVisibleDate = #9/17/2006#
			.PaneWidth(False) = 96
			.LevelCount = 2
			With .Bars.Add("Green")
				.Color = RGB(0,255,0)
				.Def(18) = -2
				.Def(3) = "<%=%9%>"
				.Def(4) = 18
			End With
			With .Bars.Add("Red")
				.Color = RGB(255,0,0)
				.Def(18) = 2
				.Def(3) = "<%=%9%>"
				.Def(4) = 18
			End With
		End With
		With .Items
			h1 = .AddItem("Red / Green")
			.AddBar h1,"Green",#9/21/2006#,#9/27/2006#,"K1"
			.AddBar h1,"Red",#9/23/2006#,#9/25/2006#,"K2"
			h1 = .AddItem("Green / Red")
			.AddBar h1,"Green",#9/21/2006#,#9/27/2006#,"K2"
			.AddBar h1,"Red",#9/23/2006#,#9/25/2006#,"K1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

2201
The caption/text of the link is overwritten by its line. What can be done

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With G2antt1
		.BeginUpdate 
		.Columns.Add "Task"
		With .Chart
			.PaneWidth(0) = 64
			.FirstVisibleDate = #6/21/2005#
			.ResizeUnitScale = 65536
			.UnitWidth = 48
			.Level(0).Label = "<b><%mmm%></b> <%dd%>"
			.LinksWidth = 3
		End With
		With .Items
			h = .AddItem("Root")
			.AddBar h,"Task",#6/22/2005#,#6/23/2005#
			h1 = .InsertItem(h,,"Child")
			.AddBar h1,"Task",#6/24/2005 8:00:00 AM#,#6/24/2005 4:00:00 PM#
			.AddLink "Link1",h,"",h1,""
			.Link("Link1",12) = "<bgcolor=FFFFFF> link </bgcolor>"
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>