1218
How can I save the changes, such as column's width, order

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_Click()
	With Grid1
		.Layout = "Select=""0"";SingleSort=""C0:2"";Columns=1"
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.Columns.Add "Column"
		With .Items
			.AddItem "Item 1"
			.AddItem "Item 2"
			.AddItem "Item 3"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1217
How can I add totals to groups without having to go through the AddGroupItem grid function

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.FreezeEvents True
		.BeginUpdate 
		.HeaderAppearance = 4
		.HeaderHeight = 24
		.LinesAtRoot = -1
		With .ConditionalFormats
			With .Add("%CT1")
				.ForeColor = RGB(128,128,128)
				.ApplyTo = 1 ' &H1
			End With
			With .Add("%CT2")
				.ForeColor = RGB(128,128,128)
				.ApplyTo = 2 ' &H2
			End With
			With .Add("%CT3")
				.ForeColor = RGB(128,128,128)
				.ApplyTo = 3 ' &H3
			End With
		End With
		With .Columns
			.Add "Description"
			With .Add("Qty")
				.Editor.EditType = 4
				.Def(20) = "sum(current,rec,%1)"
			End With
			With .Add("Price")
				.Def(20) = "avg(current,rec,%2)"
				.Editor.EditType = 4
			End With
			With .Add("Amount")
				.ComputedField = "%1 * %2"
				.Def(20) = "sum(current,rec,%3)"
			End With
		End With
		With .Items
			r = .AddItem("Root")
			g1 = .InsertItem(r,,"Group 1")
			h = .InsertItem(g1,,"Item 1")
			.CellValue(h,1) = 1
			.CellValue(h,2) = 10
			h = .InsertItem(g1,,"Item 2")
			.CellValue(h,1) = 2
			.CellValue(h,2) = 11
			g2 = .InsertItem(r,,"Group 2")
			h = .InsertItem(g2,,"Item 1")
			.CellValue(h,1) = 3
			.CellValue(h,2) = 12
			h = .InsertItem(g2,,"Item 2")
			.CellValue(h,1) = 4
			.CellValue(h,2) = 13
			.ExpandItem(0) = True
		End With
		.EndUpdate 
		.FreezeEvents False
	End With
End Function
</SCRIPT>
</BODY>
1216
How can I configure the filters in the text columns to search by content

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.FilterBarPromptVisible = 1
		.HeaderAppearance = 0
		.FilterBarPromptType = 1
		.Columns.Add "Names"
		With .Items
			.AddItem "Mantel"
			.AddItem "Mechanik"
			.AddItem "Motor"
			.AddItem "Murks"
			.AddItem "Märchen"
			.AddItem "Möhren"
			.AddItem "Mühle"
			.AddItem "Sérigraphie"
		End With
		.FilterBarPromptPattern = "a"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1215
How can I display the control's captions in Spanish

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.FilterBarPromptVisible = 1
		.HeaderAppearance = 0
		.Description(0) = "(todo) "
		.Description(3) = "filtrar por..."
		.FilterBarPrompt = "<i><fgcolor=808080>iniciar filtro...</fgcolor></i>"
		With .Columns.Add("Names")
			.DisplayFilterButton = True
			.FilterType = 3
		End With
		With .Items
			.AddItem "Mantel"
			.AddItem "Mechanik"
			.AddItem "Motor"
			.AddItem "Murks"
			.AddItem "Märchen"
			.AddItem "Möhren"
			.AddItem "Mühle"
			.AddItem "Sérigraphie"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1214
How can I zoom in the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		s1 = 16
		s2 = .FormatABC("2 * value",s1)
		.ImageSize = s2
		.DefaultItemHeight = s2
		.HeaderHeight = s2
		.SortBarHeight = s2
		.Indent = s2
		.Font.Size = s1
		.FilterBarFont.Size = s1
		.ToolTipFont.Size = s1
		.FilterBarPromptVisible = 1
		.HeaderAppearance = 0
		With .Columns.Add("Names")
			.DisplayFilterButton = True
			.FilterType = 3
		End With
		With .Items
			.AddItem "Mantel"
			.AddItem "Mechanik"
			.AddItem "Motor"
			.AddItem "Murks"
			.AddItem "Märchen"
			.AddItem "Möhren"
			.AddItem "Mühle"
			.AddItem "Sérigraphie"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1213
Can I set a filter that automatically adds a * before and after the word, so the user can just search for 'cat' and it becomes '*cat*' automatically

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderAppearance = 4
		.HeaderHeight = 24
		.LinesAtRoot = -1
		With .Columns.Add("Items")
			.DisplayFilterButton = True
			.DisplayFilterPattern = True
			.Def(21) = "*<%filter%>*"
			.FilterType = 3
			.Filter = "1"
		End With
		With .Items
			h = .AddItem("Root 1")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.ExpandItem(h) = True
			h = .AddItem("Root 2")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1212
The fine dotted lines in the control appear much thicker than the standard ones we've been using. How can we fix this

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderAppearance = 4
		.HeaderHeight = 24
		.DrawGridLines = -1
		.GridLineStyle = 512
		.ColumnAutoResize = False
		.Columns.Add "Column 1"
		.Columns.Add "Column 2"
		.Columns.Add "Column 3"
		.Columns.Add "Column 4"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1211
Load data as a tree using a parent-id relationship

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.ColumnAutoResize = False
		.HeaderAppearance = 4
		.HeaderHeight = 24
		.DrawGridLines = 2
		.LinesAtRoot = -1
		Set rs = CreateObject("ADODB.Recordset")
		With rs
			.Open "Select * FROM Employees WHERE 1=0","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.mdb",3,3
		End With
		.DataSource = rs
		.Columns.Item(0).Width = 128
		Set rs = CreateObject("ADODB.Recordset")
		With rs
			.Open "Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.mdb",3,3
		End With
		.PutItems rs.GetRows(),";0;17"
		.Items.ExpandItem(0) = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1210
Is there a way to change the contents of the drop down editor based on a value in another column

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

<SCRIPT LANGUAGE="VBScript">
Function Grid1_EditOpen()
	With Grid1
		With .Items
			v = .CellValue(.FocusItem,0)
			c = .CellCaption(.FocusItem,0)
		End With
		With .Columns.Item(1).Editor
			.ClearItems 
			.AddItem v,c
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderAppearance = 4
		.HeaderHeight = 24
		.GridLineStyle = 512
		With .Columns.Add("DropDownList")
			With .Editor
				.EditType = 3
				.AddItem 1,"First"
				.AddItem 2,"Second"
				.AddItem 3,"Third"
			End With
		End With
		.DrawGridLines = -1
		.Columns.Add("DropDownList-Related").Editor.EditType = 3
		With .Items
			.CellValue(.AddItem(1),1) = -1
			.CellValue(.AddItem(2),1) = -1
			.CellValue(.AddItem(3),1) = -1
			.LockedItemCount(2) = 1
			h = .LockedItem(2,0)
			.ItemDivider(h) = 0
			.ItemDividerLineAlignment(h) = 2
			.CellEditorVisible(h,0) = False
			.CellSingleLine(h,0) = False
			.CellValueFormat(h,0) = 1
			.CellValue(h,0) = "The drop down editor in the second column is filled during the <b>EditOpen event</b>, and the values are based on the selection" & _
	" on the first column."
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1209
Highlight the editable fields

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_Change(Item,ColIndex,NewValue)
	With Grid1
		.Refresh 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

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

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_Change(Item,ColIndex,NewValue)
	With Grid1
		.Refresh 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.ConditionalFormats.Add("%CX0").Bold = True
		.HeaderAppearance = 4
		.HeaderHeight = 24
		.LinesAtRoot = -1
		With .Columns
			.Add("Item").Width = 16
			.Add "Desc"
		End With
		With .Items
			hR = .AddItem("Root")
			.CellValue(hR,1) = "The root directory /"
			.ExpandItem(hR) = True
			h = .InsertItem(hR,,"Home")
			.CellValue(h,1) = "The home directory with user directories Alice and Bob"
			.InsertItem h,,"Alice"
			.InsertItem h,,"Bob"
			.ExpandItem(h) = True
			h = .InsertItem(hR,,"Etc")
			.CellValue(h,1) = "The etc directory with one configuration file"
			h = .InsertItem(h,,"nginx.conf")
			.CellValue(.InsertItem(hR,,"Var"),1) = "The var directory"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1204
I am using exTotalColumn. Is there an option to exclude specific cells to display the total

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_Change(Item,ColIndex,NewValue)
	With Grid1
		.Refresh 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

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

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_Change(Item,ColIndex,NewValue)
	With Grid1
		.Refresh 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.FreezeEvents True
		.BeginUpdate 
		.HeaderAppearance = 4
		.HeaderHeight = 24
		.LinesAtRoot = -1
		With .Columns
			.Add "Description"
			With .Add("Qty")
				.Editor.EditType = 4
				.Def(20) = "sum(current,rec,%1)"
			End With
			With .Add("Price")
				.Def(20) = "avg(current,rec,%2)"
				.Editor.EditType = 4
			End With
			With .Add("Amount")
				.ComputedField = "%1 * %2"
				.Def(20) = "sum(current,rec,%3)"
			End With
		End With
		With .Items
			r = .AddItem("Root")
			g1 = .InsertItem(r,,"Group 1")
			h = .InsertItem(g1,,"Item 1")
			.CellValue(h,1) = 1
			.CellValue(h,2) = 10
			h = .InsertItem(g1,,"Item 2")
			.CellValue(h,1) = 2
			.CellValue(h,2) = 11
			g2 = .InsertItem(r,,"Group 2")
			h = .InsertItem(g2,,"Item 1")
			.CellValue(h,1) = 3
			.CellValue(h,2) = 12
			h = .InsertItem(g2,,"Item 2")
			.CellValue(h,1) = 4
			.CellValue(h,2) = 13
			.ExpandItem(0) = True
		End With
		.EndUpdate 
		.FreezeEvents False
	End With
End Function
</SCRIPT>
</BODY>
1202
Is it possible to disable sizing(size) the column
<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderAppearance = 4
		.DrawGridLines = 2
		With .Columns.Add("32px")
			.Width = 32
			.AllowSizing = False
		End With
		.Columns.Add "Rest"
		.ColumnAutoResize = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1201
How can I add two columns of 25% and the third of 50%

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderAppearance = 4
		.DrawGridLines = 2
		.Columns.Add("25%").Width = 25
		.Columns.Add("25%").Width = 25
		.Columns.Add("50%").Width = 50
		.ColumnAutoResize = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1200
I add two columns but I see a third column

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderAppearance = 4
		.DrawGridLines = 2
		.Columns.Add "C1"
		.Columns.Add "C2"
		.ColumnAutoResize = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1199
I lose the hierarchy, all items are on the same 1st level, while I use PutItems

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.LinesAtRoot = -1
		.Columns.Add "C1"
		.Columns.Add "C2"
		With .Items
			.CellValue(.AddItem("Emily"),1) = "William"
			.CellValue(.AddItem("Sophia"),1) = "Alexander"
		End With
		.PutItems .GetItems(""),.Items.ItemByIndex(0)
		.PutItems .GetItems(""),.Items.ItemByIndex(1)
		.PutItems .GetItems(""),.Items.ItemByIndex(6)
		.Items.ExpandItem(0) = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1198
