With AxG2antt1
	.BeginUpdate()
	With .Columns.Add("Edit").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.Option(EXG2ANTTLib.EditorOptionEnum.exLeftArrow) = False
		.Option(EXG2ANTTLib.EditorOptionEnum.exRightArrow) = False
	End With
	With .Items
		.AddItem("000")
		.AddItem("111")
		.AddItem("222")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.SelBackColor = .BackColor
	.SelForeColor = .ForeColor
	With .Columns.Add("Edit").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.Option(EXG2ANTTLib.EditorOptionEnum.exEditSelStart) = -1
	End With
	With .Items
		.AddItem("000")
		.AddItem("111")
		.AddItem("222")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.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
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exOverviewSelResize,1)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exOverviewSelOut,15790320)
	.Chart.OverviewSelBackColor = RGB(255,255,255)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exOverviewSelUnit,16777216)
	With .Chart
		.FirstVisibleDate = #6/21/2001#
		.PaneWidth(False) = 48
		.OverviewVisible = &H400 Or EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowSelMargins Or EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowMargins Or EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowDateTimeScaleBottom Or EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
		.OverviewHeight = 64
		.LevelCount = 2
		.UnitScale = EXG2ANTTLib.UnitEnum.exDay
		.Label(EXG2ANTTLib.UnitEnum.exHour) = ""
		.Label(EXG2ANTTLib.UnitEnum.exMinute) = ""
		.Label(EXG2ANTTLib.UnitEnum.exSecond) = ""
		.AllowOverviewZoom = EXG2ANTTLib.OverviewZoomEnum.exAlwaysZoom
	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 AxG2antt1
	.BeginUpdate()
	.BackColorLevelHeader = .BackColor
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exOverviewSelResize,16711680)
	With .Chart
		.FirstVisibleDate = #6/21/2001#
		.PaneWidth(False) = 48
		.OverviewVisible = &H400 Or EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowSelMargins Or EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowMargins Or EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowDateTimeScaleBottom Or EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
		.OverviewHeight = 64
		.LevelCount = 2
		.UnitScale = EXG2ANTTLib.UnitEnum.exDay
	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 AxG2antt1
	.BeginUpdate()
	.BackColorLevelHeader = .BackColor
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exOverviewSelResize,1)
	With .Chart
		.FirstVisibleDate = #6/21/2001#
		.PaneWidth(False) = 48
		.OverviewVisible = &H400 Or EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowSelMargins Or EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowMargins Or EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowDateTimeScaleBottom Or EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
		.OverviewHeight = 64
		.LevelCount = 2
		.UnitScale = EXG2ANTTLib.UnitEnum.exDay
	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 AxG2antt1
	.BeginUpdate()
	.OnResizeControl = EXG2ANTTLib.OnResizeControlEnum.exResizeChart
	.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 = EXG2ANTTLib.AppearanceEnum.Etched
	.Columns.Add("Index").FormatColumn = "1 index ``"
	.Columns.Add("Pos").FormatColumn = "1 apos ``"
	.Columns.Add("Edit").Editor.EditType = EXG2ANTTLib.EditTypeEnum.EditType
	.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exVLines
	.GridLineColor = RGB(224,224,224)
	With .Chart
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
		.LevelCount = 2
		.FirstVisibleDate = #12/28/2000#
		.PaneWidth(False) = 196
		.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
		With .Level(1)
			.DrawGridLines = True
			.GridLineColor = AxG2antt1.GridLineColor
		End With
	End With
	.EndUpdate()
End With

Dim h1,h2
With AxG2antt1
	.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

Dim h1,h2
With AxG2antt1
	.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",EXG2ANTTLib.LinkPropertyEnum.exLinkStartPos) = 0
		.Link("Link1",EXG2ANTTLib.LinkPropertyEnum.exLinkEndPos) = 0
		.SchedulePDM(0,"")
	End With
	.EndUpdate()
End With

Dim h1,h2
With AxG2antt1
	.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",EXG2ANTTLib.LinkPropertyEnum.exLinkStartPos) = 2
		.Link("Link1",EXG2ANTTLib.LinkPropertyEnum.exLinkEndPos) = 2
		.SchedulePDM(0,"")
	End With
	.EndUpdate()
End With

Dim h1,h2
With AxG2antt1
	.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",EXG2ANTTLib.LinkPropertyEnum.exLinkStartPos) = 0
		.Link("Link1",EXG2ANTTLib.LinkPropertyEnum.exLinkEndPos) = 2
		.SchedulePDM(0,"")
	End With
	.EndUpdate()
End With

Dim h1,h2
With AxG2antt1
	.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,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarPredecessor) = "1FS"
		.SchedulePDM(0,"")
	End With
	.EndUpdate()
End With

Dim h1,h2
With AxG2antt1
	.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,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarPredecessor) = "1SS"
		.SchedulePDM(0,"")
	End With
	.EndUpdate()
End With

Dim h1,h2
With AxG2antt1
	.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,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarPredecessor) = "1FF"
		.SchedulePDM(0,"")
	End With
	.EndUpdate()
End With

Dim h1,h2
With AxG2antt1
	.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,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarPredecessor) = "1SF"
		.SchedulePDM(0,"")
	End With
	.EndUpdate()
End With

Dim h1,h2
With AxG2antt1
	.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",EXG2ANTTLib.LinkPropertyEnum.exLinkType) = "SF"
		.SchedulePDM(0,"")
	End With
	.EndUpdate()
End With

Dim h1,h2
With AxG2antt1
	.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",EXG2ANTTLib.LinkPropertyEnum.exLinkType) = "FF"
		.SchedulePDM(0,"")
	End With
	.EndUpdate()
End With

Dim h1,h2
With AxG2antt1
	.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",EXG2ANTTLib.LinkPropertyEnum.exLinkType) = "SS"
		.SchedulePDM(0,"")
	End With
	.EndUpdate()
End With

