Exontrol.COM Software - HOW TO DO in Visual Basic 6

761. Is it possible to limit the height of the item while resizing

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Gantt1_AddItem(ByVal Item As EXGANTTLibCtl.HITEM)
	With Gantt1
		.Items.ItemMinHeight(Item) = 18
		.Items.ItemMaxHeight(Item) = 72
	End With
End Sub

With Gantt1
	.BeginUpdate 
	.ItemsAllowSizing = exResizeItem
	.ScrollBySingleLine = False
	.BackColorAlternate = RGB(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 = SortAscending
	.EndUpdate 
End With

760. Is it possible to copy the hierarchy of the control using the GetItems method

With Gantt1
	.LinesAtRoot = 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

759. Does your control supports multiple lines tooltip

With Gantt1
	.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

758. It is possible to write the word in red/color or to add a tooltip or a link to the word

With Gantt1
	.Columns.Add "Task"
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/26/2000#
		.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"
		.ItemBar(h1,"K1",exBarPercent) = False
		.ItemBar(h1,"K1",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"
		.ItemBar(h2,"K2",exBarToolTip) = "And here goes the <b>tooltip</b> of the bar. "
		.AddLink "L1",h1,"K1",h2,"K2"
		.Link("L1",exLinkText) = "L<b>inke</b>d to a bar"
		.Link("L1",exLinkToolTip) = "And here goes the <b>tooltip</b> of the link. "
	End With
End With

757. It is possible to use seconds/minutes/hours as time scale in your control, but using my regional settings

With Gantt1
	.BeginUpdate 
	With .Chart
		.Label(exMonth) = "<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yy" & _
"yy%>"
		.Label(exWeek) = "<|><%ww%><|><%loc_m3%> <%d%>, '<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>2" & _
"56"
		.Label(exDay) = "<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%><" & _
"|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%><||><||>4096"
		.Label(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"
		.Label(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%>"
		.Label(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%>"
		.LabelToolTip(exMonth) = "<%loc_mmmm%>/<%yyyy%>"
		.LabelToolTip(exWeek) = "<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>"
		.LabelToolTip(exDay) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>"
		.LabelToolTip(exHour) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>"
		.LabelToolTip(exMinute) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
		.LabelToolTip(exSecond) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
	End With
	With .Chart
		.PaneWidth(False) = 0
		.FirstVisibleDate = #1/1/2001#
		.LevelCount = 4
		.Level(0).Label = 4096
		.Level(1).Label = 65536
		.Level(2).Label = 1048576
		With .Level(3)
			.Count = 15
			.Label = 16777216
		End With
	End With
	.EndUpdate 
End With

756. The chart's header is displayed in English. Can I change so it is the same as in my regional settings

With Gantt1
	.BeginUpdate 
	With .Chart
		.Label(exMonth) = "<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yy" & _
"yy%>"
		.Label(exWeek) = "<|><%ww%><|><%loc_m3%> <%d%>, '<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>2" & _
"56"
		.Label(exDay) = "<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%><" & _
"|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%><||><||>4096"
		.Label(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"
		.Label(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%>"
		.Label(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%>"
		.LabelToolTip(exMonth) = "<%loc_mmmm%>/<%yyyy%>"
		.LabelToolTip(exWeek) = "<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>"
		.LabelToolTip(exDay) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>"
		.LabelToolTip(exHour) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>"
		.LabelToolTip(exMinute) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
		.LabelToolTip(exSecond) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
	End With
	With .Chart
		.PaneWidth(False) = 0
		.FirstVisibleDate = #1/1/2001#
		.LevelCount = 2
		.UnitScale = exDay
	End With
	.EndUpdate 
End With

755. It is possible to use seconds/minutes/hours as time scale in your control

With Gantt1
	.BeginUpdate 
	With .Chart
		.PaneWidth(False) = 0
		.FirstVisibleDate = #1/1/2001#
		.LevelCount = 4
		.Level(0).Label = 4096
		.Level(1).Label = 65536
		.Level(2).Label = 1048576
		With .Level(3)
			.Count = 15
			.Label = 16777216
		End With
	End With
	.EndUpdate 
End With

754. How can I prevent highlighting the column from the cursor - point

With Gantt1
	.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAEGg4BI0IQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDKKUEwsACEIrjKCYVgOHYYRrIMYgBCMJhLEoaZL" & _
"hEZRQiqDYtRDFQBSDDcPw/EaRZohGaYJgEgI="
	.Background(exCursorHoverColumn) = &H1000000
	.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

753. Can I use and display PNG pictures

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

752. Is it possible to specify the background color for the item in the chart part only

With Gantt1
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root")
		hC = .InsertItem(h,0,"Child 1")
		Gantt1.Chart.ItemBackColor(hC) = RGB(255,0,0)
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
	End With
End With

751. Is it possible to apply different visual appearance, color, sizes for item in the list and chart part

With Gantt1
	.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 = exTransparent
	With .Items
		h = .AddItem("Root")
		hC = .InsertItem(h,0,"Child 1")
		.ItemBackColor(hC) = &H1ffff00
		Gantt1.Chart.ItemBackColor(hC) = &H300ff00
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
	End With
End With

750. How do I change the visual appearance for the entire item, using your EBN technology

With Gantt1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root")
		hC = .InsertItem(h,0,"Child 1")
		.ItemBackColor(hC) = &H1000000
		Gantt1.Chart.ItemBackColor(hC) = &H1000000
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
	End With
End With

749. is it possible to specify the a different background color for the item, list and chart part

With Gantt1
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root")
		hC = .InsertItem(h,0,"Child 1")
		.ItemBackColor(hC) = RGB(255,0,0)
		Gantt1.Chart.ItemBackColor(hC) = RGB(255,255,0)
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
	End With
End With

748. Is it possible to specify the background color for the entire row, including the chart part

With Gantt1
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root")
		hC = .InsertItem(h,0,"Child 1")
		.ItemBackColor(hC) = RGB(255,0,0)
		Gantt1.Chart.ItemBackColor(hC) = RGB(255,0,0)
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
	End With
End With

747. How can I show the tooltip programmatically ( I want to be able to set the tooltip content dynamically just before the tooltip start to appear, not using the exBarTooltip )

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Gantt1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With Gantt1
		.ShowToolTip .Chart.BarFromPoint(-1,-1),"","8","8"
	End With
End Sub

With Gantt1
	.BeginUpdate 
	.Columns.Add "Def"
	With .Chart
		.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

746. Is it possible to move an item from a parent to another

With Gantt1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.Columns.Add "Items"
	With .Items
		.AddItem "A"
		.AddItem "B"
		.InsertItem .AddItem("C"),"","D"
		.SetParent .FindItem("D",0),.FindItem("A",0)
	End With
	.EndUpdate 
End With

745. How can I change the identation for an item

With Gantt1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.Columns.Add "Items"
	With .Items
		.AddItem "A"
		.AddItem "B"
		.InsertItem .AddItem("C"),"","D"
		.SetParent .FindItem("D",0),0
	End With
	.EndUpdate 
End With

744. How can I specify the levels using the user's Regional and Language Options

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

743. How can I display a bar only using a gradient color and shadow

With Gantt1
	.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 Gradient")
		.AddBar h,"Task",#1/4/2010#,#1/9/2010#,""
		.ItemBar(h,"",exBarPattern) = 8291
		.AddBar .AddItem("Original"),"Task",#1/4/2010#,#1/9/2010#,""
	End With
	.EndUpdate 
End With

742. Is it possible to display a bar only using a gradient color using the exBarColor option

With Gantt1
	.BeginUpdate 
	With .Chart
		.FirstVisibleDate = #12/31/2009#
		.LevelCount = 2
		.PaneWidth(False) = 96
		With .Bars.Item("Task")
			.StartColor = RGB(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#,""
		.ItemBar(h,"",exBarPattern) = 227
		h = .AddItem("W/h Color")
		.AddBar h,"Task",#1/4/2010#,#1/9/2010#,""
		.ItemBar(h,"",exBarPattern) = 227
		.ItemBar(h,"",exBarColor) = 255
		.AddBar .AddItem("Original"),"Task",#1/4/2010#,#1/9/2010#,""
	End With
	.EndUpdate 
End With

741. Is it possible to display a bar only using a gradient color

With Gantt1
	.BeginUpdate 
	With .Chart
		.FirstVisibleDate = #12/31/2009#
		.LevelCount = 2
		.PaneWidth(False) = 96
		With .Bars.Item("Task")
			.StartColor = RGB(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#,""
		.ItemBar(h,"",exBarPattern) = 227
		.AddBar .AddItem("Original"),"Task",#1/4/2010#,#1/9/2010#,""
	End With
	.EndUpdate 
End With

740. Is it possible to display a bar only using a gradient color

With Gantt1
	.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 Gradient")
		.AddBar h,"Task",#1/4/2010#,#1/9/2010#,""
		.ItemBar(h,"",exBarPattern) = 99
		.AddBar .AddItem("Original"),"Task",#1/4/2010#,#1/9/2010#,""
	End With
	.EndUpdate 
End With

739. How can I display a specified bar only with a thicker border

With Gantt1
	.BeginUpdate 
	With .Chart
		.FirstVisibleDate = #12/31/2009#
		.LevelCount = 2
		.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#,""
		.ItemBar(h,"",exBarPattern) = 4099
		.AddBar .AddItem("Original"),"Task",#1/4/2010#,#1/9/2010#,""
	End With
	.EndUpdate 
End With

738. Is it possible to display the shadow for a specified bar

With Gantt1
	.BeginUpdate 
	With .Chart
		.FirstVisibleDate = #12/31/2009#
		.LevelCount = 2
		.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#,""
		.ItemBar(h,"",exBarPattern) = 8195
		.AddBar .AddItem("Original"),"Task",#1/4/2010#,#1/9/2010#,""
	End With
	.EndUpdate 
End With

737. Is it possible to display the task bars with a gradient color

With Gantt1
	.BeginUpdate 
	With .Chart
		.FirstVisibleDate = #12/31/2009#
		.LevelCount = 2
		.PaneWidth(False) = 96
		.Bars.Copy "Task","TaskO"
		With .Bars.Item("Task")
			.Pattern = PatternEnum.exPatternSolid Or PatternEnum.exPatternDot Or PatternEnum.exPatternBox Or PatternEnum.exPatternGradientVBox
			.StartColor = RGB(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

736. How can I know the type of bars I can displays using predefined patterns

With Gantt1
	.BeginUpdate 
	With .Chart
		.FirstVisibleDate = #12/31/2009#
		.LevelCount = 2
		.PaneWidth(False) = 96
		With .Bars
			.Add("Box").Pattern = exPatternBox
			.Add("ThickBox").Pattern = PatternEnum.exPatternBox Or PatternEnum.exPatternThickBox
			.Add("DiagBox").Pattern = PatternEnum.exPatternDot Or PatternEnum.exPatternNDot Or PatternEnum.exPatternThickBox
			.Copy("Task","Shadow").Pattern = PatternEnum.exPatternSolid Or PatternEnum.exPatternDot Or PatternEnum.exPatternFrameShadow
			.Copy("Task","TShadow").Pattern = PatternEnum.exPatternSolid Or PatternEnum.exPatternDot Or PatternEnum.exPatternNDot Or PatternEnum.exPatternThickBox Or PatternEnum.exPatternFrameShadow
			With .Add("HGrad1")
				.Pattern = exPatternBox
				.StartColor = RGB(255,255,255)
				.EndColor = RGB(0,0,255)
			End With
			With .Add("HGrad2")
				.Pattern = PatternEnum.exPatternSolid Or PatternEnum.exPatternDot Or PatternEnum.exPatternBox
				.StartColor = RGB(255,255,255)
				.EndColor = RGB(0,0,255)
				.Color = RGB(0,0,255)
			End With
			With .Add("HGrad3")
				.Pattern = PatternEnum.exPatternSolid Or PatternEnum.exPatternDot Or PatternEnum.exPatternBox Or PatternEnum.exPatternGradient3Colors
				.StartColor = RGB(255,255,255)
				.EndColor = .StartColor
				.Color = RGB(0,0,255)
			End With
			With .Add("HGrad4")
				.Pattern = PatternEnum.exPatternBox Or PatternEnum.exPatternGradient3Colors Or PatternEnum.exPatternThickBox
				.StartColor = RGB(255,255,255)
				.EndColor = .StartColor
				.Color = RGB(0,0,255)
			End With
			With .Add("HGrad5")
				.Pattern = PatternEnum.exPatternBox Or PatternEnum.exPatternGradient3Colors Or PatternEnum.exPatternFrameShadow
				.StartColor = RGB(0,255,0)
				.EndColor = RGB(255,0,0)
				.Color = RGB(0,0,255)
			End With
			With .Add("VGrad1")
				.Pattern = PatternEnum.exPatternBox Or PatternEnum.exPatternGradientVBox
				.StartColor = RGB(255,255,255)
				.EndColor = RGB(0,0,255)
				.Height = 14
			End With
			With .Add("VGrad2")
				.Pattern = PatternEnum.exPatternSolid Or PatternEnum.exPatternDot Or PatternEnum.exPatternBox Or PatternEnum.exPatternGradientVBox
				.StartColor = RGB(255,255,255)
				.EndColor = RGB(0,0,255)
				.Color = RGB(0,0,255)
				.Height = 14
			End With
			With .Add("VGrad3")
				.Pattern = PatternEnum.exPatternSolid Or PatternEnum.exPatternDot Or PatternEnum.exPatternBox Or PatternEnum.exPatternGradientVBox Or PatternEnum.exPatternGradient3Colors
				.StartColor = RGB(255,255,255)
				.EndColor = .StartColor
				.Color = RGB(0,0,255)
				.Height = 14
			End With
			With .Add("VGrad4")
				.Pattern = PatternEnum.exPatternBox Or PatternEnum.exPatternGradientVBox Or PatternEnum.exPatternGradient3Colors Or PatternEnum.exPatternThickBox
				.StartColor = RGB(255,255,255)
				.EndColor = .StartColor
				.Color = RGB(0,0,255)
				.Height = -1
			End With
			With .Add("VGrad5")
				.Pattern = PatternEnum.exPatternBox Or PatternEnum.exPatternGradientVBox Or PatternEnum.exPatternGradient3Colors Or PatternEnum.exPatternFrameShadow
				.StartColor = RGB(0,255,0)
				.EndColor = RGB(255,0,0)
				.Color = RGB(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

735. Is it possible to display the bars with a thicker border

With Gantt1
	.BeginUpdate 
	.Columns.Add "Task"
	.Chart.FirstVisibleDate = #1/1/2001#
	.Chart.PaneWidth(False) = 48
	.Chart.Bars.Copy("Task","TaskB").Pattern = PatternEnum.exPatternSolid Or PatternEnum.exPatternDot Or 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

734. Is it possible to display the shadow for EBN bars

With Gantt1
	.BeginUpdate 
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Columns.Add "Task"
	.Chart.FirstVisibleDate = #1/1/2001#
	.Chart.PaneWidth(False) = 48
	With .Chart.Bars.Copy("Task","EBN")
		.Color = &H1000000
		.Pattern = exPatternFrameShadow
	End With
	.Chart.Bars.Copy("Task","EBN2").Color = &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

733. Can I display a shadow for my bars

With Gantt1
	.BeginUpdate 
	.Columns.Add "Task"
	.Chart.FirstVisibleDate = #1/1/2001#
	.Chart.PaneWidth(False) = 48
	.Chart.Bars.Item("Task").Pattern = PatternEnum.exPatternSolid Or PatternEnum.exPatternDot Or 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

732. How can I use the Color property for gradient bars

With Gantt1
	.BeginUpdate 
	.Columns.Add "Task"
	.Chart.FirstVisibleDate = #1/1/2001#
	.Chart.PaneWidth(False) = 48
	With .Chart.Bars.Add("V")
		.Color = RGB(255,0,0)
		.StartColor = RGB(0,255,0)
		.EndColor = .StartColor
		.Pattern = PatternEnum.exPatternBox Or PatternEnum.exPatternGradientVBox Or PatternEnum.exPatternGradient3Colors
		.Height = -1
	End With
	With .Chart.Bars.Add("H")
		.Color = RGB(255,0,0)
		.StartColor = RGB(0,255,0)
		.EndColor = .StartColor
		.Pattern = PatternEnum.exPatternBox Or 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

731. Is there any option to show bars with vertical gradient

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

730. How can I define a new milestone bar

With Gantt1
	.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 ShapeCornerEnum.exShapeIconUp1 Or ShapeCornerEnum.exShapeIconRight Or ShapeCornerEnum.exShapeIconDown4
		.Copy("Milestone","M2").StartShape = &H3020 Or ShapeCornerEnum.exShapeIconDown1 Or ShapeCornerEnum.exShapeIconRight Or ShapeCornerEnum.exShapeIconDown4
		With .Copy("Milestone","MP")
			.StartShape = exShapeIconStar
			.StartColor = RGB(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

729. How can I define my milestone bar, using my icons or pictures

With Gantt1
	.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 ShapeCornerEnum.exShapeIconUp1 Or ShapeCornerEnum.exShapeIconRight Or ShapeCornerEnum.exShapeIconDown4
	End With
	.Columns.Add "Column"
	With .Items
		.AddBar .AddItem("Item 1"),"Milestone",#1/2/2001#,#1/2/2001#
	End With
End With

728. I haven't found options to localize (in Italian) the strings ( dates, tooltip ) that shows in the chart area

With Gantt1
	.BeginUpdate 
	With .Chart
		.LevelCount = 2
		.PaneWidth(False) = 0
		.Label(exWeek) = "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256"
		.Label(exDay) = "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> " & _
"<%yyyy%><||><||>4096"
		.LabelToolTip(exWeek) = "<%d%> <%mmmm%> <%yyyy%> <%ww%>"
		.LabelToolTip(exDay) = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
		.FirstWeekDay = 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 = exDay
	End With
	.EndUpdate 
End With

727. I haven't found options to localize (in Dutch) the strings ( dates, tooltip ) that shows in the chart area

With Gantt1
	.BeginUpdate 
	With .Chart
		.LevelCount = 2
		.PaneWidth(False) = 0
		.Label(exWeek) = "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256"
		.Label(exDay) = "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> " & _
"<%yyyy%><||><||>4096"
		.LabelToolTip(exWeek) = "<%d%> <%mmmm%> <%yyyy%> <%ww%>"
		.LabelToolTip(exDay) = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
		.FirstWeekDay = 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 = exDay
	End With
	.EndUpdate 
End With

726. I haven't found options to localize (in German) the strings ( dates, tooltip ) that shows in the chart area

With Gantt1
	.BeginUpdate 
	With .Chart
		.LevelCount = 2
		.PaneWidth(False) = 0
		.Label(exWeek) = "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%>.<%mmmm%> <%yyyy%><r><%ww%><||><||>256"
		.Label(exDay) = "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%>.<%m3%> '<%yy%><|><%dddd%> <%d%>.<%mmmm%> " & _
"<%yyyy%><||><||>4096"
		.LabelToolTip(exWeek) = "<%d%>.<%mmmm%> <%yyyy%> <%ww%>"
		.LabelToolTip(exDay) = "<%dddd%>, <%d%>.<%mmmm%> <%yyyy%>"
		.FirstWeekDay = 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 = exDay
	End With
	.EndUpdate 
End With

725. I haven't found options to localize (in French) the strings ( dates, tooltip ) that shows in the chart area

With Gantt1
	.BeginUpdate 
	With .Chart
		.LevelCount = 2
		.PaneWidth(False) = 0
		.Label(exWeek) = "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256"
		.Label(exDay) = "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> " & _
"<%yyyy%><||><||>4096"
		.LabelToolTip(exWeek) = "<%d%> <%mmmm%> <%yyyy%> <%ww%>"
		.LabelToolTip(exDay) = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
		.FirstWeekDay = 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 = exDay
	End With
	.EndUpdate 
End With

724. How can I filter programatically using more columns

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

723. I have seen the IN function but it returns -1 or 0. How can I display the value being found ( SWITCH usage )

With Gantt1
	.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

722. I have a large collection of constant values and using or operator is a time consuming (IN usage). Is there any way to increase the speed to check if a value maches the collection

With Gantt1
	.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

721. How can I use the CASE statement (CASE usage)

With Gantt1
	.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

720. How can I use the CASE statement (CASE usage)

With Gantt1
	.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

719. Is is possible to use HTML tags to display in the filter caption

With Gantt1
	.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

718. How can I find the number of items after filtering

With Gantt1
	.BeginUpdate 
	.Columns.Add ""
	With .Items
		h = .AddItem("")
		.CellCaption(h,0) = .VisibleItemCount
	End With
	.EndUpdate 
End With

717. How can I change the filter caption

With Gantt1
	.BeginUpdate 
	.Chart.PaneWidth(True) = 0
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = &H2000 Or FilterPromptEnum.exFilterPromptContainsAll Or 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")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	End With
	.EndUpdate 
End With

716. While using the filter prompt is it is possible to use wild characters

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

715. How can I list all items that contains any of specified words, not necessary at the beggining

With Gantt1
	.BeginUpdate 
	.Chart.PaneWidth(True) = 0
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = FilterPromptEnum.exFilterPromptContainsAny Or 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")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	End With
	.EndUpdate 
End With

714. How can I list all items that contains any of specified words, not strings

With Gantt1
	.BeginUpdate 
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.Chart.PaneWidth(True) = 0
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = &H2000 Or FilterPromptEnum.exFilterPromptContainsAny Or 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")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	End With
	.EndUpdate 
End With

713. How can I list all items that contains all specified words, not strings

With Gantt1
	.BeginUpdate 
	.Chart.PaneWidth(True) = 0
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True
	.FilterBarPromptType = &H2000 Or FilterPromptEnum.exFilterPromptContainsAll Or 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")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	End With
	.EndUpdate 
End With

712. I've noticed that the filtering by prompt is not case sensitive, is is possible to make it case sensitive

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

711. Is it possible to list only items that ends with any of specified strings

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

710. Is it possible to list only items that ends with any of specified strings

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

709. Is it possible to list only items that starts with any of specified strings

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

708. Is it possible to list only items that starts with specified string

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

707. How can I specify that the list should include any of the seqeunces in the pattern

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

706. How can I specify that all sequences in the filter pattern must be included in the list

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

705. How do I change at runtime the filter prompt

With Gantt1
	.BeginUpdate 
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.Chart.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")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	End With
	.EndUpdate 
End With

704. How do I specify to filter only a single column when using the filter prompt

With Gantt1
	.BeginUpdate 
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.Chart.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")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	End With
	.EndUpdate 
End With

703. How do I change the prompt or the caption being displayed in the filter bar

With Gantt1
	.BeginUpdate 
	.Chart.PaneWidth(True) = 0
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.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

702. How do I enable the filter prompt feature

With Gantt1
	.BeginUpdate 
	.Chart.PaneWidth(True) = 0
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.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")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellCaption(h0,1) = "Vice President, Sales"
		.CellCaption(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellCaption(h0,1) = "Sales Manager"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellCaption(h0,1) = "Inside Sales Coordinator"
		.CellCaption(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellCaption(h0,1) = "Sales Representative"
		.CellCaption(h0,2) = "London"
	End With
	.EndUpdate 
End With

701. Is it possible to colour a particular column, I mean the cell's foreground color

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

700. Is it possible to colour a particular column for specified values

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

699. Is it possible to colour a particular column

With Gantt1
	.BeginUpdate 
	.MarkSearchColumn = False
	With .Columns
		.Add "Column 1"
		.Add("Column 2").Def(exCellBackColor) = 255
	End With
	With .Items
		.CellCaption(.AddItem(0),1) = 1
		.CellCaption(.AddItem(2),1) = 3
		.CellCaption(.AddItem(4),1) = 5
	End With
	.EndUpdate 
End With

698. How do i get all the children items that are under a certain parent Item handle

With Gantt1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.Columns.Add "P"
	With .Items
		h = .AddItem("Root")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
	End With
	With .Items
		hChild = .ItemChild(.FirstVisibleItem)
		Debug.Print(.CellCaption(hChild,0))
		Debug.Print(.CellCaption(.NextSiblingItem(hChild),0))
	End With
	.EndUpdate 
End With

697. How can I change the predefined labels being displayed in the chart's header so it shows the data in short format with no literals

With Gantt1
	.BeginUpdate 
	With .Chart
		.PaneWidth(False) = 0
		.LevelCount = 3
		.OverviewVisible = True
		.AllowOverviewZoom = exAlwaysZoom
		.Label(exYear) = "<%yy%><|><%yyyy%>"
		.Label(exHalfYear) = ""
		.Label(exQuarterYear) = ""
		.Label(exMonth) = "<|><%m%><|><%m%>/<%yy%><|><%m%>/<%yyyy%>"
		.Label(exThirdMonth) = ""
		.Label(exWeek) = "<|><%ww%><|><%m%>/<%d%>/<%yy%><r><%ww%><|><%m%>/<%d%>/<%yyyy%><r><%ww%><||><||>256"
		.Label(exDay) = "<|><%d%><|><%m%>/<%d%>/<%yy%><|><%m%>/<%d%>/<%yyyy%><||><||>4096"
		.Label(exHour) = "<|><%hh%><|><%m%>/<%d%>/<%yy%> <%h%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%> <%AM/PM%><||><||>65" & _
"536"
		.Label(exMinute) = "<|><%nn%><|><%h%>:<%nn% <%AM/PM%>><|><%m%>/<%d%>/<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%m%>/<%d%>/<%" & _
"yyyy%> <%h%>:<%nn%> <%AM/PM%>"
		.Label(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%>"
		.LabelToolTip(exYear) = "<%yyyy%>"
		.LabelToolTip(exHalfYear) = ""
		.LabelToolTip(exQuarterYear) = ""
		.LabelToolTip(exMonth) = "<%m%>/<%yyyy%>"
		.LabelToolTip(exThirdMonth) = ""
		.LabelToolTip(exWeek) = "<%m%>/<%d%>/<%yyyy%> <%ww%>"
		.LabelToolTip(exDay) = "<%m%>/<%d%>/<%yyyy%>"
		.LabelToolTip(exHour) = "<%m%>/<%d%>/<%yyyy%> <%h%> <%AM/PM%>"
		.LabelToolTip(exMinute) = "<%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
		.LabelToolTip(exSecond) = "<%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
		.UnitScale = exDay
	End With
	.EndUpdate 
End With

696. How can I get the caption of focused item

' SelectionChanged event - Fired after a new item has been selected.
Private Sub Gantt1_SelectionChanged()
	With Gantt1
		With .Items
			Debug.Print("Handle")
			Debug.Print(.FocusItem)
			Debug.Print("Caption")
			Debug.Print(.CellCaption(.FocusItem,0))
		End With
	End With
End Sub

With Gantt1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.Columns.Add "Items"
	With .Items
		h = .AddItem("R1")
		.InsertItem h,0,"Cell 1.1"
		.InsertItem h,0,"Cell 1.2"
		.ExpandItem(h) = True
		h = .AddItem("R2")
		.InsertItem h,0,"Cell 2.1"
		.InsertItem h,0,"Cell 2.2"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

695. How can I get the caption of selected item

' SelectionChanged event - Fired after a new item has been selected.
Private Sub Gantt1_SelectionChanged()
	With Gantt1
		With .Items
			Debug.Print("Handle")
			Debug.Print(.SelectedItem(0))
			Debug.Print("Caption")
			Debug.Print(.CellCaption(.SelectedItem(0),0))
		End With
	End With
End Sub

With Gantt1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.Columns.Add "Items"
	With .Items
		h = .AddItem("R1")
		.InsertItem h,0,"Cell 1.1"
		.InsertItem h,0,"Cell 1.2"
		.ExpandItem(h) = True
		h = .AddItem("R2")
		.InsertItem h,0,"Cell 2.1"
		.InsertItem h,0,"Cell 2.2"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

694. How can I highligth the item from the cursor as it moves

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Gantt1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With Gantt1
		.BeginUpdate 
		h = .ItemFromPoint(-1,-1,c,hit)
		With .Items
			.ClearItemBackColor Gantt1.Background(&H280 Or BackgroundPartEnum.exDateHeader Or BackgroundPartEnum.exCursorHoverColumn Or BackgroundPartEnum.exToolTipAppearance Or BackgroundPartEnum.exVSUp)
			.ItemBackColor(h) = RGB(240,250,240)
		End With
		.Background(&H280 Or BackgroundPartEnum.exDateHeader Or BackgroundPartEnum.exCursorHoverColumn Or BackgroundPartEnum.exToolTipAppearance Or BackgroundPartEnum.exVSUp) = h
		.EndUpdate 
	End With
End Sub

With Gantt1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.DrawGridLines = exHLines
	.SelBackColor = RGB(240,250,240)
	.SelForeColor = RGB(0,0,0)
	.ShowFocusRect = False
	With .Chart
		.SelBackColor = RGB(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"
		.ExpandItem(h) = True
		h = .AddItem("R2")
		.InsertItem h,0,"Cell 2.1"
		.InsertItem h,0,"Cell 2.2"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

693. How can I get the item from the cursor

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Gantt1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With Gantt1
		h = .ItemFromPoint(-1,-1,c,hit)
		Debug.Print("Handle")
		Debug.Print(h)
		Debug.Print("Index")
		Debug.Print(.Items.ItemToIndex(h))
	End With
End Sub

With Gantt1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.DrawGridLines = exHLines
	.Columns.Add "Items"
	With .Items
		h = .AddItem("R1")
		.InsertItem h,0,"Cell 1.1"
		.InsertItem h,0,"Cell 1.2"
		.ExpandItem(h) = True
		h = .AddItem("R2")
		.InsertItem h,0,"Cell 2.1"
		.InsertItem h,0,"Cell 2.2"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

692. How can I get the column from the cursor, not only in the header

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Gantt1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With Gantt1
		Debug.Print(.ColumnFromPoint(-1,0))
	End With
End Sub

With Gantt1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.Columns.Add "P1"
	.Columns.Add "P2"
	.DrawGridLines = exAllLines
	With .Items
		h = .AddItem("R1")
		.CellCaption(h,1) = "R2"
		.CellCaption(.InsertItem(h,0,"Cell 1.1"),1) = "Cell 1.2"
		.CellCaption(.InsertItem(h,0,"Cell 2.1"),1) = "Cell 2.2"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

691. How can I get the column from the cursor

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Gantt1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With Gantt1
		Debug.Print(.ColumnFromPoint(-1,-1))
	End With
End Sub

With Gantt1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.DrawGridLines = exAllLines
	.Columns.Add "P1"
	.Columns.Add "P2"
	With .Items
		h = .AddItem("R1")
		.CellCaption(h,1) = "R2"
		.CellCaption(.InsertItem(h,0,"Cell 1.1"),1) = "Cell 1.2"
		.CellCaption(.InsertItem(h,0,"Cell 2.1"),1) = "Cell 2.2"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

690. How can I get the cell's caption from the cursor

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Gantt1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With Gantt1
		h = .ItemFromPoint(-1,-1,c,hit)
		Debug.Print(.Items.CellCaption(h,c))
	End With
End Sub

With Gantt1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.Columns.Add "Items"
	With .Items
		h = .AddItem("R1")
		.InsertItem h,0,"Cell 1.1"
		.InsertItem h,0,"Cell 1.2"
		.ExpandItem(h) = True
		h = .AddItem("R2")
		.InsertItem h,0,"Cell 2.1"
		.InsertItem h,0,"Cell 2.2"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

689. Is it possible to change the style for the vertical or horizontal grid lines, in the list area

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

688. How can I show the bars over the grid lines, i.e. so you cannot see the grid lines 'through' the bar

With Gantt1
	.BeginUpdate 
	.DrawGridLines = exAllLines
	.GridLineColor = RGB(220,220,220)
	With .Chart
		.PaneWidth(0) = 48
		.FirstVisibleDate = #1/1/2001#
		.DrawGridLines = exAllLines
		.GridLineStyle = exGridLinesBehind
		.LevelCount = 2
		With .Level(1)
			.DrawGridLines = True
			.GridLineColor = RGB(220,220,220)
		End With
		With .Bars.Item("Task")
			.Pattern = 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

687. Is it possible to change the style for the vertical grid lines, in the chart area only

With Gantt1
	.BeginUpdate 
	.DrawGridLines = exAllLines
	.GridLineStyle = exGridLinesDash
	With .Chart
		.PaneWidth(0) = 48
		.FirstVisibleDate = #1/1/2001#
		.DrawGridLines = exAllLines
		.GridLineStyle = exGridLinesDash
		.LevelCount = 2
		.Level(1).DrawGridLines = True
		With .Level(0)
			.GridLineColor = RGB(255,0,0)
			.GridLineStyle = exGridLinesVSolid
		End With
		.Bars.Item("Task").Pattern = 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

686. Is it possible to change the style for the grid lines, for instance to be solid not dotted

With Gantt1
	.BeginUpdate 
	.DrawGridLines = exAllLines
	.GridLineStyle = exGridLinesSolid
	With .Chart
		.PaneWidth(0) = 48
		.FirstVisibleDate = #1/1/2001#
		.DrawGridLines = exAllLines
		.GridLineStyle = exGridLinesSolid
		.LevelCount = 2
		.Level(1).DrawGridLines = True
		.Bars.Item("Task").Pattern = 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

685. How can I show the grid lines for the chart and list area

With Gantt1
	.DrawGridLines = exAllLines
	With .Chart
		.PaneWidth(0) = 48
		.FirstVisibleDate = #1/1/2001#
		.DrawGridLines = exAllLines
		.LevelCount = 2
		.Level(1).DrawGridLines = True
		.Bars.Item("Task").Pattern = 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

684. How can I get the link from the point

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Gantt1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With Gantt1
		Debug.Print(.Chart.LinkFromPoint(-1,-1))
	End With
End Sub

With Gantt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #12/29/2000#
		.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"
		.Link("L1",exLinkText) = "L1"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/8/2001#,#1/10/2001#,"K3"
		.AddLink "L2",h2,"K2",h3,"K3"
		.Link("L2",exLinkText) = "L2"
	End With
	.EndUpdate 
End With

683. How can I get the bar from the point

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Gantt1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With Gantt1
		Debug.Print(.Chart.BarFromPoint(-1,-1))
	End With
End Sub

With Gantt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #12/29/2000#
		.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

682. How can I get the level from the cursor

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Gantt1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With Gantt1
		Debug.Print(.Chart.LevelFromPoint(-1,-1))
	End With
End Sub

With Gantt1
	With .Chart
		.FirstVisibleDate = #6/25/2010#
		.PaneWidth(False) = 0
		.LevelCount = 4
	End With
End With

681. I display numbers in my chart, but the AddBar requires a date how can I add a bar

With Gantt1
	.BeginUpdate 
	.Columns.Add "Tasks"
	With .Chart
		.PaneWidth(False) = 0
		.NonworkingDays = 0
		.FirstVisibleDate = 0
		.ToolTip = ""
		With .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

680. I display numbers in the chart's header but do not want to get displayed negative numbers. How can i do that

' DateChange event - Occurs when the first visible date is changed.
Private Sub Gantt1_DateChange()
	With Gantt1
		.Chart.FirstVisibleDate = 0
		.ScrollPartEnable(exHChartScroll,exLeftBPart) = False
	End With
End Sub

With Gantt1
	.BeginUpdate 
	With .Chart
		.PaneWidth(False) = 0
		.NonworkingDays = 0
		.FirstVisibleDate = 0
		.ToolTip = ""
		With .Level(0)
			.Label = "<%i%>"
			.ToolTip = "<%i%>"
		End With
		.UnitWidth = 24
	End With
	.EndUpdate 
End With

679. How can I display numbers in the chart's header instead dates

With Gantt1
	.BeginUpdate 
	With .Chart
		.PaneWidth(False) = 0
		.NonworkingDays = 0
		.FirstVisibleDate = 0
		.ToolTip = ""
		With .Level(0)
			.Label = "<%i%>"
			.ToolTip = ""
		End With
		.UnitWidth = 24
	End With
	.EndUpdate 
End With

678. How can I determine that a certain bar is the topmost

With Gantt1
	.Columns.Add "Task"
	With .Chart
		.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"
		.ItemBar(h,"B",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"
		.ItemBar(h,"A",exBarColor) = 255
	End With
End With

677. Is there any automatic way to change a property for all bars in the chart

With Gantt1
	.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"
		.ItemBar(0,"<ALL>",exBarColor) = 255
	End With
End With

676. I have an EBN file how can I apply different colors to it, so no need to create a new one

With Gantt1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.SelBackColor = .BackColor
	.SelForeColor = .ForeColor
	.HasLines = exNoLine
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root")
		hC = .InsertItem(h,0,"Default")
		.ItemBackColor(hC) = &H1000000
		.ItemHeight(.InsertItem(h,0,"")) = 6
		hC = .InsertItem(h,0,"Light Green")
		.ItemBackColor(hC) = &H100ff00
		.ItemHeight(.InsertItem(h,0,"")) = 6
		hC = .InsertItem(h,0,"Dark Green")
		.ItemBackColor(hC) = &H1007f00
		.ItemHeight(.InsertItem(h,0,"")) = 6
		hC = .InsertItem(h,0,"Magenta")
		.ItemBackColor(hC) = &H1ff7fff
		.ItemHeight(.InsertItem(h,0,"")) = 6
		hC = .InsertItem(h,0,"Yellow")
		.ItemBackColor(hC) = &H17fffff
		.ItemHeight(.InsertItem(h,