With AxGrid1
	.BeginUpdate()
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exRowLines
	.Columns.Add("Country").ShowIdem = "<fgcolor gray>〃"
	With .Items
		.AddItem("Spain")
		.AddItem("Spain")
		.AddItem("Spain")
		.AddItem("Spain")
		.AddItem("Germany")
		.AddItem("Germany")
		.AddItem("Germany")
		.AddItem("Germany")
	End With
	.EndUpdate()
End With

With AxGrid1
	.BeginUpdate()
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exRowLines
	.Columns.Add("Country").ShowIdem = " "
	With .Items
		.AddItem("Spain")
		.AddItem("Spain")
		.AddItem("Spain")
		.AddItem("Spain")
		.AddItem("Germany")
		.AddItem("Germany")
		.AddItem("Germany")
		.AddItem("Germany")
	End With
	.EndUpdate()
End With

With AxGrid1
	.BeginUpdate()
	With .VisualAppearance
		.RenderType = -1
		.Add(1,"gBFLBCJwBAEHhEJAAEhABa8IQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFMbxCKQahLEiTIhGUYJHgmK4tRiAUgxVDkBxrECZYqjcBZO" & _
"iwLQ2TxDM7DNKUCBnIoABhGOaYDh+IQNQjUFKwTRFGRxK4EIRKAyTDLQdRyGSMMbjdQpBCbMiMRqhESKRq2UwYRYCFS1NalaztO6BUAvK67YrWez/YBfF+SfwGeqDYRe" & _
"WAPfgWERnQrGMLxbD8KwZAKTRjkGJ4XhuB41TbQMqufL9ByXHKSSDpGjaXjeO5VVjYNAvS69UzXNq3bhtQAOXCMEwCgI=")
		.Add(2,"CP:1 -2 0 0 0")
	End With
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
	.GridLineStyle = EXGRIDLib.GridLinesStyleEnum.exGridLinesGeometric
	.ShowFocusRect = False
	.set_Background(EXGRIDLib.BackgroundPartEnum.exHeaderFilterBarButton,33554432)
	.set_Background(EXGRIDLib.BackgroundPartEnum.exHeaderFilterBarActive,33554433)
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.BackColorHeader = RGB(255,255,255)
	.HeaderHeight = 24
	.HeaderVisible = True
	With .Columns.Add("1st col")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.Filter = "Item B"
		.FilterType = EXGRIDLib.FilterTypeEnum.exFilter
	End With
	.Columns.Add("2nd col")
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

' ButtonClick event - Occurs when user clicks on the cell's button.
Private Sub AxGrid1_ButtonClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ButtonClickEvent) Handles AxGrid1.ButtonClick
	With AxGrid1
		Debug.Print( .Items.CellData(e.item,e.colIndex) )
	End With
End Sub

With AxGrid1
	.BeginUpdate()
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	With .Columns.Add("Def").Editor
		.EditType = EXGRIDLib.EditTypeEnum.ButtonType
		.Locked = True
	End With
	With .Items
		.CellData(.AddItem("Cell 1"),0) = "your extra data for cell 1"
		.CellData(.AddItem("Cell 2"),0) = "your extra data for cell 2"
	End With
	.EndUpdate()
End With

With AxGrid1
	.BeginUpdate()
	.ReplaceIcon("gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+O" & _
"kYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==")
	.ReplaceIcon("C:\images\favicon.ico",0)
	.Columns.Add("Items").Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
	.Items.AddItem("Item <img>1</img>")
	.EndUpdate()
End With

' Click event - Occurs when the user presses and then releases the left mouse button over the grid control.
Private Sub AxGrid1_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.ClickEvent
	With AxGrid1
		.Layout = "Select=""0"";SingleSort=""C0:2"";Columns=1"
	End With
End Sub

With AxGrid1
	.BeginUpdate()
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
	End With
	.EndUpdate()
End With

Dim g1,g2,h,r
With AxGrid1
	.FreezeEvents(True)
	.BeginUpdate()
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .ConditionalFormats
		With .Add("%CT1")
			.ForeColor = RGB(128,128,128)
			.ApplyTo = &H1
		End With
		With .Add("%CT2")
			.ForeColor = RGB(128,128,128)
			.ApplyTo = &H2
		End With
		With .Add("%CT3")
			.ForeColor = RGB(128,128,128)
			.ApplyTo = &H3
		End With
	End With
	With .Columns
		.Add("Description")
		With .Add("Qty")
			.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
			.Def(EXGRIDLib.DefColumnEnum.exTotalColumn) = "sum(current,rec,%1)"
		End With
		With .Add("Price")
			.Def(EXGRIDLib.DefColumnEnum.exTotalColumn) = "avg(current,rec,%2)"
			.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
		End With
		With .Add("Amount")
			.ComputedField = "%1 * %2"
			.Def(EXGRIDLib.DefColumnEnum.exTotalColumn) = "sum(current,rec,%3)"
		End With
	End With
	With .Items
		r = .AddItem("Root")
		g1 = .InsertItem(r,Nothing,"Group 1")
		h = .InsertItem(g1,Nothing,"Item 1")
		.CellValue(h,1) = 1
		.CellValue(h,2) = 10
		h = .InsertItem(g1,Nothing,"Item 2")
		.CellValue(h,1) = 2
		.CellValue(h,2) = 11
		g2 = .InsertItem(r,Nothing,"Group 2")
		h = .InsertItem(g2,Nothing,"Item 1")
		.CellValue(h,1) = 3
		.CellValue(h,2) = 12
		h = .InsertItem(g2,Nothing,"Item 2")
		.CellValue(h,1) = 4
		.CellValue(h,2) = 13
		.ExpandItem(0) = True
	End With
	.EndUpdate()
	.FreezeEvents(False)
End With

With AxGrid1
	.BeginUpdate()
	.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.None2
	.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAll
	.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

With AxGrid1
	.BeginUpdate()
	.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.None2
	.set_Description(EXGRIDLib.DescriptionTypeEnum.exFilterBarAll,"(todo) ")
	.set_Description(EXGRIDLib.DescriptionTypeEnum.exFilterBarFilterForCaption,"filtrar por...")
	.FilterBarPrompt = "<i><fgcolor=808080>iniciar filtro...</fgcolor></i>"
	With .Columns.Add("Names")
		.DisplayFilterButton = True
		.FilterType = EXGRIDLib.FilterTypeEnum.exPattern
	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

Dim s1,s2
With AxGrid1
	.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 = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.None2
	With .Columns.Add("Names")
		.DisplayFilterButton = True
		.FilterType = EXGRIDLib.FilterTypeEnum.exPattern
	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

Dim h
With AxGrid1
	.BeginUpdate()
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.Def(EXGRIDLib.DefColumnEnum.exFilterPatternTemplate) = "*<%filter%>*"
		.FilterType = EXGRIDLib.FilterTypeEnum.exPattern
		.Filter = "1"
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With AxGrid1
	.BeginUpdate()
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
	.GridLineStyle = EXGRIDLib.GridLinesStyleEnum.exGridLinesGeometric
	.ColumnAutoResize = False
	.Columns.Add("Column 1")
	.Columns.Add("Column 2")
	.Columns.Add("Column 3")
	.Columns.Add("Column 4")
	.EndUpdate()
End With

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exVLines
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	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
	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

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxGrid1_AddItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddItemEvent) Handles AxGrid1.AddItem
	With AxGrid1
		.Items.CellEditorVisible(e.item,0) = EXGRIDLib.EditorVisibleEnum.exEditorVisible
		.Items.CellEditorVisible(e.item,1) = EXGRIDLib.EditorVisibleEnum.exEditorVisible
	End With
End Sub