Dim h1,h2
With AxG2antt1
	.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",EXG2ANTTLib.LinkPropertyEnum.exLinkType) = "FS"
		.SchedulePDM(0,"")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Name")
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/28/2000#
		.PaneWidth(False) = 64
		With .Bars.Add("Task:Split")
			.Shortcut = "Task"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = 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),"",EXG2ANTTLib.ItemBarPropertyEnum.exBarSuccessor) = "2SF:-1,3SF:-1W"
		.SchedulePDM(0,"")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.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),"",EXG2ANTTLib.ItemBarPropertyEnum.exBarSuccessor) = "2SF:-1,3SF:-1W"
		.SchedulePDM(0,"")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.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),"",EXG2ANTTLib.ItemBarPropertyEnum.exBarSuccessor) = ""
	End With
	.EndUpdate()
End With

With AxG2antt1
	.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),"",EXG2ANTTLib.ItemBarPropertyEnum.exBarPredecessor) = ""
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.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,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarSuccessor) = "2SF"
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.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,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarPredecessor) = "2SF"
	End With
	.EndUpdate()
End With

' AddLink event - Occurs when the user links two bars using the mouse.
Private Sub AxG2antt1_AddLink(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddLinkEvent) Handles AxG2antt1.AddLink
	With AxG2antt1
		.Items.Link(e.linkKey,EXG2ANTTLib.LinkPropertyEnum.exLinkShowRound) = 3
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	.OnResizeControl = EXG2ANTTLib.OnResizeControlEnum.exResizeChart
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	.ColumnAutoResize = False
	.HeaderHeight = 32
	.DefaultItemHeight = 28
	.BackColorLevelHeader = RGB(255,255,255)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exPSLinkColorEditSel,10526880)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exPSBarColorEditSel,8421504)
	With .Columns
		.Add("Name").Width = 48
		With .Add("Start")
			.Width = 48
			.Editor.EditType = EXG2ANTTLib.EditTypeEnum.DateType
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 1
		End With
		With .Add("End")
			.Width = 48
			.Editor.EditType = EXG2ANTTLib.EditTypeEnum.DateType
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 543
		End With
		With .Add("Predecessor")
			With .Editor
				.EditType = EXG2ANTTLib.EditTypeEnum.EditType
				.EditType = EXG2ANTTLib.EditTypeEnum.MaskType
				.Mask = ";;;rich"
			End With
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 270
		End With
		With .Add("Successor")
			With .Editor
				.EditType = EXG2ANTTLib.EditTypeEnum.EditType
				.EditType = EXG2ANTTLib.EditTypeEnum.MaskType
				.Mask = ";;;rich"
			End With
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 271
		End With
		With .Add("(I)")
			.FormatColumn = "1 index ``"
			.Position = 0
			.AllowSizing = False
			.Width = 20
		End With
	End With
	.ColumnAutoResize = True
	.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	.GridLineColor = RGB(224,224,224)
	.AntiAliasing = True
	With .Chart
		.ShowLinks = EXG2ANTTLib.ShowExtendedLinksEnum.exShowExtendedLinks
		.LinksStyle = EXG2ANTTLib.LinkStyleEnum.exLinkSolid
		.LevelCount = 2
		.FirstVisibleDate = #12/28/2000#
		.PaneWidth(False) = 362
		.NonworkingDays = 0
		.AllowLinkBars = True
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarAutoEndInclusive
		.AllowZoomOnFly = &Hfffffcc4 Or EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyIncludeSelectedItems Or EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyBarsOnly Or EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFly Or EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyCtrl Or EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyShift
		.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
		With .Bars.Item("Task")
			.Height = 15
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%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",EXG2ANTTLib.LinkPropertyEnum.exLinkPDMDelay) = 1
		.AddLink("L2",.ItemByIndex(0),"",.ItemByIndex(2),"")
		.AddLink("L3",.ItemByIndex(2),"",.ItemByIndex(1),"")
		.SchedulePDM(0,"")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	With .Columns
		.Add("Name").Width = 48
		With .Add("Successor")
			With .Editor
				.EditType = EXG2ANTTLib.EditTypeEnum.EditType
				.EditType = EXG2ANTTLib.EditTypeEnum.MaskType
				.Mask = ";;;rich"
			End With
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 271
		End With
		With .Add("(I)")
			.FormatColumn = "1 index ``"
			.Position = 0
			.AllowSizing = False
			.Width = 20
		End With
	End With
	.ColumnAutoResize = True
	.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	.GridLineColor = RGB(224,224,224)
	.AntiAliasing = True
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/28/2000#
		.PaneWidth(False) = 256
		.AllowLinkBars = True
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarAutoEndInclusive
	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 AxG2antt1
	.BeginUpdate()
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	With .Columns
		.Add("Name").Width = 48
		With .Add("Predecessor")
			With .Editor
				.EditType = EXG2ANTTLib.EditTypeEnum.EditType
				.EditType = EXG2ANTTLib.EditTypeEnum.MaskType
				.Mask = ";;;rich"
			End With
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 270
		End With
		With .Add("(I)")
			.FormatColumn = "1 index ``"
			.Position = 0
			.AllowSizing = False
			.Width = 20
		End With
	End With
	.ColumnAutoResize = True
	.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	.GridLineColor = RGB(224,224,224)
	.AntiAliasing = True
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/28/2000#
		.PaneWidth(False) = 256
		.AllowLinkBars = True
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarAutoEndInclusive
	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 AxG2antt1
	.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 AxG2antt1_CreateBar(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CreateBarEvent) Handles AxG2antt1.CreateBar
	With AxG2antt1
		.Items.AddBar(e.item,"Task",e.dateStart,e.dateEnd,"","new")
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	.OnResizeControl = EXG2ANTTLib.OnResizeControlEnum.exResizeChart
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	.Columns.Add("Index").FormatColumn = "1 index ``"
	.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exHLines
	.GridLineColor = RGB(224,224,224)
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/28/2000#
		.PaneWidth(False) = 64
		.NonworkingDays = 0
		.AllowLinkBars = True
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarManualEndInclusive
		.AllowZoomOnFly = &Hfffffcc4 Or EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyIncludeSelectedItems Or EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyBarsOnly Or EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFly Or EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyCtrl Or EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyShift
		.GridLineStyle = AxG2antt1.GridLineStyle
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
		With .Level(1)
			.DrawGridLines = True
			.GridLineColor = AxG2antt1.GridLineColor
		End With
	End With
	With .Items
		.AddItem("")
		.AddItem("")
		.AddItem("")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.OnResizeControl = EXG2ANTTLib.OnResizeControlEnum.exResizeChart
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	.Columns.Add("Index").FormatColumn = "1 index ``"
	.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exHLines
	.GridLineColor = RGB(224,224,224)
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/28/2000#
		.PaneWidth(False) = 64
		.NonworkingDays = 0
		.AllowLinkBars = True
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarAutoEndInclusive
		.AllowZoomOnFly = &Hfffffcc4 Or EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyIncludeSelectedItems Or EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyBarsOnly Or EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFly Or EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyCtrl Or EXG2ANTTLib.ZoomOnFlyEnum.exZoomOnFlyShift
		.GridLineStyle = AxG2antt1.GridLineStyle
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
		With .Level(1)
			.DrawGridLines = True
			.GridLineColor = AxG2antt1.GridLineColor
		End With
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.ScrollBars = EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or EXG2ANTTLib.ScrollBarsEnum.exVertical
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelVAlign,1)
	.Columns.Add("Tasks")
	With .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.Bars.Item("Task").Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = True
		.PaneWidth(False) = 96
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
		.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 AxG2antt1
	.BeginUpdate()
	.ScrollBars = EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or EXG2ANTTLib.ScrollBarsEnum.exVertical
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelVAlign,1)
	.Columns.Add("Tasks")
	With .Chart
		.PaneWidth(False) = 96
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
		.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 AxG2antt1
	.BeginUpdate()
	.ScrollBars = EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or EXG2ANTTLib.ScrollBarsEnum.exVertical
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelVAlign,1)
	.Columns.Add("Tasks")
	With .Chart
		.PaneWidth(False) = 96
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
		.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 AxG2antt1
	.BeginUpdate()
	.ScrollBars = EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or EXG2ANTTLib.ScrollBarsEnum.exVertical
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelVAlign,1)
	.Columns.Add("Tasks")
	With .Chart
		.PaneWidth(False) = 96
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
		.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 AxG2antt1
	.BeginUpdate()
	.ScrollBars = EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or EXG2ANTTLib.ScrollBarsEnum.exVertical
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelVAlign,1)
	.Columns.Add("Tasks")
	With .Chart
		.PaneWidth(False) = 96
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
		.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 AxG2antt1
	.BeginUpdate()
	.ScrollBars = EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or EXG2ANTTLib.ScrollBarsEnum.exVertical
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelVAlign,1)
	.Columns.Add("Tasks")
	With .Chart
		.PaneWidth(False) = 96
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
		.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 AxG2antt1
	.BeginUpdate()
	.ScrollBars = EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or EXG2ANTTLib.ScrollBarsEnum.exVertical
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelVAlign,1)
	.Columns.Add("Tasks")
	With .Chart
		.PaneWidth(False) = 96
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
		.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 AxG2antt1
	.BeginUpdate()
	.ScrollBars = EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or EXG2ANTTLib.ScrollBarsEnum.exVertical
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelVAlign,1)
	.Columns.Add("Tasks")
	With .Chart
		.PaneWidth(False) = 96
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
		.ResizeUnitScale = EXG2ANTTLib.UnitEnum.exHour
		.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 AxG2antt1
	.BeginUpdate()
	.ScrollBars = EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or EXG2ANTTLib.ScrollBarsEnum.exVertical
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelVAlign,1)
	.Columns.Add("Tasks")
	With .Chart
		.PaneWidth(False) = 96
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
		.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 AxG2antt1
	.BeginUpdate()
	.ScrollBars = EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or EXG2ANTTLib.ScrollBarsEnum.exVertical
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelVAlign,1)
	.Columns.Add("Tasks")
	With .Chart
		.PaneWidth(False) = 96
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
		.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 AxG2antt1
	.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 = EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or EXG2ANTTLib.ScrollBarsEnum.exVertical
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelBack,33554432)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelFore,16777215)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelHAlign,1)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelVAlign,1)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelHMargin,4)
	.Columns.Add("Tasks")
	With .Chart
		.PaneWidth(False) = 96
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
		.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 AxG2antt1
	.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 = EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or EXG2ANTTLib.ScrollBarsEnum.exVertical
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelBack,16777216)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelFore,657930)
	.Columns.Add("Tasks")
	With .Chart
		.PaneWidth(False) = 96
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
		.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 AxG2antt1
	.BeginUpdate()
	.ScrollBars = EXG2ANTTLib.ScrollBarsEnum.exVScrollEmptySpace Or EXG2ANTTLib.ScrollBarsEnum.exVertical
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelBack,1)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDateTickerLabelFore,16777215)
	.Columns.Add("Tasks")
	With .Chart
		.PaneWidth(False) = 96
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
		.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 AxG2antt1_AnchorClick(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AnchorClickEvent) Handles AxG2antt1.AnchorClick
	With AxG2antt1
		Debug.Print( e.anchorID )
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.TreeColumnIndex = -1
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
	.BackColorAlternate = RGB(240,240,240)
	.ShowFocusRect = False
	.Columns.Add("Default")
	With .Items
		.AddItem("before item")
		h = .AddItem("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4Aj" & _
"MGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEB" & _
"A==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DAB" & _
"vABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>	" & _
"650;</a><br>+ withdraw(amount: Currency)")
		.CellValueFormat(h,0) = EXG2ANTTLib.ValueFormatEnum.exHTML
		.CellSingleLine(h,0) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
		.AddItem("after item")
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.TreeColumnIndex = -1
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
	.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) = EXG2ANTTLib.ValueFormatEnum.exHTML
		.CellSingleLine(h,0) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
		.AddItem("after item")
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.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,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarPattern) = 6
		.AddBar(.AddItem("Original"),"Task",#1/4/2010#,#1/9/2010#,"")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exScrollHoverAll,-1)
End With

With AxG2antt1
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exScrollHoverAll,1)
End With

