' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgantt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exgantt1.AddItem
	With Exgantt1
		.Items.set_ItemMinHeight(Item,18)
		.Items.set_ItemMaxHeight(Item,72)
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	.ItemsAllowSizing = exontrol.EXGANTTLib.ItemsAllowSizingEnum.exResizeItem
	.ScrollBySingleLine = False
	.BackColorAlternate = Color.FromArgb(240,240,240)
	.Columns.Add("Names")
	With .Items
		.AddItem("Mantel")
		.AddItem("Mechanik")
		.AddItem("Motor")
		.AddItem("Murks")
		.AddItem("Märchen")
		.AddItem("Möhren")
		.AddItem("Mühle")
	End With
	.Columns.Item(0).SortOrder = exontrol.EXGANTTLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With

Dim h
With Exgantt1
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Def")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
	End With
	.PutItems(.GetItems(1))
End With

With Exgantt1
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.ToolTipDelay = 1
	.Columns.Add("tootip").ToolTip = "<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The toolt" & _
"ip supports built-in HTML tags, icons and pictures.<br><br><br><img>pic1</img> picture ... <br><" & _
"br>"
End With

Dim h1,h2
With Exgantt1
	.Columns.Add("Task")
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/26/2000#
		.set_PaneWidth(False,32)
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"",#1/1/2001#,#1/5/2001#,"K1","some <fgcolor=FF0000>red</fgcolor> text")
		.set_ItemBar(h1,"K1",exontrol.EXGANTTLib.ItemBarPropertyEnum.exBarPercent,False)
		.set_ItemBar(h1,"K1",exontrol.EXGANTTLib.ItemBarPropertyEnum.exBarToolTip,"And here goes the <b>tooltip</b> of the text. ")
		.AddItem("")
		.AddItem("")
		.AddItem("")
		.AddItem("")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/5/2001#,#1/7/2001#,"K2")
		.set_ItemBar(h2,"K2",exontrol.EXGANTTLib.ItemBarPropertyEnum.exBarToolTip,"And here goes the <b>tooltip</b> of the bar. ")
		.AddLink("L1",h1,"K1",h2,"K2")
		.set_Link("L1",exontrol.EXGANTTLib.LinkPropertyEnum.exLinkText,"L<b>inke</b>d to a bar")
		.set_Link("L1",exontrol.EXGANTTLib.LinkPropertyEnum.exLinkToolTip,"And here goes the <b>tooltip</b> of the link. ")
	End With
End With

With Exgantt1
	.BeginUpdate()
	With .Chart
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exMonth,"<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yy" & _
"yy%>")
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exWeek,"<|><%ww%><|><%loc_m3%> <%d%>, '<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>2" & _
"56")
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exDay,"<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%><" & _
"|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%><||><||>4096")
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exHour,"<|><%hh%><|><%h%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%loc_ddd" & _
"d%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536")
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exMinute,"<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM" & _
"%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>")
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exSecond,"<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy" & _
"%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%" & _
"> <%AM/PM%>")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exMonth,"<%loc_mmmm%>/<%yyyy%>")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exWeek,"<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exDay,"<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exHour,"<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exMinute,"<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exSecond,"<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>")
	End With
	With .Chart
		.set_PaneWidth(False,0)
		.FirstVisibleDate = #1/1/2001#
		.LevelCount = 4
		.get_Level(0).Label = 4096
		.get_Level(1).Label = 65536
		.get_Level(2).Label = 1048576
		With .get_Level(3)
			.Count = 15
			.Label = 16777216
		End With
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	With .Chart
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exMonth,"<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yy" & _
"yy%>")
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exWeek,"<|><%ww%><|><%loc_m3%> <%d%>, '<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>2" & _
"56")
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exDay,"<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%><" & _
"|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%><||><||>4096")
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exHour,"<|><%hh%><|><%h%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%loc_ddd" & _
"d%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536")
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exMinute,"<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM" & _
"%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>")
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exSecond,"<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy" & _
"%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%" & _
"> <%AM/PM%>")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exMonth,"<%loc_mmmm%>/<%yyyy%>")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exWeek,"<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exDay,"<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exHour,"<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exMinute,"<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exSecond,"<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>")
	End With
	With .Chart
		.set_PaneWidth(False,0)
		.FirstVisibleDate = #1/1/2001#
		.LevelCount = 2
		.UnitScale = exontrol.EXGANTTLib.UnitEnum.exDay
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	With .Chart
		.set_PaneWidth(False,0)
		.FirstVisibleDate = #1/1/2001#
		.LevelCount = 4
		.get_Level(0).Label = 4096
		.get_Level(1).Label = 65536
		.get_Level(2).Label = 1048576
		With .get_Level(3)
			.Count = 15
			.Label = 16777216
		End With
	End With
	.EndUpdate()
End With

With Exgantt1
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BI0IQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDKKUEwsACEIrjKCYVgOHYYRrIMYgBCMJhLEoaZL" & _
"hEZRQiqDYtRDFQBSDDcPw/EaRZohGaYJgEgI=")
	.set_Background32(exontrol.EXGANTTLib.BackgroundPartEnum.exCursorHoverColumn,16777216)
	.Columns.Add("S").Width = 32
	.Columns.Add("Level 1").LevelKey = 1
	.Columns.Add("Level 2").LevelKey = 1
	.Columns.Add("Level 3").LevelKey = 1
	.Columns.Add("E1").Width = 32
	.Columns.Add("E2").Width = 32
	.Columns.Add("E3").Width = 32
	.Columns.Add("E4").Width = 32
End With

With Exgantt1
	.set_HTMLPicture("pic1","c:\exontrol\images\card.png")
	.HeaderHeight = 48
	.Columns.Add("ColumnName").HTMLCaption = "<b>HTML</b> Column <img>pic1</img> Picture"
End With

Dim h,hC
With Exgantt1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		hC = .InsertItem(h,0,"Child 1")
		Exgantt1.Chart.set_ItemBackColor(hC,Color.FromArgb(255,0,0))
		.InsertItem(h,0,"Child 2")
		.set_ExpandItem(h,True)
	End With
End With

Dim h,hC
With Exgantt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.VisualAppearance.Add(3,"CP:2 2 2 -2 -2")
	.Columns.Add("Default")
	.SelBackMode = exontrol.EXGANTTLib.BackModeEnum.exTransparent
	With .Items
		h = .AddItem("Root")
		hC = .InsertItem(h,0,"Child 1")
		.set_ItemBackColor32(hC,33554176)
		Exgantt1.Chart.set_ItemBackColor32(hC,50396928)
		.InsertItem(h,0,"Child 2")
		.set_ExpandItem(h,True)
	End With
End With

Dim h,hC
With Exgantt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		hC = .InsertItem(h,0,"Child 1")
		.set_ItemBackColor32(hC,16777216)
		Exgantt1.Chart.set_ItemBackColor32(hC,16777216)
		.InsertItem(h,0,"Child 2")
		.set_ExpandItem(h,True)
	End With
End With

Dim h,hC
With Exgantt1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		hC = .InsertItem(h,0,"Child 1")
		.set_ItemBackColor(hC,Color.FromArgb(255,0,0))
		Exgantt1.Chart.set_ItemBackColor(hC,Color.FromArgb(255,255,0))
		.InsertItem(h,0,"Child 2")
		.set_ExpandItem(h,True)
	End With
End With

Dim h,hC
With Exgantt1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		hC = .InsertItem(h,0,"Child 1")
		.set_ItemBackColor(hC,Color.FromArgb(255,0,0))
		Exgantt1.Chart.set_ItemBackColor(hC,Color.FromArgb(255,0,0))
		.InsertItem(h,0,"Child 2")
		.set_ExpandItem(h,True)
	End With
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exgantt1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exgantt1.MouseMoveEvent
	With Exgantt1
		.ShowToolTip(.Chart.get_BarFromPoint(-1,-1),"","8","8")
	End With