' EditOpen event - Occurs when the edit operation starts.
Private Sub AxGrid1_EditOpen(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.EditOpen
	Dim c,v
	With AxGrid1
		With .Items
			v = .CellValue(.FocusItem,0)
			c = .CellCaption(.FocusItem,0)
		End With
		With .Columns.Item(1).Editor
			.ClearItems()
			.AddItem(v,c)
		End With
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.GridLineStyle = EXGRIDLib.GridLinesStyleEnum.exGridLinesGeometric
	With .Columns.Add("DropDownList")
		With .Editor
			.EditType = EXGRIDLib.EditTypeEnum.DropDownListType
			.AddItem(1,"First")
			.AddItem(2,"Second")
			.AddItem(3,"Third")
		End With
	End With
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
	.Columns.Add("DropDownList-Related").Editor.EditType = EXGRIDLib.EditTypeEnum.DropDownListType
	With .Items
		.CellValue(.AddItem(1),1) = -1
		.CellValue(.AddItem(2),1) = -1
		.CellValue(.AddItem(3),1) = -1
		.LockedItemCount(EXGRIDLib.VAlignmentEnum.exBottom) = 1
		h = .LockedItem(EXGRIDLib.VAlignmentEnum.exBottom,0)
		.ItemDivider(h) = 0
		.ItemDividerLineAlignment(h) = EXGRIDLib.DividerAlignmentEnum.DividerTop
		.CellEditorVisible(h,0) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
		.CellSingleLine(h,0) = EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exHTML
		.CellValue(h,0) = "The drop down editor in the second column is filled during the <b>EditOpen event</b>, and the values are based on the selection" & _
" on the first column."
	End With
	.EndUpdate()
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim g1,g2,h,r
With AxGrid1
	.FreezeEvents(True)
	.BeginUpdate()
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .ConditionalFormats
		With .Add("%CE1")
			.Bold = True
			.BackColor = RGB(245,245,245)
			.ApplyTo = &H1
		End With
		With .Add("%CE2")
			.Bold = True
			.BackColor = RGB(245,245,245)
			.ApplyTo = &H2
		End With
		With .Add("%CE3")
			.Bold = True
			.BackColor = RGB(245,245,245)
			.ApplyTo = &H3
		End With
	End With
	With .Columns
		.Add("Description")
		With .Add("Qty")
			.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
			.Def(EXGRIDLib.DefColumnEnum.exTotalColumn) = "sum(current,rec,%1)"
		End With
		With .Add("Price")
			.Def(EXGRIDLib.DefColumnEnum.exTotalColumn) = "avg(current,rec,%2)"
			.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
		End With
		With .Add("Amount")
			.ComputedField = "%1 * %2"
			.Def(EXGRIDLib.DefColumnEnum.exTotalColumn) = "sum(current,rec,%3)"
		End With
	End With
	With .Items
		r = .AddItem("Root")
		g1 = .InsertItem(r,Nothing,"Group 1")
		h = .InsertItem(g1,Nothing,"Item 1")
		.CellValue(h,1) = 1
		.CellValue(h,2) = 10
		h = .InsertItem(g1,Nothing,"Item 2")
		.CellValue(h,1) = 2
		.CellValue(h,2) = 11
		g2 = .InsertItem(r,Nothing,"Group 2")
		h = .InsertItem(g2,Nothing,"Item 1")
		.CellValue(h,1) = 3
		.CellValue(h,2) = 12
		h = .InsertItem(g2,Nothing,"Item 2")
		.CellValue(h,1) = 4
		.CellValue(h,2) = 13
		.ExpandItem(0) = True
	End With
	.EndUpdate()
	.FreezeEvents(False)
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim g1,g2,h,r
With AxGrid1
	.FreezeEvents(True)
	.BeginUpdate()
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .ConditionalFormats
		With .Add("%CT1")
			.ForeColor = RGB(128,128,128)
			.ApplyTo = &H1
		End With
		With .Add("%CT2")
			.ForeColor = RGB(128,128,128)
			.ApplyTo = &H2
		End With
		With .Add("%CT3")
			.ForeColor = RGB(128,128,128)
			.ApplyTo = &H3
		End With
	End With
	With .Columns
		.Add("Description")
		With .Add("Qty")
			.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
			.Def(EXGRIDLib.DefColumnEnum.exTotalColumn) = "sum(current,rec,%1)"
		End With
		With .Add("Price")
			.Def(EXGRIDLib.DefColumnEnum.exTotalColumn) = "avg(current,rec,%2)"
			.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
		End With
		With .Add("Amount")
			.ComputedField = "%1 * %2"
			.Def(EXGRIDLib.DefColumnEnum.exTotalColumn) = "sum(current,rec,%3)"
		End With
	End With
	With .Items
		r = .AddItem("Root")
		g1 = .InsertItem(r,Nothing,"Group 1")
		h = .InsertItem(g1,Nothing,"Item 1")
		.CellValue(h,1) = 1
		.CellValue(h,2) = 10
		h = .InsertItem(g1,Nothing,"Item 2")
		.CellValue(h,1) = 2
		.CellValue(h,2) = 11
		g2 = .InsertItem(r,Nothing,"Group 2")
		h = .InsertItem(g2,Nothing,"Item 1")
		.CellValue(h,1) = 3
		.CellValue(h,2) = 12
		h = .InsertItem(g2,Nothing,"Item 2")
		.CellValue(h,1) = 4
		.CellValue(h,2) = 13
		.ExpandItem(0) = True
	End With
	.EndUpdate()
	.FreezeEvents(False)
End With

Dim h,hR
With AxGrid1
	.BeginUpdate()
	.ConditionalFormats.Add("%CC0=0").ForeColor = RGB(128,128,128)
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	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,Nothing,"Home")
		.CellValue(h,1) = "The home directory with user directories Alice and Bob"
		.InsertItem(h,Nothing,"Alice")
		.InsertItem(h,Nothing,"Bob")
		.ExpandItem(h) = True
		h = .InsertItem(hR,Nothing,"Etc")
		.CellValue(h,1) = "The etc directory with one configuration file"
		h = .InsertItem(h,Nothing,"nginx.conf")
		.CellValue(.InsertItem(hR,Nothing,"Var"),1) = "The var directory"
	End With
	.EndUpdate()
End With

Dim h,hR
With AxGrid1
	.BeginUpdate()
	.ConditionalFormats.Add("%CC0").ForeColor = RGB(255,0,0)
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	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,Nothing,"Home")
		.CellValue(h,1) = "The home directory with user directories Alice and Bob"
		.InsertItem(h,Nothing,"Alice")
		.InsertItem(h,Nothing,"Bob")
		.ExpandItem(h) = True
		h = .InsertItem(hR,Nothing,"Etc")
		.CellValue(h,1) = "The etc directory with one configuration file"
		h = .InsertItem(h,Nothing,"nginx.conf")
		.CellValue(.InsertItem(hR,Nothing,"Var"),1) = "The var directory"
	End With
	.EndUpdate()
End With

Dim h,hR
With AxGrid1
	.BeginUpdate()
	.ConditionalFormats.Add("%CX0").Bold = True
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	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,Nothing,"Home")
		.CellValue(h,1) = "The home directory with user directories Alice and Bob"
		.InsertItem(h,Nothing,"Alice")
		.InsertItem(h,Nothing,"Bob")
		.ExpandItem(h) = True
		h = .InsertItem(hR,Nothing,"Etc")
		.CellValue(h,1) = "The etc directory with one configuration file"
		h = .InsertItem(h,Nothing,"nginx.conf")
		.CellValue(.InsertItem(hR,Nothing,"Var"),1) = "The var directory"
	End With
	.EndUpdate()
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim g1,g2,h,r
With AxGrid1
	.FreezeEvents(True)
	.BeginUpdate()
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns
		.Add("Description")
		With .Add("Qty")
			.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
			.Def(EXGRIDLib.DefColumnEnum.exTotalColumn) = "sum(current,rec,%1)"
		End With
		With .Add("Price")
			.Def(EXGRIDLib.DefColumnEnum.exTotalColumn) = "avg(current,rec,%2)"
			.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
		End With
		With .Add("Amount")
			.ComputedField = "%1 * %2"
			.Def(EXGRIDLib.DefColumnEnum.exTotalColumn) = "sum(current,rec,%3)"
		End With
	End With
	With .Items
		r = .AddItem("Root")
		g1 = .InsertItem(r,Nothing,"Group 1")
		.FormatCell(g1,2) = "`<average missing>`"
		.CellEditorVisible(g1,2) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
		.CellBold(g1,2) = True
		.CellForeColor(g1,2) = RGB(255,0,0)
		h = .InsertItem(g1,Nothing,"Item 1")
		.CellValue(h,1) = 1
		.CellValue(h,2) = 10
		h = .InsertItem(g1,Nothing,"Item 2")
		.CellValue(h,1) = 2
		.CellValue(h,2) = 11
		g2 = .InsertItem(r,Nothing,"Group 2")
		h = .InsertItem(g2,Nothing,"Item 1")
		.CellValue(h,1) = 3
		.CellValue(h,2) = 12
		h = .InsertItem(g2,Nothing,"Item 2")
		.CellValue(h,1) = 4
		.CellValue(h,2) = 13
		.ExpandItem(0) = True
	End With
	.EndUpdate()
	.FreezeEvents(False)
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim g1,g2,h,r
With AxGrid1
	.FreezeEvents(True)
	.BeginUpdate()
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns
		.Add("Description")
		With .Add("Qty")
			.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
			.Def(EXGRIDLib.DefColumnEnum.exTotalColumn) = "sum(current,rec,%1)"
		End With
		With .Add("Price")
			.Def(EXGRIDLib.DefColumnEnum.exTotalColumn) = "avg(current,rec,%2)"
			.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
		End With
		With .Add("Amount")
			.ComputedField = "%1 * %2"
			.Def(EXGRIDLib.DefColumnEnum.exTotalColumn) = "sum(current,rec,%3)"
		End With
	End With
	With .Items
		r = .AddItem("Root")
		g1 = .InsertItem(r,Nothing,"Group 1")
		h = .InsertItem(g1,Nothing,"Item 1")
		.CellValue(h,1) = 1
		.CellValue(h,2) = 10
		h = .InsertItem(g1,Nothing,"Item 2")
		.CellValue(h,1) = 2
		.CellValue(h,2) = 11
		g2 = .InsertItem(r,Nothing,"Group 2")
		h = .InsertItem(g2,Nothing,"Item 1")
		.CellValue(h,1) = 3
		.CellValue(h,2) = 12
		h = .InsertItem(g2,Nothing,"Item 2")
		.CellValue(h,1) = 4
		.CellValue(h,2) = 13
		.ExpandItem(0) = True
	End With
	.EndUpdate()
	.FreezeEvents(False)