With AxG2antt1
	.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 = EXG2ANTTLib.AppearanceEnum.Etched
	.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 AxG2antt1
	.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 = EXG2ANTTLib.AppearanceEnum.Etched
	.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 AxG2antt1
	.BeginUpdate()
	.DefaultItemHeight = 32
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	.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 AxG2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent) Handles AxG2antt1.MouseMoveEvent
	With AxG2antt1
		.ShowToolTip(.Chart.BarFromPoint(-1,-1))
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Def")
	With .Chart
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exNoCreateBar
		.PaneWidth(False) = 64
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2010#
		.Bars.Item("Task").Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "..."
	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

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Def").Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
	With .Chart
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exNoCreateBar
		.PaneWidth(False) = 96
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2010#
		.Bars.Item("Task").Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "<%=%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 AxG2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent) Handles AxG2antt1.MouseMoveEvent
	With AxG2antt1
		.ShowToolTip("<null>","<null>",Nothing,"+8","+8")
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Def")
	With .Chart
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exNoCreateBar
		.PaneWidth(False) = 64
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2010#
		.Bars.Item("Task").Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "<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 AxG2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent) Handles AxG2antt1.MouseMoveEvent
	With AxG2antt1
		.ShowToolTip("<null>",.Chart.BarFromPoint(-1,-1))
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Def")
	With .Chart
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exNoCreateBar
		.PaneWidth(False) = 64
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2010#
		.Bars.Item("Task").Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "<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 AxG2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent) Handles AxG2antt1.MouseMoveEvent
	With AxG2antt1
		.ShowToolTip(.Chart.BarFromPoint(-1,-1))
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Def")
	With .Chart
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exNoCreateBar
		.PaneWidth(False) = 64
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2010#
		.Bars.Item("Task").Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "<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 AxG2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent) Handles AxG2antt1.MouseMoveEvent
	With AxG2antt1
		.ShowToolTip("new content","new title")
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Def")
	With .Chart
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exNoCreateBar
		.PaneWidth(False) = 64
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2010#
		.Bars.Item("Task").Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "<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 AxG2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent) Handles AxG2antt1.MouseMoveEvent
	With AxG2antt1
		.ShowToolTip("new content","new title",Nothing,"+8","+8")
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Def")
	With .Chart
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exNoCreateBar
		.PaneWidth(False) = 64
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2010#
		.Bars.Item("Task").Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "<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 AxG2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent) Handles AxG2antt1.MouseMoveEvent
	With AxG2antt1
		.ShowToolTip("new content","",Nothing,128,128)
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Def")
	With .Chart
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exNoCreateBar
		.PaneWidth(False) = 64
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2010#
		.Bars.Item("Task").Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "<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 AxG2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent) Handles AxG2antt1.MouseMoveEvent
	With AxG2antt1
		.ShowToolTip("","")
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Def")
	With .Chart
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exNoCreateBar
		.PaneWidth(False) = 64
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2010#
		.Bars.Item("Task").Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "<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