Column width set by code is ignored or it seems that does not work

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.ColumnAutoResize = False
		.HeaderAppearance = 4
		.DrawGridLines = 2
		.Columns.Add("C1").Width = 32
		.Columns.Add("C2").Width = 132
		.Columns.Add("C3").Width = 264
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1197
I want to display this computed value in a TextBox outside the grid and get it updated with any change of its value. How can this be done
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_Change(Item,ColIndex,NewValue)
	With Grid1
		.Refresh 
		With .Items
			alert( "Total: " )
			alert( .CellCaption(.LockedItem(0,0),0) )
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .Columns.Add("Numbers")
			With .Editor
				.Numeric = -1
				.EditType = 4
			End With
			.SortType = 1
		End With
		With .Items
			.LockedItemCount(0) = 1
			h = .LockedItem(0,0)
			.ItemBackColor(h) = RGB(240,240,240)
			.CellValue(h,0) = "sum(all,dir,dbl(%0))"
			.CellValueFormat(h,0) = 4
			.CellHAlignment(h,0) = 2
			.FormatCell(h,0) = "'Total: '+value"
		End With
		With .Items
			.AddItem 10
			.AddItem 25
			.AddItem 31
			.AddItem 48
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1196
Disable temporarily the column's sort, resize and drag and drop

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.SortBarVisible = True
		.SortBarCaption = "<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)"
		.AllowGroupBy = True
		.HeaderEnabled = False
		.HeaderAppearance = 4
		.Columns.Add("Index").FormatColumn = "1 index ``"
		.Columns.Add("Pos").FormatColumn = "1 apos ``"
		.Columns.Add("Edit").Editor.EditType = 1
		.GridLineStyle = 512
		.DrawGridLines = 2
		.GridLineColor = RGB(224,224,224)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1195
I wonder if it’s possible to highlight/select a column like Excel
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_ColumnClick(Column)
	' Column.Selected = True
	' FocusColumnIndex = Column.Index
	With Grid1
		.Columns.Item(0).Selected = False
		.Columns.Item(1).Selected = False
		.Columns.Item(2).Selected = False
		.Items.SelectAll 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.Background(32) = -1
		.HeaderAppearance = 4
		.MarkSearchColumn = False
		.SingleSel = False
		.FullRowSelect = 1
		.SortOnClick = 0
		.Columns.Add "Column1"
		.Columns.Add "Column2"
		.Columns.Add "Column3"
		With .Items
			.DefaultItem = .AddItem(0)
			.CellValue(0,1) = 1
			.CellValue(0,2) = 2
			.DefaultItem = .AddItem(3)
			.CellValue(0,1) = 4
			.CellValue(0,2) = 5
			.DefaultItem = .AddItem(6)
			.CellValue(0,1) = 7
			.CellValue(0,2) = 8
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1194
Is it possible to change the color of the border

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABc8IQAAYAQGKIcBiAKBQAGaAoDDMMwyQwAAxDMK8EwsACEIrjKCRShyCYZRhGcTALBIBQSHAZZKgOJIRDENg2SANACRfIUaw1DqBZwkGZoW" & _
	"hGKgAShIEDwSKkQBlECeJpnKaqIomJYnDLQUw0NL9HQ3JaaKqnWLBVCWEQyVzEIyjBT0EzHMqtKrjaA6NpaP4oT7LEIydKFCRJNi0bSnGqaOj6UJSURRVq3TTFcTyAC3" & _
	"ahuOo4cpXB4SWrOd41fYNOTQACzbCsSIcPxCe6GXjiNwjPKMWhnIq+M5wXIrJyKCYUaTcejzfgdU5XWqeMoyewMXxmZqbXw/fBYRrEL5vTqNXTzSA4BEB"
		.Appearance = 16842496 ' &H100ff00
		.ColumnAutoResize = True
		.HeaderAppearance = 4
		.TreeColumnIndex = -1
		.DrawGridLines = -1
		.GridLineStyle = 512
		.Columns.Add "Default"
		With .Items
			.AddItem "before item"
			.AddItem "item"
			.AddItem "after item"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1193
Expandable-caption

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_AnchorClick(AnchorID,Options)
	With Grid1
		alert( AnchorID )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.ColumnAutoResize = True
		.TreeColumnIndex = -1
		.DrawGridLines = -1
		.GridLineStyle = 512
		.BackColorAlternate = RGB(240,240,240)
		.ShowFocusRect = False
		.Columns.Add "Default"
		With .Items
			.AddItem "before item"
			h = .AddItem("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4Aj" & _
	"MGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEB" & _
	"A==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DAB" & _
	"vABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>	" & _
	"650;</a><br>+ withdraw(amount: Currency)")
			.CellValueFormat(h,0) = 1
			.CellSingleLine(h,0) = False
			.AddItem "after item"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1192