End With

With AxGrid1
	.BeginUpdate()
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exVLines
	With .Columns.Add("32px")
		.Width = 32
		.AllowSizing = False
	End With
	.Columns.Add("Rest")
	.ColumnAutoResize = True
	.EndUpdate()
End With

With AxGrid1
	.BeginUpdate()
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exVLines
	.Columns.Add("25%").Width = 25
	.Columns.Add("25%").Width = 25
	.Columns.Add("50%").Width = 50
	.ColumnAutoResize = True
	.EndUpdate()
End With

With AxGrid1
	.BeginUpdate()
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exVLines
	.Columns.Add("C1")
	.Columns.Add("C2")
	.ColumnAutoResize = True
	.EndUpdate()
End With

With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.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

With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exVLines
	.Columns.Add("C1").Width = 32
	.Columns.Add("C2").Width = 132
	.Columns.Add("C3").Width = 264
	.EndUpdate()
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
		With .Items
			Debug.Print( "Total: " )
			Debug.Print( .CellCaption(.LockedItem(EXGRIDLib.VAlignmentEnum.exTop,0),0) )
		End With
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	With .Columns.Add("Numbers")
		With .Editor
			.Numeric = EXGRIDLib.NumericEnum.exInteger
			.EditType = EXGRIDLib.EditTypeEnum.SpinType
		End With
		.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
	End With
	With .Items
		.LockedItemCount(EXGRIDLib.VAlignmentEnum.exTop) = 1
		h = .LockedItem(EXGRIDLib.VAlignmentEnum.exTop,0)
		.ItemBackColor(h) = RGB(240,240,240)
		.CellValue(h,0) = "sum(all,dir,dbl(%0))"
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField
		.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
		.FormatCell(h,0) = "'Total: '+value"
	End With
	With .Items
		.AddItem(10)
		.AddItem(25)
		.AddItem(31)
		.AddItem(48)
	End With
	.EndUpdate()
End With

With AxGrid1
	.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 = EXGRIDLib.AppearanceEnum.Etched
	.Columns.Add("Index").FormatColumn = "1 index ``"
	.Columns.Add("Pos").FormatColumn = "1 apos ``"
	.Columns.Add("Edit").Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
	.GridLineStyle = EXGRIDLib.GridLinesStyleEnum.exGridLinesGeometric
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exVLines
	.GridLineColor = RGB(224,224,224)
	.EndUpdate()
End With

' ColumnClick event - Fired after the user clicks on column's header.
Private Sub AxGrid1_ColumnClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ColumnClickEvent) Handles AxGrid1.ColumnClick
	' Column.Selected = True
	' FocusColumnIndex = Column.Index
	With AxGrid1
		.Columns.Item(0).Selected = False
		.Columns.Item(1).Selected = False
		.Columns.Item(2).Selected = False
		.Items.SelectAll()
	End With
End Sub

With AxGrid1
	.BeginUpdate()
	.set_Background(EXGRIDLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.MarkSearchColumn = False
	.SingleSel = False
	.FullRowSelect = EXGRIDLib.CellSelectEnum.exRectSel
	.SortOnClick = EXGRIDLib.SortOnClickEnum.exNoSort
	.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

With AxGrid1
	.BeginUpdate()
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABc8IQAAYAQGKIcBiAKBQAGaAoDDMMwyQwAAxDMK8EwsACEIrjKCRShyCYZRhGcTALBIBQSHAZZKgOJIRDENg2SANACRfIUaw1DqBZwkGZoW" & _
"hGKgAShIEDwSKkQBlECeJpnKaqIomJYnDLQUw0NL9HQ3JaaKqnWLBVCWEQyVzEIyjBT0EzHMqtKrjaA6NpaP4oT7LEIydKFCRJNi0bSnGqaOj6UJSURRVq3TTFcTyAC3" & _
"ahuOo4cpXB4SWrOd41fYNOTQACzbCsSIcPxCe6GXjiNwjPKMWhnIq+M5wXIrJyKCYUaTcejzfgdU5XWqeMoyewMXxmZqbXw/fBYRrEL5vTqNXTzSA4BEB")
	.Appearance = &H100ff00
	.ColumnAutoResize = True
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.TreeColumnIndex = -1
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
	.GridLineStyle = EXGRIDLib.GridLinesStyleEnum.exGridLinesGeometric
	.Columns.Add("Default")
	With .Items
		.AddItem("before item")
		.AddItem("item")
		.AddItem("after item")
	End With
	.EndUpdate()
End With

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub AxGrid1_AnchorClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AnchorClickEvent) Handles AxGrid1.AnchorClick
	With AxGrid1
		Debug.Print( e.anchorID )
	End With
End Sub

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

Dim h
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = True
	.TreeColumnIndex = -1
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
	.GridLineStyle = EXGRIDLib.GridLinesStyleEnum.exGridLinesGeometric
	.BackColorAlternate = RGB(240,240,240)
	.ShowFocusRect = False
	.Columns.Add("Default")
	With .Items
		.AddItem("before item")
		h = .AddItem("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exHTML
		.CellSingleLine(h,0) = EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap
		.AddItem("after item")
	End With
	.EndUpdate()
End With

With AxGrid1
	.set_Background(EXGRIDLib.BackgroundPartEnum.exScrollHoverAll,-1)
End With

With AxGrid1
	.set_Background(EXGRIDLib.BackgroundPartEnum.exScrollHoverAll,1)
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxGrid1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_MouseMoveEvent) Handles AxGrid1.MouseMoveEvent
	With AxGrid1
		.ShowToolTip("new content","",Nothing,"+8","+8")
	End With
End Sub

' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxGrid1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_MouseMoveEvent) Handles AxGrid1.MouseMoveEvent
	With AxGrid1
		.ShowToolTip("<null>","<null>",Nothing,"+8","+8")
	End With
End Sub

With AxGrid1
	.ColumnAutoResize = False
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With

' ButtonClick event - Occurs when user clicks on the cell's button.
Private Sub AxGrid1_ButtonClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ButtonClickEvent) Handles AxGrid1.ButtonClick
	Dim cmd
	With AxGrid1
		cmd = CreateObject("ADODB.Command")
		With cmd
			.ActiveConnection = AxGrid1.DataSource.ActiveConnection
			.CommandText = "Delete * from ORDERS"
			.CommandType = 1
			.Execute()
		End With
		.DataSource.Requery()
	End With
End Sub

' Error event - Fired when an internal error occurs.
Private Sub AxGrid1_Error(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ErrorEvent) Handles AxGrid1.Error
	With AxGrid1
		Debug.Print( e.description )
	End With
End Sub

Dim h,rs
With AxGrid1
	.BeginUpdate()
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.ColumnAutoResize = False
	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(EXGRIDLib.VAlignmentEnum.exTop) = 1
		h = .LockedItem(EXGRIDLib.VAlignmentEnum.exTop,0)
		.ItemDivider(h) = 0
		.CellHasButton(h,0) = True
		.CellValue(h,0) = "Requery (delete all records, using ADODB.Command)"
		.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.CenterAlignment
	End With
	.EndUpdate()
End With