Dim h1
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	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,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		.AddBar(h1,"Task",#1/3/2001#,#1/4/2001 0:00:00 PM#,"T2")
		.ItemBar(h1,"T2",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 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 AxG2antt1_ToolTip(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ToolTipEvent) Handles AxG2antt1.ToolTip
	With AxG2antt1
		.ShowToolTip(.Chart.BarFromPoint(-1,-1))
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Def")
	With .Chart
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exNoCreateBar
		.PaneWidth(False) = 64
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2010#
		.Bars.Item("Task").Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "..."
	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 AxG2antt1
	.BeginUpdate()
	.DefaultItemHeight = 32
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	With .Chart
		.LevelCount = 2
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
		.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
		.AllowLinkBars = False
		With .Bars.Item("Task")
			.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsCascade
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "only horizontal"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaptionVOffset) = 18
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMoveToAnother) = 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,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMoveToAnother) = False
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.DefaultItemHeight = 32
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	With .Chart
		.LevelCount = 2
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
		.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
		.AllowLinkBars = False
		With .Bars.Item("Task")
			.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsCascade
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "anywhere"
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaptionVOffset) = 18
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMoveToAnother) = 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",EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMoveToAnother) = False
		.AddBar(.AddItem("Item 3"),"Task",#1/3/2001#,#1/5/2001#,"C")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	With .Chart
		.PaneWidth(False) = 0
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exVLines
		.FirstVisibleDate = #1/1/2001#
		.UnitWidth = 30
		.LevelCount = 2
		.Level(0).Unit = EXG2ANTTLib.UnitEnum.exMonth
		With .Level(1)
			.Unit = EXG2ANTTLib.UnitEnum.exDay
			.Count = 10
		End With
	End With
	.EndUpdate()
End With

Dim var_CopyTo
With AxG2antt1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns
		.Add("Tasks")
		With .Add("Start")
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 1
			.Editor.EditType = EXG2ANTTLib.EditTypeEnum.SpinType
		End With
		With .Add("End")
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 2
			.Editor.EditType = EXG2ANTTLib.EditTypeEnum.SpinType
		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 = .get_CopyTo("c:/temp/xtest.pdf")
	Debug.Print( "Look for C:\Temp\xtest.pdf file." )
	.EndUpdate()
End With

Dim color,h
With AxG2antt1
	color = 15790320
	.BeginUpdate()
	.Debug = True
	.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	.ShowLockedItems = True
	With .Chart
		.PaneWidth(False) = 128
		.LevelCount = 2
		.FirstVisibleDate = #12/31/2015#
		.Bars.Item("Task").Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMoveToAnother) = True
	End With
	.Columns.Add("Column")
	With .Items
		.LockedItemCount(EXG2ANTTLib.VAlignmentEnum.exTop) = 3
		h = .LockedItem(EXG2ANTTLib.VAlignmentEnum.exTop,0)
		.ItemBackColor(h) = color
		AxG2antt1.Chart.ItemBackColor(h) = color
		.CellValue(h,0) = "locked-top 1"
		.AddBar(h,"Task",#1/4/2016#,#1/8/2016#,"T1")
		h = .LockedItem(EXG2ANTTLib.VAlignmentEnum.exTop,1)
		.ItemBackColor(h) = color
		AxG2antt1.Chart.ItemBackColor(h) = color
		.CellValue(h,0) = "locked-top 2"
		.AddBar(h,"Task",#1/5/2016#,#1/9/2016#,"T2")
		h = .LockedItem(EXG2ANTTLib.VAlignmentEnum.exTop,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(EXG2ANTTLib.VAlignmentEnum.exMiddle) = 3
		h = .LockedItem(EXG2ANTTLib.VAlignmentEnum.exMiddle,0)
		.SelectItem(h) = False
		.ItemDivider(h) = 0
		.ItemHeight(h) = 2
		h = .LockedItem(EXG2ANTTLib.VAlignmentEnum.exMiddle,1)
		.ItemBackColor(h) = color
		AxG2antt1.Chart.ItemBackColor(h) = color
		.CellValue(h,0) = "locked-bottom 1"
		.AddBar(h,"Task",#1/4/2016#,#1/8/2016#,"T5")
		h = .LockedItem(EXG2ANTTLib.VAlignmentEnum.exMiddle,2)
		.ItemBackColor(h) = color
		AxG2antt1.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

Dim h
With AxG2antt1
	.BeginUpdate()
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	With .Columns.Add("Minutes")
		.SortType = EXG2ANTTLib.SortTypeEnum.SortNumeric
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.EditType
			.Numeric = EXG2ANTTLib.NumericEnum.exInteger
		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) = EXG2ANTTLib.ValueFormatEnum.exTotalField Or EXG2ANTTLib.ValueFormatEnum.exHTML
		.CellHAlignment(h,0) = EXG2ANTTLib.AlignmentEnum.RightAlignment
		.FormatCell(h,0) = "'<b>HH:NN</b>: '+ (int(value/60) lpad '00') + ':' + ((value mod 60) lpad '00')"
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	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

Dim h1,h2
With AxG2antt1
	.BeginUpdate()
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	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 AxG2antt1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exChartCreateBar,16777216)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exCreateBarHeight,15)
	With .Chart
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
		.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 AxG2antt1_FilterChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.FilterChange
	Dim format
	With AxG2antt1
		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

Dim h0
With AxG2antt1
	.BeginUpdate()
	.SelBackColor = .BackColor
	.SelForeColor = .ForeColor
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	.HeaderHeight = 23
	.BackColorLevelHeader = .BackColor
	.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
	.FilterBarPromptVisible = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarBackColor = .BackColor
	.FilterBarPromptPattern = "and"
	With .Columns
		With .Add("Name")
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
			.FormatColumn = "lower(value)"
		End With
		With .Add("Title")
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
			.FormatColumn = "lower(value)"
		End With
		With .Add("City")
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 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) = True
		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 AxG2antt1
	.BeginUpdate()
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exVLines
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Flat
	.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = EXG2ANTTLib.FilterPromptEnum.exFilterPromptCaseSensitive Or EXG2ANTTLib.FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "12"
	.FilterBarBackColor = .BackColor
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exVLines
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	.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 = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = EXG2ANTTLib.FilterPromptEnum.exFilterPromptCaseSensitive Or EXG2ANTTLib.FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "12"
	.FilterBarBackColor = .BackColor
	.EndUpdate()
