' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub G2antt1_BarResizing(ByVal Item As Long,ByVal Key As Variant)
	With G2antt1
		Debug.Print( "Start" )
		Debug.Print( Key )
		Debug.Print( .Items.ItemBar(Item,Key,547) )
		Debug.Print( "End" )
		Debug.Print( Key )
		Debug.Print( .Items.ItemBar(Item,Key,548) )
	End With
End Sub

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

' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub G2antt1_BarResizing(ByVal Item As Long,ByVal Key As Variant)
	With G2antt1
		Debug.Print( "Start" )
		Debug.Print( Key )
		Debug.Print( .FormatABC("dateF(value)",.Items.ItemBar(Item,Key,1)) )
		Debug.Print( "End" )
		Debug.Print( Key )
		Debug.Print( .FormatABC("dateF(value)",.Items.ItemBar(Item,Key,2)) )
	End With
End Sub

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

' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub G2antt1_BarResizing(ByVal Item As Long,ByVal Key As Variant)
	With G2antt1
		Debug.Print( "Start" )
		Debug.Print( Key )
		Debug.Print( .FormatABC("date(value) format `MM/dd/yyyy HH:mm:ss`",.Items.ItemBar(Item,Key,1)) )
		Debug.Print( "End" )
		Debug.Print( Key )
		Debug.Print( .FormatABC("date(value) format `MM/dd/yyyy HH:mm:ss`",.Items.ItemBar(Item,Key,2)) )
	End With
End Sub

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

' Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
Private Sub G2antt1_Click()
	With G2antt1
		With .Items
			h = .SelectedItem(0)
			.ItemBar(h,.FirstItemBar(h),49) = "+R4[10%]"
		End With
	End With
End Sub

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

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

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

' MouseMove event - Occurs when the user moves the mouse.
Private Sub G2antt1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With G2antt1
		.ShowToolTip .Chart.TimeZoneFromPoint(-1,-1),"",,"+8"
	End With
End Sub

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

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

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

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

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub G2antt1_AddItem(ByVal Item As Long)
	With G2antt1
		.Items.CellEditorVisible(Item,0) = 1
		.Items.CellEditorVisible(Item,1) = 1
	End With
End Sub

' EditOpen event - Occurs when the edit operation starts.
Private Sub 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 Sub

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

' Change event - Occurs when the user changes the cell's content.
Private Sub G2antt1_Change(ByVal Item As Long,ByVal ColIndex As Long,NewValue As Variant)
	With G2antt1
		.Refresh 
	End With
End Sub

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

' Change event - Occurs when the user changes the cell's content.
Private Sub G2antt1_Change(ByVal Item As Long,ByVal ColIndex As Long,NewValue As Variant)
	With G2antt1
		.Refresh 
	End With
End Sub

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

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

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

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

' Change event - Occurs when the user changes the cell's content.
Private Sub G2antt1_Change(ByVal Item As Long,ByVal ColIndex As Long,NewValue As Variant)
	With G2antt1
		.Refresh 
	End With
End Sub

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

' Change event - Occurs when the user changes the cell's content.
Private Sub G2antt1_Change(ByVal Item As Long,ByVal ColIndex As Long,NewValue As Variant)
	With G2antt1
		.Refresh 
	End With
End Sub

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

With G2antt1
	With .Chart
		.PaneWidth(False) = 0
		.LevelCount = 2
		.ToolTip = ""
	End With
End With

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

' MouseMove event - Occurs when the user moves the mouse.
Private Sub G2antt1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With G2antt1
		.ShowToolTip .Chart.BarFromPoint(-1,-1)
	End With
End Sub

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

' MouseMove event - Occurs when the user moves the mouse.
Private Sub G2antt1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With G2antt1
		.ShowToolTip .Chart.BarFromPoint(-1,-1)
	End With
End Sub

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

' AddLink event - Occurs when the user links two bars using the mouse.
Private Sub G2antt1_AddLink(ByVal LinkKey As String)
	With G2antt1
		.Items.Link(LinkKey,15) = 3
	End With
End Sub

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

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

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

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

' CreateBar event - Fired when the user creates a new bar.
Private Sub G2antt1_CreateBar(ByVal Item As Long,ByVal DateStart As Date,ByVal DateEnd As Date)
	With G2antt1
		.Items.AddBar Item,"Task",DateStart,DateEnd,"","new"
	End With
End Sub

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub G2antt1_AnchorClick(ByVal AnchorID As String,ByVal Options As String)
	With G2antt1
		Debug.Print( AnchorID )
	End With
End Sub

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

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

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

With G2antt1
	.Background(500) = -1
End With

With G2antt1
	.Background(500) = RGB(1,0,0)
End With

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

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

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

' MouseMove event - Occurs when the user moves the mouse.
Private Sub G2antt1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With G2antt1
		.ShowToolTip .Chart.BarFromPoint(-1,-1)
	End With
End Sub

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

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

' MouseMove event - Occurs when the user moves the mouse.
Private Sub G2antt1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With G2antt1
		.ShowToolTip "<null>","<null>",,"+8","+8"
	End With
End Sub

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

' MouseMove event - Occurs when the user moves the mouse.
Private Sub G2antt1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With G2antt1
		.ShowToolTip "<null>",.Chart.BarFromPoint(-1,-1)
	End With
End Sub

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

' MouseMove event - Occurs when the user moves the mouse.
Private Sub G2antt1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With G2antt1
		.ShowToolTip .Chart.BarFromPoint(-1,-1)
	End With
End Sub

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

' MouseMove event - Occurs when the user moves the mouse.
Private Sub G2antt1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With G2antt1
		.ShowToolTip "new content","new title"
	End With
End Sub

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

' MouseMove event - Occurs when the user moves the mouse.
Private Sub G2antt1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With G2antt1
		.ShowToolTip "new content","new title",,"+8","+8"
	End With
End Sub

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

' MouseMove event - Occurs when the user moves the mouse.
Private Sub G2antt1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With G2antt1
		.ShowToolTip "new content","",,128,128
	End With
End Sub

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

' MouseMove event - Occurs when the user moves the mouse.
Private Sub G2antt1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With G2antt1
		.ShowToolTip "",""
	End With
End Sub

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

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

' ToolTip event - Fired when the control prepares the object's tooltip.
Private Sub G2antt1_ToolTip(ByVal Item As Long,ByVal ColIndex As Long,Visible As Boolean,X As Long,Y As Long,ByVal CX As Long,ByVal CY As Long)
	With G2antt1
		.ShowToolTip .Chart.BarFromPoint(-1,-1)
	End With
End Sub

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

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

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

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

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")
	Debug.Print( "Look for C:\Temp\xtest.pdf file." )
	.EndUpdate 
End With

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

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

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

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

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

' FilterChange event - Occurs when the filter was changed.
Private Sub 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 Sub

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

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

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

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub G2antt1_AddItem(ByVal Item As Long)
	With G2antt1
		With .Items
			.AddBar Item,"Task",.CellValue(Item,2),.CellValue(Item,4)
		End With
	End With
End Sub

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

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

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