Dim h
With AxGrid1
	.BeginUpdate()
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	With .Columns.Add("Minutes")
		.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
		With .Editor
			.EditType = EXGRIDLib.EditTypeEnum.EditType
			.Numeric = EXGRIDLib.NumericEnum.exInteger
		End With
	End With
	With .Items
		.AddItem(10)
		.AddItem(20)
		.AddItem(30)
		.AddItem(40)
		.AddItem(50)
		h = .AddItem("sum(all,dir,dbl(%0))")
		.SelectableItem(h) = False
		.SortableItem(h) = False
		.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
		.FormatCell(h,0) = "'<b>HH:NN</b>: '+ (int(value/60) lpad '00') + ':' + ((value mod 60) lpad '00')"
	End With
	.EndUpdate()
End With

' FilterChange event - Occurs when filter was changed.
Private Sub AxGrid1_FilterChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.FilterChange
	Dim format
	With AxGrid1
		format = .FormatABC("`lower(value) replace lower('` + value + `') with '<bgcolor 000000><fgcolor FFFFFF>` + value  + `</fgcolor></bgcolor>'`",.FilterBarPromptPattern)
		.Columns.Item(0).FormatColumn = format
		.Columns.Item(1).FormatColumn = format
		.Columns.Item(2).FormatColumn = format
	End With
End Sub

Dim h0
With AxGrid1
	.BeginUpdate()
	.SelBackColor = .BackColor
	.SelForeColor = .ForeColor
	.ColumnAutoResize = True
	.ContinueColumnScroll = False
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.HeaderHeight = 23
	.BackColorLevelHeader = .BackColor
	.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
	.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarCompact Or EXGRIDLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarBackColor = .BackColor
	.FilterBarPromptPattern = "and"
	With .Columns
		With .Add("Name")
			.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
			.FormatColumn = "lower(value)"
		End With
		With .Add("Title")
			.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
			.FormatColumn = "lower(value)"
		End With
		With .Add("City")
			.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
			.FormatColumn = "lower(value)"
		End With
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate()
End With

With AxGrid1
	.BeginUpdate()
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exVLines
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Flat
	.HeaderHeight = 24
	.SortBarHeight = 28
	.SortBarVisible = True
	.AllowGroupBy = True
	.Columns.Add("Col 1")
	.Columns.Add("Col 2")
	With .Items
		.CellValue(.AddItem("219 Smith"),1) = "Ignacio 1234"
		.CellValue(.AddItem("1666 County Road 309A"),1) = "897 Manassa"
		.CellValue(.AddItem("38 Lone Pine"),1) = "Durango 11"
		.CellValue(.AddItem("612 Jachim Street"),1) = "Lamar 222"
	End With
	.Layout = "MultipleSort=""C1:1"""
	.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? leafitemcount + ` result(s)` : ``)"
	.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarCompact Or EXGRIDLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptCaseSensitive Or EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "12"
	.FilterBarBackColor = .BackColor
	.EndUpdate()
End With

With AxGrid1
	.BeginUpdate()
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exVLines
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.Columns.Add("Col 1")
	.Columns.Add("Col 2")
	With .Items
		.CellValue(.AddItem("219 Smith"),1) = "Ignacio 1234"
		.CellValue(.AddItem("1666 County Road 309A"),1) = "897 Manassa"
		.CellValue(.AddItem("38 Lone Pine"),1) = "Durango 11"
		.CellValue(.AddItem("612 Jachim Street"),1) = "Lamar 222"
	End With
	.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
	.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarCompact Or EXGRIDLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptCaseSensitive Or EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "12"
	.FilterBarBackColor = .BackColor
	.EndUpdate()
End With

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	.CountLockedColumns = 1
	.BackColorLock = RGB(248,248,248)
	.HasLines = EXGRIDLib.HierarchyLineEnum.exSolidLine
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
	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

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	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

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