End With

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

Dim rs
With AxG2antt1
	.BeginUpdate()
	.ColumnAutoResize = False
	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(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 1
	.Columns.Item(4).Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 2
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.DefaultItemHeight = 22
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
	.Columns.Add("Task")
	With .Chart
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
		.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesGeometric
		.ResizeUnitScale = EXG2ANTTLib.UnitEnum.exHour
		.PaneWidth(False) = 48
		.FirstVisibleDate = #1/1/2001#
		With .Bars.Item("Task")
			.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsTransparent Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsOffset
			.Overlaid(EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsTransparent) = 70
			.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMoveToAnother) = True
		End With
	End With
	.ItemsAllowSizing = EXG2ANTTLib.ItemsAllowSizingEnum.exResizeItem
	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

Dim h
With AxG2antt1
	.BeginUpdate()
	.ImageSize = 32
	.DefaultItemHeight = 36
	.HeaderHeight = .DefaultItemHeight
	.SortBarHeight = .DefaultItemHeight
	.Font.Size = 16
	.FilterBarFont.Size = AxG2antt1.Font.Size
	.ToolTipFont.Size = AxG2antt1.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
	.GetOcx().BackColorHeader = &H4c6c6c6
	.GetOcx().SelBackColor = &H4000000
	.SelForeColor = RGB(0,0,1)
	.ShowFocusRect = False
	.set_CheckImage(EXG2ANTTLib.CheckStateEnum.Unchecked,16777216)
	.set_CheckImage(EXG2ANTTLib.CheckStateEnum.Checked,33554432)
	.set_CheckImage(EXG2ANTTLib.CheckStateEnum.PartialChecked,50331648)
	.Columns.Add("Editors").Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
	With .Items
		.CellEditor(.AddItem("(ReadOnly)"),0).EditType = EXG2ANTTLib.EditTypeEnum.ReadOnly
		.CellEditor(.AddItem("(EditType)"),0).EditType = EXG2ANTTLib.EditTypeEnum.EditType
		h = .AddItem("Value 1")
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.DropDownType
			.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 = EXG2ANTTLib.EditTypeEnum.DropDownListType
			.DropDownAutoWidth = EXG2ANTTLib.DropDownWidthType.exDropDownEditorWidth
			.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 = EXG2ANTTLib.EditTypeEnum.DropDownListType
			.DropDownAutoWidth = EXG2ANTTLib.DropDownWidthType.exDropDownEditorWidth
			.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 = EXG2ANTTLib.EditTypeEnum.DropDownListType
			.DropDownAutoWidth = EXG2ANTTLib.DropDownWidthType.exDropDownEditorWidth
			.Option(EXG2ANTTLib.EditorOptionEnum.exDropDownColumnCaption) = "Name¦Title¦City¦Phone"
			.Option(EXG2ANTTLib.EditorOptionEnum.exDropDownColumnWidth) = "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 = EXG2ANTTLib.EditTypeEnum.DropDownListType
			.DropDownAutoWidth = EXG2ANTTLib.DropDownWidthType.exDropDownEditorWidth
			.Option(EXG2ANTTLib.EditorOptionEnum.exDropDownColumnCaption) = "Name¦Title¦City¦Phone"
			.Option(EXG2ANTTLib.EditorOptionEnum.exDropDownColumnWidth) = "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 = EXG2ANTTLib.EditTypeEnum.SpinType
		.FormatCell(h,0) = "value + ' (SpinType)'"
		.CellEditor(.AddItem("(MemoType)"),0).EditType = EXG2ANTTLib.EditTypeEnum.MemoType
		h = .AddItem(3)
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.CheckListType
			.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 = EXG2ANTTLib.EditTypeEnum.MaskType
		End With
		.FormatCell(h,0) = "value + ' (MaskType)'"
		h = .AddItem(65280)
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.ColorType
			.Mask = "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0"
		End With
		.FormatCell(h,0) = "value + ' (ColorType)'"
		h = .AddItem("Tahoma")
		.CellEditor(h,0).EditType = EXG2ANTTLib.EditTypeEnum.FontType
		.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 = EXG2ANTTLib.EditTypeEnum.PictureType
		.FormatCell(h,0) = "value + ' (PictureType)'"
		.CellEditor(.AddItem("(ButtonType)"),0).EditType = EXG2ANTTLib.EditTypeEnum.ButtonType
		h = .AddItem(25)
		.CellEditor(h,0).EditType = EXG2ANTTLib.EditTypeEnum.ProgressBarType
		.FormatCell(h,0) = "value + ' (ProgressBarType)'"
		h = .AddItem("Value 1")
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.PickEditType
			.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 = EXG2ANTTLib.EditTypeEnum.LinkEditType
		With .CellEditor(.AddItem("(UserEditorType)"),0)
			.EditType = EXG2ANTTLib.EditTypeEnum.UserEditorType
			.UserEditor("Exontrol.ComboBox","")
			With .UserEditorObject
			End With
		End With
		h = .AddItem(255)
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.ColorListType
			.Option(EXG2ANTTLib.EditorOptionEnum.exColorListShowName) = True
		End With
		.FormatCell(h,0) = "value + ' (ColorListType)'"
		.CellEditor(.AddItem(65280),0).EditType = EXG2ANTTLib.EditTypeEnum.ColorListType
		.CellEditor(.AddItem("(MemoDropDownType)"),0).EditType = EXG2ANTTLib.EditTypeEnum.MemoDropDownType
		With .CellEditor(.AddItem(-1),0)
			.EditType = EXG2ANTTLib.EditTypeEnum.CheckValueType
			.Option(EXG2ANTTLib.EditorOptionEnum.exCheckValue2) = 1
		End With
		h = .AddItem(50)
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.SliderType
			.Option(EXG2ANTTLib.EditorOptionEnum.exSliderWidth) = -60
			.Option(EXG2ANTTLib.EditorOptionEnum.exSliderTickFrequency) = 10
			.Option(EXG2ANTTLib.EditorOptionEnum.exSliderTickStyle) = 2
		End With
		.FormatCell(h,0) = "value + ' (SliderType)'"
		h = .AddItem(100)
		.CellEditor(h,0).EditType = EXG2ANTTLib.EditTypeEnum.CalculatorType
		.FormatCell(h,0) = "value + ' (CalculatorType)'"
		.EnsureVisibleItem(h)
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.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(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
	With .Items
		.CellEditor(.AddItem("(ReadOnly)"),0).EditType = EXG2ANTTLib.EditTypeEnum.ReadOnly
		.CellEditor(.AddItem("(EditType)"),0).EditType = EXG2ANTTLib.EditTypeEnum.EditType
		h = .AddItem("Value 1")
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.DropDownType
			.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 = EXG2ANTTLib.EditTypeEnum.DropDownListType
			.DropDownAutoWidth = EXG2ANTTLib.DropDownWidthType.exDropDownEditorWidth
			.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 = EXG2ANTTLib.EditTypeEnum.DropDownListType
			.DropDownAutoWidth = EXG2ANTTLib.DropDownWidthType.exDropDownEditorWidth
			.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 = EXG2ANTTLib.EditTypeEnum.DropDownListType
			.DropDownAutoWidth = EXG2ANTTLib.DropDownWidthType.exDropDownEditorWidth
			.Option(EXG2ANTTLib.EditorOptionEnum.exDropDownColumnCaption) = "Name¦Title¦City¦Phone"
			.Option(EXG2ANTTLib.EditorOptionEnum.exDropDownColumnWidth) = "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 = EXG2ANTTLib.EditTypeEnum.DropDownListType
			.DropDownAutoWidth = EXG2ANTTLib.DropDownWidthType.exDropDownEditorWidth
			.Option(EXG2ANTTLib.EditorOptionEnum.exDropDownColumnCaption) = "Name¦Title¦City¦Phone"
			.Option(EXG2ANTTLib.EditorOptionEnum.exDropDownColumnWidth) = "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 = EXG2ANTTLib.EditTypeEnum.SpinType
		.FormatCell(h,0) = "value + ' (SpinType)'"
		.CellEditor(.AddItem("(MemoType)"),0).EditType = EXG2ANTTLib.EditTypeEnum.MemoType
		h = .AddItem(3)
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.CheckListType
			.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 = EXG2ANTTLib.EditTypeEnum.MaskType
		End With
		.FormatCell(h,0) = "value + ' (MaskType)'"
		h = .AddItem(65280)
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.ColorType
			.Mask = "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0"
		End With
		.FormatCell(h,0) = "value + ' (ColorType)'"
		h = .AddItem("Tahoma")
		.CellEditor(h,0).EditType = EXG2ANTTLib.EditTypeEnum.FontType
		.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 = EXG2ANTTLib.EditTypeEnum.PictureType
		.FormatCell(h,0) = "value + ' (PictureType)'"
		.CellEditor(.AddItem("(ButtonType)"),0).EditType = EXG2ANTTLib.EditTypeEnum.ButtonType
		h = .AddItem(25)
		.CellEditor(h,0).EditType = EXG2ANTTLib.EditTypeEnum.ProgressBarType
		.FormatCell(h,0) = "value + ' (ProgressBarType)'"
		h = .AddItem("Value 1")
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.PickEditType
			.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 = EXG2ANTTLib.EditTypeEnum.LinkEditType
		With .CellEditor(.AddItem("(UserEditorType)"),0)
			.EditType = EXG2ANTTLib.EditTypeEnum.UserEditorType
			.UserEditor("Exontrol.ComboBox","")
			With .UserEditorObject
			End With
		End With
		h = .AddItem(255)
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.ColorListType
			.Option(EXG2ANTTLib.EditorOptionEnum.exColorListShowName) = True
		End With
		.FormatCell(h,0) = "value + ' (ColorListType)'"
		.CellEditor(.AddItem(65280),0).EditType = EXG2ANTTLib.EditTypeEnum.ColorListType
		.CellEditor(.AddItem("(MemoDropDownType)"),0).EditType = EXG2ANTTLib.EditTypeEnum.MemoDropDownType
		With .CellEditor(.AddItem(-1),0)
			.EditType = EXG2ANTTLib.EditTypeEnum.CheckValueType
			.Option(EXG2ANTTLib.EditorOptionEnum.exCheckValue2) = 1
		End With
		h = .AddItem(50)
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.SliderType
			.Option(EXG2ANTTLib.EditorOptionEnum.exSliderWidth) = -60
			.Option(EXG2ANTTLib.EditorOptionEnum.exSliderTickFrequency) = 10
			.Option(EXG2ANTTLib.EditorOptionEnum.exSliderTickStyle) = 2
		End With
		.FormatCell(h,0) = "value + ' (SliderType)'"
		h = .AddItem(100)
		.CellEditor(h,0).EditType = EXG2ANTTLib.EditTypeEnum.CalculatorType
		.FormatCell(h,0) = "value + ' (CalculatorType)'"
		.EnsureVisibleItem(h)
	End With
	.EndUpdate()
End With

Dim h1
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.NonworkingDays = 0
		.FirstVisibleDate = #9/17/2006#
		.PaneWidth(False) = 64
		.LevelCount = 2
		.Bars.Item("Task").OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsCascade
	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*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 65280
		.ItemBar(0,"<K*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarOverlaidKey) = "Level0"
		.ItemBar(0,"<T*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarOverlaidKey) = "Level1"
		.ItemMaxHeight(h1) = 26
	End With
	.EndUpdate()
End With

Dim h1,h2,h3,h4,h5
With AxG2antt1
	.BeginUpdate()
	.AntiAliasing = True
	.Columns.Add("Task").AllowSort = False
	With .Columns.Add("Name")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 0
		.SortType = EXG2ANTTLib.SortTypeEnum.SortString
		.Visible = False
	End With
	With .Chart
		.FirstVisibleDate = #12/31/2000#
		.PaneWidth(False) = 48
		.LevelCount = 2
		.Bars.Item("Task").Pattern = EXG2ANTTLib.PatternEnum.exPatternSolid
		.Bars.Copy("Task","Red").Color = RGB(255,0,0)
		.NonworkingDaysPattern = EXG2ANTTLib.PatternEnum.exPatternBDiagonal
		.NonworkingDaysColor = RGB(224,224,224)
		.LinksStyle = EXG2ANTTLib.LinkStyleEnum.exLinkSolid
	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 = EXG2ANTTLib.ShowExtendedLinksEnum.exShowExtendedLinks
	.Columns.Item("Name").SortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Images("gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmD" & _
"cD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB")
	With .Columns.Add("ToLeft")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
	End With
	With .Columns.Add("ToRight")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.Def(EXG2ANTTLib.DefColumnEnum.exCellDrawPartsOrder) = "caption,picture,icons,icon,check"
	End With
	.DefaultItemHeight = 32
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exVLines
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	With .Items
		h = .AddItem("Caption")
		.CellImage(h,0) = 2
		.CellImages(h,0) = "1,2"
		.CellPicture(h,0) = AxG2antt1.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) = EXG2ANTTLib.AlignmentEnum.RightAlignment
		.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) = EXG2ANTTLib.ValueFormatEnum.exHTML
		.CellImage(h,0) = 2
		.CellImages(h,0) = "1,2"
		.CellPicture(h,0) = AxG2antt1.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) = EXG2ANTTLib.ValueFormatEnum.exHTML
		.CellHAlignment(h,1) = EXG2ANTTLib.AlignmentEnum.RightAlignment
		.CellImage(h,1) = .CellImage(h,0)
		.CellImages(h,1) = "2,1"
		.CellPicture(h,1) = .CellPicture(h,0)
	End With
	.EndUpdate()