Expandable-caption

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.ColumnAutoResize = True
		.TreeColumnIndex = -1
		.DrawGridLines = -1
		.GridLineStyle = 512
		.BackColorAlternate = RGB(240,240,240)
		.ShowFocusRect = False
		.Columns.Add "Default"
		With .Items
			.AddItem "before item"
			h = .AddItem("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
			.CellValueFormat(h,0) = 1
			.CellSingleLine(h,0) = False
			.AddItem "after item"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1191
Force hover-all feature
<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Background(500) = -1
	End With
End Function
</SCRIPT>
</BODY>
1190
Disable hover-all feature (Windows 11 or greater)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Background(500) = RGB(1,0,0)
	End With
End Function
</SCRIPT>
</BODY>
1189
Display a custom tooltip
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_MouseMove(Button,Shift,X,Y)
	With Grid1
		.ShowToolTip "new content","",,"+8","+8"
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()

End Function
</SCRIPT>
</BODY>
1188
Shows the tooltip of the object moved relative to its default position
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_MouseMove(Button,Shift,X,Y)
	With Grid1
		.ShowToolTip "<null>","<null>",,"+8","+8"
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.ColumnAutoResize = False
		.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
	End With
End Function
</SCRIPT>
</BODY>
1187
Delete all records
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_ButtonClick(Item,ColIndex,Key)
	With Grid1
		Set cmd = CreateObject("ADODB.Command")
		With cmd
			.ActiveConnection = Grid1.DataSource.ActiveConnection
			.CommandText = "Delete * from ORDERS"
			.CommandType = 1
			.Execute 
		End With
		.DataSource.Requery 
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function Grid1_Error(Error,Description)
	With Grid1
		alert( Description )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderAppearance = 4
		.ColumnAutoResize = False
		Set rs = CreateObject("ADODB.Recordset")
		With rs
			.Open "Select * From Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",1,3
		End With
		.DataSource = rs
		.ConditionalFormats.Add("%1=12345").BackColor = RGB(240,240,240)
		With .Items
			.LockedItemCount(0) = 1
			h = .LockedItem(0,0)
			.ItemDivider(h) = 0
			.CellHasButton(h,0) = True
			.CellValue(h,0) = "Requery (delete all records, using ADODB.Command)"
			.CellHAlignment(h,0) = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1186
How can I get a cell that shows the sum of a column of minutes in hours + minutes format

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderAppearance = 4
		With .Columns.Add("Minutes")
			.SortType = 1
			With .Editor
				.EditType = 1
				.Numeric = -1
			End With
		End With
		With .Items
			.AddItem 10
			.AddItem 20
			.AddItem 30
			.AddItem 40
			.AddItem 50
			h = .AddItem("sum(all,dir,dbl(%0))")
			.SelectableItem(h) = False
			.SortableItem(h) = False
			.CellValueFormat(h,0) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
			.CellHAlignment(h,0) = 2
			.FormatCell(h,0) = "'<b>HH:NN</b>: '+ (int(value/60) lpad '00') + ':' + ((value mod 60) lpad '00')"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1185
Highlight the match once the filter is applied

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

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.ColumnAutoResize = False
		.ContinueColumnScroll = False
		.CountLockedColumns = 1
		.BackColorLock = RGB(248,248,248)
		.HasLines = 1
		.LinesAtRoot = 5
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
		End With
		.DataSource = rs
		.SortBarVisible = True
		.SingleSort = False
		.AllowGroupBy = True
		.Columns.Item(0).Width = 128
		.Layout = "MultipleSort = ""C12:1 C1:2"""
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1181
ADOR, MDB (JET) 
<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.ColumnAutoResize = False
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.mdb",3,3
		End With
		.DataSource = rs
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1180
Editors (ImageSize = 32)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

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

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

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

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

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

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.ImageSize = 16
		.Images "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" & _
	"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" & _
	"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" & _
	"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" & _
	"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" & _
	"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
		With .VisualAppearance
			.Add 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
	"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" & _
	"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" & _
	"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" & _
	"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" & _
	"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" & _
	"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" & _
	"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" & _
	"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="
		End With
		.BackColorHeader = &H4c6c6c6
		.SelBackColor = &H4000000
		.SelForeColor = RGB(0,0,1)
		.Background(20) = .SelBackColor
		.Background(21) = .SelForeColor
		.Background(26) = .BackColor
		.Background(27) = .ForeColor
		.Background(32) = -1
		.Background(0) = &H4000000
		.Background(41) = &H4010101
		.Background(1) = &H40000ff
		.HeaderAppearance = 4
		.ShowFocusRect = False
		.SortBarVisible = True
		.AllowGroupBy = True
		.BackColorSortBar = .BackColor
		.BackColorLevelHeader = .BackColor
		.FilterBarDropDownHeight = 1
		With .Columns.Add("Check")
			.Def(0) = True
			.PartialCheck = True
			.Width = 128
			.DisplayFilterButton = True
			.FilterList = 256
		End With
		With .Columns.Add("Pos")
			.FormatColumn = "1 pos ``"
			.AllowSort = False
			.Width = 48
			.AllowSizing = False
			.Alignment = 1
			.HeaderAlignment = 1
		End With
		With .Columns.Add("Image")
			.DisplayFilterButton = True
			.FilterList = 8480 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
			.FilterType = 10
			.DisplayExpandButton = True
			.ExpandColumns = "1,2,3"
			.Width = 128
			.HeaderImage = 1
		End With
		With .Columns.Add("Images")
			.Def(0) = True
			.Width = 196
			.HTMLCaption = "<img>1</img><img>2</img><img>3</img> Images"
		End With
		.Columns.Item("Pos").Position = 3
		With .Items
			hR = .AddItem("Root")
			.ItemDivider(hR) = 0
			.ItemDividerLine(hR) = 0
			h = .InsertItem(hR,,"Child A")
			.CellImage(h,2) = 1
			.CellImages(h,3) = "1,2,3"
			.CellValue(h,3) = "123"
			h = .InsertItem(hR,,"Child B")
			.CellState(h,0) = 1
			.CellImage(h,2) = 3
			.CellImages(h,3) = "2,3,1"
			.CellValue(h,3) = "231"
			.SelectItem(h) = True
			h = .InsertItem(hR,,"Child C")
			.CellImage(h,2) = 2
			.CellState(h,3) = 1
			.CellValue(h,3) = "312"
			.CellImages(h,3) = "3,1,2"
			.ExpandItem(hR) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1175
The user clicks the drop-down filter, select a value and the control's list filters for the selected item(s). Is there a way for when the user then goes to the next column to add another filter and the drop down arrow is clicked for the list of values they can filter by to be limited to what is being displayed in the list due to the first filter they set

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

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.ColumnAutoResize = False
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
		End With
		.DataSource = rs
		.Columns.Item("ShipVia").Position = 2
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1174
Does the control display images from database (ADO)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.ColumnAutoResize = False
		.DrawGridLines = -1
		.GridLineStyle = 512
		.DefaultItemHeight = 48
		With CreateObject("DAO.DBEngine.36")
			Set rs = .OpenDatabase("C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.mdb").OpenRecordset("Employees")
		End With
		.DataSource = rs
		With .Columns.Item("Photo")
			.Position = 1
			.Width = 128
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1172
Is it possible to set from code, a column sort without being inserted in the sortbar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.ColumnAutoResize = False
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
		End With
		.DataSource = rs
		.SortBarVisible = True
		.Layout = "singlesort=""C1:1"""
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1171
Is it possible to view all events the control fires
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_Event(EventID)
	With Grid1
		alert( .EventParam(-2) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.LinesAtRoot = -1
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
			.Def(17) = 1
			.FormatColumn = "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)"
			.Editor.EditType = 1
		End With
		.HeaderVisible = 1
		With .Items
			h = .AddItem("Project")
			hChild = .InsertItem(h,,"Task 1")
			.SelectItem(hChild) = True
			hChild = .InsertItem(h,,"Task 2")
			.CellState(hChild,0) = 1
			hChild = .InsertItem(h,,"Task 3")
			.CellState(hChild,0) = 1
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1170
How can I find all occurences of the giving value, within a column
<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.Columns.Add "Default"
		With .Columns.Add("Pos")
			.FormatColumn = "1 pos 'A-Z'"
			.Position = 0
			.AllowSizing = False
			.Width = 32
			.Enabled = False
		End With
		With .Columns.Add("Index")
			.FormatColumn = "0 index ''"
			.AllowSizing = False
			.Width = 32
			.Enabled = False
		End With
		With .Items
			.AddItem "A"
			.AddItem "A"
			.AddItem "A"
			alert( .CellCaption(.FindItem("A",0,0),1) )
			alert( .CellCaption(.FindItem("A",0,1),1) )
			alert( .CellCaption(.FindItem("A",0,2),1) )
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1169
How can I prevent expanding/collapsing the child items

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

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.SingleSel = False
		.Columns.Add "Default"
		.LinesAtRoot = -1
		With .Items
			h = .AddItem("Root 1")
			.InsertItem .InsertItem(h,,"Child 1.1"),,"Child"
			.InsertItem h,,"Child 1.2"
			.ExpandItem(h) = True
			h = .AddItem("Root 2")
			.InsertItem .InsertItem(h,,"Child 2.1"),,"Child"
			.InsertItem h,,"Child 2.2"
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1168
How can I display the EBN bigger or smaller (thumb)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .VisualAppearance
			.Add 1,"c:\exontrol\images\normal.ebn"
			.Add 10,"CP:1 0 3 0 -3"
			.Add 17,"CP:1 3 0 -3 0"
		End With
		.Background(388) = &Ha000000
		.Background(260) = &H11000000
		.ScrollBars = 3855 ' ScrollBarsEnum.exVScrollEmptySpace Or ScrollBarsEnum.exHScrollEmptySpace Or ScrollBarsEnum.exVScrollOnThumbRelease Or ScrollBarsEnum.exHScrollOnThumbRelease Or ScrollBarsEnum.exDisableBoth
		.ScrollBySingleLine = True
		.Columns.Add "Def"
		With .Items
			.AddItem 1
			.AddItem 2
			.AddItem 3
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1167
I am using GroupBy feature to create a tree, but the top rows are aligned with the children, not indented. What could be wrong

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

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

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .Columns
			.Add "C1"
			.Add "C2"
		End With
		.LinesAtRoot = -1
		.SortBarVisible = True
		.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
		.AllowGroupBy = True
		With .Items
			h = .AddItem("Item A")
			.CellValue(h,1) = "SubItem A.1"
			h = .AddItem("Item A")
			.CellValue(h,1) = "SubItem A.1"
			h = .AddItem("Item A")
			.CellValue(h,1) = "SubItem A.1"
			h = .AddItem("Item A")
			.CellValue(h,1) = "SubItem A.1"
			h = .AddItem("Item B")
			.CellValue(h,1) = "SubItem B.1"
			h = .AddItem("Item B")
			.CellValue(h,1) = "SubItem B.1"
		End With
		.Columns.Item(0).SortOrder = 1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1166
How can I display an item of picture type

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		back = 65536
		fore = 16777215
		.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
	"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
	"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA"
		.VisualAppearance.Add 2,"gBFLBCJwBAEHhEJAAEhABPMIQAAYAQGKIcBiAKBQAGaAoDDcMgwQwAAxjIKUEwsACEIrjKCYVgOHYYQjGMZwHCMIhiGwcAChEZYHgkMYmDAMUhSE78axHG6PY7kKZ4b" & _
	"iaKIqQLLEhSfJ0YyBECBZpfebIbjmIZMSLEIxDKItJSpCIaRgqWS6ahGO4JUbUFLQHT9IR4daIYRgEEBA"
		.VisualAppearance.Add 3,"gBFLBCJwBAEHhEJAAEhABUUIQAAYAQGKIcBiAKBQAGaAoDDcMgwQwAAxjIKUEwsACEIrjKCYVgOHYYQjGMZwGAsEwjAoYAChEaILgkMw2DBIQwgJIMEr/G6RZxjeL5C" & _
	"jmG4nDhKMpybAcXxjBIYZJgOQpXb+PobTrNNLzfRFAxVAaWJikcZ4HpIAJNVLFdQ0XYMNSBISsBqrKiKcpeIIDWBZMbRZT1ZABCIZBpEW6LahENQwXrCN74DYkNTdKax" & _
	"bbuaaXLhGCYBgIA=="
		.HeaderAppearance = 5
		.BackColor = back
		.BackColorHeader = back
		.BackColorLevelHeader = back
		.BackColorSortBar = back
		.BackColorSortBarCaption = back
		.FilterBarBackColor = back
		.FilterBarForeColor = fore
		.ForeColor = fore
		.ForeColorHeader = fore
		.ForeColorSortBar = fore
		.SelBackColor = fore
		.SelForeColor = back
		.Background(0) = &H1000000
		.Background(32) = -1
		.Background(64) = &H3000000
		.Background(65) = back
		.Background(66) = fore
		.Background(20) = fore
		.Background(21) = back
		.Background(26) = back
		.Background(27) = fore
		.Background(28) = back
		.Background(511) = back
		.Description(25) = "<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1164
I have changed the font, but the item's height remains the same. What I am doing wrong

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.ColumnAutoResize = False
		.LoadXML "http://www.exontrol.net/testing.xml"
		.Font.Size = 22
		.HeaderHeight = 42
		.DefaultItemHeight = 36
		.Items.ItemHeight(0) = Grid1.DefaultItemHeight
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1163
How can I specify the cell's outline, border or lines around, when the cell gets selected

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.AttachTemplate "handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}"
		With .VisualAppearance
			.Add 1,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH" & _
	"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" & _
	"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" & _
	"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" & _
	"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA="
			.Add 2,"CP:1 -4 0 0 0"
		End With
		.SelBackColor = &H2000000
		.SelForeColor = RGB(0,0,1)
		.FullRowSelect = 0
		.ShowFocusRect = False
		.DefaultItemHeight = 24
		.HeaderHeight = 24
		.DrawGridLines = 2
		.Columns.Add "C1"
		.Columns.Add "C2"
		With .Items
			.CellValue(.AddItem("Cell 1"),1) = "Cell 2"
			.CellValue(.AddItem("Cell 3"),1) = "Cell 4"
		End With
		.Items.SelectPos = 1
		.SelectColumnIndex = 1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1162
How can I specify the cell's outline, border or lines around, when the item gets selected

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.AttachTemplate "handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}"
		.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH" & _
	"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" & _
	"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" & _
	"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" & _
	"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA="
		.SelBackColor = &H1000000
		.SelForeColor = RGB(0,0,1)
		.ShowFocusRect = False
		.DefaultItemHeight = 24
		.HeaderHeight = 24
		.DrawGridLines = 2
		.Columns.Add "C1"
		.Columns.Add "C2"
		With .Items
			.CellValue(.AddItem("Cell 1"),1) = "Cell 2"
			.CellValue(.AddItem("Cell 3"),1) = "Cell 4"
			.SelectPos = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1161
How can I specify the cell's outline, border or lines around

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.AttachTemplate "handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}"
		.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH" & _
	"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" & _
	"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" & _
	"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" & _
	"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA="
		.SelBackMode = 1
		.ShowFocusRect = False
		.DefaultItemHeight = 24
		.HeaderHeight = 24
		.DrawGridLines = 2
		.Columns.Add "C1"
		.Columns.Add "C2"
		With .Items
			.CellValue(.AddItem("Cell 1"),1) = "Cell 2"
			h = .AddItem("Cell 2")
			.CellValue(h,1) = "Cell 3"
			.CellBackColor(h,1) = &H1000000
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1160
Is it possible to highligth the match while a filter is applied

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_AddColumn(Column)
	' Column.Def(17) = 1
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function Grid1_FilterChange()
	With Grid1
		format = .FormatABC("`value replace '` + value + `' with '<bgcolor 000000><fgcolor FFFFFF>` + value  + `</fgcolor></bgcolor>'`",.FilterBarPromptPattern)
		.Columns.Item(0).FormatColumn = format
		.Columns.Item(1).FormatColumn = format
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.DrawGridLines = 2
		.HeaderAppearance = 4
		.Columns.Add "Col 1"
		.Columns.Add "Col 2"
		With .Items
			.CellValue(.AddItem("219 Smith"),1) = "Ignacio 1234"
			.CellValue(.AddItem("1666 County Road 309A"),1) = "897 Manassa"
			.CellValue(.AddItem("38 Lone Pine"),1) = "Durango 11"
			.CellValue(.AddItem("612 Jachim Street"),1) = "Lamar 222"
		End With
		.FilterBarPromptPattern = "1"
		.FilterBarPromptVisible = 2067 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		.FilterBarPromptType = 257 ' FilterPromptEnum.exFilterPromptCaseSensitive Or FilterPromptEnum.exFilterPromptContainsAll
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1159
How can I replace the cell's context menu ( while edit mode is running )

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_RClick()
	With Grid1
		alert( "Edit Mode: " )
		alert( .Editing )
		With CreateObject("Exontrol.ContextMenu")
			.Items.ToString = "Check[chk],[sep],Item 1,Item 2,Item 3,Popup(A,B,C)"
			alert( .Select() )
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderAppearance = 1
		With .Columns.Add("Column").Editor
			.EditType = 1
			.Option(202) = False
		End With
		With .Items
			.AddItem "Item 1"
			.AddItem "Item 2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1158
Is it possible to highlight the column's header once a filter is applied (sample 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .VisualAppearance
			.Add 1,"gBFLBCJwBAEHhEJAAEhABO8GACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwQgmNYDSBMcbwS" & _
	"AsXRYFocJ5gOT6AjKBA2UclEZpajiTY3ABUEgUS5oOBIACqariaQJAAiCRQGiYZyHKaRSwPBKFYDIIjbJheTIDChNVxUcDENQjJqLBIDRzbarye59YBfeBXdgmA4LQbD" & _
	"MRwNgMMQTDqKYbkOQZHbeGKAWTMEZzJj8cxTEqIaBhGTLfojSZMS7UGK1LLtMyHI6kP7sOiLfi2W4/W7XV72F79TzXIa2ZBuO57bhnAZ/VzGNj4PRNezfRqicjsGxcZw" & _
	"Xg+TpQj0ew6gSOw7wSbozjsfYXi8PwMnSc52leHotl+MxjmoXh2nybxOH+SQtnYXx+D2P4vGMB56hQf5PCgBYeDwYBCEo1xggebgKH6IIDBYBgkiAQ5FgYPAhEIRgWGq" & _
	"DBoC4GoCiGCBYhGBQPAWdIQp0eIUiWCZigiJgqgqYpIioJQhmIMhBH0NxjEMag2g2Y4ImYOoOmOSJeDQNxXlOLR3ECUAQICA="
			.Add 2,"gBFLBCJwBAEHhEJAAEhABgsHQAAYAQGKIcBiAKBQAGaAoDDYNwwQwAAxDAKcEwsACEIrjKCRShyCYZRrGUgRCKQahLEiTIhGUYJHgmK4tRoAUgxWCEExrAaQJjjeCQF" & _
	"i6LAtDhPMByfQEZQIGyjkgjNLUcSbG4AKgkCiXfpUAJVP7FcgSABEEigNIxToOU4jFgeCYLQKQRK2RC9GQGFCbLhpYKIahGTYWVheN5XXblez9P7ABQwKCcAwXBp7YIK" & _
	"AT4XBIdYdQ7IL4xGA0AJPFoJC7mOQ5XiYAIBAZ/RL0LCcbxHHafVboQj6JouD5PUDVNY1XBdPynI6CbLhWy6Dq4UZzPwzeBifSHfDjRoJcCZe71KY3GwSEboNA6Kp+QB" & _
	"HAmZoZjSPYIEiF47lOLJVnuYofBwJJHmaQoYj0MIRHeM4/m6cJ8B+fpBHQJ5SGKPYYH8OYMk+P5Bn4fxaAYZAvEIX4RgUWBGgCCAmAqApgkgNgOgMEYlGASoEkQeBWBa" & _
	"BZhggZgagaYRoEwShWA6NZZAMQBAICA=="
		End With
		.Background(0) = &H1000000
		.Background(41) = &H2000000
		.Background(32) = -1
		.HeaderHeight = 28
		.BackColorHeader = RGB(255,255,255)
		.DrawGridLines = -2
		.HeaderVisible = 1
		With .Columns
			.Add("C1").DisplayFilterButton = True
			With .Add("C2")
				.DisplayFilterButton = True
				.Filter = "Item 2"
				.FilterType = 240
			End With
			.Add("C3").DisplayFilterButton = True
		End With
		With .Items
			h = .AddItem("Item 1")
			.CellValue(h,1) = "Item 2"
			.CellValue(h,2) = "Item 3"
			h = .AddItem("Item 4")
			.CellValue(h,1) = "Item 5"
			.CellValue(h,2) = "Item 6"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1157
How can I make the expand/collapse glyphs DPI aware

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		size = 2
		.BeginUpdate 
		With .VisualAppearance
			.Add 3,"gBFLBCJwBAEHhEJAAEhEGAUHQAAYAQGKIcBiAKBQAGaAoDDYOA4QwAAxDAKcEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBRfIUEghGyNZjgNzQc" & _
	"CQAI8T5IUgARBJIDSMY6DpOIxYHgmC4DEITNLxOK0EhRHCBZrgOCAYhqEY1Ro+dhPFYjVTMdK0LRtKy7Mq2aJmOpZDxWE7dZKpO5fbxXS67cr2fp/YBed4rfa7KTlOBK" & _
	"cRQRBEFQPDqPZBkORZHh2FoLRJKbgtHJmHYNQWhVyYBbNCyTI6lahpeuHBx1QaWWxjbCMEr6bpoWLbFi3Ha1UzrPa8b5vSw7Gr+HzYQTHGPXGqaYJdZrnea6B7+U5XUJ" & _
	"rnSOZciYHwhAeR5HDK+JVGqKRRmScx5HyfRei+H5bmmcp4Fi8o/CGGJKGQKZUGoFQigUPIiCeSZXnyHB6l0SAJn8JxfkIeZ5CgXxjCCAhyB8QgIlAM4MlKAIcCaIBIGY" & _
	"GoGGEYhqBMMxgnICgRDUDQjESGwmAkWBuCqBoiHIVgkDQYgYESWg2E0YhohcJQigITg3CQSRyEyEYGGOWJwhQJD4FiFIMk0aJFGsIBkkOBJeDc+AchYJwJgIWhSgYZQp" & _
	"FIVoVGOGQ4l2EwIBWMhgDmDhThCEwkAiaJchKDhjhgZhsCUY4iFCEoZkiaYQmSGAWhWQhgDuDpTjCDQiEgchAg0IpJBoDoFiEKBqCaCAimgIguH8IZnkPUhcBcJg+hGJ" & _
	"ZnloYJsiaKZKGa24YnWSR0CkKhCA2CxlCqColhAYpqEKER0DqVZ0A0ASAgA=="
			.Add 4,"gBFLBCJwBAEHhEJAAEhABAQCg6AADACAxRDgMQBQKAAzQFAYbBwHCGAAGIYBTgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACjeQYJBCNYbTJAbqhY" & _
	"IgAR3HqQZABCCSQKkYx0HScRiwPBMFwGIQmaaicZoJCiN4DTZAcIBRDUIxpDR9bBeKw3KqVaZnWhaNpWXZlTzKdSxXisF67RZSdi/XgvF5XXblez9P69LwXe5mUrGbyV" & _
	"YghCCIKgeG4dR7IMhyLDcKQXCCVW7aGSsOwbAqAXpdGAXTQdDyLJKnaZqOi6BjjA4rNbHGIYJb1XTRMa1LJuG5LJrOeZ3Xre4BLfh1VoFRpjWIYNY1QS7TLOczzfRdDx" & _
	"TiGVpkjCeJoD4Ng1hSRxiisVRKg8D4PkWZJznmPQ+F8Xx5guWpjHGWYMiYQodEaIRSCgU5KCSeh3naHB/iAAh9n8fwfgIeZ1CgXwjCCAhxl8AgIlAM4MlKAIcCaD54FY" & _
	"FoFmGCBmBaBIJigPJNgKSAoDSVC+BIbIYCUYYoiYKoJgkWIMlGCAglMaJZDWCYiFyFIJkkOJYhEJc7G4PYPCOaJshQJBjgiVIUgyDRokEaggGSQ4El4N1CBiFgnAmAha" & _
	"FKFZlFkShUhWJRYmITg3GSQgFGuGBOGOFJkCSSQCDoNgkiOCY0hUJJmmmQhvhqZtYmUOQmBWIRvhgTpjjSbAjEiEgchBZgyEaBIhigWgegqIhIjoDILiACB5nTL5WnWR" & _
	"YOiSKYJnqGQ7CmOh2hqJ5OkYORxFyShKhSAxihkOomioY5YiqFIkFyTo1HkAxAEAgIA=="
			.Add 1,Grid1.FormatABC("`CP:3 -` + int(value*dpi) + ` -` + int(value*dpi) + ` ` +  int(value*dpi) + ` ` + int(value*dpi)",size)
			.Add 2,Grid1.FormatABC("`CP:4 -` + int(value*dpi) + ` -` + int(value*dpi) + ` ` +  int(value*dpi) + ` ` + int(value*dpi)",size)
		End With
		.LinesAtRoot = 1
		.HasButtons = 4
		.HasButtonsCustom(0) = 16777216
		.HasButtonsCustom(1) = 33554432
		.Columns.Add "Column"
		With .Items
			h = .AddItem("Root 1")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.ExpandItem(h) = True
			h = .AddItem("Root 2")
			.InsertItem h,,"Child"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1156
Is it possible to highlight the column's header once a filter is applied (sample 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .VisualAppearance
			.Add 2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN" & _
	"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" & _
	"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" & _
	"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" & _
	"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" & _
	"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI="
			.Add 1,"CP:2 -8 -4 2 4"
		End With
		.Background(0) = &H1fefefe
		.Background(41) = &H1010101
		.Background(32) = -1
		.HeaderHeight = 28
		.BackColorHeader = RGB(255,255,255)
		.DrawGridLines = -2
		.HeaderVisible = 1
		With .Columns
			.Add("C1").DisplayFilterButton = True
			With .Add("C2")
				.DisplayFilterButton = True
				.Filter = "Item 2"
				.FilterType = 240
			End With
			.Add("C3").DisplayFilterButton = True
		End With
		With .Items
			h = .AddItem("Item 1")
			.CellValue(h,1) = "Item 2"
			.CellValue(h,2) = "Item 3"
			h = .AddItem("Item 4")
			.CellValue(h,1) = "Item 5"
			.CellValue(h,2) = "Item 6"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1155
How do I update itemcount and matchitemcount of the FilterBarCaption after I added the item using the AddItem method
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_Click()
	With Grid1
		.Items.AddItem "new"
		.Refresh 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .Columns.Add("Item")
			.DisplayFilterButton = True
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
		End With
		With .Columns.Add("Pos")
			.AllowSizing = False
			.AllowSort = False
			.Width = 32
			.FormatColumn = "1 apos ``"
			.Position = 0
		End With
		With .Items
			.AddItem "Item A"
			.AddItem "Item B"
			.AddItem "Item C"
		End With
		.FilterBarCaption = "`<r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1" & _
	") + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )"
		.FilterBarPromptVisible = 3591 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1154
I can't get values in the column properly centered. What can be the problem

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.TreeColumnIndex = -1
		.DrawGridLines = -2
		With .Columns.Add("Default")
			.Alignment = 1
			.FormatColumn = "ltrim(rtrim(value))"
		End With
		.Items.AddItem "item 1            "
		.Items.AddItem "             item 2"
		.Items.AddItem "   item 3                "
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1153
The Edit method does not work while ReadOnly property is exLocked and the first column is hidden. Is there any fix

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_DblClick(Shift,X,Y)
	With Grid1
		var_ItemFromPoint = .ItemFromPoint(-1,-1,c,hit)
		.FocusColumnIndex = c
		.Edit 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderAppearance = 4
		.AutoEdit = False
		.ReadOnly = 1
		.AutoSearch = True
		.Columns.Add("").Visible = False
		With .Columns.Add("Contains")
			.AutoSearch = 1
			.Editor.EditType = 1
		End With
		With .Items
			.CellValue(.AddItem(),1) = "Tom Hanks"
			.CellValue(.AddItem(),1) = "Leonardo DiCaprio"
			.CellValue(.AddItem(),1) = "Will Smith"
			.CellValue(.AddItem(),1) = "Tom Cruise"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1152
How can I enable the Undo/Redo feature

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.AllowUndoRedo = True
		.LinesAtRoot = -1
		.HeaderAppearance = 4
		With .Columns.Add("P1")
			.Def(0) = True
			.PartialCheck = True
		End With
		With .Columns.Add("P2")
			.Def(0) = True
			.PartialCheck = True
		End With
		With .Items
			h = .AddItem("Root")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.ExpandItem(h) = True
			.AddItem "Press CTRL + Z for Undo, and CTRL + Y for Redo"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1151
The incremental search feature is no working for columns with editor assigned. What can be done

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_DblClick(Shift,X,Y)
	With Grid1
		.Edit 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderAppearance = 4
		.AutoEdit = False
		.AutoSearch = True
		With .Columns.Add("Contains")
			.AutoSearch = 1
			.Editor.EditType = 1
		End With
		With .Items
			.AddItem "Tom Hanks"
			.AddItem "Leonardo DiCaprio"
			.AddItem "Will Smith"
			.AddItem "Tom Cruise"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1150
Each item is representated by a key as string. Is it possible to have a drop down editor to display more information when using the item's key

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderAppearance = 4
		With .Columns.Add("Multiple-Columns Tree DropDownListType").Editor
			.EditType = 3
			.AddItem 0,"KR|Korea, Republic of"
			.AddItem 1,"MO|Macao"
			.AddItem 2,"SA|Saudi Arabia"
			.AddItem 3,"EG|Egypt"
			.AddItem 4,"GB|United Kingdom"
			.AddItem 5,"GT|Guatemala"
			.AddItem 6,"SR|Suriname"
			.AddItem 7,"BM|Bermuda"
		End With
		With .Items
			.AddItem "EG"
			.AddItem "GB"
			.AddItem "BM"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1149
My table includes codes/keys for items, can I display a drop down editor to include more information

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderAppearance = 4
		With .Columns.Add("Multiple-Columns DropDownListType").Editor
			.EditType = 3
			.DropDownAutoWidth = 0
			.Option(57) = "City¦Coordinates¦State"
			.AddItem 0,"JV3|Jollyville¦3026N 09746W¦Texas"
			.AddItem 1,"TMO|Altamont¦4021N 11017W¦Utah"
			.AddItem 2,"IIM|Williamston¦4241N 08417W¦Michigan"
			.AddItem 3,"IWN|Merrittstown¦3958N 07952W¦Pennsylvania"
			.AddItem 4,"HOU|Houston¦2945N 09521W¦Texas"
			.AddItem 5,"GSF|Gales Ferry¦4125N 07205W¦Connecticut"
		End With
		With .Items
			.AddItem "HOU"
			.AddItem "IIM"
			.AddItem "TMO"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1148
How can I display and select from a multiple-columns tree editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.HeaderAppearance = 4
		With .Columns.Add("Multiple-Columns Tree DropDownListType").Editor
			.EditType = 3
			.DropDownAutoWidth = 0
			.Option(57) = "Name¦Title¦City¦Phone"
			.Option(58) = "224¦¦¦96"
			.AddItem 1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1
			.AddItem 2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2
			.InsertItem 3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3,2
			.InsertItem 4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3,2
			.InsertItem 5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2,2
			.InsertItem 6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1,5
			.InsertItem 7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2,2
			.InsertItem 8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3,2
			.InsertItem 9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2,5
			.ExpandAll 
		End With
		With .Items
			.AddItem 1
			.AddItem 2
			.AddItem 4
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1147
Does you control support multiple-columns for a drop down editor

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderAppearance = 4
		With .Columns.Add("Multiple-Columns DropDownListType").Editor
			.EditType = 3
			.DropDownAutoWidth = 0
			.AddItem 0,"Jollyville¦JV3¦3026N 09746W¦TX"
			.AddItem 1,"Altamont¦TMO¦4021N 11017W¦UT"
			.AddItem 2,"Williamston¦IIM¦4241N 08417W¦MI"
			.AddItem 3,"Merrittstown¦IWN¦3958N 07952W¦PA"
			.AddItem 4,"Houston¦HOU¦2945N 09521W¦TX"
			.AddItem 5,"Gales Ferry¦GSF¦4125N 07205W¦CT"
		End With
		With .Items
			.InsertItem 0,"",1
			.InsertItem 0,"",2
			.InsertItem 0,"",4
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1146
Is it possible to show the filterbar on top of the rows

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.FilterBarPromptVisible = 8192
		.HeaderHeight = 24
		.FilterBarHeight = .HeaderHeight
		.HeaderAppearance = 1
		.DrawGridLines = -1
		.GridLineStyle = 512
		With .Columns.Add("Column")
			.DisplayFilterButton = True
			.FilterType = 3
			.Filter = "B*"
		End With
		With .Columns.Add("Index")
			.FormatColumn = "1 index ``"
			.Position = 0
			.Width = 48
			.AllowSizing = False
			.SortType = 1
			.Def(0) = True
		End With
		With .Items
			.AddItem "A.1"
			.AddItem "A.2"
			.AddItem "B.1"
			.AddItem "B.2"
			.AddItem "B.3"
			.AddItem "C"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1145
DragDrop (with visual effect)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_OLEDragDrop(Data,Effect,Button,Shift,X,Y)
	' SelectItem(InsertItem(i,, Data.GetData(1))) = True
	With Grid1
		i = .ItemFromPoint(-1,-1,c,hit)
		With .Items
			.ExpandItem(i) = True
		End With
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function Grid1_OLEStartDrag(Data,AllowedEffects)
	' Data.SetData(Me.Items.CellCaption(FocusItem, 0), 1)
	With Grid1
		AllowedEffects = 1
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABPUIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIaRjEEQDCKYcxHCaIBiGcaIfDEBIeSBHcgRbAcOQHGSZZBhGRJG" & _
	"juKIbSrLICzBDUcRnGwAKQoaaaEomHwyAZOYwDAIoWhpKKCKjqWJKNb+XgAAJTES0RRVRTNAZ1YghGAQgIA=="
		.Background(96) = &H1000000
		.Background(33) = RGB(0,0,0)
		.Background(34) = RGB(255,255,255)
		.OLEDropMode = 1
		.AutoDrag = 196608
		.LinesAtRoot = -1
		.Indent = 16
		.SelBackMode = 1
		.Columns.Add "Default"
		With .Items
			h = .AddItem("Root")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.ExpandItem(h) = True
		End With
		alert( "You can:" )
		alert( "A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)" )
		alert( "B) right-click to re-arrange the item position inside the same control" )
		alert( "This sample shows how you can insert the data being dropped as a child of the item being hovered." )
	End With
End Function
</SCRIPT>
</BODY>
1144
DragDrop (with no visual effect, hide item while drag and drop)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_OLEDragDrop(Data,Effect,Button,Shift,X,Y)
	' SelectItem(InsertItem(i,, Data.GetData(1))) = True
	With Grid1
		i = .ItemFromPoint(-1,-1,c,hit)
		With .Items
			.ExpandItem(i) = True
		End With
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function Grid1_OLEStartDrag(Data,AllowedEffects)
	' Data.SetData(Me.Items.CellCaption(FocusItem, 0), 1)
	With Grid1
		AllowedEffects = 1
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.Background(33) = RGB(0,0,0)
		.Background(34) = RGB(255,255,255)
		.OLEDropMode = 1
		.AutoDrag = 196608
		.LinesAtRoot = -1
		.Indent = 16
		.SelBackMode = 1
		.Columns.Add "Default"
		With .Items
			h = .AddItem("Root")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.ExpandItem(h) = True
		End With
		alert( "You can:" )
		alert( "A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)" )
		alert( "B) right-click to re-arrange the item position inside the same control" )
		alert( "This sample shows how you can insert the data being dropped as a child of the item being hovered." )
	End With
End Function
</SCRIPT>
</BODY>
1143
DragDrop

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_OLEDragDrop(Data,Effect,Button,Shift,X,Y)
	' SelectItem(InsertItem(i,, Data.GetData(1))) = True
	With Grid1
		i = .ItemFromPoint(-1,-1,c,hit)
		With .Items
			.ExpandItem(i) = True
		End With
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function Grid1_OLEStartDrag(Data,AllowedEffects)
	' Data.SetData(Me.Items.CellCaption(FocusItem, 0), 1)
	With Grid1
		AllowedEffects = 1
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.OLEDropMode = 1
		.AutoDrag = 196608
		.LinesAtRoot = -1
		.Indent = 16
		.SelBackMode = 1
		.Columns.Add "Default"
		With .Items
			h = .AddItem("Root")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.ExpandItem(h) = True
		End With
		alert( "You can:" )
		alert( "A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)" )
		alert( "B) right-click to re-arrange the item position inside the same control" )
		alert( "This sample shows how you can insert the data being dropped as a child of the item being hovered." )
	End With
End Function
</SCRIPT>
</BODY>
1142
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header (non-clickable)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderAppearance = 4
		With .Columns
			.Add "Item"
			With .Add("Pos")
				.Position = 0
				.Width = 32
				.AllowSizing = False
				.FormatColumn = "1 index ``"
				.AllowSort = False
				.AllowDragging = False
			End With
		End With
		With .Items
			.AddItem "Item A"
			.AddItem "Item B"
			.AddItem "Item C"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1141
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderAppearance = 4
		.Background(32) = -1
		With .Columns
			.Add "Item"
			With .Add("Pos")
				.Position = 0
				.Width = 32
				.AllowSizing = False
				.FormatColumn = "1 index ``"
				.AllowSort = False
				.AllowDragging = False
			End With
		End With
		With .Items
			.AddItem "Item A"
			.AddItem "Item B"
			.AddItem "Item C"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1140
Is it possible to exclude the parent/child items when do the filtering, so to include only items that match the filter without any indentation

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_FilterChange()
	With Grid1
		.Indent = Grid1.FormatABC("value > 0 ? 18 : 0",.Items.MatchItemCount)
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.LinesAtRoot = -1
		.Indent = 18
		.FilterInclude = 4
		.DrawGridLines = 2
		.HeaderAppearance = 1
		With .Columns
			With .Add("Column")
				.DisplayFilterButton = True
				.FilterType = 240
				.FilterList = 256
				.Filter = "C1"
			End With
			With .Add("Pos")
				.FormatColumn = "1 rindex ``"
				.Position = 0
				.AllowSizing = False
				.AllowDragging = False
			End With
		End With
		With .Items
			h = .AddItem("R1")
			h2 = .InsertItem(h,,"S")
			.InsertItem h2,,"C1"
			.InsertItem h2,,"C2"
			.InsertItem h,,"C1"
			.InsertItem h,,"C2"
			.ExpandItem(h) = True
			h = .AddItem("R2")
			.InsertItem h,,"C1"
			.InsertItem h,,"C2"
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1139
How can I display the total/sum/aggregate in the same column, when the user groups by a column

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

<SCRIPT LANGUAGE="VBScript">
Function Grid1_AddGroupItem(Item)
	With Grid1
		With .Items
			.ItemDivider(Item) = -1
			.ItemBackColor(Item) = Grid1.BackColorSortBar
			.ItemHeight(Item) = Grid1.HeaderHeight
			.CellMerge(Item,0) = "1,2,3,4,5,7,8,9,10,11,12"
			.CellValue(Item,13) = "count(current,rec,1)"
			.CellValueFormat(Item,13) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
			.CellValue(Item,0) = .CellCaption(Item,.GroupItem(Item))
			.FormatCell(Item,0) = "`<b>` + value + `</b> <font ;7><off 3><fgcolor=808080>(` + %13 +  `)`"
			.CellValue(Item,6) = "sum(current,all,dbl(%6))"
			.CellValueFormat(Item,6) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
			.CellForeColor(Item,6) = RGB(102,102,102)
		End With
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function Grid1_Change(Item,ColIndex,NewValue)
	With Grid1
		.Refresh 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.LinesAtRoot = 5
		.Indent = 12
		.ColumnAutoResize = False
		.ScrollBySingleLine = True
		.BackColorSortBar = RGB(240,240,240)
		.AutoDrag = 16
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
		End With
		.DataSource = rs
		.SingleSort = False
		.SortBarVisible = True
		.AllowGroupBy = True
		.HeaderHeight = 24
		With .Columns
			.Add("Count").Visible = False
			With .Item("Freight")
				.Def(4) = Grid1.BackColorSortBar
				.Def(7) = .Def(4)
				.Def(49) = 4
				.Def(48) = 4
				.HeaderBold = True
				.AllowGroupBy = False
				.FormatColumn = "value format ``"
				.Alignment = 2
			End With
			With .Item(0)
				.AllowGroupBy = False
				.Def(17) = 1
			End With
			.Item("ShipCountry").SortOrder = 1
		End With
		.ScrollBySingleLine = False
		With .Items
			.LockedItemCount(2) = 1
			hL = .LockedItem(2,0)
			.ItemHeight(hL) = 24
			.ItemBold(hL) = True
			.ItemBackColor(hL) = Grid1.BackColorSortBar
			.CellValue(hL,6) = "sum(all,rec,dbl(%6))"
			.CellValueFormat(hL,6) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
			.CellHAlignment(hL,6) = 2
			.FormatCell(hL,6) = "value format ``"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1138
I would like to display a solid line between "root" items, and dotted lines (default) between child items. How can I do that

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.LinesAtRoot = -1
		.DrawGridLines = 1
		.GridLineStyle = 512
		.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABMsIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIXRpFMbxAKQahLEiTIgGUYJHgmK4tQLHb7zGAABRDDSOIDnGQJX" & _
	"haI4JQSMMQDGLAZxVFiPRhAWLpBh+PQATrOdLUfSjVwhBKAQEBA=="
		With .Columns.Add("Default")
			.Def(0) = True
			.PartialCheck = True
		End With
		With .Columns.Add("Position")
			.FormatColumn = "((1 rindex ``) contains `.`) = 0"
			.Visible = False
		End With
		With .ConditionalFormats.Add("%C1")
			.BackColor = &H1e0e0e0
		End With
		With .Items
			h = .AddItem("Root 1")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.InsertItem h,,"Child 3"
			.ExpandItem(h) = True
			h = .AddItem("Root 2")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			h = .AddItem("Root 3")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1137
I can not center or align the cell's caption and icon, when it displays the hierarchy

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		With .Columns.Add("Tasks")
			.Def(17) = 1
		End With
		.HeaderVisible = 1
		With .Items
			h = .AddItem("Project")
			hChild = .InsertItem(h,,"<img>1</img> Task (left)")
			hChild = .InsertItem(h,,"<c><img>2</img> Task (center)")
			hChild = .InsertItem(h,,"<r>Task (right) <img>3</img>")
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1136
How do I mask for float/integer number

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.ColumnAutoResize = True
		.Columns.Add("Type").Width = 32
		.Columns.Add "Editor"
		With .Items
			h = .AddItem("Integer")
			.CellValue(h,1) = "12"
			With .CellEditor(h,1)
				.EditType = 1
				.Numeric = -1
			End With
			h = .AddItem("Integer (mask, group)")
			.CellValue(h,1) = "10002"
			.FormatCell(h,1) = "value format `0||`"
			With .CellEditor(h,1)
				.EditType = 8
				.Mask = ";;;float,digits=0,invalid=empty,warning=invalid character"
			End With
			h = .AddItem("Integer (mask, no group)")
			.CellValue(h,1) = "10002"
			.FormatCell(h,1) = "value format `0|0|`"
			With .CellEditor(h,1)
				.EditType = 8
				.Mask = ";;;float,digits=0,grouping=,invalid=empty,warning=invalid character"
			End With
			h = .AddItem("Float")
			.CellValue(h,1) = "+12.34E+2"
			With .CellEditor(h,1)
				.EditType = 1
				.Numeric = 1
			End With
			h = .AddItem("Float (no signs)")
			.CellValue(h,1) = "12.34E-2"
			With .CellEditor(h,1)
				.EditType = 1
				.Numeric = 769 ' NumericEnum.exDisableSigns Or NumericEnum.exFloat
			End With
			h = .AddItem("Float-Integer")
			.CellValue(h,1) = "+12.34"
			With .CellEditor(h,1)
				.EditType = 1
				.Numeric = 2
			End With
			h = .AddItem("Float-Integer (no signs)")
			.CellValue(h,1) = "12.34"
			With .CellEditor(h,1)
				.EditType = 1
				.Numeric = 770 ' NumericEnum.exDisableSigns Or NumericEnum.exFloatInteger
			End With
			h = .AddItem("Float (mask,group)")
			.CellValue(h,1) = "10002.34"
			.FormatCell(h,1) = "value format `2`"
			With .CellEditor(h,1)
				.EditType = 8
				.Mask = ";;;float,invalid=empty,warning=invalid character"
			End With
			h = .AddItem("Float (mask, no group)")
			.CellValue(h,1) = "10002.34"
			.FormatCell(h,1) = "value format `2|0|`"
			With .CellEditor(h,1)
				.EditType = 8
				.Mask = ";;;float,grouping=,invalid=empty,warning=invalid character"
			End With
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1135
How do I set an extra data for each item
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_MouseMove(Button,Shift,X,Y)
	With Grid1
		i = .ItemFromPoint(-1,-1,c,hit)
		alert( i )
		alert( .Items.ItemData(i) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.ColumnAutoResize = True
		.Columns.Add "Default"
		With .Items
			.ItemData(.AddItem("method 1")) = "your extra data of method 1"
			.InsertItem 0,"your extra data of method 2","method 2"
		End With
		With .Items
			.DefaultItem = .AddItem("method 3")
			.ItemData(0) = "your extra data of method 3"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1134
I do not like to specify the item padding for every column I add. The question is how can I do it automatically

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.AttachTemplate "handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}"
		.HeaderAppearance = 4
		.DrawGridLines = -1
		.GridLineStyle = 32
		With .Columns
			.Add "Item"
			With .Add("Pos")
				.Position = 0
				.Width = 32
				.AllowSizing = False
				.FormatColumn = "1 index ``"
			End With
		End With
		With .Items
			.AddItem "Item A"
			.AddItem "Item B"
			.AddItem "Item C"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1133
How can I change the Exclude field in the drop down filter window

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.LinesAtRoot = -1
		.HTMLPicture("exclude") = "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAEAcRdrdcUQhQDOZCJJUBEjbbhJ7giIJOBILJziJvl4BeKibhDiIZOhFLB0KZvMx0O5hORlAB3owuNJuNZzMZhOBlFxvORnT" & _
	"buHgaiIeKBMKhFf9fDIcEoPCAVEAlGI4HhBBYMCARCQVGg4IhVMCAWC2XY1Q7WJ8RBB0KROKYAYDBbzicjndD6fA/VsRHRJIhBkRbMYIGwGAQjA2fRYOEBoYjBFBx1AT" & _
	"CgCGQ8M7OTjSaJMDRDKIwYu5DrIMBgSAADKJTqhBhyRApAA3FAucZPPilokRJJFJxEVxCMCCgIA=="
		.Description(25) = "<img>exclude</img>"
		With .Columns.Add("Items")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
		End With
		With .Items
			h = .AddItem("Root 1")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.ExpandItem(h) = True
			h = .AddItem("Root 2")
			.InsertItem h,,"Child 1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1132
How can I change the Exclude field in the drop down filter window

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.LinesAtRoot = -1
		.Description(25) = "<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>"
		With .Columns.Add("Items")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterList = 9472 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
		End With
		With .Items
			h = .AddItem("Root 1")
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.ExpandItem(h) = True
			h = .AddItem("Root 2")
			.InsertItem h,,"Child 1"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1131
The grid lines looks different then before. What should I do

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.LinesAtRoot = -1
		.DrawGridLines = -1
		.GridLineStyle = 512
		With .Columns.Add("Tasks")
			.Def(0) = True
			.PartialCheck = True
		End With
		.HeaderVisible = 1
		With .Items
			h = .AddItem("Project")
			hChild = .InsertItem(h,,"Task 1")
			.SelectItem(hChild) = True
			hChild = .InsertItem(h,,"Task 2")
			.CellState(hChild,0) = 1
			hChild = .InsertItem(h,,"Task 3")
			.CellState(hChild,0) = 1
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1130
Can I sort the column by check-state

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .Columns.Add("Check")
			.Def(0) = True
			.SortType = 32
		End With
		With .Items
			.AddItem 
			.CellState(.AddItem(),0) = 1
			.CellState(.AddItem(),0) = 1
			.AddItem 
		End With
		.Columns.Item(0).SortOrder = 1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1129
Can I sort the column by image

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		With .Columns.Add("Image")
			.SortType = 48
		End With
		With .Items
			.CellImage(.AddItem(),0) = 3
			.AddItem 
			.CellImage(.AddItem(),0) = 1
			.CellImage(.AddItem(),0) = 2
		End With
		.Columns.Item(0).SortOrder = 1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1128
Can I sort the column by value(numeric)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .Columns.Add("Value")
			.Def(17) = 1
			.FormatColumn = "`<fgcolor=808080><off 4><font ;6> ` + (1 index ``)  + ` </font></off></fgcolor>` + value"
			.SortType = 17 ' SortTypeEnum.exSortByValue Or SortTypeEnum.SortNumeric
		End With
		With .Items
			.AddItem "1"
			.AddItem "10"
			.AddItem "2"
			.AddItem "20"
		End With
		.Columns.Item(0).SortOrder = 1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1127
Can I sort a column by cell's state (checked, unchecked) rather than caption

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .Columns.Add("Check")
			With .Editor
				.EditType = 19
				.Option(17) = 1
			End With
			.SortType = 1
		End With
		With .Items
			.AddItem True
			.AddItem False
			.AddItem False
			.AddItem True
		End With
		.Columns.Item(0).SortOrder = 1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1126
How do I get the item's auto-number, when using FormatColumn property, as CellValue gets empty

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_SelectionChanged()
	With Grid1
		With .Items
			alert( "pos: " )
			alert( .CellCaption(.FocusItem,1) )
			alert( "rpos(1): " )
			alert( .CellCaption(.FocusItem,2) )
			alert( "rpos(2): " )
			alert( .CellCaption(.FocusItem,3) )
			alert( "apos: " )
			alert( .CellCaption(.FocusItem,4) )
			alert( "index: " )
			alert( .CellCaption(.FocusItem,5) )
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.LinesAtRoot = -1
		.DrawGridLines = -2
		.HeaderAppearance = 4
		With .Columns
			.Add "Items"
			With .Add("pos")
				.FormatColumn = "1 pos ``"
				.Position = 0
				.Width = 48
				.AllowSizing = False
			End With
			With .Add("rpos(1)")
				.FormatColumn = "1 rpos ``"
				.Position = 1
				.Width = 48
				.AllowSizing = False
			End With
			With .Add("rpos(2)")
				.FormatColumn = "1 rpos `.||A-Z`"
				.Position = 2
				.Width = 48
				.AllowSizing = False
			End With
			With .Add("apos")
				.FormatColumn = "1 apos ``"
				.Position = 3
				.Width = 48
				.AllowSizing = False
			End With
			With .Add("index")
				.FormatColumn = "1 index ``"
				.Position = 4
				.Width = 48
				.AllowSizing = False
			End With
		End With
		With .Items
			h = .AddItem("Item 1")
			.InsertItem h,,"Child 1"
			hSel = .InsertItem(h,,"Child 2")
			.ExpandItem(h) = True
			.AddItem "Item 2"
			.AddItem "Item 3"
		End With
		.EndUpdate 
		.Items.SelectItem(hSel) = True
	End With
End Function
</SCRIPT>
</BODY>
1125
How can I display UNICODE characters

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .Font
			.Name = "Arial Unicode"
			.Size = 22
		End With
		.HeaderVisible = False
		.DefaultItemHeight = 48
		.Columns.Add("").Def(17) = 1
		With .Items
			.AddItem "Ӓӓ"
			.AddItem "ᦜᦝ;ᦞ"
			.AddItem "ɮɭ;ɯ"
			.AddItem "勳勴勵勶"
			.FormatCell(.AddItem(Grid1.Version),0) = "(value lfind `UNICODE`) < 0 ? `<fgcolor=FF0000><b>!UNICODE!</b> version</fgcolor> required: ` + value : `` "
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1124
How do I display the position of the item with 0-padding

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.Columns.Add("Items").FormatColumn = "((1 apos ``) lpad `00`) + `. `  + value"
		With .Items
			.AddItem "Item A"
			.AddItem "Item B"
			.AddItem "Item C"
			.AddItem "Item D"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1123
Can't get the +/- to be displayed on a divider item. What else can I do

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.LinesAtRoot = -1
		.DrawGridLines = -1
		.TreeColumnIndex = 0
		.MarkSearchColumn = False
		.FullRowSelect = 0
		.HeaderAppearance = -1 ' &Hfffffff8 Or AppearanceEnum.Bump Or AppearanceEnum.Sunken
		With .Columns
			.Add("C1").Width = 32
			.Add("C2").FormatColumn = "1 index ``"
		End With
		With .Items
			h = .AddItem("Cell 1")
			.CellSingleLine(h,1) = False
			h = .AddItem("This is bit of text merges all cells in the item (divider shows no +/-)")
			.ItemDivider(h) = 0
			.ItemBackColor(h) = RGB(240,240,240)
			.ItemDividerLine(h) = 0
			.CellHAlignment(h,0) = 1
			.InsertItem h,,"Child 1"
			.InsertItem h,,"Child 2"
			.ExpandItem(h) = True
			h = .AddItem("Cell 3")
			h = .AddItem("This is bit of text merges all cells in the item (merge shows +/-)")
			.ItemBackColor(h) = RGB(240,240,240)
			.CellMerge(h,0) = 1
			.InsertItem h,,"Child 3"
			.InsertItem h,,"Child 4"
			.ExpandItem(h) = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1122
How can I define a column of button type

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_ButtonClick(Item,ColIndex,Key)
	With Grid1
		With .Items
			alert( .CellValue(Item,ColIndex) )
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .Columns.Add("Button")
			.Def(2) = True
			.Def(3) = False
			.FormatColumn = "``"
			.AllowSizing = False
			.Width = 48
		End With
		.Columns.Add("Second").FormatColumn = "` Item ` + 1 index ``"
		With .Items
			.AddItem "Button 1"
			.AddItem "Button 2"
			.AddItem "Button 3 "
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1121
Is it possible to configure different colour/icon when there is a active filter 

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_FilterChange()
	With Grid1
		.Background(0) = .FormatABC("value = 0 ? 0x1000001 : 0x10000FF ",.Columns.Item(0).FilterType)
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .VisualAppearance
			.RenderType = -16777216
			.Add 1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
	"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
	"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA"
		End With
		.DrawGridLines = -1
		.ShowFocusRect = False
		.Background(0) = &H1000001
		.Background(32) = -1
		.HeaderAppearance = 4
		.BackColorHeader = RGB(255,255,255)
		.HeaderVisible = 1
		With .Columns.Add("Filter")
			.DisplayFilterButton = True
			.AllowSort = False
			.AllowDragging = False
			.FilterList = 256
		End With
		With .Items
			.AddItem "Item A"
			.AddItem "Item B"
			.AddItem "Item C"
		End With
		With .Columns.Item(0)
			.Filter = "Item B"
			.FilterType = 240
		End With
		.ApplyFilter 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1120
How can I display the type of the value the column display

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderAppearance = 4
		.DrawGridLines = -2
		With .Columns.Add("Values")
			.Def(17) = 1
			.FormatColumn = "value + ` <off 4><fgcolor=808080>type(` + type(%0) + `)`"
		End With
		With .Items
			.AddItem 
			.AddItem -1
			.AddItem "string"
			.AddItem #1/1/2001#
			.AddItem 2
			.AddItem True
			.AddItem 12.34
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1119
I want to create a conditional format for a column, verifying that the value of the cell is numeric, how can I do

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderAppearance = 4
		.DrawGridLines = -2
		.Columns.Add "Values"
		With .ConditionalFormats.Add("type(%0) in (2,3,4,5,18,19,20,21)")
			.ForeColor = RGB(255,0,0)
			.Bold = True
		End With
		.ConditionalFormats.Add("type(%0) = 11").ForeColor = RGB(0,255,0)
		.ConditionalFormats.Add("type(%0) = 7").ForeColor = RGB(0,0,255)
		.ConditionalFormats.Add("type(%0) in (0,1)").BackColor = RGB(240,240,240)
		With .Items
			.AddItem 
			.AddItem -1
			.AddItem "string"
			.AddItem #1/1/2001#
			.AddItem 2
			.AddItem True
			.AddItem 12.34
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1118
How can I assign a computed value on a different column based on other columns

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_Change(Item,ColIndex,NewValue)
	With Grid1
		.FreezeEvents True
		With .Items
			.CellValue(Item,1) = Grid1.FormatABC("int(255*sin(value/2))",NewValue)
			.CellValue(Item,2) = Grid1.FormatABC("int(255*cos(value/2))",NewValue)
		End With
		.FreezeEvents False
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.SelBackMode = 1
		.HeaderAppearance = 4
		.DrawGridLines = -2
		With .Columns.Add("Value")
			.Editor.EditType = 4
			.Width = 64
			.AllowSizing = False
		End With
		.Columns.Add("Assign A").Def(4) = 16448250
		.Columns.Add("Assign B").Def(4) = 16448250
		Set var_Column = .Columns.Add("Computed")
		With var_Column
			.Def(4) = 16448250
			.ComputedField = "%1 + %2"
			.FormatColumn = "value format ``"
			.Alignment = 2
			.HeaderAlignment = .Alignment ' .Alignment
		End With
		.ConditionalFormats.Add("%3 >= 0").Bold = True
		With .Items
			.AddItem 1989
			.AddItem 2001
			.AddItem 2017
			.AddItem 2018
			.AddItem 2019
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1117
How can I get computed a value on a different column

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderAppearance = 4
		.DrawGridLines = -2
		With .Columns.Add("Year")
			.Editor.EditType = 4
			.Width = 64
			.AllowSizing = False
		End With
		.Columns.Add("Easter").FormatColumn = "date(dateS('3/1/' + %0)  + ((1:=(((255 - 11 * (%0 mod 19)) - 21) mod 30) + 21) + (=:1 > 48 ? -1 : 0) + 6 - ((%0 + int(%0 / 4)) " & _
	"+ =:1 + (=:1 > 48 ? -1 : 0) + 1) mod 7))"
		With .Items
			.AddItem 1989
			.AddItem 2001
			.AddItem 2017
			.AddItem 2018
			.AddItem 2019
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1116
How can I prevent applying ConditionalFormats on a specified cell, for instance I am displaying a Total field, and I will like to have formatted in a different way (method 2)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_Change(Item,ColIndex,NewValue)
	With Grid1
		.Refresh 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .ConditionalFormats.Add("(%0 >= 0)")
			.Expression = "(0=type(%CD0)) and (%0 >= 0)"
			.Bold = True
			.ForeColor = RGB(255,0,0)
			alert( "ConditionalFormat.Valid" )
			alert( .Valid )
		End With
		With .Columns.Add("Numbers")
			With .Editor
				.Numeric = -1
				.EditType = 4
			End With
			.SortType = 1
		End With
		With .Items
			.AddItem 100
			.AddItem -25
			.AddItem 31
			.AddItem -48
		End With
		With .Items
			h = .AddItem("sum(all,dir,dbl(%0))")
			.SelectableItem(h) = False
			.SortableItem(h) = False
			.ItemBackColor(h) = RGB(240,240,240)
			.CellData(h,0) = "total"
			.CellValueFormat(h,0) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
			.FormatCell(h,0) = "'Total: <b><fgcolor=0000FF>'+(value format ``)"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1115
How can I prevent applying ConditionalFormats on a specified cell, for instance I am displaying a Total field, and I will like to have formatted in a different way (method 1)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_Change(Item,ColIndex,NewValue)
	With Grid1
		.Refresh 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .ConditionalFormats.Add("%0 >= 0")
			.Bold = True
			.ForeColor = RGB(255,0,0)
			.ApplyTo = 0
		End With
		With .Columns.Add("Numbers")
			With .Editor
				.Numeric = -1
				.EditType = 4
			End With
			.SortType = 1
		End With
		.Columns.Add("Total").Visible = False
		With .Items
			.LockedItemCount(2) = 1
			h = .LockedItem(2,0)
			.ItemDivider(h) = 1
			.ItemDividerLine(h) = 0
			.ItemBackColor(h) = RGB(240,240,240)
			.CellValue(h,1) = "sum(all,dir,dbl(%0))"
			.CellValueFormat(h,1) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
			.CellHAlignment(h,1) = 2
			.FormatCell(h,1) = "'Total: <b><fgcolor=0000FF>'+(value format ``)"
		End With
		With .Items
			.AddItem 100
			.AddItem -25
			.AddItem 31
			.AddItem -48
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1114
ADODB Requery sample

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_ButtonClick(Item,ColIndex,Key)
	With Grid1
		Set cmd = CreateObject("ADODB.Command")
		With cmd
			.ActiveConnection = Grid1.DataSource.ActiveConnection
			.CommandText = "INSERT INTO Orders (EmployeeID) VALUES(12345)"
			.CommandType = 1
			.Execute 
		End With
		.DataSource.Requery 
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function Grid1_Error(Error,Description)
	With Grid1
		alert( Description )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderAppearance = 4
		.ColumnAutoResize = False
		Set rs = CreateObject("ADODB.Recordset")
		With rs
			.Open "Select * From Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",1,3
		End With
		.DataSource = rs
		.ConditionalFormats.Add("%1=12345").BackColor = RGB(240,240,240)
		With .Items
			.LockedItemCount(0) = 1
			h = .LockedItem(0,0)
			.ItemDivider(h) = 0
			.CellHasButton(h,0) = True
			.CellValue(h,0) = "Requery (add a new record, using ADODB.Command)"
			.CellHAlignment(h,0) = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1113
I am using DetectAddNew property, but no new items is added when AddNew is performed

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_ButtonClick(Item,ColIndex,Key)
	With Grid1
		With .DataSource
			.AddNew "EmployeeID",123
			.Update 
		End With
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function Grid1_Error(Error,Description)
	With Grid1
		alert( Description )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderAppearance = 4
		.ColumnAutoResize = False
		Set rs = CreateObject("ADODB.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",1,3
		End With
		.DataSource = rs
		With .Items
			.LockedItemCount(0) = 1
			h = .LockedItem(0,0)
			.ItemDivider(h) = 0
			.CellHasButton(h,0) = True
			.CellValue(h,0) = "AddNew"
			.CellHAlignment(h,0) = 1
		End With
		.DetectAddNew = True
		.DetectDelete = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1112
I am skinning the control's header-bar, but the background of the header-bar is shown on each item in the filter-bar drop down panel. What can I do

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .VisualAppearance
			.Add 1,"gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" & _
	"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQGhsCYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU8lORLUi+M4zSBPcZVTRtGShPDB" & _
	"KTjMKKYgkG4lVpRNa0PC1GTzQ6mazkKQLRADDIDVbAeL3LiMBy9LyLLItQALByua5mWhbcZyBCOPgBTrRb5zO58FjuTK7YLjMB7NrUNYtFaUMy2OpOCADIaecTNcaWLx" & _
	"PF2MY1HWYxVj2Jw3DuRJonKYBgggSRAlIYw6B0ThGFgPAkFUDAhBMfZRiGNAkFECZnm4YQdneJwqnsSQrGAAhWAIJBJBIQgFCQIBiEIAglgqYo0i4V4MEgRI9gSToYFS" & _
	"b4Fk6Y4+BmBZhFOJgTC8TBogQAArgqco4muCZOkOMJtgmYpIjYKg7GKE4uCUK4AAKKg2DwI4DiCZw5k6KJ2D6D4OHiag4DwIxiiQAArAqMosnEPBPAOIhOg+DozjIJ4P" & _
	"GSY4iEwPAkhKLhHUUSQsnKFCnkYU9MjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDya" & _
	"ICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tE" & _
	"sHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQg" & _
	"pDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAA" & _
	"MR1EOZxWi+bx7HcWQ8msfRYnnDhQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARViHH" & _
	"4HQOYmxuCpF2MsecEQVBvGQCcIQvA6i2CAAIARAQ="
			.Add 2,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMwwDhEIwjHCEEhsGIbJAGQBJCjWGodQLOEgzN" & _
	"C0IxNFCQILhEZJADKII8TTOU5UPRESwTE4cKBmKhQCo2NpKR7VUTxCKQahLLivoCjBT8EzHMqtIzrCA6MpaP4pQjKcqwHJ8YyHEi0ZrjazKaj6T5AXDUcaWbbNVx3PK3" & _
	"aioOpLZrqOZZYzYFoABTuJzPMSyIhxXD8cweaZvSpLExVYK9BY3PbKMgxC77QgTIpDaQMNS6PjtF43PAALLFUaNYzoOKzABMHATBIXAYJCwIIR5G7ID4BbQcCQAHL9DB" & _
	"aEEIAEEISgGhMGZQmocgymmIRQkIEQ2BcGgbEIRQci8XaMBqTRVgSAZHG+S5pnOep+D6f4vjec5zn0fpfmgBgAH6TRoBYBoAh+eAmAiAgPFgNArgOQpIESdoEmCOAOAq" & _
	"BYfFGAgaEaBgYHYFYFmIB5UiGCJUgKCgmgeYoHk4BgCmKRQiCwApgHgYgyH8B54lQU4NkMeJlBoDgjkiXBTg0R54iYIR+koeQVBoKpkgkChKhEJBkF4SFEjkDgJhFQoe" & _
	"EmDJlBeehUhWJQJGIXoICWOQ6FeFIlhkfhlDsSJpiQVoamaSY2G6G5nAmRhpCOH5pkwVYdmeCZmHqHpnkmdhzhmaAIFiax8AABAEICA=="
		End With
		.BackColorHeader = &H1000000
		.ForeColorHeader = RGB(128,128,128)
		.Background(0) = &H2000000
		.Background(26) = RGB(255,255,255)
		.Background(27) = RGB(0,0,1)
		.Background(20) = &H1ff8000
		.Background(21) = RGB(240,240,240)
		.Background(32) = -1
		.HeaderHeight = 24
		.BackColorLevelHeader = .BackColor
		With .Columns.Add("Filter")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.FilterList = 9504 ' FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
			.Def(52) = 2
			.Def(53) = 2
		End With
		With .Items
			.AddItem "A"
			.AddItem "B"
			.AddItem "C"
			.AddItem "D"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1111
How can I change the font for entire column (method 3)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_AddItem(Item)
	With Grid1
		With .Items
			.CellFont(Item,1) = Grid1.Columns.Item(1).Data
			.CellBold(Item,1) = True
			.CellForeColor(Item,1) = RGB(255,0,0)
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderHeight = 24
		.HeaderAppearance = 4
		.Columns.Add "C1"
		With .Columns.Add("C2")
			.HTMLCaption = "<b><font Tahoma;14>C2"
			Set f = CreateObject("StdFont")
			With f
				.Name = "Tahoma"
				.Size = 11
			End With
			.Data = f
		End With
		With .Items
			.CellValue(.AddItem(10),1) = 11
			.CellValue(.AddItem(12),1) = 13
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1110
How can I change the font for entire column (method 2)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_AddItem(Item)
	With Grid1
		With .Items
			Set f = CreateObject("StdFont")
			With f
				.Name = "Tahoma"
				.Size = 11
			End With
			.CellFont(Item,1) = f
			.CellBold(Item,1) = True
			.CellForeColor(Item,1) = RGB(255,0,0)
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HeaderHeight = 24
		.HeaderAppearance = 4
		.Columns.Add "C1"
		.Columns.Add("C2").HTMLCaption = "<b><font Tahoma;14>C2"
		With .Items
			.CellValue(.AddItem(10),1) = 11
			.CellValue(.AddItem(12),1) = 13
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1109
How can I change the font for entire column (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		With .ConditionalFormats.Add("1")
			.Bold = True
			.ForeColor = RGB(255,0,0)
			Set f = CreateObject("StdFont")
			With f
				.Name = "Tahoma"
				.Size = 11
			End With
			.Font = f
			.ApplyTo = 1 ' &H1
		End With
		.HeaderHeight = 24
		.HeaderAppearance = 4
		.Columns.Add "C1"
		.Columns.Add("C2").HTMLCaption = "<b><font Tahoma;14>C2"
		With .Items
			.CellValue(.AddItem(10),1) = 11
			.CellValue(.AddItem(12),1) = 13
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1108
I am using ExComboBox as an user editor, how can I display a different column

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_UserEditorClose(Object,Item,ColIndex)
	' Items.CellValue(Item,ColIndex) = Object.Select("OrderID")
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function Grid1_UserEditorOleEvent(Object,Ev,CloseEditor,Item,ColIndex)
	With Grid1
		alert( Ev )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function Grid1_UserEditorOpen(Object,Item,ColIndex)
	' Object.Select("OrderID") = Me.Items.CellValue(Item,ColIndex)
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.SortOnClick = 0
		With .Columns.Add("Exontrol.ComboBox").Editor
			.EditType = 16
			.UserEditor "Exontrol.ComboBox",""
			With .UserEditorObject
			End With
		End With
		.DrawGridLines = -2
		.TreeColumnIndex = -1
		.DefaultItemHeight = 21
		With .Items
			h = .AddItem("shows always the drop-down editor")
			.CellHAlignment(h,0) = 1
			.ItemDivider(h) = 0
			.ItemDividerLineAlignment(h) = 1
			.SelectableItem(h) = False
			.EnableItem(h) = False
			.CellEditorVisible(.AddItem(10248),0) = 1
			.CellEditorVisible(.AddItem(10249),0) = 1
			.CellEditorVisible(.AddItem(10250),0) = 1
			h = .AddItem("shows the drop-down editor when user clicks it")
			.CellHAlignment(h,0) = 1
			.ItemDivider(h) = 0
			.ItemDividerLineAlignment(h) = 1
			.SelectableItem(h) = False
			.EnableItem(h) = False
			.AddItem 10248
			.AddItem 10249
			.AddItem 10250
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1107
The ItemHeight property is not working (method 2)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.ColumnAutoResize = False
		.ScrollBySingleLine = True
		.Columns.Add("Column").Width = 128
		With .Items
			.CellSingleLine(.AddItem("This is a bit of text that should break the line"),0) = 0
			h = .AddItem("")
			.ItemDivider(h) = 0
			.SelectableItem(h) = False
			.ItemDividerLineAlignment(h) = 1
			.ItemHeight(h) = 3
			.CellSingleLine(.AddItem("This is a bit of text that should break the line"),0) = 0
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1106
The ItemHeight property is not working (method 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.ColumnAutoResize = False
		.ScrollBySingleLine = True
		With .Columns.Add("Column")
			.Width = 128
			.Def(16) = 0
		End With
		With .Items
			.AddItem "This is a bit of text that should break the line"
			h = .AddItem("")
			.ItemDivider(h) = 0
			.SelectableItem(h) = False
			.ItemDividerLineAlignment(h) = 1
			.ItemMinHeight(h) = 3
			.ItemMaxHeight(h) = 3
			.AddItem "This is a bit of text that should break the line"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1105
How do I add a total field locked at the bottom of the control

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_AddGroupItem(Item)
	With Grid1
		With .Items
			.ItemDividerLine(Item) = 0
			.FormatCell(Item,.GroupItem(Item)) = "value + ` Min: <b>` + %13 + `</b> Max: <b>` + %14 + `</b> Sum: <b>` + %15 + `</b>, of Freight column`"
			.CellValue(Item,"Min") = "min(current,all,dbl(%6))"
			.CellValueFormat(Item,"Min") = 4
			.CellValue(Item,"Max") = "max(current,all,dbl(%6))"
			.CellValueFormat(Item,"Max") = 4
			.CellValue(Item,"Sum") = "sum(current,all,dbl(%6))"
			.CellValueFormat(Item,"Sum") = 4
			.ItemBackColor(Item) = RGB(240,240,240)
		End With
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function Grid1_Change(Item,ColIndex,NewValue)
	With Grid1
		.Refresh 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HasLines = 0
		.Description(26) = "Show/Hide"
		.ColumnsFloatBarSortOrder = 1
		.ColumnsFloatBarVisible = 2
		.ColumnAutoResize = False
		.BackColorSortBar = RGB(240,240,240)
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
		End With
		.DataSource = rs
		.SingleSort = False
		.SortBarVisible = True
		.AllowGroupBy = True
		.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
		With .Columns
			With .Add("Min")
				.Visible = False
				.AllowDragging = False
			End With
			Set var_Column = .Add("Max")
			With var_Column
				.Visible = False
				.Visible = False
				.AllowDragging = False
			End With
			Set var_Column1 = .Add("Sum")
			With var_Column1
				.Visible = False
				.Visible = False
				.AllowDragging = False
			End With
		End With
		With .Columns.Item("Freight")
			.FormatColumn = "currency(value)"
			.Def(4) = 12895487
			.Def(7) = .Def(4)
			.HeaderBold = True
			.AllowGroupBy = False
			.Alignment = 2
		End With
		.ScrollBySingleLine = False
		With .Items
			.LockedItemCount(2) = 2
			hL = .LockedItem(2,0)
			.ItemDivider(hL) = 0
			.ItemHeight(hL) = 3
			.ItemDividerLineAlignment(hL) = 2
			.ItemDividerLine(hL) = 2
			hL = .LockedItem(2,1)
			.CellValue(hL,6) = "sum(all,rec,dbl(%6))"
			.CellValueFormat(hL,6) = 4
			.ItemHeight(hL) = 24
			.ItemBold(hL) = True
		End With
		.Columns.Item("EmployeeID").SortOrder = True ' True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1104
How can I add a total field, when I use grouping

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Grid1_AddGroupItem(Item)
	With Grid1
		With .Items
			.ItemDividerLine(Item) = 0
			.FormatCell(Item,.GroupItem(Item)) = "value + ` Min: <b>` + %13 + `</b> Max: <b>` + %14 + `</b> Sum: <b>` + %15 + `</b>, of Freight column`"
			.CellValue(Item,"Min") = "min(current,all,dbl(%6))"
			.CellValueFormat(Item,"Min") = 4
			.CellValue(Item,"Max") = "max(current,all,dbl(%6))"
			.CellValueFormat(Item,"Max") = 4
			.CellValue(Item,"Sum") = "sum(current,all,dbl(%6))"
			.CellValueFormat(Item,"Sum") = 4
			.ItemBackColor(Item) = RGB(240,240,240)
		End With
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function Grid1_Change(Item,ColIndex,NewValue)
	With Grid1
		.Refresh 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.HasLines = 0
		.ColumnAutoResize = False
		.BackColorSortBar = RGB(240,240,240)
		Set rs = CreateObject("ADOR.Recordset")
		With rs
			.Open "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3
		End With
		.DataSource = rs
		.SingleSort = False
		.SortBarVisible = True
		.AllowGroupBy = True
		.Columns.Item(1).SortOrder = True ' True
		With .Columns
			.Add("Min").Visible = False
			.Add("Max").Visible = False
			.Add("Sum").Visible = False
		End With
		With .Columns.Item("Freight")
			.Def(4) = 12895487
			.Def(7) = .Def(4)
			.HeaderBold = True
			.AllowGroupBy = False
		End With
		.ScrollBySingleLine = False
		With .Items
			.LockedItemCount(2) = 1
			hL = .LockedItem(2,0)
			.ItemDivider(hL) = 0
			.ItemHeight(hL) = 24
			.ItemDividerLineAlignment(hL) = 2
			.ItemDividerLine(hL) = 2
			.CellValue(hL,0) = "sum(all,rec,dbl(%6))"
			.CellValueFormat(hL,0) = 5 ' ValueFormatEnum.exTotalField Or ValueFormatEnum.exHTML
			.CellHAlignment(hL,0) = 2
			.FormatCell(hL,0) = "'Freight: <bgcolor=FFC4C4> '+(value format ``) + ` `"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1103
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeCheckColumns

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.ColumnAutoResize = False
		.HeaderAppearance = 4
		With .Columns
			.Add "City"
			.Add("Start").Visible = False
			.Add("End").Visible = False
		End With
		.Description(26) = "Show/Hide"
		.ColumnsFloatBarSortOrder = 1
		.ColumnsFloatBarVisible = 2
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1102
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeHiddenColumn

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.ColumnAutoResize = False
		.HeaderAppearance = 4
		With .Columns
			.Add "City"
			.Add("Start").Visible = False
			.Add("End").Visible = False
		End With
		.Description(26) = "Show"
		.ColumnsFloatBarVisible = -1
		.ColumnsFloatBarSortOrder = 1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
1101
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeGroupByColumns

<BODY onload="Init()">
<OBJECT CLASSID="clsid:101EE60F-7B07-48B0-A13A-F32BAE7DA165" id="Grid1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Grid1
		.BeginUpdate 
		.ColumnAutoResize = False
		.HeaderAppearance = 4
		With .Columns
			.Add "City"
			.Add "Start"
			.Add "End"
		End With
		.AllowGroupBy = True
		.SortBarVisible = True
		.SortBarCaption = "Drag a <b>column</b> header here to group by that column."
		.BackColorSortBar = RGB(250,250,250)
		.Description(26) = "Group-By"
		.ColumnsFloatBarVisible = 1
		.ColumnsFloatBarSortOrder = 1
		.Columns.Item("City").SortOrder = 1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>