Dim h,rs
With AxGrid1
	.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(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
	.GetOcx().BackColorHeader = &H4c6c6c6
	With .Items
		.CellEditor(.AddItem("(ReadOnly)"),0).EditType = EXGRIDLib.EditTypeEnum.ReadOnly
		.CellEditor(.AddItem("(EditType)"),0).EditType = EXGRIDLib.EditTypeEnum.EditType
		h = .AddItem("Value 1")
		With .CellEditor(h,0)
			.EditType = EXGRIDLib.EditTypeEnum.DropDownType
			.AddItem(1,"Value 1",1)
			.AddItem(2,"Value 2",2)
			.AddItem(3,"Value 3",3)
		End With
		.FormatCell(h,0) = "value + ' (DropDownType)'"
		h = .AddItem(1)
		With .CellEditor(h,0)
			.EditType = EXGRIDLib.EditTypeEnum.DropDownListType
			.DropDownAutoWidth = EXGRIDLib.DropDownWidthType.exDropDownEditorWidth
			.AddItem(1,"Nancy Davolio",1)
			.AddItem(2,"Andrew Fuller",2)
			.AddItem(3,"Janet Leverling",3)
			.AddItem(4,"Peacock Margaret",3)
			.AddItem(5,"Steven Buchanan",2)
			.AddItem(6,"Michael Suyama",1)
			.AddItem(7,"Robert King",2)
			.AddItem(8,"Laura Callahan",3)
			.AddItem(9,"Anne Dodsworth",2)
		End With
		.FormatCell(h,0) = "value + ' (DropDownList - single column list)'"
		h = .AddItem(1)
		With .CellEditor(h,0)
			.EditType = EXGRIDLib.EditTypeEnum.DropDownListType
			.DropDownAutoWidth = EXGRIDLib.DropDownWidthType.exDropDownEditorWidth
			.AddItem(1,"Nancy Davolio",1)
			.AddItem(2,"Andrew Fuller",2)
			.InsertItem(3,"Janet Leverling",3,2)
			.InsertItem(4,"Peacock Margaret",3,2)
			.InsertItem(5,"Steven Buchanan",2,2)
			.InsertItem(6,"Michael Suyama",1,5)
			.InsertItem(7,"Robert King",2,2)
			.InsertItem(8,"Laura Callahan",3,2)
			.InsertItem(9,"Anne Dodsworth",2,5)
			.ExpandAll()
		End With
		.FormatCell(h,0) = "value + ' (DropDownList - single column tree)'"
		h = .AddItem(1)
		With .CellEditor(h,0)
			.EditType = EXGRIDLib.EditTypeEnum.DropDownListType
			.DropDownAutoWidth = EXGRIDLib.DropDownWidthType.exDropDownEditorWidth
			.Option(EXGRIDLib.EditorOptionEnum.exDropDownColumnCaption) = "Name¦Title¦City¦Phone"
			.Option(EXGRIDLib.EditorOptionEnum.exDropDownColumnWidth) = "312¦¦¦96"
			.AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
			.AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
			.AddItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3)
			.AddItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3)
			.AddItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2)
			.AddItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1)
			.AddItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2)
			.AddItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3)
			.AddItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2)
		End With
		.FormatCell(h,0) = "value + ' (DropDownList - multiple columns list)'"
		h = .AddItem(1)
		With .CellEditor(h,0)
			.EditType = EXGRIDLib.EditTypeEnum.DropDownListType
			.DropDownAutoWidth = EXGRIDLib.DropDownWidthType.exDropDownEditorWidth
			.Option(EXGRIDLib.EditorOptionEnum.exDropDownColumnCaption) = "Name¦Title¦City¦Phone"
			.Option(EXGRIDLib.EditorOptionEnum.exDropDownColumnWidth) = "312¦¦¦96"
			.AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
			.AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
			.InsertItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3,2)
			.InsertItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3,2)
			.InsertItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2,2)
			.InsertItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1,5)
			.InsertItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2,2)
			.InsertItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3,2)
			.InsertItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2,5)
			.ExpandAll()
		End With
		.FormatCell(h,0) = "value + ' (DropDownList - multiple columns tree)'"
		h = .AddItem(100)
		.CellEditor(h,0).EditType = EXGRIDLib.EditTypeEnum.SpinType
		.FormatCell(h,0) = "value + ' (SpinType)'"
		.CellEditor(.AddItem("(MemoType)"),0).EditType = EXGRIDLib.EditTypeEnum.MemoType
		h = .AddItem(3)
		With .CellEditor(h,0)
			.EditType = EXGRIDLib.EditTypeEnum.CheckListType
			.AddItem(1,"Border",1)
			.AddItem(2,"Single",2)
			.AddItem(4,"Frame",3)
		End With
		.FormatCell(h,0) = "value + ' (CheckListType)'"
		h = .AddItem("193.226.40.161")
		With .CellEditor(h,0)
			.Mask = "{0,255}.{0,255}.{0,255}.{0,255}"
			.EditType = EXGRIDLib.EditTypeEnum.MaskType
		End With
		.FormatCell(h,0) = "value + ' (MaskType)'"
		h = .AddItem(65280)
		With .CellEditor(h,0)
			.EditType = EXGRIDLib.EditTypeEnum.ColorType
			.Mask = "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0"
		End With
		.FormatCell(h,0) = "value + ' (ColorType)'"
		h = .AddItem("Tahoma")
		.CellEditor(h,0).EditType = EXGRIDLib.EditTypeEnum.FontType
		.FormatCell(h,0) = "value + ' (FontType)'"
		h = .AddItem("gBHJJGHA5MIwAEIe4AAAFhwbiAliQwig7ixFjBQjRbjhljxwkB7kSFkiQkyblCllSwli7lzFmDQmTbmjlmzwnD7nQBnk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1YhgAEL5AgBhj/AAssMJthABFof4JDhIWCgYKDBATFT8M6hUIFAQAEQCCDwYF/QoWDZCRBgOKgIYHCQXMisKBAEQAAgOBZaSgQhjERANKQiZhIWam" & _
"YyIBQ6FzcNKxQLJT4ADA4RjwObAAidBYdHwABQgUxMQYZEI0cD4OgnYKaKyzIRFNQx2YCKoFHScYD0ADXQwUAgwLoLQDqaCWBJoNQ9NBxFJTVQORgiarqSABbamGwtDA" & _
"wBUWhQmqYALnOFQvGYPA4m6AwKhkZxKj2PBWC0SZCgmVY6CwIJgieBAniubRKHgaYgiwQwGiCfxGDWbBRmGZYIi2VwGnAexxGUSwUFiaR+hQPbBgOCoLCIHh4DAARCmQ" & _
"G4AlgNxuhwWgpFAEQUhuOxOk0NrhAaQoBmgPYdFSIZPjYGYbn+HhgEoAA7HMBIOjUM51AoPojHkEwVlET5slgWZtAEUBdjeSoeF6X5/rQRRSi+QB6GychsEAfZshKYAB" & _
"GQZorlAOgMBqEgAjYHB2jqSoigmYBLk+QZnBqGhggAEwImgbojgoIwSE+MxUHiS4REQCQWluD48B+JJoL+YQikuaI9AALgLmsJQfnSdAvDkCJEhIIIBgOegLEiPBqCyC" & _
"AAjcCwgAAIJBhQBQkHGL4gDaNBokkZQMiwUAuioJQiCAQYsHMcwwEIeoigAYIogsGIwFKIYICIWguEoPgQhsawBASGgwCuJwLH8K4LigAIaDwbxMAOKxbisPwfASQATF" & _
"ASoagIEYwgcSoKGiAA/mEdIuiGPxCmObIlhMIJNHONxFH8EpPCGeB+noEpBBSSRjCsPZEiyKhgjAH5whSdLEjwDxjC8TxVEMFRzFWJJZBUSI0gQEQLBOM4VHkIg1D0CA" & _
"JDQNg/p4AAdoC")
		.CellEditor(h,0).EditType = EXGRIDLib.EditTypeEnum.PictureType
		.FormatCell(h,0) = "value + ' (PictureType)'"
		.CellEditor(.AddItem("(ButtonType)"),0).EditType = EXGRIDLib.EditTypeEnum.ButtonType
		h = .AddItem(25)
		.CellEditor(h,0).EditType = EXGRIDLib.EditTypeEnum.ProgressBarType
		.FormatCell(h,0) = "value + ' (ProgressBarType)'"
		h = .AddItem("Value 1")
		With .CellEditor(h,0)
			.EditType = EXGRIDLib.EditTypeEnum.PickEditType
			.AddItem(1,"Value 1",1)
			.AddItem(2,"Value 2",2)
			.AddItem(3,"Value 3",3)
		End With
		.FormatCell(h,0) = "value + ' (PickEditType)'"
		.CellEditor(.AddItem("(LinkEditType)"),0).EditType = EXGRIDLib.EditTypeEnum.LinkEditType
		With .CellEditor(.AddItem("(UserEditorType)"),0)
			.EditType = EXGRIDLib.EditTypeEnum.UserEditorType
			.UserEditor("Exontrol.ComboBox","")
			With .UserEditorObject
				.BeginUpdate()
				.LabelHeight = AxGrid1.DefaultItemHeight
				.Style = 2
				.ColumnAutoResize = False
				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
				.MinHeightList = 128
				.SearchColumnIndex = 0
				.UseTabKey = False
				.EndUpdate()
			End With
		End With
		h = .AddItem(255)
		With .CellEditor(h,0)
			.EditType = EXGRIDLib.EditTypeEnum.ColorListType
			.Option(EXGRIDLib.EditorOptionEnum.exColorListShowName) = True
		End With
		.FormatCell(h,0) = "value + ' (ColorListType)'"
		.CellEditor(.AddItem(65280),0).EditType = EXGRIDLib.EditTypeEnum.ColorListType
		.CellEditor(.AddItem("(MemoDropDownType)"),0).EditType = EXGRIDLib.EditTypeEnum.MemoDropDownType
		With .CellEditor(.AddItem(-1),0)
			.EditType = EXGRIDLib.EditTypeEnum.CheckValueType
			.Option(EXGRIDLib.EditorOptionEnum.exCheckValue2) = 1
		End With
		h = .AddItem(50)
		With .CellEditor(h,0)
			.EditType = EXGRIDLib.EditTypeEnum.SliderType
			.Option(EXGRIDLib.EditorOptionEnum.exSliderWidth) = -60
			.Option(EXGRIDLib.EditorOptionEnum.exSliderTickFrequency) = 10
			.Option(EXGRIDLib.EditorOptionEnum.exSliderTickStyle) = 2
		End With
		.FormatCell(h,0) = "value + ' (SliderType)'"
		h = .AddItem(100)
		.CellEditor(h,0).EditType = EXGRIDLib.EditTypeEnum.CalculatorType
		.FormatCell(h,0) = "value + ' (CalculatorType)'"
		.EnsureVisibleItem(h)
	End With
	.EndUpdate()
End With

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

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

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

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

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

' AddColumn event - Fired after a new column has been added.
Private Sub AxGrid1_AddColumn(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddColumnEvent) Handles AxGrid1.AddColumn
	With AxGrid1
		With e.column
		End With
	End With
End Sub

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	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

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
	.GridLineStyle = EXGRIDLib.GridLinesStyleEnum.exGridLinesGeometric
	.DefaultItemHeight = 48
	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

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
	.GridLineStyle = EXGRIDLib.GridLinesStyleEnum.exGridLinesGeometric
	.DefaultItemHeight = 48
	With CreateObject("DAO.DBEngine.36")
		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

Dim rs
With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	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

' Event event - Notifies the application once the control fires an event.
Private Sub AxGrid1_Event(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_EventEvent) Handles AxGrid1.Event
	With AxGrid1
		Debug.Print( .get_EventParam(-2) )
	End With
End Sub

Dim h,hChild
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Tasks")
		.Def(EXGRIDLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
		.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
		.FormatColumn = "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)"
		.Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
	End With
	.HeaderVisible = True
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,Nothing,"Task 1")
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,Nothing,"Task 2")
		.CellState(hChild,0) = 1
		hChild = .InsertItem(h,Nothing,"Task 3")
		.CellState(hChild,0) = 1
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With

With AxGrid1
	.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")
		Debug.Print( .CellCaption(.FindItem("A",0,0),1) )
		Debug.Print( .CellCaption(.FindItem("A",0,1),1) )
		Debug.Print( .CellCaption(.FindItem("A",0,2),1) )
	End With
	.EndUpdate()
End With

' BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
Private Sub AxGrid1_BeforeExpandItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_BeforeExpandItemEvent) Handles AxGrid1.BeforeExpandItem
	With AxGrid1
		e.cancel = AxGrid1.Items.ItemParent(e.item)
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	.SingleSel = False
	.Columns.Add("Default")
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(.InsertItem(h,Nothing,"Child 1.1"),Nothing,"Child")
		.InsertItem(h,Nothing,"Child 1.2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(.InsertItem(h,Nothing,"Child 2.1"),Nothing,"Child")
		.InsertItem(h,Nothing,"Child 2.2")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With

With AxGrid1
	.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
	.set_Background(EXGRIDLib.BackgroundPartEnum.exHSThumb,167772160)
	.set_Background(EXGRIDLib.BackgroundPartEnum.exVSThumb,285212672)
	.ScrollBars = EXGRIDLib.ScrollBarsEnum.exVScrollEmptySpace Or EXGRIDLib.ScrollBarsEnum.exHScrollEmptySpace Or EXGRIDLib.ScrollBarsEnum.exVScrollOnThumbRelease Or EXGRIDLib.ScrollBarsEnum.exHScrollOnThumbRelease Or EXGRIDLib.ScrollBarsEnum.exDisableBoth
	.ScrollBySingleLine = True
	.Columns.Add("Def")
	With .Items
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
	End With
	.EndUpdate()
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub AxGrid1_AddGroupItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddGroupItemEvent) Handles AxGrid1.AddGroupItem
	' AddBar(Item,"Progress", #12/2/2017#,#12/2/2017#)
	' DefineSummaryBars(Item,"", -3, "")
	' Chart.ItemBackColor(Item) = color
	Dim color
	With AxGrid1
		color = 14474460
		With .Items
			.ItemDivider(e.item) = -1
			.CellValue(e.item,1) = .CellCaption(e.item,.GroupItem(e.item))
			.ItemBold(e.item) = True
			.ItemBackColor(e.item) = color
		End With
	End With
End Sub

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxGrid1_AddItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddItemEvent) Handles AxGrid1.AddItem
	' AddBar(Item,"Task",#12/4/2017#,#12/10/2017#)
	' ItemBar(Item,"", 514)  = ItemToIndex(Item)
	With AxGrid1
		With .Items
		End With
	End With
End Sub

Dim h
With AxGrid1
	.BeginUpdate()
	With .Columns
		.Add("C1")
		.Add("C2")
	End With
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.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 = EXGRIDLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With

Dim h,h1
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.ScrollBySingleLine = False
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.Columns.Add("Artikel").HTMLCaption = "<u>Artikel"
	.Columns.Add("Waarde").HTMLCaption = "<u>Waarde"
	.set_HTMLPicture("T22128","c:\exontrol\images\zipdisk.gif")
	With .Items
		h = .AddItem("T22128-28)2D")
		h1 = .InsertItem(h,Nothing,"<img>T22128:128</img>")
		.CellValueFormat(h1,0) = EXGRIDLib.ValueFormatEnum.exHTML
		.ItemHeight(h1) = 128
		h1 = .InsertItem(h,Nothing,"werkvoorbereiding")
		.CellValue(h1,1) = "5.80"
		.CellBold(h1,1) = True
		.CellValue(.InsertItem(h1,Nothing,"Type"),1) = "Eenvoudig"
		.CellValue(.InsertItem(h1,Nothing,"Prijs p/uur"),1) = "60,00"
		.CellValue(.InsertItem(h1,Nothing,"Marhe"),1) = "15,00%"
		.CellValue(.InsertItem(h1,Nothing,"Insteltijd min."),1) = "5,00"
		.CellValue(.InsertItem(h1,Nothing,"Aantal"),1) = 1
		.CellValue(.InsertItem(h1,Nothing,"Kostprije"),1) = "5,00"
		.ExpandItem(h1) = True
		h1 = .InsertItem(h,Nothing,"materiall")
		.CellValue(h1,1) = "14.82"
		.CellBold(h1,1) = True
		.ItemHasChildren(h1) = True
		h1 = .InsertItem(h,Nothing,"snijden")
		.CellValue(h1,1) = "3.13"
		.CellBold(h1,1) = True
		.ItemHasChildren(h1) = True
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With