End With

' AddColumn event - Fired after a new column has been added.
Private Sub AxG2antt1_AddColumn(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddColumnEvent) Handles AxG2antt1.AddColumn
	' Column.Def(48) = 2
	' Column.Def(49) = 2
End Sub

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#1/2/2022#,#1/8/2022#,Nothing,"<img>1</img>")
	End With
End Sub

Dim h,hR
With AxG2antt1
	.BeginUpdate()
	.ImageSize = 32
	.DefaultItemHeight = 36
	.HeaderHeight = .DefaultItemHeight
	.SortBarHeight = .DefaultItemHeight
	.Font.Size = 16
	.FilterBarFont.Size = AxG2antt1.Font.Size
	.ToolTipFont.Size = AxG2antt1.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
	.GetOcx().BackColorHeader = &H4c6c6c6
	.GetOcx().SelBackColor = &H4000000
	.SelForeColor = RGB(0,0,1)
	.set_CheckImage(EXG2ANTTLib.CheckStateEnum.Unchecked,16777216)
	.set_CheckImage(EXG2ANTTLib.CheckStateEnum.Checked,33554432)
	.set_CheckImage(EXG2ANTTLib.CheckStateEnum.PartialChecked,50331648)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exSelBackColorFilter,.SelBackColor)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exSelForeColorFilter,.SelForeColor)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exBackColorFilter,.BackColor)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exForeColorFilter,.ForeColor)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,67108864)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHeaderFilterBarActive,67174657)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exFooterFilterBarButton,67109119)
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	.ShowFocusRect = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.BackColorSortBar = .BackColor
	.BackColorLevelHeader = .BackColor
	.FilterBarDropDownHeight = 1
	With .Columns.Add("Check")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
		.Width = 128
		.DisplayFilterButton = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.FormatColumn = "1 pos ``"
		.AllowSort = False
		.Width = 48
		.AllowSizing = False
		.Alignment = EXG2ANTTLib.AlignmentEnum.CenterAlignment
		.HeaderAlignment = EXG2ANTTLib.AlignmentEnum.CenterAlignment
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exSortItemsAsc
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exImage
		.DisplayExpandButton = True
		.ExpandColumns = "1,2,3"
		.Width = 128
		.HeaderImage = 1
	End With
	With .Columns.Add("Images")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = 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) = EXG2ANTTLib.DividerLineEnum.EmptyLine
		h = .InsertItem(hR,Nothing,"Child A")
		.CellImage(h,2) = 1
		.CellImages(h,3) = "1,2,3"
		.CellValue(h,3) = "123"
		h = .InsertItem(hR,Nothing,"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,Nothing,"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

' AddColumn event - Fired after a new column has been added.
Private Sub AxG2antt1_AddColumn(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddColumnEvent) Handles AxG2antt1.AddColumn
	' Column.Def(48) = 2
	' Column.Def(49) = 2
End Sub

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.AddBar(e.item,"Task",#1/2/2022#,#1/8/2022#,Nothing,"<img>1</img>")
	End With
End Sub

Dim h,hR
With AxG2antt1
	.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
	.GetOcx().BackColorHeader = &H4c6c6c6
	.GetOcx().SelBackColor = &H4000000
	.SelForeColor = RGB(0,0,1)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exSelBackColorFilter,.SelBackColor)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exSelForeColorFilter,.SelForeColor)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exBackColorFilter,.BackColor)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exForeColorFilter,.ForeColor)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,67108864)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHeaderFilterBarActive,67174657)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exFooterFilterBarButton,67109119)
	.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.Etched
	.ShowFocusRect = False
	.SortBarVisible = True
	.AllowGroupBy = True
	.BackColorSortBar = .BackColor
	.BackColorLevelHeader = .BackColor
	.FilterBarDropDownHeight = 1
	With .Columns.Add("Check")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
		.Width = 128
		.DisplayFilterButton = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.FormatColumn = "1 pos ``"
		.AllowSort = False
		.Width = 48
		.AllowSizing = False
		.Alignment = EXG2ANTTLib.AlignmentEnum.CenterAlignment
		.HeaderAlignment = EXG2ANTTLib.AlignmentEnum.CenterAlignment
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exSortItemsAsc
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exImage
		.DisplayExpandButton = True
		.ExpandColumns = "1,2,3"
		.Width = 128
		.HeaderImage = 1
	End With
	With .Columns.Add("Images")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = 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) = EXG2ANTTLib.DividerLineEnum.EmptyLine
		h = .InsertItem(hR,Nothing,"Child A")
		.CellImage(h,2) = 1
		.CellImages(h,3) = "1,2,3"
		.CellValue(h,3) = "123"
		h = .InsertItem(hR,Nothing,"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,Nothing,"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

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Clip")
	.ScrollBySingleLine = True
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	With .Chart
		.AllowResizeChart = EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartMiddle Or EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartHeader
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
		.FirstVisibleDate = #12/23/2000#
		.LevelCount = 2
		.PaneWidth(False) = 216
		With .Bars.Item("Task")
			.Pattern = EXG2ANTTLib.PatternEnum.exPatternBox
			.Color = RGB(164,164,164)
			.StartColor = RGB(240,240,240)
			.EndColor = .StartColor
			.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsIncludeCaption Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
			.Height = 15
		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",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption) = "no clip, right(<b>2</b>)"
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign) = 2
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K2")
		.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption) = "no clip, center(<b>1</b>)"
		.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign) = 1
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K3")
		.ItemBar(h,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption) = "no clip, left(<b>0</b>)"
		.ItemBar(h,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign) = 0
		h = .AddItem("clip, inside (3-5)")
		.AddBar(h,"Task",#12/28/2000#,#1/8/2001#,"K1")
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption) = "clip, inside, right(<b>5</b>)"
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign) = 5
		.AddBar(h,"Task",#12/28/2000#,#1/8/2001#,"K2")
		.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption) = "clip, inside, center(<b>4</b>)"
		.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign) = 4
		.AddBar(h,"Task",#12/28/2000#,#1/8/2001#,"K3")
		.ItemBar(h,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption) = "clip, inside, left(<b>3</b>)"
		.ItemBar(h,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign) = 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",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption) = "hide on min width, clip if not fit, inside, right(<b>8</b>)"
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign) = 8
		.AddBar(h,"Task",#12/26/2000#,#1/10/2001#,"K2")
		.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption) = "hide on min width, clip if not fit, inside, center(<b>7</b>)"
		.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign) = 7
		.AddBar(h,"Task",#12/26/2000#,#1/10/2001#,"K3")
		.ItemBar(h,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption) = "hide on min width, clip if not fit, inside, left(<b>6</b>)"
		.ItemBar(h,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign) = 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",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption) = "hide if not fit, no clip, inside, right(<b>11</b>)"
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign) = 11
		.AddBar(h,"Task",#12/28/2000#,#1/8/2001#,"K2")
		.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption) = "hide if not fit, no clip, center(<b>10</b>)"
		.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign) = 10
		.AddBar(h,"Task",#12/28/2000#,#1/8/2001#,"K3")
		.ItemBar(h,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption) = "hide if not fit, no clip, inside, left(<b>9</b>)"
		.ItemBar(h,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign) = 9
		h = .AddItem("no clip, inside, outside (12-14)")
		.AddBar(h,"Task",#12/28/2000#,#1/8/2001#,"K1")
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption) = "no clip, inside, outside, right(<b>14</b>)"
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign) = 14
		.AddBar(h,"Task",#12/28/2000#,#1/8/2001#,"K2")
		.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption) = "no clip, inside, outside, center(<b>13</b>)"
		.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign) = 13
		.AddBar(h,"Task",#12/28/2000#,#1/8/2001#,"K3")
		.ItemBar(h,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption) = "no clip, inside, outside, left(<b>12</b>)"
		.ItemBar(h,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign) = 12
		h = .AddItem("no clip, outside (16-18)")
		.AddBar(h,"Task",#12/30/2000#,#1/6/2001#,"K1")
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption) = "no clip, outside, right(<b>18</b>)"
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign) = 18
		.AddBar(h,"Task",#12/30/2000#,#1/6/2001#,"K2")
		.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption) = "no clip, outside, center(<b>17</b>)"
		.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign) = 17
		.AddBar(h,"Task",#12/30/2000#,#1/6/2001#,"K3")
		.ItemBar(h,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption) = "no clip, outside, left(<b>16</b>)"
		.ItemBar(h,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign) = 16
	End With
	.EndUpdate()
End With