End Sub

Dim h
With Exgantt1
	.BeginUpdate()
	.Columns.Add("Def")
	With .Chart
		.set_PaneWidth(False,64)
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2010#
	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")
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Items
		.AddItem("A")
		.AddItem("B")
		.InsertItem(.AddItem("C"),"","D")
		.SetParent(.get_FindItem("D",0),.get_FindItem("A",0))
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Items
		.AddItem("A")
		.AddItem("B")
		.InsertItem(.AddItem("C"),"","D")
		.SetParent(.get_FindItem("D",0),0)
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.Font.Name = "Arial Unicode MS"
	.HeaderHeight = 36
	With .Chart
		.FirstVisibleDate = #5/30/2010#
		.set_PaneWidth(False,0)
		.FirstWeekDay = exontrol.EXGANTTLib.WeekDayEnum.exMonday
		.UnitWidth = 36
		.LevelCount = 2
		With .get_Level(0)
			.Label = "<b><%loc_mmmm%></b> <%yyyy%><br><%loc_sdate%><r> <%ww%> "
			.ToolTip = .Label
			.Unit = exontrol.EXGANTTLib.UnitEnum.exWeek
		End With
		With .get_Level(1)
			.Label = "<%loc_ddd%><br><%d%>"
			.ToolTip = .Label
		End With
		.ToolTip = "<%loc_ldate%>"
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.BeginUpdate()
	With .Chart
		.FirstVisibleDate = #12/31/2009#
		.LevelCount = 2
		.set_PaneWidth(False,96)
		With .Bars.Item("Task")
			.StartColor = Color.FromArgb(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 Gradient")
		.AddBar(h,"Task",#1/4/2010#,#1/9/2010#,"")
		.set_ItemBar(h,"",exontrol.EXGANTTLib.ItemBarPropertyEnum.exBarPattern,8291)
		.AddBar(.AddItem("Original"),"Task",#1/4/2010#,#1/9/2010#,"")
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.BeginUpdate()
	With .Chart
		.FirstVisibleDate = #12/31/2009#
		.LevelCount = 2
		.set_PaneWidth(False,96)
		With .Bars.Item("Task")
			.StartColor = Color.FromArgb(255,255,255)
			.EndColor = .StartColor
			.Height = 17
		End With
	End With
	.Columns.Add("Types")
	With .Items
		.AddBar(.AddItem("Original"),"Task",#1/4/2010#,#1/9/2010#,"")
		h = .AddItem("W/h Gradient")
		.AddBar(h,"Task",#1/4/2010#,#1/9/2010#,"")
		.set_ItemBar(h,"",exontrol.EXGANTTLib.ItemBarPropertyEnum.exBarPattern,227)
		h = .AddItem("W/h Color")
		.AddBar(h,"Task",#1/4/2010#,#1/9/2010#,"")
		.set_ItemBar(h,"",exontrol.EXGANTTLib.ItemBarPropertyEnum.exBarPattern,227)
		.set_ItemBar(h,"",exontrol.EXGANTTLib.ItemBarPropertyEnum.exBarColor,255)
		.AddBar(.AddItem("Original"),"Task",#1/4/2010#,#1/9/2010#,"")
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.BeginUpdate()
	With .Chart
		.FirstVisibleDate = #12/31/2009#
		.LevelCount = 2
		.set_PaneWidth(False,96)
		With .Bars.Item("Task")
			.StartColor = Color.FromArgb(255,255,255)
			.EndColor = .StartColor
			.Height = 17
		End With
	End With
	.Columns.Add("Types")
	With .Items
		.AddBar(.AddItem("Original"),"Task",#1/4/2010#,#1/9/2010#,"")
		h = .AddItem("W/h Gradient")
		.AddBar(h,"Task",#1/4/2010#,#1/9/2010#,"")
		.set_ItemBar(h,"",exontrol.EXGANTTLib.ItemBarPropertyEnum.exBarPattern,227)
		.AddBar(.AddItem("Original"),"Task",#1/4/2010#,#1/9/2010#,"")
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.BeginUpdate()
	With .Chart
		.FirstVisibleDate = #12/31/2009#
		.LevelCount = 2
		.set_PaneWidth(False,96)
		With .Bars.Item("Task")
			.StartColor = Color.FromArgb(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 Gradient")
		.AddBar(h,"Task",#1/4/2010#,#1/9/2010#,"")
		.set_ItemBar(h,"",exontrol.EXGANTTLib.ItemBarPropertyEnum.exBarPattern,99)
		.AddBar(.AddItem("Original"),"Task",#1/4/2010#,#1/9/2010#,"")
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.BeginUpdate()
	With .Chart
		.FirstVisibleDate = #12/31/2009#
		.LevelCount = 2
		.set_PaneWidth(False,96)
	End With
	.Columns.Add("Types")
	With .Items
		.AddBar(.AddItem("Original"),"Task",#1/4/2010#,#1/9/2010#,"")
		h = .AddItem("W/h Border")
		.AddBar(h,"Task",#1/4/2010#,#1/9/2010#,"")
		.set_ItemBar(h,"",exontrol.EXGANTTLib.ItemBarPropertyEnum.exBarPattern,4099)
		.AddBar(.AddItem("Original"),"Task",#1/4/2010#,#1/9/2010#,"")
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.BeginUpdate()
	With .Chart
		.FirstVisibleDate = #12/31/2009#
		.LevelCount = 2
		.set_PaneWidth(False,96)
	End With
	.Columns.Add("Types")
	With .Items
		.AddBar(.AddItem("Original"),"Task",#1/4/2010#,#1/9/2010#,"")
		h = .AddItem("W/h Shadow")
		.AddBar(h,"Task",#1/4/2010#,#1/9/2010#,"")
		.set_ItemBar(h,"",exontrol.EXGANTTLib.ItemBarPropertyEnum.exBarPattern,8195)
		.AddBar(.AddItem("Original"),"Task",#1/4/2010#,#1/9/2010#,"")
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	With .Chart
		.FirstVisibleDate = #12/31/2009#
		.LevelCount = 2
		.set_PaneWidth(False,96)
		.Bars.Copy("Task","TaskO")
		With .Bars.Item("Task")
			.Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternSolid Or exontrol.EXGANTTLib.PatternEnum.exPatternDot Or exontrol.EXGANTTLib.PatternEnum.exPatternBox Or exontrol.EXGANTTLib.PatternEnum.exPatternGradientVBox
			.StartColor = Color.FromArgb(255,255,255)
			.EndColor = .Color
		End With
	End With
	.Columns.Add("Types")
	With .Items
		.AddBar(.AddItem("Original"),"TaskO",#1/4/2010#,#1/9/2010#,"")
		.AddBar(.AddItem("Pattern Gradient"),"Task",#1/4/2010#,#1/9/2010#,"")
		.AddBar(.AddItem("Original"),"TaskO",#1/4/2010#,#1/9/2010#,"")
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	With .Chart
		.FirstVisibleDate = #12/31/2009#
		.LevelCount = 2
		.set_PaneWidth(False,96)
		With .Bars
			.Add("Box").Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternBox
			.Add("ThickBox").Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternBox Or exontrol.EXGANTTLib.PatternEnum.exPatternThickBox
			.Add("DiagBox").Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternDot Or exontrol.EXGANTTLib.PatternEnum.exPatternNDot Or exontrol.EXGANTTLib.PatternEnum.exPatternThickBox
			.Copy("Task","Shadow").Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternSolid Or exontrol.EXGANTTLib.PatternEnum.exPatternDot Or exontrol.EXGANTTLib.PatternEnum.exPatternFrameShadow
			.Copy("Task","TShadow").Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternSolid Or exontrol.EXGANTTLib.PatternEnum.exPatternDot Or exontrol.EXGANTTLib.PatternEnum.exPatternNDot Or exontrol.EXGANTTLib.PatternEnum.exPatternThickBox Or exontrol.EXGANTTLib.PatternEnum.exPatternFrameShadow
			With .Add("HGrad1")
				.Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternBox
				.StartColor = Color.FromArgb(255,255,255)
				.EndColor = Color.FromArgb(0,0,255)
			End With
			With .Add("HGrad2")
				.Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternSolid Or exontrol.EXGANTTLib.PatternEnum.exPatternDot Or exontrol.EXGANTTLib.PatternEnum.exPatternBox
				.StartColor = Color.FromArgb(255,255,255)
				.EndColor = Color.FromArgb(0,0,255)
				.Color = Color.FromArgb(0,0,255)
			End With
			With .Add("HGrad3")
				.Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternSolid Or exontrol.EXGANTTLib.PatternEnum.exPatternDot Or exontrol.EXGANTTLib.PatternEnum.exPatternBox Or exontrol.EXGANTTLib.PatternEnum.exPatternGradient3Colors
				.StartColor = Color.FromArgb(255,255,255)
				.EndColor = .StartColor
				.Color = Color.FromArgb(0,0,255)
			End With
			With .Add("HGrad4")
				.Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternBox Or exontrol.EXGANTTLib.PatternEnum.exPatternGradient3Colors Or exontrol.EXGANTTLib.PatternEnum.exPatternThickBox
				.StartColor = Color.FromArgb(255,255,255)
				.EndColor = .StartColor
				.Color = Color.FromArgb(0,0,255)
			End With
			With .Add("HGrad5")
				.Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternBox Or exontrol.EXGANTTLib.PatternEnum.exPatternGradient3Colors Or exontrol.EXGANTTLib.PatternEnum.exPatternFrameShadow
				.StartColor = Color.FromArgb(0,255,0)
				.EndColor = Color.FromArgb(255,0,0)
				.Color = Color.FromArgb(0,0,255)
			End With
			With .Add("VGrad1")
				.Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternBox Or exontrol.EXGANTTLib.PatternEnum.exPatternGradientVBox
				.StartColor = Color.FromArgb(255,255,255)
				.EndColor = Color.FromArgb(0,0,255)
				.Height = 14
			End With
			With .Add("VGrad2")
				.Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternSolid Or exontrol.EXGANTTLib.PatternEnum.exPatternDot Or exontrol.EXGANTTLib.PatternEnum.exPatternBox Or exontrol.EXGANTTLib.PatternEnum.exPatternGradientVBox
				.StartColor = Color.FromArgb(255,255,255)
				.EndColor = Color.FromArgb(0,0,255)
				.Color = Color.FromArgb(0,0,255)
				.Height = 14
			End With
			With .Add("VGrad3")
				.Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternSolid Or exontrol.EXGANTTLib.PatternEnum.exPatternDot Or exontrol.EXGANTTLib.PatternEnum.exPatternBox Or exontrol.EXGANTTLib.PatternEnum.exPatternGradientVBox Or exontrol.EXGANTTLib.PatternEnum.exPatternGradient3Colors
				.StartColor = Color.FromArgb(255,255,255)
				.EndColor = .StartColor
				.Color = Color.FromArgb(0,0,255)
				.Height = 14
			End With
			With .Add("VGrad4")
				.Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternBox Or exontrol.EXGANTTLib.PatternEnum.exPatternGradientVBox Or exontrol.EXGANTTLib.PatternEnum.exPatternGradient3Colors Or exontrol.EXGANTTLib.PatternEnum.exPatternThickBox
				.StartColor = Color.FromArgb(255,255,255)
				.EndColor = .StartColor
				.Color = Color.FromArgb(0,0,255)
				.Height = -1
			End With
			With .Add("VGrad5")
				.Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternBox Or exontrol.EXGANTTLib.PatternEnum.exPatternGradientVBox Or exontrol.EXGANTTLib.PatternEnum.exPatternGradient3Colors Or exontrol.EXGANTTLib.PatternEnum.exPatternFrameShadow
				.StartColor = Color.FromArgb(0,255,0)
				.EndColor = Color.FromArgb(255,0,0)
				.Color = Color.FromArgb(0,0,255)
				.Height = 14
			End With
		End With
	End With
	.Columns.Add("Types")
	With .Items
		.AddBar(.AddItem("Box"),"Box",#1/4/2010#,#1/9/2010#,"")
		.AddBar(.AddItem("Thick Box"),"ThickBox",#1/4/2010#,#1/9/2010#,"")
		.AddBar(.AddItem("Thick Box Diag"),"DiagBox",#1/4/2010#,#1/9/2010#,"")
		.AddBar(.AddItem("Shadow"),"Shadow",#1/4/2010#,#1/9/2010#,"")
		.AddBar(.AddItem("Thick Shadow"),"TShadow",#1/4/2010#,#1/9/2010#,"")
		.AddBar(.AddItem("Solid Gradient"),"HGrad1",#1/4/2010#,#1/9/2010#,"")
		.AddBar(.AddItem("Pattern Gradient"),"HGrad2",#1/4/2010#,#1/9/2010#,"")
		.AddBar(.AddItem("Pattern Gradient 3 Colors"),"HGrad3",#1/4/2010#,#1/9/2010#,"")
		.AddBar(.AddItem("Solid Gradient 3 Colors"),"HGrad4",#1/4/2010#,#1/9/2010#,"")
		.AddBar(.AddItem("Gradient Shadow"),"HGrad5",#1/4/2010#,#1/9/2010#,"")
		.AddBar(.AddItem("Solid Gradient"),"VGrad1",#1/4/2010#,#1/9/2010#,"")
		.AddBar(.AddItem("Pattern Gradient"),"VGrad2",#1/4/2010#,#1/9/2010#,"")
		.AddBar(.AddItem("Pattern Gradient 3 Colors"),"VGrad3",#1/4/2010#,#1/9/2010#,"")
		.AddBar(.AddItem("Solid Gradient 3 Colors"),"VGrad4",#1/4/2010#,#1/9/2010#,"")
		.AddBar(.AddItem("Gradient Shadow"),"VGrad5",#1/4/2010#,#1/9/2010#,"")
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = #1/1/2001#
	.Chart.set_PaneWidth(False,48)
	.Chart.Bars.Copy("Task","TaskB").Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternSolid Or exontrol.EXGANTTLib.PatternEnum.exPatternDot Or exontrol.EXGANTTLib.PatternEnum.exPatternThickBox
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/5/2001#,"")
		.AddBar(.AddItem("Task 2"),"TaskB",#1/2/2001#,#1/5/2001#,"")
		.AddBar(.AddItem("Task 3"),"Task",#1/2/2001#,#1/5/2001#,"")
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = #1/1/2001#
	.Chart.set_PaneWidth(False,48)
	With .Chart.Bars.Copy("Task","EBN")
		.Color32 = &H1000000
		.Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternFrameShadow
	End With
	.Chart.Bars.Copy("Task","EBN2").Color32 = &H1000000
	With .Items
		.AddBar(.AddItem("Task 1"),"EBN2",#1/2/2001#,#1/5/2001#,"")
		.AddBar(.AddItem("Task 2"),"EBN",#1/2/2001#,#1/5/2001#,"")
		.AddBar(.AddItem("Task 3"),"EBN2",#1/2/2001#,#1/5/2001#,"")
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = #1/1/2001#
	.Chart.set_PaneWidth(False,48)
	.Chart.Bars.Item("Task").Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternSolid Or exontrol.EXGANTTLib.PatternEnum.exPatternDot Or exontrol.EXGANTTLib.PatternEnum.exPatternFrameShadow
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/5/2001#,"")
		.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/5/2001#,"")
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = #1/1/2001#
	.Chart.set_PaneWidth(False,48)
	With .Chart.Bars.Add("V")
		.Color = Color.FromArgb(255,0,0)
		.StartColor = Color.FromArgb(0,255,0)
		.EndColor = .StartColor
		.Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternBox Or exontrol.EXGANTTLib.PatternEnum.exPatternGradientVBox Or exontrol.EXGANTTLib.PatternEnum.exPatternGradient3Colors
		.Height = -1
	End With
	With .Chart.Bars.Add("H")
		.Color = Color.FromArgb(255,0,0)
		.StartColor = Color.FromArgb(0,255,0)
		.EndColor = .StartColor
		.Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternBox Or exontrol.EXGANTTLib.PatternEnum.exPatternGradient3Colors
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"V",#1/2/2001#,#1/5/2001#,"")
		.AddBar(.AddItem("Task 2"),"H",#1/2/2001#,#1/5/2001#,"")
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = #1/1/2001#
	With .Chart.Bars.Item("Task")
		.Color = Color.FromArgb(255,0,0)
		.StartColor = Color.FromArgb(0,255,0)
		.EndColor = Color.FromArgb(255,255,0)
		.Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternBox Or exontrol.EXGANTTLib.PatternEnum.exPatternGradientVBox
	End With
	With .Items
		h = .AddItem("Task")
		.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"")
	End With
End With

With Exgantt1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Chart.FirstVisibleDate = #1/1/2001#
	With .Chart.Bars
		.AddShapeCorner(12345,1)
		.AddShapeCorner(12346,2)
		.Copy("Milestone","M1").StartShape = &H3020 Or exontrol.EXGANTTLib.ShapeCornerEnum.exShapeIconUp1 Or exontrol.EXGANTTLib.ShapeCornerEnum.exShapeIconRight Or exontrol.EXGANTTLib.ShapeCornerEnum.exShapeIconDown4
		.Copy("Milestone","M2").StartShape = &H3020 Or exontrol.EXGANTTLib.ShapeCornerEnum.exShapeIconDown1 Or exontrol.EXGANTTLib.ShapeCornerEnum.exShapeIconRight Or exontrol.EXGANTTLib.ShapeCornerEnum.exShapeIconDown4
		With .Copy("Milestone","MP")
			.StartShape = exontrol.EXGANTTLib.ShapeCornerEnum.exShapeIconStar
			.StartColor = Color.FromArgb(255,0,0)
		End With
	End With
	.Columns.Add("Column")
	With .Items
		.AddBar(.AddItem("Default"),"Milestone",#1/2/2001#,#1/2/2001#)
		.AddBar(.AddItem("Predefined"),"MP",#1/3/2001#,#1/3/2001#)
		.AddBar(.AddItem("Custom 1"),"M1",#1/4/2001#,#1/4/2001#)
		.AddBar(.AddItem("Custom 2"),"M2",#1/5/2001#,#1/5/2001#)
	End With
	.EndUpdate()
End With

With Exgantt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Chart.FirstVisibleDate = #1/1/2001#
	With .Chart.Bars
		.AddShapeCorner(12345,1)
		.Item("Milestone").StartShape = &H3020 Or exontrol.EXGANTTLib.ShapeCornerEnum.exShapeIconUp1 Or exontrol.EXGANTTLib.ShapeCornerEnum.exShapeIconRight Or exontrol.EXGANTTLib.ShapeCornerEnum.exShapeIconDown4
	End With
	.Columns.Add("Column")
	With .Items
		.AddBar(.AddItem("Item 1"),"Milestone",#1/2/2001#,#1/2/2001#)
	End With
End With

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.set_PaneWidth(False,0)
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exWeek,"<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256")
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exDay,"<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> " & _
"<%yyyy%><||><||>4096")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exWeek,"<%d%> <%mmmm%> <%yyyy%> <%ww%>")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exDay,"<%dddd%> <%d%> <%mmmm%> <%yyyy%>")
		.FirstWeekDay = exontrol.EXGANTTLib.WeekDayEnum.exMonday
		.MonthNames = "gennaio febbraio marzo aprile maggio giugno luglio agosto settembre ottobre novembre dicembre"
		.WeekDays = "domenica lunedì martedì mercoledì giovedì venerdì sabato"
		.ToolTip = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
		.UnitScale = exontrol.EXGANTTLib.UnitEnum.exDay
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.set_PaneWidth(False,0)
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exWeek,"<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256")
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exDay,"<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> " & _
"<%yyyy%><||><||>4096")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exWeek,"<%d%> <%mmmm%> <%yyyy%> <%ww%>")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exDay,"<%dddd%> <%d%> <%mmmm%> <%yyyy%>")
		.FirstWeekDay = exontrol.EXGANTTLib.WeekDayEnum.exMonday
		.MonthNames = "januari februari maart april mei juni juli augusts september oktober november december"
		.WeekDays = "zondag maandag dinsdag woensdag donderdag vrijdag zaterdag"
		.ToolTip = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
		.UnitScale = exontrol.EXGANTTLib.UnitEnum.exDay
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.set_PaneWidth(False,0)
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exWeek,"<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%>.<%mmmm%> <%yyyy%><r><%ww%><||><||>256")
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exDay,"<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%>.<%m3%> '<%yy%><|><%dddd%> <%d%>.<%mmmm%> " & _
"<%yyyy%><||><||>4096")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exWeek,"<%d%>.<%mmmm%> <%yyyy%> <%ww%>")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exDay,"<%dddd%>, <%d%>.<%mmmm%> <%yyyy%>")
		.FirstWeekDay = exontrol.EXGANTTLib.WeekDayEnum.exMonday
		.MonthNames = "Januar Februar März April Mai Juni Juli August September Oktober November Dezember"
		.WeekDays = "Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag"
		.ToolTip = "<%dddd%>,<%d%>.<%mmmm%> <%yyyy%>"
		.UnitScale = exontrol.EXGANTTLib.UnitEnum.exDay
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.set_PaneWidth(False,0)
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exWeek,"<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256")
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exDay,"<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> " & _
"<%yyyy%><||><||>4096")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exWeek,"<%d%> <%mmmm%> <%yyyy%> <%ww%>")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exDay,"<%dddd%> <%d%> <%mmmm%> <%yyyy%>")
		.FirstWeekDay = exontrol.EXGANTTLib.WeekDayEnum.exMonday
		.MonthNames = "janvier février mars avril mai juin juillet août septembre octobre novembre décembre"
		.WeekDays = "dimanche lundi mardi mercredi jeudi vendredi samedi"
		.ToolTip = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
		.UnitScale = exontrol.EXGANTTLib.UnitEnum.exDay
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.Chart.set_PaneWidth(True,0)
	With .Columns
		.Add("Car")
		.Add("Equipment")
	End With
	With .Items
		.set_CellCaption(.AddItem("Mazda"),1,"Air Bag")
		.set_CellCaption(.AddItem("Toyota"),1,"Air Bag,Air condition")
		.set_CellCaption(.AddItem("Ford"),1,"Air condition")
		.set_CellCaption(.AddItem("Nissan"),1,"Air Bag,ABS,ESP")
		.set_CellCaption(.AddItem("Mazda"),1,"Air Bag, ABS,ESP")
		.set_CellCaption(.AddItem("Mazda"),1,"ABS,ESP")
	End With
	With .Columns.Item("Car")
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exFilter
		.Filter = "Mazda"
	End With
	With .Columns.Item("Equipment")
		.FilterType = exontrol.EXGANTTLib.FilterTypeEnum.exPattern
		.Filter = "*ABS*|*ESP*"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	With .Columns.Add("Value")
		.Width = 24
	End With
	With .Columns.Add("SWITCH - statment")
		.ComputedField = "%0 switch ('not found', 1,2,3,4,5,7,8,9,11,13,14)"
		.ToolTip = .ComputedField
	End With
	With .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	With .Columns.Add("Value")
		.Width = 24
	End With
	With .Columns.Add("IN - statment")
		.ComputedField = "%0 in (1,2,3,4,5,7,8,9,11,13,14) ? 'found' : ''"
		.ToolTip = .ComputedField
	End With
	With .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	With .Columns.Add("Value")
		.Width = 24
	End With
	With .Columns.Add("CASE - statment")
		.ComputedField = "%0 case (default:'not found';1:%0;2:2*%0;3:3*%0;4:4*%0;5:5*%0;7:'Seven';8:'Eight';9:'Nine';11:'" & _
"Eleven';13:'Thirtheen';14:'Fourtheen')"
		.ToolTip = .ComputedField
	End With
	With .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	With .Columns.Add("Value")
		.Width = 24
	End With
	With .Columns.Add("CASE - statment")
		.ComputedField = "%0 case (default:'not found';1:'One';2:'Two';3:'Three';4:'Four';5:'Five';7:'Seven';8:'Eight';9:" & _
"'Nine';11:'Eleven';13:'Thirtheen';14:'Fourtheen')"
		.ToolTip = .ComputedField
	End With
	With .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.FilterBarPromptVisible = True
	.FilterBarCaption = "This is a bit of text being displayed in the filter bar."
	.Columns.Add("")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.BeginUpdate()
	.Columns.Add("")
	With .Items
		h = .AddItem("")
		.set_CellCaption(h,0,.VisibleItemCount)
	End With
	.EndUpdate()
End With

Dim h0
With Exgantt1
	.BeginUpdate()
	.Chart.set_PaneWidth(True,0)
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = &H2000 Or exontrol.EXGANTTLib.FilterPromptEnum.exFilterPromptContainsAll Or exontrol.EXGANTTLib.FilterPromptEnum.exFilterPromptStartWords
	.FilterBarPromptPattern = "london robert"
	.FilterBarCaption = "<r>Found: ... "
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellCaption(h0,1,"Vice President, Sales")
		.set_CellCaption(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellCaption(h0,1,"Sales Manager")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellCaption(h0,1,"Inside Sales Coordinator")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exgantt1
	.BeginUpdate()
	.Chart.set_PaneWidth(True,0)
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exontrol.EXGANTTLib.FilterPromptEnum.exFilterPromptPattern
	.FilterBarPromptPattern = "lon* seat*"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellCaption(h0,1,"Vice President, Sales")
		.set_CellCaption(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellCaption(h0,1,"Sales Manager")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellCaption(h0,1,"Inside Sales Coordinator")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exgantt1
	.BeginUpdate()
	.Chart.set_PaneWidth(True,0)
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exontrol.EXGANTTLib.FilterPromptEnum.exFilterPromptContainsAny Or exontrol.EXGANTTLib.FilterPromptEnum.exFilterPromptStartWords
	.FilterBarPromptPattern = "london davolio"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellCaption(h0,1,"Vice President, Sales")
		.set_CellCaption(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellCaption(h0,1,"Sales Manager")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellCaption(h0,1,"Inside Sales Coordinator")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exgantt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.Chart.set_PaneWidth(True,0)
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = &H2000 Or exontrol.EXGANTTLib.FilterPromptEnum.exFilterPromptContainsAny Or exontrol.EXGANTTLib.FilterPromptEnum.exFilterPromptStartWords
	.FilterBarPromptPattern = "london nancy"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellCaption(h0,1,"Vice President, Sales")
		.set_CellCaption(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellCaption(h0,1,"Sales Manager")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellCaption(h0,1,"Inside Sales Coordinator")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exgantt1
	.BeginUpdate()
	.Chart.set_PaneWidth(True,0)
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = &H2000 Or exontrol.EXGANTTLib.FilterPromptEnum.exFilterPromptContainsAll Or exontrol.EXGANTTLib.FilterPromptEnum.exFilterPromptStartWords
	.FilterBarPromptPattern = "london robert"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellCaption(h0,1,"Vice President, Sales")
		.set_CellCaption(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellCaption(h0,1,"Sales Manager")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellCaption(h0,1,"Inside Sales Coordinator")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exgantt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exontrol.EXGANTTLib.FilterPromptEnum.exFilterPromptContainsAny Or exontrol.EXGANTTLib.FilterPromptEnum.exFilterPromptCaseSensitive
	.FilterBarPromptPattern = "Anne"
	.Chart.set_PaneWidth(True,0)
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellCaption(h0,1,"Vice President, Sales")
		.set_CellCaption(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellCaption(h0,1,"Sales Manager")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellCaption(h0,1,"Inside Sales Coordinator")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exgantt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exontrol.EXGANTTLib.FilterPromptEnum.exFilterPromptEndWith
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "Fuller"
	.Chart.set_PaneWidth(True,0)
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellCaption(h0,1,"Vice President, Sales")
		.set_CellCaption(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellCaption(h0,1,"Sales Manager")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellCaption(h0,1,"Inside Sales Coordinator")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exgantt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exontrol.EXGANTTLib.FilterPromptEnum.exFilterPromptEndWith
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "Fuller"
	.Chart.set_PaneWidth(True,0)
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellCaption(h0,1,"Vice President, Sales")
		.set_CellCaption(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellCaption(h0,1,"Sales Manager")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellCaption(h0,1,"Inside Sales Coordinator")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exgantt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exontrol.EXGANTTLib.FilterPromptEnum.exFilterPromptStartWith
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "An M"
	.Chart.set_PaneWidth(True,0)
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellCaption(h0,1,"Vice President, Sales")
		.set_CellCaption(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellCaption(h0,1,"Sales Manager")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellCaption(h0,1,"Inside Sales Coordinator")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exgantt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exontrol.EXGANTTLib.FilterPromptEnum.exFilterPromptStartWith
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "A"
	.Chart.set_PaneWidth(True,0)
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellCaption(h0,1,"Vice President, Sales")
		.set_CellCaption(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellCaption(h0,1,"Sales Manager")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellCaption(h0,1,"Inside Sales Coordinator")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exgantt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exontrol.EXGANTTLib.FilterPromptEnum.exFilterPromptContainsAny
	.FilterBarPromptPattern = "london seattle"
	.Chart.set_PaneWidth(True,0)
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellCaption(h0,1,"Vice President, Sales")
		.set_CellCaption(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellCaption(h0,1,"Sales Manager")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellCaption(h0,1,"Inside Sales Coordinator")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exgantt1
	.BeginUpdate()
	.Chart.set_PaneWidth(True,0)
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = exontrol.EXGANTTLib.FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "london manager"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellCaption(h0,1,"Vice President, Sales")
		.set_CellCaption(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellCaption(h0,1,"Sales Manager")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellCaption(h0,1,"Inside Sales Coordinator")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exgantt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.Chart.set_PaneWidth(True,0)
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptPattern = "london manager"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellCaption(h0,1,"Vice President, Sales")
		.set_CellCaption(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellCaption(h0,1,"Sales Manager")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellCaption(h0,1,"Inside Sales Coordinator")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
	End With
	.EndUpdate()
End With

Dim h0
With Exgantt1
	.BeginUpdate()
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.Chart.set_PaneWidth(True,0)
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptColumns = "2,3"
	.FilterBarPromptPattern = "london"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellCaption(h0,1,"Vice President, Sales")
		.set_CellCaption(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellCaption(h0,1,"Sales Manager")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellCaption(h0,1,"Inside Sales Coordinator")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.Chart.set_PaneWidth(True,0)
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPrompt = "changed"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	.EndUpdate()
End With

Dim h0
With Exgantt1
	.BeginUpdate()
	.Chart.set_PaneWidth(True,0)
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add("City")
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Andrew Fuller")
		.set_CellCaption(h0,1,"Vice President, Sales")
		.set_CellCaption(h0,2,"Tacoma")
		.set_SelectItem(h0,True)
		h0 = .AddItem("Janet Leverling")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Kirkland")
		h0 = .AddItem("Margaret Peacock")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"Redmond")
		h0 = .AddItem("Steven Buchanan")
		.set_CellCaption(h0,1,"Sales Manager")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Michael Suyama")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Robert King")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
		h0 = .AddItem("Laura Callahan")
		.set_CellCaption(h0,1,"Inside Sales Coordinator")
		.set_CellCaption(h0,2,"Seattle")
		h0 = .AddItem("Anne Dodsworth")
		.set_CellCaption(h0,1,"Sales Representative")
		.set_CellCaption(h0,2,"London")
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	With .ConditionalFormats.Add("1")
		.ForeColor = Color.FromArgb(255,0,0)
		.ApplyTo = &H1
	End With
	.MarkSearchColumn = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2")
	End With
	With .Items
		.set_CellCaption(.AddItem(0),1,1)
		.set_CellCaption(.AddItem(2),1,3)
		.set_CellCaption(.AddItem(4),1,5)
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	With .ConditionalFormats.Add("int(%1) in (3,4,5)")
		.BackColor = Color.FromArgb(255,0,0)
		.ApplyTo = &H1
	End With
	.MarkSearchColumn = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2")
	End With
	With .Items
		.set_CellCaption(.AddItem(0),1,1)
		.set_CellCaption(.AddItem(2),1,3)
		.set_CellCaption(.AddItem(4),1,5)
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2").set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellBackColor,255)
	End With
	With .Items
		.set_CellCaption(.AddItem(0),1,1)
		.set_CellCaption(.AddItem(2),1,3)
		.set_CellCaption(.AddItem(4),1,5)
	End With
	.EndUpdate()
End With

Dim h,hChild
With Exgantt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("P")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.set_ExpandItem(h,True)
	End With
	With .Items
		hChild = .get_ItemChild(.FirstVisibleItem)
		Debug.Print(.get_CellCaption(hChild,0))
		Debug.Print(.get_CellCaption(.get_NextSiblingItem(hChild),0))
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	With .Chart
		.set_PaneWidth(False,0)
		.LevelCount = 3
		.OverviewVisible = True
		.AllowOverviewZoom = exontrol.EXGANTTLib.OverviewZoomEnum.exAlwaysZoom
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exYear,"<%yy%><|><%yyyy%>")
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exHalfYear,"")
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exQuarterYear,"")
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exMonth,"<|><%m%><|><%m%>/<%yy%><|><%m%>/<%yyyy%>")
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exThirdMonth,"")
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exWeek,"<|><%ww%><|><%m%>/<%d%>/<%yy%><r><%ww%><|><%m%>/<%d%>/<%yyyy%><r><%ww%><||><||>256")
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exDay,"<|><%d%><|><%m%>/<%d%>/<%yy%><|><%m%>/<%d%>/<%yyyy%><||><||>4096")
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exHour,"<|><%hh%><|><%m%>/<%d%>/<%yy%> <%h%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%> <%AM/PM%><||><||>65" & _
"536")
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exMinute,"<|><%nn%><|><%h%>:<%nn% <%AM/PM%>><|><%m%>/<%d%>/<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%m%>/<%d%>/<%" & _
"yyyy%> <%h%>:<%nn%> <%AM/PM%>")
		.set_Label(exontrol.EXGANTTLib.UnitEnum.exSecond,"<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%m%>/<%d%>/<%yy%> <%h%>:<%nn%>:<%s" & _
"s%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exYear,"<%yyyy%>")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exHalfYear,"")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exQuarterYear,"")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exMonth,"<%m%>/<%yyyy%>")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exThirdMonth,"")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exWeek,"<%m%>/<%d%>/<%yyyy%> <%ww%>")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exDay,"<%m%>/<%d%>/<%yyyy%>")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exHour,"<%m%>/<%d%>/<%yyyy%> <%h%> <%AM/PM%>")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exMinute,"<%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%> <%AM/PM%>")
		.set_LabelToolTip(exontrol.EXGANTTLib.UnitEnum.exSecond,"<%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>")
		.UnitScale = exontrol.EXGANTTLib.UnitEnum.exDay
	End With
	.EndUpdate()
End With

' SelectionChanged event - Fired after a new item has been selected.
Private Sub Exgantt1_SelectionChanged(ByVal sender As System.Object) Handles Exgantt1.SelectionChanged
	With Exgantt1
		With .Items
			Debug.Print("Handle")
			Debug.Print(.FocusItem)
			Debug.Print("Caption")
			Debug.Print(.get_CellCaption(.FocusItem,0))
		End With
	End With
End Sub

Dim h
With Exgantt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Items
		h = .AddItem("R1")
		.InsertItem(h,0,"Cell 1.1")
		.InsertItem(h,0,"Cell 1.2")
		.set_ExpandItem(h,True)
		h = .AddItem("R2")
		.InsertItem(h,0,"Cell 2.1")
		.InsertItem(h,0,"Cell 2.2")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

' SelectionChanged event - Fired after a new item has been selected.
Private Sub Exgantt1_SelectionChanged(ByVal sender As System.Object) Handles Exgantt1.SelectionChanged
	With Exgantt1
		With .Items
			Debug.Print("Handle")
			Debug.Print(.get_SelectedItem(0))
			Debug.Print("Caption")
			Debug.Print(.get_CellCaption(.get_SelectedItem(0),0))
		End With
	End With
End Sub

Dim h
With Exgantt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Items
		h = .AddItem("R1")
		.InsertItem(h,0,"Cell 1.1")
		.InsertItem(h,0,"Cell 1.2")
		.set_ExpandItem(h,True)
		h = .AddItem("R2")
		.InsertItem(h,0,"Cell 2.1")
		.InsertItem(h,0,"Cell 2.2")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exgantt1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exgantt1.MouseMoveEvent
	Dim c,h,hit
	With Exgantt1
		.BeginUpdate()
		h = .get_ItemFromPoint(-1,-1,c,hit)
		With .Items
			.ClearItemBackColor(Exgantt1.get_Background(&H280 Or exontrol.EXGANTTLib.BackgroundPartEnum.exDateHeader Or exontrol.EXGANTTLib.BackgroundPartEnum.exCursorHoverColumn Or exontrol.EXGANTTLib.BackgroundPartEnum.exToolTipAppearance Or exontrol.EXGANTTLib.BackgroundPartEnum.exVSUp))
			.set_ItemBackColor(h,Color.FromArgb(240,250,240))
		End With
		.set_Background(&H280 Or exontrol.EXGANTTLib.BackgroundPartEnum.exDateHeader Or exontrol.EXGANTTLib.BackgroundPartEnum.exCursorHoverColumn Or exontrol.EXGANTTLib.BackgroundPartEnum.exToolTipAppearance Or exontrol.EXGANTTLib.BackgroundPartEnum.exVSUp,h)
		.EndUpdate()
	End With
End Sub

Dim h
With Exgantt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exHLines
	.SelBackColor = Color.FromArgb(240,250,240)
	.SelForeColor = Color.FromArgb(0,0,0)
	.ShowFocusRect = False
	With .Chart
		.SelBackColor = Color.FromArgb(240,250,240)
	End With
	.Columns.Add("Items")
	With .Items
		h = .AddItem("R1")
		.InsertItem(h,0,"Cell 1.1")
		.InsertItem(h,0,"Cell 1.2")
		.set_ExpandItem(h,True)
		h = .AddItem("R2")
		.InsertItem(h,0,"Cell 2.1")
		.InsertItem(h,0,"Cell 2.2")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exgantt1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exgantt1.MouseMoveEvent
	Dim c,h,hit
	With Exgantt1
		h = .get_ItemFromPoint(-1,-1,c,hit)
		Debug.Print("Handle")
		Debug.Print(h)
		Debug.Print("Index")
		Debug.Print(.Items.get_ItemToIndex(h))
	End With
End Sub

Dim h
With Exgantt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exHLines
	.Columns.Add("Items")
	With .Items
		h = .AddItem("R1")
		.InsertItem(h,0,"Cell 1.1")
		.InsertItem(h,0,"Cell 1.2")
		.set_ExpandItem(h,True)
		h = .AddItem("R2")
		.InsertItem(h,0,"Cell 2.1")
		.InsertItem(h,0,"Cell 2.2")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exgantt1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exgantt1.MouseMoveEvent
	With Exgantt1
		Debug.Print(.get_ColumnFromPoint(-1,0))
	End With
End Sub

Dim h
With Exgantt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("P1")
	.Columns.Add("P2")
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exAllLines
	With .Items
		h = .AddItem("R1")
		.set_CellCaption(h,1,"R2")
		.set_CellCaption(.InsertItem(h,0,"Cell 1.1"),1,"Cell 1.2")
		.set_CellCaption(.InsertItem(h,0,"Cell 2.1"),1,"Cell 2.2")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exgantt1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exgantt1.MouseMoveEvent
	With Exgantt1
		Debug.Print(.get_ColumnFromPoint(-1,-1))
	End With
End Sub

Dim h
With Exgantt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exAllLines
	.Columns.Add("P1")
	.Columns.Add("P2")
	With .Items
		h = .AddItem("R1")
		.set_CellCaption(h,1,"R2")
		.set_CellCaption(.InsertItem(h,0,"Cell 1.1"),1,"Cell 1.2")
		.set_CellCaption(.InsertItem(h,0,"Cell 2.1"),1,"Cell 2.2")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exgantt1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exgantt1.MouseMoveEvent
	Dim c,h,hit
	With Exgantt1
		h = .get_ItemFromPoint(-1,-1,c,hit)
		Debug.Print(.Items.get_CellCaption(h,c))
	End With
End Sub

Dim h
With Exgantt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Items
		h = .AddItem("R1")
		.InsertItem(h,0,"Cell 1.1")
		.InsertItem(h,0,"Cell 1.2")
		.set_ExpandItem(h,True)
		h = .AddItem("R2")
		.InsertItem(h,0,"Cell 2.1")
		.InsertItem(h,0,"Cell 2.2")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXGANTTLib.GridLinesStyleEnum.exGridLinesHDot4 Or exontrol.EXGANTTLib.GridLinesStyleEnum.exGridLinesVSolid
	.Columns.Add("C1")
	.Columns.Add("C2")
	.Columns.Add("C3")
	With .Items
		h = .AddItem("Item 1")
		.set_CellCaption(h,1,"SubItem 1.2")
		.set_CellCaption(h,2,"SubItem 1.3")
		h = .AddItem("Item 2")
		.set_CellCaption(h,1,"SubItem 2.2")
		.set_CellCaption(h,2,"SubItem 2.3")
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exAllLines
	.GridLineColor = Color.FromArgb(220,220,220)
	With .Chart
		.set_PaneWidth(False,48)
		.FirstVisibleDate = #1/1/2001#
		.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exAllLines
		.GridLineStyle = exontrol.EXGANTTLib.GridLinesStyleEnum.exGridLinesBehind
		.LevelCount = 2
		With .get_Level(1)
			.DrawGridLines = True
			.GridLineColor = Color.FromArgb(220,220,220)
		End With
		With .Bars.Item("Task")
			.Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternSolid
			.Height = 14
		End With
	End With
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Item 1")
		.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"A")
		.AddBar(h,"Task",#1/8/2001#,#1/15/2001#,"B")
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXGANTTLib.GridLinesStyleEnum.exGridLinesDash
	With .Chart
		.set_PaneWidth(False,48)
		.FirstVisibleDate = #1/1/2001#
		.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exAllLines
		.GridLineStyle = exontrol.EXGANTTLib.GridLinesStyleEnum.exGridLinesDash
		.LevelCount = 2
		.get_Level(1).DrawGridLines = True
		With .get_Level(0)
			.GridLineColor = Color.FromArgb(255,0,0)
			.GridLineStyle = exontrol.EXGANTTLib.GridLinesStyleEnum.exGridLinesVSolid
		End With
		.Bars.Item("Task").Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternSolid
	End With
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Item 1")
		.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"A")
		.AddBar(h,"Task",#1/8/2001#,#1/15/2001#,"B")
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXGANTTLib.GridLinesStyleEnum.exGridLinesSolid
	With .Chart
		.set_PaneWidth(False,48)
		.FirstVisibleDate = #1/1/2001#
		.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exAllLines
		.GridLineStyle = exontrol.EXGANTTLib.GridLinesStyleEnum.exGridLinesSolid
		.LevelCount = 2
		.get_Level(1).DrawGridLines = True
		.Bars.Item("Task").Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternSolid
	End With
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Item 1")
		.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"A")
		.AddBar(h,"Task",#1/8/2001#,#1/15/2001#,"B")
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exAllLines
	With .Chart
		.set_PaneWidth(False,48)
		.FirstVisibleDate = #1/1/2001#
		.DrawGridLines = exontrol.EXGANTTLib.GridLinesEnum.exAllLines
		.LevelCount = 2
		.get_Level(1).DrawGridLines = True
		.Bars.Item("Task").Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternSolid
	End With
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Item 1")
		.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"A")
		.AddBar(h,"Task",#1/8/2001#,#1/15/2001#,"B")
	End With
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exgantt1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exgantt1.MouseMoveEvent
	With Exgantt1
		Debug.Print(.Chart.get_LinkFromPoint(-1,-1))
	End With
End Sub

Dim h1,h2,h3
With Exgantt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #12/29/2000#
		.set_PaneWidth(False,64)
		.LevelCount = 2
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/5/2001#,#1/7/2001#,"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.set_Link("L1",exontrol.EXGANTTLib.LinkPropertyEnum.exLinkText,"L1")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/8/2001#,#1/10/2001#,"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
		.set_Link("L2",exontrol.EXGANTTLib.LinkPropertyEnum.exLinkText,"L2")
	End With
	.EndUpdate()
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exgantt1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exgantt1.MouseMoveEvent
	With Exgantt1
		Debug.Print(.Chart.get_BarFromPoint(-1,-1))
	End With
End Sub

Dim h1,h2,h3
With Exgantt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #12/29/2000#
		.set_PaneWidth(False,64)
		.LevelCount = 2
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/4/2001#,#1/6/2001#,"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/8/2001#,#1/10/2001#,"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
	End With
	.EndUpdate()
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exgantt1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exgantt1.MouseMoveEvent
	With Exgantt1
		Debug.Print(.Chart.get_LevelFromPoint(-1,-1))
	End With
End Sub

With Exgantt1
	With .Chart
		.FirstVisibleDate = #6/25/2010#
		.set_PaneWidth(False,0)
		.LevelCount = 4
	End With
End With

With Exgantt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.set_PaneWidth(False,0)
		.NonworkingDays = 0
		.FirstVisibleDate = 0
		.ToolTip = ""
		With .get_Level(0)
			.Label = "<%i%>"
			.ToolTip = ""
		End With
		.UnitWidth = 24
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",2,4)
		.AddBar(.AddItem("Task 2"),"Task",6,10)
	End With
	.EndUpdate()
End With

' DateChange event - Occurs when the first visible date is changed.
Private Sub Exgantt1_DateChange(ByVal sender As System.Object) Handles Exgantt1.DateChange
	With Exgantt1
		.Chart.FirstVisibleDate = 0
		.set_ScrollPartEnable(exontrol.EXGANTTLib.ScrollBarEnum.exHChartScroll,exontrol.EXGANTTLib.ScrollPartEnum.exLeftBPart,False)
	End With
End Sub

With Exgantt1
	.BeginUpdate()
	With .Chart
		.set_PaneWidth(False,0)
		.NonworkingDays = 0
		.FirstVisibleDate = 0
		.ToolTip = ""
		With .get_Level(0)
			.Label = "<%i%>"
			.ToolTip = "<%i%>"
		End With
		.UnitWidth = 24
	End With
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	With .Chart
		.set_PaneWidth(False,0)
		.NonworkingDays = 0
		.FirstVisibleDate = 0
		.ToolTip = ""
		With .get_Level(0)
			.Label = "<%i%>"
			.ToolTip = ""
		End With
		.UnitWidth = 24
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.Columns.Add("Task")
	With .Chart
		.set_PaneWidth(False,48)
		.FirstVisibleDate = #12/27/2000#
	End With
	With .Items
		h = .AddItem("Bars A B")
		.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"A")
		.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"B")
		.set_ItemBar(h,"B",exontrol.EXGANTTLib.ItemBarPropertyEnum.exBarColor,255)
		h = .AddItem("Bars B A")
		.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"B")
		.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"A")
		.set_ItemBar(h,"A",exontrol.EXGANTTLib.ItemBarPropertyEnum.exBarColor,255)
	End With
End With

With Exgantt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = #1/1/2001#
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1")
		.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K2")
		.AddBar(.AddItem("Task 3"),"Task",#1/2/2001#,#1/4/2001#,"K3")
		.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K4")
		.set_ItemBar(0,"<ALL>",exontrol.EXGANTTLib.ItemBarPropertyEnum.exBarColor,255)
	End With
End With

Dim h,hC
With Exgantt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.SelBackColor = .BackColor
	.SelForeColor = .ForeColor
	.HasLines = exontrol.EXGANTTLib.HierarchyLineEnum.exNoLine
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		hC = .InsertItem(h,0,"Default")
		.set_ItemBackColor32(hC,16777216)
		.set_ItemHeight(.InsertItem(h,0,""),6)
		hC = .InsertItem(h,0,"Light Green")
		.set_ItemBackColor32(hC,16842496)
		.set_ItemHeight(.InsertItem(h,0,""),6)
		hC = .InsertItem(h,0,"Dark Green")
		.set_ItemBackColor32(hC,16809728)
		.set_ItemHeight(.InsertItem(h,0,""),6)
		hC = .InsertItem(h,0,"Magenta")
		.set_ItemBackColor32(hC,33521663)
		.set_ItemHeight(.InsertItem(h,0,""),6)
		hC = .InsertItem(h,0,"Yellow")
		.set_ItemBackColor32(hC,25165823)
		.set_ItemHeight(.InsertItem(h,0,""),6)
		.set_ExpandItem(h,True)
	End With
End With

With Exgantt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = #1/1/2001#
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1")
		.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K1")
		.AddBar(.AddItem("Task 3"),"Task",#1/2/2001#,#1/4/2001#,"K1")
		.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K2")
		.ClearBars(0)
	End With
End With

With Exgantt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = #1/1/2001#
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1")
		.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K1")
		.AddBar(.AddItem("Task 3"),"Task",#1/2/2001#,#1/4/2001#,"K1")
		.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K2")
		.set_ItemBar(0,"K1",exontrol.EXGANTTLib.ItemBarPropertyEnum.exBarColor,255)
	End With
End With

With Exgantt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = #1/1/2001#
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1")
		.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K1")
		.AddBar(.AddItem("Task 3"),"Task",#1/2/2001#,#1/4/2001#,"K1")
		.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K2")
		.set_ItemBar(0,"K1",exontrol.EXGANTTLib.ItemBarPropertyEnum.exBarColor,255)
	End With
End With

With Exgantt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = #1/1/2001#
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1")
		.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K1")
		.AddBar(.AddItem("Task 3"),"Task",#1/2/2001#,#1/4/2001#,"K1")
		.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K2")
		.RemoveBar(0,"K1")
	End With
End With

Dim h
With Exgantt1
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = #1/1/2001#
	With .Chart.Bars.Item("Task")
		.Color = Color.FromArgb(255,0,0)
		.StartColor = Color.FromArgb(0,255,0)
		.EndColor = Color.FromArgb(255,255,0)
		.Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternBox
	End With
	With .Items
		h = .AddItem("Task")
		.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"")
	End With
End With

With Exgantt1
	.OnResizeControl = exontrol.EXGANTTLib.OnResizeControlEnum.exResizeChart Or exontrol.EXGANTTLib.OnResizeControlEnum.exDisableSplitter
	.Chart.set_PaneWidth(False,60)
End With

With Exgantt1
	.OnResizeControl = exontrol.EXGANTTLib.OnResizeControlEnum.exDisableSplitter
	.Chart.set_PaneWidth(True,60)
End With

Dim h
With Exgantt1
	.BeginUpdate()
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = #1/1/2001#
	With .Chart.Bars.Add("A")
		.Color = Color.FromArgb(255,0,0)
		.Shape = exontrol.EXGANTTLib.ShapeBarEnum.exShapeSolidUp
		.Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternSolid
	End With
	With .Chart.Bars.Add("B")
		.Color = Color.FromArgb(128,0,0)
		.Shape = exontrol.EXGANTTLib.ShapeBarEnum.exShapeSolidDown
		.Pattern = exontrol.EXGANTTLib.PatternEnum.exPatternSolid
	End With
	.Chart.Bars.Add("A%B").Shortcut = "AB"
	With .Items
		h = .AddItem("Task 1")
		.AddBar(h,"AB",#1/2/2001#,#1/6/2001#,"K1")
		.set_ItemBar(h,"K1",exontrol.EXGANTTLib.ItemBarPropertyEnum.exBarPercent,1)
	End With
	.EndUpdate()
End With

Dim h
With Exgantt1
	.BeginUpdate()
	.ScrollBars = exontrol.EXGANTTLib.ScrollBarsEnum.exDisableBoth
	.LinesAtRoot = exontrol.EXGANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("P1")
		.set_Def(exontrol.EXGANTTLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,0,"Child 1")
		.InsertItem(h,0,"Child 2")
		.set_ExpandItem(h,True)
	End With
	.RightToLeft = True
	.EndUpdate()
End With

With Exgantt1
	.BeginUpdate()
	.ScrollBars = exontrol.EXGANTTLib.ScrollBarsEnum.exDisableBoth
	With .Columns
		.Add("C1")
		.Add("C2")
		.Add("C3")
		.Add("C4")
		.Add("C5")
		.Add("C6")
		.Add("C7")
		.Add("C8")
	End With
	.RightToLeft = True
	.EndUpdate()
End With