Dim back,fore
With AxGrid1
	.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 = EXGRIDLib.AppearanceEnum.Bump
	.BackColor = back
	.BackColorHeader = back
	.BackColorLevelHeader = back
	.BackColorSortBar = back
	.BackColorSortBarCaption = back
	.FilterBarBackColor = back
	.FilterBarForeColor = fore
	.ForeColor = fore
	.ForeColorHeader = fore
	.ForeColorSortBar = fore
	.SelBackColor = fore
	.SelForeColor = back
	.set_Background(EXGRIDLib.BackgroundPartEnum.exHeaderFilterBarButton,16777216)
	.set_Background(EXGRIDLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.set_Background(EXGRIDLib.BackgroundPartEnum.exToolTipAppearance,50331648)
	.set_Background(EXGRIDLib.BackgroundPartEnum.exToolTipBackColor,back)
	.set_Background(EXGRIDLib.BackgroundPartEnum.exToolTipForeColor,fore)
	.set_Background(EXGRIDLib.BackgroundPartEnum.exSelBackColorFilter,fore)
	.set_Background(EXGRIDLib.BackgroundPartEnum.exSelForeColorFilter,back)
	.set_Background(EXGRIDLib.BackgroundPartEnum.exBackColorFilter,back)
	.set_Background(EXGRIDLib.BackgroundPartEnum.exForeColorFilter,fore)
	.set_Background(EXGRIDLib.BackgroundPartEnum.exSortBarLinkColor,back)
	.set_Background(EXGRIDLib.BackgroundPartEnum.exScrollSizeGrip,back)
	.set_Description(EXGRIDLib.DescriptionTypeEnum.exFilterBarExclude,"<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>")
	.EndUpdate()
End With

With AxGrid1
	.BeginUpdate()
	.ColumnAutoResize = False
	.LoadXML("http://www.exontrol.net/testing.xml")
	.Font.Size = 22
	.HeaderHeight = 42
	.DefaultItemHeight = 36
	.Items.ItemHeight(0) = AxGrid1.DefaultItemHeight
	.EndUpdate()
End With

With AxGrid1
	.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
	.GetOcx().SelBackColor = &H2000000
	.SelForeColor = RGB(0,0,1)
	.FullRowSelect = EXGRIDLib.CellSelectEnum.exColumnSel
	.ShowFocusRect = False
	.DefaultItemHeight = 24
	.HeaderHeight = 24
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exVLines
	.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

With AxGrid1
	.BeginUpdate()
	.AttachTemplate("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}")
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH" & _
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" & _
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" & _
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" & _
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA=")
	.GetOcx().SelBackColor = &H1000000
	.SelForeColor = RGB(0,0,1)
	.ShowFocusRect = False
	.DefaultItemHeight = 24
	.HeaderHeight = 24
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exVLines
	.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

Dim h
With AxGrid1
	.BeginUpdate()
	.AttachTemplate("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}")
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH" & _
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" & _
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" & _
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" & _
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA=")
	.SelBackMode = EXGRIDLib.BackModeEnum.exTransparent
	.ShowFocusRect = False
	.DefaultItemHeight = 24
	.HeaderHeight = 24
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exVLines
	.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

' AddColumn event - Fired after a new column has been added.
Private Sub AxGrid1_AddColumn(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddColumnEvent) Handles AxGrid1.AddColumn
	' Column.Def(17) = 1
End Sub

' FilterChange event - Occurs when filter was changed.
Private Sub AxGrid1_FilterChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.FilterChange
	Dim format
	With AxGrid1
		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 Sub

With AxGrid1
	.BeginUpdate()
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exVLines
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.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 = EXGRIDLib.FilterBarVisibleEnum.exFilterBarCompact Or EXGRIDLib.FilterBarVisibleEnum.exFilterBarSingleLine Or EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptCaseSensitive Or EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAll
	.EndUpdate()
End With

' RClick event - Fired when right mouse button is clicked
Private Sub AxGrid1_RClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.RClick
	With AxGrid1
		Debug.Print( "Edit Mode: " )
		Debug.Print( .Editing )
		With CreateObject("Exontrol.ContextMenu")
			.Items.ToString = "Check[chk],[sep],Item 1,Item 2,Item 3,Popup(A,B,C)"
			Debug.Print( .Select() )
		End With
	End With
End Sub

With AxGrid1
	.BeginUpdate()
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Flat
	With .Columns.Add("Column").Editor
		.EditType = EXGRIDLib.EditTypeEnum.EditType
		.Option(EXGRIDLib.EditorOptionEnum.exEditAllowContextMenu) = False
	End With
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
	End With
	.EndUpdate()
End With

Dim h
With AxGrid1
	.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
	.set_Background(EXGRIDLib.BackgroundPartEnum.exHeaderFilterBarButton,16777216)
	.set_Background(EXGRIDLib.BackgroundPartEnum.exHeaderFilterBarActive,33554432)
	.set_Background(EXGRIDLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.HeaderHeight = 28
	.BackColorHeader = RGB(255,255,255)
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exRowLines
	.HeaderVisible = True
	With .Columns
		.Add("C1").DisplayFilterButton = True
		With .Add("C2")
			.DisplayFilterButton = True
			.Filter = "Item 2"
			.FilterType = EXGRIDLib.FilterTypeEnum.exFilter
		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

Dim h,size
With AxGrid1
	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,AxGrid1.FormatABC("`CP:3 -` + int(value*dpi) + ` -` + int(value*dpi) + ` ` +  int(value*dpi) + ` ` + int(value*dpi)",size))
		.Add(2,AxGrid1.FormatABC("`CP:4 -` + int(value*dpi) + ` -` + int(value*dpi) + ` ` +  int(value*dpi) + ` ` + int(value*dpi)",size))
	End With
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesAtRoot
	.HasButtons = EXGRIDLib.ExpandButtonEnum.exCustom
	.set_HasButtonsCustom(False,16777216)
	.set_HasButtonsCustom(True,33554432)
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child")
	End With
	.EndUpdate()
End With

Dim h
With AxGrid1
	.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
	.set_Background(EXGRIDLib.BackgroundPartEnum.exHeaderFilterBarButton,33488638)
	.set_Background(EXGRIDLib.BackgroundPartEnum.exHeaderFilterBarActive,16843009)
	.set_Background(EXGRIDLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.HeaderHeight = 28
	.BackColorHeader = RGB(255,255,255)
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exRowLines
	.HeaderVisible = True
	With .Columns
		.Add("C1").DisplayFilterButton = True
		With .Add("C2")
			.DisplayFilterButton = True
			.Filter = "Item 2"
			.FilterType = EXGRIDLib.FilterTypeEnum.exFilter
		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

' Click event - Occurs when the user presses and then releases the left mouse button over the grid control.
Private Sub AxGrid1_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.ClickEvent
	With AxGrid1
		.Items.AddItem("new")
		.Refresh()
	End With
End Sub

With AxGrid1
	.BeginUpdate()
	With .Columns.Add("Item")
		.DisplayFilterButton = True
		.FilterList = EXGRIDLib.FilterListEnum.exShowExclude Or EXGRIDLib.FilterListEnum.exShowFocusItem Or EXGRIDLib.FilterListEnum.exShowCheckBox Or EXGRIDLib.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 = EXGRIDLib.FilterBarVisibleEnum.exFilterBarCompact Or EXGRIDLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or EXGRIDLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or EXGRIDLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or EXGRIDLib.FilterBarVisibleEnum.exFilterBarVisible Or EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With

With AxGrid1
	.BeginUpdate()
	.TreeColumnIndex = -1
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exRowLines
	With .Columns.Add("Default")
		.Alignment = EXGRIDLib.AlignmentEnum.CenterAlignment
		.FormatColumn = "ltrim(rtrim(value))"
	End With
	.Items.AddItem("item 1            ")
	.Items.AddItem("             item 2")
	.Items.AddItem("   item 3                ")
	.EndUpdate()
End With

' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub AxGrid1_DblClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_DblClickEvent) Handles AxGrid1.DblClick
	Dim c,hit,var_ItemFromPoint
	With AxGrid1
		var_ItemFromPoint = .get_ItemFromPoint(-1,-1,c,hit)
		.FocusColumnIndex = c
		.Edit()
	End With
End Sub

With AxGrid1
	.BeginUpdate()
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.AutoEdit = False
	.ReadOnly = EXGRIDLib.ReadOnlyEnum.exLocked
	.AutoSearch = True
	.Columns.Add("").Visible = False
	With .Columns.Add("Contains")
		.AutoSearch = EXGRIDLib.AutoSearchEnum.exContains
		.Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
	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

Dim h
With AxGrid1
	.BeginUpdate()
	.AllowUndoRedo = True
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	With .Columns.Add("P1")
		.Def(EXGRIDLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Columns.Add("P2")
		.Def(EXGRIDLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		.AddItem("Press CTRL + Z for Undo, and CTRL + Y for Redo")
	End With
	.EndUpdate()
End With

' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub AxGrid1_DblClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_DblClickEvent) Handles AxGrid1.DblClick
	With AxGrid1
		.Edit()
	End With
End Sub

With AxGrid1
	.BeginUpdate()
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.AutoEdit = False
	.AutoSearch = True
	With .Columns.Add("Contains")
		.AutoSearch = EXGRIDLib.AutoSearchEnum.exContains
		.Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
	End With
	With .Items
		.AddItem("Tom Hanks")
		.AddItem("Leonardo DiCaprio")
		.AddItem("Will Smith")
		.AddItem("Tom Cruise")
	End With
	.EndUpdate()
End With

With AxGrid1
	.BeginUpdate()
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	With .Columns.Add("Multiple-Columns Tree DropDownListType").Editor
		.EditType = EXGRIDLib.EditTypeEnum.DropDownListType
		.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

With AxGrid1
	.BeginUpdate()
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	With .Columns.Add("Multiple-Columns DropDownListType").Editor
		.EditType = EXGRIDLib.EditTypeEnum.DropDownListType
		.DropDownAutoWidth = EXGRIDLib.DropDownWidthType.exDropDownEditorWidth
		.Option(EXGRIDLib.EditorOptionEnum.exDropDownColumnCaption) = "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

With AxGrid1
	.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 = EXGRIDLib.AppearanceEnum.Etched
	With .Columns.Add("Multiple-Columns Tree DropDownListType").Editor
		.EditType = EXGRIDLib.EditTypeEnum.DropDownListType
		.DropDownAutoWidth = EXGRIDLib.DropDownWidthType.exDropDownEditorWidth
		.Option(EXGRIDLib.EditorOptionEnum.exDropDownColumnCaption) = "Name¦Title¦City¦Phone"
		.Option(EXGRIDLib.EditorOptionEnum.exDropDownColumnWidth) = "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

With AxGrid1
	.BeginUpdate()
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	With .Columns.Add("Multiple-Columns DropDownListType").Editor
		.EditType = EXGRIDLib.EditTypeEnum.DropDownListType
		.DropDownAutoWidth = EXGRIDLib.DropDownWidthType.exDropDownEditorWidth
		.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

With AxGrid1
	.BeginUpdate()
	.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarTop
	.HeaderHeight = 24
	.FilterBarHeight = .HeaderHeight
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Flat
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
	.GridLineStyle = EXGRIDLib.GridLinesStyleEnum.exGridLinesGeometric
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = EXGRIDLib.FilterTypeEnum.exPattern
		.Filter = "B*"
	End With
	With .Columns.Add("Index")
		.FormatColumn = "1 index ``"
		.Position = 0
		.Width = 48
		.AllowSizing = False
		.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
		.Def(EXGRIDLib.DefColumnEnum.exCellHasCheckBox) = 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

' OLEDragDrop event - Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur.
Private Sub AxGrid1_OLEDragDrop(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_OLEDragDropEvent) Handles AxGrid1.OLEDragDrop
	' SelectItem(InsertItem(i,, Data.GetData(1))) = True
	Dim c,hit,i
	With AxGrid1
		i = .get_ItemFromPoint(-1,-1,c,hit)
		With .Items
			.ExpandItem(i) = True
		End With
	End With
End Sub

' OLEStartDrag event - Occurs when the OLEDrag method is called.
Private Sub AxGrid1_OLEStartDrag(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_OLEStartDragEvent) Handles AxGrid1.OLEStartDrag
	' Data.SetData(Me.Items.CellCaption(FocusItem, 0), 1)
	With AxGrid1
		e.allowedEffects = 1
	End With
End Sub

Dim h
With AxGrid1
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABPUIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIaRjEEQDCKYcxHCaIBiGcaIfDEBIeSBHcgRbAcOQHGSZZBhGRJG" & _
"juKIbSrLICzBDUcRnGwAKQoaaaEomHwyAZOYwDAIoWhpKKCKjqWJKNb+XgAAJTES0RRVRTNAZ1YghGAQgIA==")
	.set_Background(EXGRIDLib.BackgroundPartEnum.exListOLEDropPosition,16777216)
	.set_Background(EXGRIDLib.BackgroundPartEnum.exDragDropBefore,0)
	.set_Background(EXGRIDLib.BackgroundPartEnum.exDragDropAfter,16777215)
	.OLEDropMode = EXGRIDLib.exOLEDropModeEnum.exOLEDropManual
	.AutoDrag = EXGRIDLib.AutoDragEnum.exAutoDragPositionAnyOnRight
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.Indent = 16
	.SelBackMode = EXGRIDLib.BackModeEnum.exTransparent
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
	End With
	Debug.Print( "You can:" )
	Debug.Print( "A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)" )
	Debug.Print( "B) right-click to re-arrange the item position inside the same control" )
	Debug.Print( "This sample shows how you can insert the data being dropped as a child of the item being hovered." )
End With

' OLEDragDrop event - Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur.
Private Sub AxGrid1_OLEDragDrop(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_OLEDragDropEvent) Handles AxGrid1.OLEDragDrop
	' SelectItem(InsertItem(i,, Data.GetData(1))) = True
	Dim c,hit,i
	With AxGrid1
		i = .get_ItemFromPoint(-1,-1,c,hit)
		With .Items
			.ExpandItem(i) = True
		End With
	End With
End Sub

' OLEStartDrag event - Occurs when the OLEDrag method is called.
Private Sub AxGrid1_OLEStartDrag(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_OLEStartDragEvent) Handles AxGrid1.OLEStartDrag
	' Data.SetData(Me.Items.CellCaption(FocusItem, 0), 1)
	With AxGrid1
		e.allowedEffects = 1
	End With
End Sub

Dim h
With AxGrid1
	.set_Background(EXGRIDLib.BackgroundPartEnum.exDragDropBefore,0)
	.set_Background(EXGRIDLib.BackgroundPartEnum.exDragDropAfter,16777215)
	.OLEDropMode = EXGRIDLib.exOLEDropModeEnum.exOLEDropManual
	.AutoDrag = EXGRIDLib.AutoDragEnum.exAutoDragPositionAnyOnRight
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.Indent = 16
	.SelBackMode = EXGRIDLib.BackModeEnum.exTransparent
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
	End With
	Debug.Print( "You can:" )
	Debug.Print( "A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)" )
	Debug.Print( "B) right-click to re-arrange the item position inside the same control" )
	Debug.Print( "This sample shows how you can insert the data being dropped as a child of the item being hovered." )
End With

' OLEDragDrop event - Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur.
Private Sub AxGrid1_OLEDragDrop(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_OLEDragDropEvent) Handles AxGrid1.OLEDragDrop
	' SelectItem(InsertItem(i,, Data.GetData(1))) = True
	Dim c,hit,i
	With AxGrid1
		i = .get_ItemFromPoint(-1,-1,c,hit)
		With .Items
			.ExpandItem(i) = True
		End With
	End With
End Sub

' OLEStartDrag event - Occurs when the OLEDrag method is called.
Private Sub AxGrid1_OLEStartDrag(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_OLEStartDragEvent) Handles AxGrid1.OLEStartDrag
	' Data.SetData(Me.Items.CellCaption(FocusItem, 0), 1)
	With AxGrid1
		e.allowedEffects = 1
	End With
End Sub

Dim h
With AxGrid1
	.OLEDropMode = EXGRIDLib.exOLEDropModeEnum.exOLEDropManual
	.AutoDrag = EXGRIDLib.AutoDragEnum.exAutoDragPositionAnyOnRight
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.Indent = 16
	.SelBackMode = EXGRIDLib.BackModeEnum.exTransparent
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
	End With
	Debug.Print( "You can:" )
	Debug.Print( "A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)" )
	Debug.Print( "B) right-click to re-arrange the item position inside the same control" )
	Debug.Print( "This sample shows how you can insert the data being dropped as a child of the item being hovered." )
End With

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

With AxGrid1
	.BeginUpdate()
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Etched
	.set_Background(EXGRIDLib.BackgroundPartEnum.exCursorHoverColumn,-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

' FilterChange event - Occurs when filter was changed.
Private Sub AxGrid1_FilterChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.FilterChange
	With AxGrid1
		.Indent = AxGrid1.FormatABC("value > 0 ? 18 : 0",.Items.MatchItemCount)
	End With
End Sub

Dim h,h2
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.Indent = 18
	.FilterInclude = EXGRIDLib.FilterIncludeEnum.exMatchingItemsOnly
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exVLines
	.HeaderAppearance = EXGRIDLib.AppearanceEnum.Flat
	With .Columns
		With .Add("Column")
			.DisplayFilterButton = True
			.FilterType = EXGRIDLib.FilterTypeEnum.exFilter
			.FilterList = EXGRIDLib.FilterListEnum.exShowCheckBox
			.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,Nothing,"S")
		.InsertItem(h2,Nothing,"C1")
		.InsertItem(h2,Nothing,"C2")
		.InsertItem(h,Nothing,"C1")
		.InsertItem(h,Nothing,"C2")
		.ExpandItem(h) = True
		h = .AddItem("R2")
		.InsertItem(h,Nothing,"C1")
		.InsertItem(h,Nothing,"C2")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

' AddColumn event - Fired after a new column has been added.
Private Sub AxGrid1_AddColumn(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddColumnEvent) Handles AxGrid1.AddColumn
	With AxGrid1
		With e.column
		End With
	End With
End Sub

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub AxGrid1_AddGroupItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddGroupItemEvent) Handles AxGrid1.AddGroupItem
	With AxGrid1
		With .Items
			.ItemDivider(e.item) = -1
			.ItemBackColor(e.item) = AxGrid1.BackColorSortBar
			.ItemHeight(e.item) = AxGrid1.HeaderHeight
			.CellMerge(e.item,0) = "1,2,3,4,5,7,8,9,10,11,12"
			.CellValue(e.item,13) = "count(current,rec,1)"
			.CellValueFormat(e.item,13) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
			.CellValue(e.item,0) = .CellCaption(e.item,.GroupItem(e.item))
			.FormatCell(e.item,0) = "`<b>` + value + `</b> <font ;7><off 3><fgcolor=808080>(` + %13 +  `)`"
			.CellValue(e.item,6) = "sum(current,all,dbl(%6))"
			.CellValueFormat(e.item,6) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
			.CellForeColor(e.item,6) = RGB(102,102,102)
		End With
	End With
End Sub

' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
	With AxGrid1
		.Refresh()
	End With
End Sub

Dim hL,rs
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesOutside
	.Indent = 12
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	.BackColorSortBar = RGB(240,240,240)
	.AutoDrag = EXGRIDLib.AutoDragEnum.exAutoDragScroll
	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(EXGRIDLib.DefColumnEnum.exCellBackColor) = AxGrid1.BackColorSortBar
			.Def(EXGRIDLib.DefColumnEnum.exHeaderBackColor) = .Def(EXGRIDLib.DefColumnEnum.exCellBackColor)
			.Def(EXGRIDLib.DefColumnEnum.exCellPaddingRight) = 4
			.Def(EXGRIDLib.DefColumnEnum.exCellPaddingLeft) = 4
			.HeaderBold = True
			.AllowGroupBy = False
			.FormatColumn = "value format ``"
			.Alignment = EXGRIDLib.AlignmentEnum.RightAlignment
		End With
		With .Item(0)
			.AllowGroupBy = False
			.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
		End With
		.Item("ShipCountry").SortOrder = EXGRIDLib.SortOrderEnum.SortAscending
	End With
	.ScrollBySingleLine = False
	With .Items
		.LockedItemCount(EXGRIDLib.VAlignmentEnum.exBottom) = 1
		hL = .LockedItem(EXGRIDLib.VAlignmentEnum.exBottom,0)
		.ItemHeight(hL) = 24
		.ItemBold(hL) = True
		.ItemBackColor(hL) = AxGrid1.BackColorSortBar
		.CellValue(hL,6) = "sum(all,rec,dbl(%6))"
		.CellValueFormat(hL,6) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
		.CellHAlignment(hL,6) = EXGRIDLib.AlignmentEnum.RightAlignment
		.FormatCell(hL,6) = "value format ``"
	End With
	.EndUpdate()
End With

Dim h
With AxGrid1
	.BeginUpdate()
	.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
	.DrawGridLines = EXGRIDLib.GridLinesEnum.exHLines
	.GridLineStyle = EXGRIDLib.GridLinesStyleEnum.exGridLinesGeometric
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABMsIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIXRpFMbxAKQahLEiTIgGUYJHgmK4tQLHb7zGAABRDDSOIDnGQJX" & _
"haI4JQSMMQDGLAZxVFiPRhAWLpBh+PQATrOdLUfSjVwhBKAQEBA==")
	With .Columns.Add("Default")
		.Def(EXGRIDLib.DefColumnEnum.exCellHasCheckBox) = 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,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.InsertItem(h,Nothing,"Child 3")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		h = .AddItem("Root 3")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With