With Grid1
	.BeginUpdate 
	.HeaderSingleLine = False
	.HeaderHeight = 36
	.DrawGridLines = exRowLines
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	With .Columns
		With .Add("Single-Line (exCaptionSingleLine)")
			.Width = 96
			.Def(exCellValueFormat) = 1
			.Def(exCellSingleLine) = -1
		End With
		With .Add("Word-Wrap (exCaptionWordWrap)")
			.Width = 96
			.Def(exCellValueFormat) = 1
			.Def(exCellSingleLine) = 0
			.FormatColumn = "%0"
		End With
		With .Add("Break-Wrap (exCaptionBreakWrap)")
			.Width = 96
			.Def(exCellValueFormat) = 1
			.Def(exCellSingleLine) = 1
			.FormatColumn = "%0"
		End With
	End With
	With .Items
		.AddItem "This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line."
		.AddItem "This is the <b>first</b> line.\r\nThis is the <b>second</b> line.\r\nThis is the <b>third</b> line."
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.HeaderSingleLine = False
	.HeaderHeight = 36
	.DrawGridLines = exRowLines
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	.Columns.Add("Default").Width = 128
	With .Items
		h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
		h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
		.CellValueFormat(h,0) = exHTML
		h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
		.CellSingleLine(h,0) = exCaptionWordWrap
		h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
		.CellValueFormat(h,0) = exHTML
		.CellSingleLine(h,0) = exCaptionWordWrap
		h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
		.CellSingleLine(h,0) = exCaptionBreakWrap
		h = .AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
		.CellValueFormat(h,0) = exHTML
		.CellSingleLine(h,0) = exCaptionBreakWrap
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.DrawGridLines = exRowLines
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	.Columns.Add("Default").Width = 128
	With .Items
		.CellSingleLine(.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0) = exCaptionBreakWrap
		.AddItem "This is the first line.\r\nThis is the second line.\r\nThis is the third line."
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.DrawGridLines = exRowLines
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	With .Columns.Add("Default")
		.Width = 128
		.Def(exCellSingleLine) = 1
	End With
	With .Items
		.AddItem "This is the first line.\r\nThis is the second line.\r\nThis is the third line."
		.AddItem "This is the first line.\r\nThis is the second line.\r\nThis is the third line."
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.BackColorHeader = RGB(1,0,0)
	.ForeColorHeader = RGB(255,255,255)
	.Background(exBackColorFilter) = .BackColorHeader
	.Background(exForeColorFilter) = .ForeColorHeader
	.Background(exHeaderFilterBarButton) = RGB(240,240,240)
	.Background(exCursorHoverColumn) = -1
	.HeaderAppearance = Bump
	With .Columns.Add("Items")
		.FilterOnType = True
		.DisplayFilterButton = True
		.FilterList = exNoItems
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = True
	With .Columns.Add("Default")
		.Def(exCellValueFormat) = 1
		.FormatColumn = "((trim(value) replace `   ` with ` `) replace `  ` with ` `) replace ` ` with `<bgcolor=FF0000> </bgcolor>`"
	End With
	With .Items
		.AddItem ""
		.AddItem "Item A"
		.AddItem "    Item B"
		.AddItem "        Item   C    "
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = True
	With .Columns.Add("Default")
		.Def(exCellValueFormat) = 1
		.FormatColumn = "`'` + ( value replace ` ` with `_` ) + `'`"
	End With
	With .Items
		.AddItem ""
		.AddItem "Item A"
		.AddItem "    Item B"
		.AddItem "        Item   C    "
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = True
	With .Columns.Add("Default")
		.Def(exCellValueFormat) = 1
		.FormatColumn = "len(value) = 0 ? `<bgcolor=FF0000> </bgcolor>` : ( value replace ` ` with `<bgcolor=FF0000> </bgcolor>` )"
	End With
	With .Items
		.AddItem ""
		.AddItem "Item A"
		.AddItem "    Item B"
		.AddItem "        Item   C    "
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.Background(exBackColorFilter) = RGB(0,0,1)
	.Background(exForeColorFilter) = RGB(255,255,255)
	.Background(exDateScrollRange) = RGB(255,255,255)
	.Background(exDateHeader) = .Background(exBackColorFilter)
	.Background(exDateScrollThumb) = RGB(128,128,128)
	With .Columns.Add("Date")
		.FilterType = exDate
		.DisplayFilterButton = True
		.DisplayFilterDate = True
		.DisplayFilterPattern = False
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .Columns.Add("Filter")
		.DisplayFilterButton = True
		.FilterType = exFilter
		.Filter = "B"
	End With
	With .Items
		.AddItem "A"
		.AddItem "B"
		.AddItem "C"
	End With
	.ApplyFilter 
	.FilterBarHeight = 0
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.BackColorAlternate = RGB(240,240,240)
	.DrawGridLines = exAllLines
	.HeaderAppearance = Etched
	.Description(exFilterBarAnd) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(exFilterBarAnd))
	.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
	.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = exFilterPromptContainsAny
	With .ConditionalFormats
		.Add("%0 like `*parent*`","parent").BackColor = RGB(192,192,192)
		With .Add("%0 like `*child*`","child")
			.ForeColor = RGB(255,128,128)
			.ApplyTo = exFormatToColumns
		End With
		With .Add("%0 like `*B*`","b")
			.ForeColor = RGB(0,0,255)
			.Bold = True
			.Italic = True
			.ApplyTo = exFormatToColumns
		End With
	End With
	With .Columns
		With .Add("Value")
			.Width = 128
			.HTMLCaption = "<b>VA</b><r>sko"
		End With
		With .Add("APos")
			.FormatColumn = "0 apos ``"
			.AllowSort = False
			.Def(exCellBackColor) = 15790320
			.Def(exCellForeColor) = 8421504
			.Def(exHeaderForeColor) = .Def(exCellForeColor)
			.Position = 0
		End With
		With .Add("RPos")
			.FormatColumn = "0 rpos ``"
			.AllowSort = False
			.Position = 1
		End With
		With .Add("Index")
			.FormatColumn = "0 index ``"
			.DisplayFilterButton = True
			.FilterList = exShowCheckBox
			.Position = 2
		End With
		With .Add("Data 1")
			.FormatColumn = "0 index `A-Z`"
			.Def(exCellHasCheckBox) = True
		End With
		With .Add("Data 2")
			.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
			.Def(exCellSingleLine) = False
			.Def(exCellValueFormat) = 1
			.Def(exCellHasRadioButton) = True
		End With
		With .Add("Data 3")
			.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
			.Def(exCellValueFormat) = 1
		End With
	End With
	With .Items
		h = .AddItem("ParentA")
		.InsertItem h,,"Child A"
		.InsertItem h,,"Child B"
		.CellState(h,4) = 1
		.CellBackColor(.InsertItem(h,,"Child C"),5) = RGB(0,255,0)
		.ExpandItem(h) = True
		.AddItem "Item A"
		h = .AddItem("ParentB")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.CellBackColor(.InsertItem(h,,"Child 3"),5) = RGB(0,255,0)
		.CellState(h,5) = 1
		.AddItem "Item B"
		.AddItem "Item C"
		.AddItem "Item D"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
	sFile = "c:/temp/export.html"
	.Export sFile,"vis"
	With CreateObject("InternetExplorer.Application")
		.Navigate2 sFile
	End With
End With

With Grid1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.BackColorAlternate = RGB(240,240,240)
	.DrawGridLines = exAllLines
	.HeaderAppearance = Etched
	.Description(exFilterBarAnd) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(exFilterBarAnd))
	.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
	.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = exFilterPromptContainsAny
	With .ConditionalFormats
		.Add("%0 like `*parent*`","parent").BackColor = RGB(192,192,192)
		With .Add("%0 like `*child*`","child")
			.ForeColor = RGB(255,128,128)
			.ApplyTo = exFormatToColumns
		End With
		With .Add("%0 like `*B*`","b")
			.ForeColor = RGB(0,0,255)
			.Bold = True
			.Italic = True
			.ApplyTo = exFormatToColumns
		End With
	End With
	With .Columns
		With .Add("Value")
			.Width = 128
			.HTMLCaption = "<b>VA</b><r>sko"
		End With
		With .Add("APos")
			.FormatColumn = "0 apos ``"
			.AllowSort = False
			.Def(exCellBackColor) = 15790320
			.Def(exCellForeColor) = 8421504
			.Def(exHeaderForeColor) = .Def(exCellForeColor)
			.Position = 0
		End With
		With .Add("RPos")
			.FormatColumn = "0 rpos ``"
			.AllowSort = False
			.Position = 1
		End With
		With .Add("Index")
			.FormatColumn = "0 index ``"
			.DisplayFilterButton = True
			.FilterList = exShowCheckBox
			.Position = 2
		End With
		With .Add("Data 1")
			.FormatColumn = "0 index `A-Z`"
			.Def(exCellHasCheckBox) = True
		End With
		With .Add("Data 2")
			.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
			.Def(exCellSingleLine) = False
			.Def(exCellValueFormat) = 1
			.Def(exCellHasRadioButton) = True
		End With
		With .Add("Data 3")
			.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
			.Def(exCellValueFormat) = 1
		End With
	End With
	With .Items
		h = .AddItem("ParentA")
		.InsertItem h,,"Child A"
		.InsertItem h,,"Child B"
		.CellState(h,4) = 1
		.CellBackColor(.InsertItem(h,,"Child C"),5) = RGB(0,255,0)
		.ExpandItem(h) = True
		.AddItem "Item A"
		h = .AddItem("ParentB")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.CellBackColor(.InsertItem(h,,"Child 3"),5) = RGB(0,255,0)
		.CellState(h,5) = 1
		.AddItem "Item B"
		.AddItem "Item C"
		.AddItem "Item D"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
	Debug.Print( .Export("","vis") )
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Grid1_AddItem(ByVal Item As EXGRIDLibCtl.HITEM)
	With Grid1
		bHasParent = .FormatABC("value != 0",.Items.ItemParent(Item))
		With .Items
			.CellHasCheckBox(Item,0) = bHasParent
		End With
	End With
End Sub

With Grid1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	With .Columns.Add("Tasks")
		.Def(exCellValueFormat) = 1
		.FormatColumn = "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)"
	End With
	.HeaderVisible = 1
	.SingleSel = False
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		hChild = .InsertItem(h,,"Task 2")
		hChild = .InsertItem(h,,"Task 3")
		.ExpandItem(h) = True
		.LockedItemCount(exTop) = 1
		.CellValue(.LockedItem(exTop,0),0) = "<c>Select multiple items and press the <b>SPACE</b> key"
	End With
	.EndUpdate 
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Grid1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With Grid1
		i = .ItemFromPoint(-1,-1,c,hit)
		Debug.Print( .FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? ( ( (value bitand 0xFFFF0000) bitshift 16 ) array B split `,` )  : `no image`",hit,.Items.CellImages(i,c)) )
	End With
End Sub

With Grid1
	.BeginUpdate 
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Columns.Add "Default"
	With .Items
		.CellImages(.AddItem("Item 1"),0) = "3,2,1"
		.CellImages(.AddItem("Item 2"),0) = "2,3"
		.CellImages(.AddItem("Item 3"),0) = "2,"
	End With
	.EndUpdate 
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Grid1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
	With Grid1
		i = .ItemFromPoint(-1,-1,c,hit)
		Debug.Print( .FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",hit) )
	End With
End Sub

With Grid1
	.BeginUpdate 
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Columns.Add "Default"
	With .Items
		.CellImages(.AddItem("Item 1"),0) = "3,2,1"
		.CellImages(.AddItem("Item 2"),0) = "2,3"
		.CellImages(.AddItem("Item 3"),0) = "2"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.HeaderAppearance = Etched
	With .Columns
		.Add "Column 1"
		.Add "Column 2"
		.Add "Column 3"
	End With
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV" & _
"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" & _
"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" & _
"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDI" & _
"BICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAok" & _
"GKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI="
		.Add 2,"CP:1 0 -36 0 0"
	End With
	.Background(exColumnsPositionSign) = &H2000000
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.HeaderHeight = 22
	.HeaderAppearance = Etched
	.DrawGridLines = exAllLines
	With .Columns
		.Add "Col 1"
		.Add("Col 2").FormatColumn = "1 pos ``"
		.Add("Col 3").FormatColumn = "1 pos `A-`"
		.Add("Col 4").FormatColumn = "1 pos `A-Z`"
		With .Add("Title")
			.ExpandColumns = "0,1,2,3"
			.DisplayExpandButton = False
			.AllowSort = False
			.AllowDragging = False
			.Position = 0
			.HeaderAlignment = CenterAlignment
		End With
	End With
	.ColumnAutoResize = False
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
		.AddItem "Item 4"
	End With
	.EndUpdate 
	Debug.Print( .Export("") )
End With

' AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
Private Sub Grid1_AddGroupItem(ByVal Item As EXGRIDLibCtl.HITEM)
	With Grid1
		With .Items
			.ItemBackColor(Item) = RGB(240,240,240)
			val = .CellValue(Item,.GroupItem(Item))
			.CellState(Item,.GroupItem(Item)) = Grid1.FormatABC("A = `Checked` ? 1 : 0",val)
		End With
	End With
End Sub

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Grid1_AddItem(ByVal Item As EXGRIDLibCtl.HITEM)
	With Grid1
		i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
		.Items.CellImage(Item,3) = i
	End With
End Sub

With Grid1
	.BeginUpdate 
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.Def(exCellHasCheckBox) = True
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exImage
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 rpos ``"
		.Position = 0
	End With
	With .Items
		.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellValue(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.Description(exFilterBarAnd) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(exFilterBarAnd))
	.FilterBarCaption = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + leafitemcount + ` result(s)` ) : (`<r><fgcolor=808080>`+ leafitemcount + `" & _
" item(s)`) )))"
	.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.AllowGroupBy = True
	.SortBarVisible = True
	With .Columns.Item(2)
		.FormatColumn = "%CS2 ? `Checked` : `Unchecked`"
		.SortOrder = SortAscending
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = True
	.DefaultItemHeight = 20
	.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1m" & _
"Y1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2h" & _
"hWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY" & _
"6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQR" & _
"JSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd" & _
"0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA=="
	With .Columns.Add("Default")
		.Def(exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Columns.Add("Position")
		.FormatColumn = "1 rindex ``"
		.Visible = False
	End With
	With .ConditionalFormats.Add("%C1 mod 2")
		.BackColor = &H1000000
	End With
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
		.AddItem "Item 4"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	With .Columns.Add("Default")
		.Def(exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Columns.Add("Position")
		.FormatColumn = "( ( 1:=( ( 0:=(1 rpos '') ) lfind `.`) ) < 0 ? =:0 : (=:0 left =:1) )"
		.Visible = False
	End With
	With .ConditionalFormats.Add("%C1 mod 2")
		.BackColor = RGB(240,240,240)
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		h = .AddItem("Root 3")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
	End With
	.EndUpdate 
End With

With Grid1
	.Columns.Add("ColumnName").Caption = "NewName"
	.Columns.Add("ColumnName").HTMLCaption = "<b>New</b>Name"
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Grid1_AddItem(ByVal Item As EXGRIDLibCtl.HITEM)
	With Grid1
		i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
		.Items.CellImage(Item,3) = i
	End With
End Sub

With Grid1
	.BeginUpdate 
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		With .Editor
			.EditType = CheckValueType
			.Option(exCheckValue2) = 1
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exImage
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellValue(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.Description(exFilterBarAnd) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(exFilterBarAnd))
	.FilterBarCaption = "(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[" & _
"<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matchi" & _
"temcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount" & _
" + ` item(s)`) )))"
	.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter 
	.EndUpdate 
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Grid1_AddItem(ByVal Item As EXGRIDLibCtl.HITEM)
	With Grid1
		i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
		.Items.CellImage(Item,3) = i
	End With
End Sub

With Grid1
	.BeginUpdate 
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		With .Editor
			.EditType = CheckValueType
			.Option(exCheckValue2) = 1
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exImage
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellValue(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.Description(exFilterBarAnd) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(exFilterBarAnd))
	.FilterBarCaption = "all"
	.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter 
	.EndUpdate 
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Grid1_AddItem(ByVal Item As EXGRIDLibCtl.HITEM)
	With Grid1
		i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
		.Items.CellImage(Item,3) = i
	End With
End Sub

With Grid1
	.BeginUpdate 
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		With .Editor
			.EditType = CheckValueType
			.Option(exCheckValue2) = 1
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exImage
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellValue(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.Description(exFilterBarAnd) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(exFilterBarAnd))
	.FilterBarCaption = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
	.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter 
	.EndUpdate 
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Grid1_AddItem(ByVal Item As EXGRIDLibCtl.HITEM)
	With Grid1
		i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
		.Items.CellImage(Item,3) = i
	End With
End Sub

With Grid1
	.BeginUpdate 
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		With .Editor
			.EditType = CheckValueType
			.Option(exCheckValue2) = 1
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exImage
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellValue(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.Description(exFilterBarAnd) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(exFilterBarAnd))
	.FilterBarCaption = "allui"
	.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter 
	.EndUpdate 
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Grid1_AddItem(ByVal Item As EXGRIDLibCtl.HITEM)
	With Grid1
		i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
		.Items.CellImage(Item,3) = i
	End With
End Sub

With Grid1
	.BeginUpdate 
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		With .Editor
			.EditType = CheckValueType
			.Option(exCheckValue2) = 1
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exImage
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellValue(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.Description(exFilterBarAnd) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(exFilterBarAnd))
	.FilterBarCaption = "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( ava" & _
"ilable replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `" & _
"` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount" & _
" + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
	.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter 
	.EndUpdate 
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Grid1_AddItem(ByVal Item As EXGRIDLibCtl.HITEM)
	With Grid1
		i = .FormatABC("value + 1",.Items.ItemToIndex(Item))
		.Items.CellImage(Item,3) = i
	End With
End Sub

With Grid1
	.BeginUpdate 
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		With .Editor
			.EditType = CheckValueType
			.Option(exCheckValue2) = 1
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exImage
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
		h = .AddItem("Item B")
		.CellValue(h,1) = "Sub-Item B"
		.CellState(h,2) = 1
		.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.Description(exFilterBarAnd) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(exFilterBarAnd))
	.FilterBarCaption = "value + ` ` + available"
	.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter 
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
		.CellValue(.AddItem("Item B"),1) = "Sub-Item B"
		.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.Description(exFilterBarAnd) = .FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.Description(exFilterBarAnd))
	.FilterBarCaption = "(`<b>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) +" & _
" ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )) replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replac" & _
"e `]` with ` </b></bgcolor></fgcolor>`"
	.FilterBarPromptVisible = exFilterBarToggle
	With .Columns.Item(0)
		.FilterType = exFilter
		.Filter = "Item A|Item B"
	End With
	With .Columns.Item(1)
		.FilterType = exPattern
		.Filter = "*B"
	End With
	.ApplyFilter 
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
		.CellValue(.AddItem("Item B"),1) = "Sub-Item B"
		.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.FilterBarFont = .Font
	.Description(exFilterBarAnd) = .FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.Description(exFilterBarAnd))
	.FilterBarCaption = "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
	.FilterBarPromptVisible = exFilterBarToggle
	With .Columns.Item(0)
		.FilterType = exFilter
		.Filter = "Item A|Item B"
	End With
	With .Columns.Item(1)
		.FilterType = exPattern
		.Filter = "*B"
	End With
	.ApplyFilter 
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.CellValue(.AddItem("Item A"),1) = "Sub-Item A"
		.CellValue(.AddItem("Item B"),1) = "Sub-Item B"
		.CellValue(.AddItem("Item C"),1) = "Sub-Item C"
	End With
	.Description(exFilterBarAnd) = .FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.Description(exFilterBarAnd))
	.FilterBarCaption = "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
	.FilterBarPromptVisible = exFilterBarToggle
	With .Columns.Item(0)
		.FilterType = exFilter
		.Filter = "Item A|Item B"
	End With
	With .Columns.Item(1)
		.FilterType = exPattern
		.Filter = "*B"
	End With
	.ApplyFilter 
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .Columns.Add("Item")
		.DisplayFilterButton = True
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem "Item A"
		.AddItem "Item B"
		.AddItem "Item C"
	End With
	.FilterBarCaption = "`<r>` + value"
	.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or FilterBarVisibleEnum.exFilterBarToggle
	With .Columns.Item(0)
		.FilterType = exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter 
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .Columns.Add("Item")
		.DisplayFilterButton = True
		.FilterList = FilterListEnum.exShowExclude Or FilterListEnum.exShowFocusItem Or FilterListEnum.exShowCheckBox Or FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem "Item A"
		.AddItem "Item B"
		.AddItem "Item C"
	End With
	.FilterBarFont = .Font
	.FilterBarPrompt = .FormatABC("`<b>` + value",.FilterBarPrompt)
	.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount " & _
"+ 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )"
	.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarFont = .Font
	.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount " & _
"+ 1) + ` result(s)` ) : ``)"
	.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter 
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarFont = .Font
	.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)"
	.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter 
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarFont = .Font
	.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
	.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter 
	.EndUpdate 
End With

' AfterExpandItem event - Fired after an item is expanded (collapsed).
Private Sub Grid1_AfterExpandItem(ByVal Item As EXGRIDLibCtl.HITEM)
	With Grid1
		.Refresh 
	End With
End Sub

With Grid1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Check")
		With .Editor
			.EditType = CheckValueType
			.Option(exCheckValue2) = 1
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exCheck
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem "Item A"
		h = .AddItem("Item B")
		.CellState(.InsertItem(h,,"Sub-Item B1"),1) = 1
		.InsertItem h,,"Sub-Item B2"
		.ExpandItem(h) = True
		.AddItem "Item C"
	End With
	.FilterInclude = exItemsWithChilds
	.FilterBarFont = .Font
	.FilterBarCaption = "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</" & _
"i></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>" & _
": ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF>" & _
"<i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</" & _
"i></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=8" & _
"08080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount +" & _
" `</fgcolor>`"
	.FilterBarPromptPattern = "B"
	.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter 
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarFont = .Font
	.FilterBarCaption = "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
	.FilterBarPromptPattern = "B"
	.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter 
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or FilterBarVisibleEnum.exFilterBarToggle Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPrompt = .FormatABC("`<r>` + value",.FilterBarPrompt)
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.RightToLeft = True
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarToggle Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJ" & _
"jyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKm" & _
"SZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OR" & _
"OicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2" & _
"DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJX" & _
"AiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaK" & _
"JDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G" & _
"0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEA" & _
"kjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRS" & _
"MRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhA" & _
"QHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ"
	End With
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarToggle Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.Background(exFooterFilterBarButton) = &H1000000
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarPromptVisible = exFilterBarPromptVisible
	.Background(exFooterFilterBarButton) = RGB(255,0,0)
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarPromptVisible = exFilterBarPromptVisible
	.Background(exFooterFilterBarButton) = -1
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.Columns.Add("Item").DisplayFilterButton = True
	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"
		.LockedItemCount(exBottom) = 1
		h = .LockedItem(exBottom,0)
		.ItemDivider(h) = 0
		.CellValue(h,0) = "<c><fgcolor=808080>Press the CTRL + F to turn on/off the control's filter bar. ALT + Up/Down moves the focus."
		.CellValueFormat(h,0) = exHTML
	End With
	.FilterBarCaption = "`<r><fgcolor=808080>` + value"
	.FilterBarPromptPattern = "B"
	.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarToggle Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter 
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.Columns.Add("Item").DisplayFilterButton = True
	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 = "len(value) ? `filter for: <fgcolor 808080>` + value  : `<fgcolor 808080>no filter`"
	.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible
	With .Columns.Item(0)
		.FilterType = exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter 
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.Columns.Add("Item").DisplayFilterButton = True
	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"
	.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exFilter
		.Filter = "Item A|Item B"
	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 Grid1_Click()
	With Grid1
		.ClearFilter 
	End With
End Sub

' FilterChange event - Occurs when filter was changed.
Private Sub Grid1_FilterChange()
	With Grid1
		Debug.Print( "Items.MatchItemCount" )
		Debug.Print( .Items.MatchItemCount )
		Debug.Print( .FormatABC("value < 0 ? `filter applied: ` + abs(value + 1) + ` result(s)` : `no filter`",.Items.MatchItemCount) )
	End With
End Sub

With Grid1
	.BeginUpdate 
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarPromptVisible = exFilterBarPromptVisible
	.FilterBarPromptPattern = "Item"
	.EndUpdate 
End With

' Click event - Occurs when the user presses and then releases the left mouse button over the grid control.
Private Sub Grid1_Click()
	With Grid1
		.ClearFilter 
	End With
End Sub

With Grid1
	.BeginUpdate 
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarPromptVisible = exFilterBarPromptVisible
	.FilterBarPromptPattern = "B"
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarPromptPattern = "B"
	.FilterBarPromptVisible = FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter 
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.Columns.Add("Item").DisplayFilterButton = True
	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
	.FilterBarPromptVisible = exFilterBarPromptVisible
	.FilterBarPromptPattern = "B"
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.Columns.Add("Item").DisplayFilterButton = True
	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 = "len(value) = 0 ? `<fgcolor=808080>no filter` : value"
	.FilterBarPromptVisible = exFilterBarVisible
	With .Columns.Item(0)
		.FilterType = exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter 
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.VisualDesign = "gBFLBWIgBAEHhEJAEGg6VAkHeLpgwChAOhULB8XAUUg8MAAREEHGMcgRCJ0ei8dhABDEcQAAYAQGKIYBkAKBQAGaAoDDMOQwQwAAxjGKEEwsACEIrjKCRShyCYZRhGc" & _
"TSBCIZBqEqSZLiEZRQiiCYsS5GQBRWAkEwiBiEQTjea5CgOIAFS7LIqjRQEBxhIaZYIGaiQADENo9TxIMZAfBIHShK6NJABCCSQKkYx0HScRijDIEFwGIQmbKiej4DCi" & _
"CQQW7OYYRVCNMQSfa8HivJyrcamfp/YBgOBYHb1eLVPR5LwfPCGUw1P6PLxkORZHimK4tSLHV7xVpMIwZFafIQhCCoHomS5NU7UNR0TQUFx9FaGX7rDDsGwLAJ6XRgF4" & _
"bg2VpnHePpenAN4bH2GwHFmApSjEGBLnWOpRGOTBZHOegrE6BxPiWVJqCweQrn0LgJAWJBjwgaw1gKO5HmWch5h+fovF+G5bmich4BgfZkB8dynRUVYqiUR5rnmex/F6" & _
"N4tn2AJfnebZ3DEXw3HWXgzAyIwgicKJKBKEIhCeCgiHyHYFEmSAFmqBghFIdgSCeIJygYDAyAgJx6AoIINAMOJNCgCZCGoGoLmMCI+CwJoihMNglCCIhzFCUg0EmMhg" & _
"hWDBkAiQg9CUY4jEYN4Jk2IxklYJoJHIUg+CSZJSESFwkkkGI+FOFIJEIRhPhMCRJCSVoRrSBhiDgTZjHYT4PEkYhwhgJYm0SaIaiaSYuE+GQNlmCIBGCJxjhiZQ5AkM" & _
"hAg6ExJCkPhPguaAiFYUAlAkKZ0g6HoOEmWR/GHcA4m0OwIlIJIHCRgQshGJhpjoaocieaZiC6GAimkUgehIOwnGYGYIGkah6jaE4rg6SpCjKK5rEOMYlGIGIihKOggl" & _
"oFoqj6L5aGaBo6CkGIkAQjiPpCAAaJILCTJQlKPACDaXJgmSaJsnCdJ4nygKEoijKQpSmKcqCpKoqysK0rivLAsSyLMtC1LYty4Lkui7LwvS+L8wDBMIwzEMUxjHMgyT" & _
"KMszDNM4zzQNE0jTNQ1TWNc2DZNo2zcN03jfOA4TiOM5DlOY5zoOk6jrOw7TuO88DxPI8z0PU9j3Pg+T6Ps/D9P4/0AQFAkDQRBUGQdCEJQpC0MQ1DkPRBEUSRNFEVBh" & _
"FkXRhGQ9D6Dxfh+W5gGGd4QH2XQjCmDpFFaKoVB+D5Xmed5+H8YAHnIAh9EwV5Fl0d4MkMKJICmSgygSJAoEmMUCIPgnDCCIOQFYCxJjwFoCcA4kxoF+AIJkAgExegDE" & _
"gEYQInAzCUAIOEGgfxiiRDYF1Q4EQ2BSCaEQYwbAiKREMpRSymFNDIAkAxT6oVRgSA2qdVKq1WqvVirMZQUhSCnBUMoIgoQRgnGSIQUgkg1hIHYAkAYMROAmHiLsE4xx" & _
"SCxBwEwCQ0wmDdBsE0GYXBtg2CSPMFIuwYiQBYBQeAcwOCnBCCZgw0g0glBONAQgqQThCGgPQGoBQfiRGmOEZIPAXjsBoPAO4HRThhA0EQSA5BAgaCKJIGg3QdhOCmNU" & _
"BoQAijTCIF0FwQxpCHDIPAYYMQGgtCmFcaQtRAjZCyFYSojQ2B2BoKwIYFApBXEIBsIQ1QsAWAWEwaA1xCgjAoIAQBAQ="
	.Columns.Add "Column"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .VisualAppearance
		.Add 3,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" & _
"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" & _
"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" & _
"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA="
		.Add 1,"CP:3 -2 -2 2 2"
		.Add 4,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCE" & _
"eBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchO" & _
"FSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQO" & _
"JtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI="
		.Add 2,"CP:4 -2 -2 2 2"
	End With
	.LinesAtRoot = exGroupLinesAtRoot
	.HasButtons = exCustom
	.HasButtonsCustom(0) = 16777216
	.HasButtonsCustom(1) = 33554432
	.Columns.Add "Column"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"XP:TREEVIEW 2 1"
		.Add 2,"XP:TREEVIEW 2 2"
	End With
	.Background(exTreeGlyphOpen) = &H1000000
	.Background(exTreeGlyphClose) = &H2000000
	.LinesAtRoot = exLinesAtRoot
	.Columns.Add "Column"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child"
	End With
	.EndUpdate 
End With

With Grid1
	Debug.Print( .FormatABC("dpi = 1 ? `normal/stretch mode` : `dpi mode`") )
End With

With Grid1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" & _
"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" & _
"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" & _
"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA="
		.Add 2,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCE" & _
"eBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchO" & _
"FSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQO" & _
"JtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI="
	End With
	.LinesAtRoot = exLinesAtRoot
	.Background(exTreeGlyphOpen) = &H1000000
	.Background(exTreeGlyphClose) = &H2000000
	.Columns.Add "Column"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,,"Child"
	End With
	.EndUpdate 
End With

' SelectionChanged event - Fired after a new item has been selected.
Private Sub Grid1_SelectionChanged()
	With Grid1
		Debug.Print( "SelectionChanged" )
	End With
End Sub

With Grid1
	.BeginUpdate 
	.FreezeEvents True
	.SingleSel = True
	.SelectOnRelease = True
	.Columns.Add("Column").FormatColumn = "1 apos `A-Z`"
	With .Items
		.AddItem ""
		.SelectItem(.AddItem("")) = True
		.AddItem ""
	End With
	.FreezeEvents False
	.EndUpdate 
End With

' SelectionChanged event - Fired after a new item has been selected.
Private Sub Grid1_SelectionChanged()
	With Grid1
		Debug.Print( "SelectionChanged" )
	End With
End Sub

With Grid1
	.BeginUpdate 
	.FreezeEvents True
	.AllowSelectNothing = True
	.Columns.Add("Column").FormatColumn = "1 apos `A-Z`"
	With .Items
		.AddItem ""
		.SelectItem(.AddItem("")) = True
		.AddItem ""
	End With
	.FreezeEvents False
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .Columns.Add("")
		.AllowSizing = False
		.AllowDragging = False
		.AllowSort = False
		.Width = 24
		.Def(exCellHasButton) = True
	End With
	.Columns.Add("Column").FormatColumn = "1 apos `A-Z`"
	With .Items
		.AddItem ""
		.SelectItem(.AddItem("")) = True
		.AddItem ""
	End With
	.Background(exSelBackColorHide) = RGB(196,196,196)
	.Background(exSelForeColorHide) = RGB(0,0,1)
	.EndUpdate 
End With

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Grid1_CellStateChanged(ByVal Item As EXGRIDLibCtl.HITEM,ByVal ColIndex As Long)
	With Grid1
		.Refresh 
	End With
End Sub

With Grid1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.SelBackMode = exTransparent
	.DefaultItemHeight = 22
	With .Columns.Add("Tasks")
		.Def(exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .VisualAppearance
		.Add 2,"gBFLBCJwBAEHhEJAAEhABUkIQAAYAQGKIcBiAKBQAGYBIJDEMQ3DjAUBjMK4ZwTC4AIQjCK4JDKHYJRpHEZgLBMJAAGIZYhhUYRUiYMkiJBGGDIDiGGI2SJAcbTVIEc" & _
"x9EyUJSgSTJOjCMokTTIU4TTLYASbJafJJhWSaAiyMouDIOMg1BDNIw/Hika6jOgKUisNJXRzWIBTbDlOQ3JqnbCjOQRSrQBoNDAMAiiaKlbwJPK9RoieQXfwUAJrXJc" & _
"FqXFSLVxNBKAQEBA="
		.Add 1,"CP:2 1 1 -1 -1"
	End With
	With .ConditionalFormats.Add("%CS0 = 1")
		.BackColor = &H1000000
	End With
	.HeaderVisible = 1
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.CellState(hChild) = 1
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	With .Columns.Add("Tasks")
		.Def(exCellHasCheckBox) = True
		.PartialCheck = True
		.Def(exCellValueFormat) = 1
		.FormatColumn = "%CS0 = 1 ? `<bgcolor=000000><fgcolor=FFFFFF> ` + value + ` </fgcolor></bgcolor>` : value"
	End With
	.HeaderVisible = 1
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.CellState(hChild) = 1
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

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

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Grid1_CellStateChanged(ByVal Item As EXGRIDLibCtl.HITEM,ByVal ColIndex As Long)
	With Grid1
		.Refresh 
	End With
End Sub

With Grid1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.DefaultItemHeight = 22
	With .Columns.Add("Tasks")
		.Def(exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .ConditionalFormats.Add("%CS0 = 1")
		Set f = CreateObject("StdFont")
		With f
			.Name = Grid1.Font.Name
			.Size = 12
		End With
		.Font = f
	End With
	.HeaderVisible = 1
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.CellState(hChild) = 1
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Grid1_CellStateChanged(ByVal Item As EXGRIDLibCtl.HITEM,ByVal ColIndex As Long)
	With Grid1
		.Refresh 
	End With
End Sub

With Grid1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	With .Columns.Add("Tasks")
		.Def(exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .ConditionalFormats.Add("%CS0 = 1")
		.Bold = True
	End With
	.HeaderVisible = 1
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.CellState(hChild) = 1
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Grid1_CellStateChanged(ByVal Item As EXGRIDLibCtl.HITEM,ByVal ColIndex As Long)
	With Grid1
		.Refresh 
	End With
End Sub

With Grid1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.SelBackMode = exTransparent
	With .Columns.Add("Tasks")
		.Def(exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .ConditionalFormats.Add("%CS0 = 1")
		.ForeColor = RGB(255,128,128)
	End With
	.HeaderVisible = 1
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.CellState(hChild) = 1
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Grid1_CellStateChanged(ByVal Item As EXGRIDLibCtl.HITEM,ByVal ColIndex As Long)
	With Grid1
		.Refresh 
	End With
End Sub

With Grid1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	.SelBackMode = exTransparent
	With .Columns.Add("Tasks")
		.Def(exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .ConditionalFormats.Add("%CS0 = 1")
		.BackColor = RGB(255,128,128)
	End With
	.HeaderVisible = 1
	With .Items
		h = .AddItem("Project")
		hChild = .InsertItem(h,,"Task 1")
		.SelectItem(hChild) = True
		hChild = .InsertItem(h,,"Task 2")
		.CellState(hChild) = 1
		hChild = .InsertItem(h,,"Task 3")
		.CellState(hChild) = 1
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .Columns
		.Add("C1").Def(exCellHasCheckBox) = True
		.Add("C2").FormatColumn = "1 index `A-Z`"
		.Add("C3").FormatColumn = "100 index ``"
	End With
	With .Items
		.AddItem "Item 1"
		.CellState(.AddItem("Item 2")) = 1
		.CellState(.AddItem("Item 3")) = 1
	End With
	.EndUpdate 
	Debug.Print( "Export CSV Items including Check-State:" )
	.BeginUpdate 
	With .Columns.Add("Check")
		.Position = 0
		.FormatColumn = "%CS0"
	End With
	Debug.Print( .Export("") )
	.Columns.Remove "Check"
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.SelBackColor = RGB(0,0,0)
	.SelForeColor = RGB(255,255,255)
	With .Columns.Add("Edit").Editor
		.EditType = MaskType
		.Mask = ";;;rich"
	End With
	With .Items
		.AddItem ""
		.AddItem "Just a text"
		.AddItem ""
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.SelBackColor = RGB(0,0,0)
	.SelForeColor = RGB(255,255,255)
	With .Columns.Add("DropDown").Editor
		.AddItem 1,"This is just the first item"
		.AddItem 2,"This is just the second item"
		.AddItem 3,"This is just the third item"
		.EditType = DropDownType
		.Mask = ";;;rich"
	End With
	With .Items
		.AddItem ""
		.AddItem "Just a text"
		.AddItem ""
	End With
	.EndUpdate 
End With

' BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
Private Sub Grid1_BeforeExpandItem(ByVal Item As EXGRIDLibCtl.HITEM,Cancel As Variant)
	With Grid1
		Debug.Print( "BeforeExpandItem" )
		Debug.Print( Item )
		Debug.Print( "ColumnFromPoint" )
		Debug.Print( .ColumnFromPoint(-1,-1) )
		Debug.Print( "ColumnFromPoint return -1, if the user clicks the +/- glitch, else it returns the index of the column where the click occurs." )
		.Items.InsertItem Item,,"new child"
	End With
End Sub

With Grid1
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	With .Columns
		.Add("Items").DisplayFilterButton = True
	End With
	With .Items
		.ItemHasChildren(.InsertItem(,,"Group 1")) = True
		.ItemHasChildren(.InsertItem(,,"Group 2")) = True
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA"
	End With
	.Background(exHeaderFilterBarButton) = &H1000000
	.Background(exCursorHoverColumn) = -1
	.HeaderAppearance = None2
	.BackColorHeader = RGB(0,0,0)
	.ForeColorHeader = RGB(255,255,255)
	.HeaderVisible = 1
	With .Columns.Add("Filter")
		.DisplayFilterButton = True
		.AllowSort = False
		.AllowDragging = False
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .VisualAppearance
		.Add 2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN" & _
"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" & _
"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" & _
"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" & _
"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" & _
"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI="
		.Add 1,"CP:2 -4 -4 2 4"
	End With
	.Background(exHeaderFilterBarButton) = &H1000000
	.Background(exCursorHoverColumn) = .BackColor
	.HeaderAppearance = None2
	.HeaderHeight = 24
	.BackColorHeader = RGB(255,255,255)
	.HeaderVisible = 1
	With .Columns.Add("Filter")
		.DisplayFilterButton = True
		.AllowSort = False
		.AllowDragging = False
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.SingleSel = False
	.DefaultItemHeight = 20
	With .VisualAppearance
		.RenderType = -1
		.Add 1,"gBFLBCJwBAEHhEJAAEhABOkGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEwpFAZBhgeDYMiSNoYDJCM4wH" & _
"IURRJFCUJSGWQpTgSIgyT5HFIxXKoASbJabZLhWS6EpWOotTbIQQRYCkEyfKKfZyGURZQqOKA1DBZErWTJESRFJqLazgO4LAhyQYrVgAErzVKVCRNOqbJzADApdpGQJT" & _
"ULDNTQHRFIyhOSnIRrWbMAhid6JUZiVT4dBOIYhSYANAqCwLFqrDJmWrpV5WZjlZ47V6BdAyXJsIrmFJEXaOGhyDDlGybSDZYryfZhUziUw4XjbWwZDqPF6DKTTdSGLR" & _
"EE8WZVlURZvDaep3C+AY8kAYRgGCCBJECUhjDoHROEYWgoAGTQ1CEEx9lGMY0CQUYSnuZQDBGBYFlOH5+H+igGAKAJgEgFgGgGVgDn4CoCmCSA2A6A5hAgDgQgSYRIE4" & _
"EoFGGCBiBeBhhkgPgbgcYgICoH4IGGWIOCSBhiGiHgVgoYooFoAoLGIWI+DCCgjCiTgrgII4ImYOoOmOSJ2AYOpWlQDQBICA="
	End With
	.ShowFocusRect = True
	.Background(exShowFocusRect) = &H1000000
	.LinesAtRoot = exLinesAtRoot
	With .Columns.Add("P1")
		.Def(exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.SingleSel = False
	.DefaultItemHeight = 20
	.ShowFocusRect = True
	With .VisualAppearance
		.RenderType = -1
		.Add 2,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEwpFAZBhgeCRUgyJI3RgMUIzV" & _
"AcRRFEiUJQlIZZCjOAw0SIMU7xZRcNxsACnaZnCR4NiuRYiUhOcqzRIQIQ4CiEahqOgJbDUJYwWZKAyjBY8XTZFCSJCpeJ6egOc5jRxQUp1WAEXx3GSsJKvCZ5cADBY+" & _
"VLQNS0JBtMSTKSLaiuWoIJqCPaDRheWKQJh1NSnLqEcjyYANDxDCZlWzAYxWTZ2Uz7N7PbB0HY4DyPGKZYrfESVRbQcZNS6nNigPI9XhfGq6VjRe63ZaOaYpWrnOJqTR" & _
"WjOKYujWdZ2BGO5lkuBAAkmcQkDmDBEAwEQJCgGhMGcQ4pkiSxGAAOYmkQIhvkYNg2gSCgyj+LI4GIMIwF2XQoAYAoAmASAWAaAZgggJgKFiT54DYDoDmECBGBKBJgGg" & _
"TgWgWYRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChiigYgsgsYYYBYMIKCMKJOCuDRjGiOgLg6Y5InYPoPmQCAkmsXAQDQBCAg="
		.Add 3,"CP:2 -3 0 3 0"
	End With
	.Background(exShowFocusRect) = &H3010101
	.LinesAtRoot = exLinesAtRoot
	With .Columns.Add("P1")
		.Def(exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.SingleSel = False
	.ShowFocusRect = True
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAAEhABHoDg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASV" & _
"AceAAGaUZrjSgobjmOYhAJCLqhYIgASXJqLaBlOCaAieSc+QhjQJIJoeCZXU5TFg1BTsOhqEqcRiseaRVDCaIJWzbdYWLDdNQHHKYLjnWorbpSJZ5XjNEySDQkMS9PrE" & _
"J7vST8FBCdAABLJUB2BR9RwxRafKpnWwJDpmCaOQLXEB5DK1PyVMTKYrtGy7GrIAJxWxbV4UHh+QABOzIMAvHKJMwvHYcUZne5XVLeF41HbONogPaJZyIAK2cLROq6Xo" & _
"7GEcJZEcLASB4DwvgWUZlE6AQQhKAYkkYdA6hyDIwHgSoqFwQgmnsYxjGgSIiBOTpSEiAwRgOJI7j4JAHA6U5wm0MpPlOBIjD8TZiGYCICiCGAuA6AxhAgMgSgOYQ4DY" & _
"Bg/g6cw1n+ABOmMMJ9DmCwjnScw4RsVJngkYh4hoKIKmKKI2CmC5ikiQgqgiT5jhyMw8g4QwIn0OIKEiCJhD8DwTGyfA7k0WQOEWEQkGkJhIhKZB5DYSoTiSCQEn4PQO" & _
"COXJcCeIJjliaIQk0aRyF4O5llmAhfhgZhJg4ZoYiaAxYn4PZOhOZJaCUZYTiYQw1mcOZUm+HQnHmWh4h6Z4pnYeYfk0eYsmqG4nAgNJ2DqD5DkCWoiGiOgqgyI5omoR" & _
"oNiSaQKFKEojCaM4ugSFhOjkAJcieKgDkaH4oioGoOiaKRqgqEoqDddwyhuAxPgOMJ8DyDZqk6NYtCsapmjiLprHqdo6i+K5K1oPhOlqPgKD4DpjnII4yiOewuk6MxtA" & _
"sMpSjObQ7EaT4wk6ewYn0PgPAiCJkjeLgDk6X44i4G4OmaORuguEpqDkLAzkaWg+E8GIUmaPIvEOVpzj2Lxbl6eo+G+S5in4OYPmOaJyjuTwjnYWpBg6DAjAqQZwkwJw" & _
"NkKcJsEcEJCDBEpaD6Dw8BiapGjGSgfB2RpxmyBwgkicZ8haBw/g+M5TBcPQPlOXJskscp8jsMJMnMLJXDGTZzEyYw2kwMoDlcFw9i2M4/EGUJPg0CxFlENBtCcSJSnQ" & _
"fQ0m+SgPHsaJ7lALZLG6XZVHWDRfFqVY1k0ZxdladYTnifJUGaeAWAeMnSGcGWgBObJ3lWbwdjKW5cHcTZPHaLkN4GxXDlFqFsA4uRbBOGAFAEIzAsDEFOBkfYqR4D6A" & _
"OBEYo8QuBvAmMceInBDgcD0JwOIqQyJ1DMAwG4IANDnHSMoK4QhOgMBGNEIQvQWAdGenETIswGiddsAAQAgCAgA=="
		.Add 2,"gBFLBCJwBAEHhEJAAEhABeEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADDFIBQSLAYROGSDJBGODJDjWGIeQLOEhQH" & _
"IMRxPE6UYLhWYpBDKPYcUbGc7yBBMVwGf59XzACoKSheQIVSDQkw6Fo6NYhAxHALyNRkBy8f60KjtGpodDUJYvW5JYyjBZ8EznOqbJBkeJ7BgOe5NQjaD72VgdWQJFSW" & _
"JajWYYJDOJY2ZAAE5TVINEwxJbDaylChIdxaF6WAzZEBhBYoATPNLBMrhWqKDw2XaQWBCOgwHYeR5LU7BdRwbIrRq2eAAXbcVyXfDddZlBK+QA0SK9lRVTKvJZmKgBWw" & _
"1COSxmAAGw4kcNx1iKFBiCAfQsG8lJemucg7nsXpUHOOxrm+DI3jOH4XAOBx2nscw0j2HhPG4L5uGEVIECQCBCEUAYkGMHQHFGSBlGaAxkEgQgTGCVBsDYQhCgQJZrHK" & _
"UggGEShkFGNgIlsNpPnMHJHD+TADAIJIJiIWIeCqChikiIgmgiD5zHyXxgiACJKCuC4jHiZgtg6I4IlkCQwkwOIonMPJjEkFhGhGZBpA4KoMBCGJuEiE5lAkGg7hMY4J" & _
"EYVoUCUNAOE6FZl0KWQACWOR2GKF5mBmChchkJRZhoXYaCKKYqGuDglEmNhuhWZpIiYc4dCcCRqGmHZlgm2YxAwSQKESHwkFkKgpiAIAIH4PIimOOg2DiChoiQJRRD+T" & _
"ZDHCfwyAyCgyg+JpiioYJ/DgDgIlECQ6lwRAEICA="
		.Add 3,"CP:2 -2 0 2 0"
	End With
	.SelBackColor = &H1000000
	.SelForeColor = RGB(0,0,0)
	.Background(exShowFocusRect) = &H3ff0000
	.LinesAtRoot = exLinesAtRoot
	With .Columns.Add("P1")
		.Def(exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem h,,"Child 1"
		.InsertItem h,,"Child 2"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.ColumnAutoResize = True
	.DrawGridLines = exVLines
	With .Columns
		With .Add("Left")
			.AllowSizing = False
			.Width = 96
			.Def(exCellHasCheckBox) = True
			.FormatColumn = "0 pos `A-Z`"
		End With
		With .Add("Center")
			.HeaderAlignment = CenterAlignment
			.Alignment = .HeaderAlignment
			.AllowSizing = False
			.Width = 96
			.Def(exCellHasCheckBox) = True
			.FormatColumn = "0 pos `A-Z`"
		End With
		With .Add("Right")
			.HeaderAlignment = RightAlignment
			.Alignment = .HeaderAlignment
			.AllowSizing = False
			.Width = 96
			.Def(exCellHasCheckBox) = True
			.FormatColumn = "0 pos `A-Z`"
			.Def(exCellDrawPartsOrder) = "caption,check,icon,icons,picture"
		End With
		.Add ""
	End With
	With .Items
		.CellState(.AddItem("Item 1"),3) = 1
		.CellState(.AddItem("Item 2"),2) = 1
		.CellState(.AddItem("Item 3"),1) = 1
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.HeaderHeight = 48
	.ColumnAutoResize = True
	With .Columns
		.Add "And others ..."
		With .Add("")
			.HTMLCaption = "First Column"
			.HeaderVertical = True
			.Width = 36
			.AllowSizing = False
			.Def(exCellHasCheckBox) = True
			.Def(exCellPaddingLeft) = 8
			.Position = 0
		End With
		With .Add("")
			.HTMLCaption = "<c><b>Second Column"
			.HeaderVertical = True
			.Width = 36
			.AllowSizing = False
			.Def(exCellHasCheckBox) = True
			.Def(exCellPaddingLeft) = 8
			.Position = 1
		End With
		With .Add("")
			.HTMLCaption = "<r>Third Column"
			.HeaderVertical = True
			.Width = 36
			.AllowSizing = False
			.Def(exCellHasCheckBox) = True
			.Def(exCellPaddingLeft) = 8
			.Position = 2
		End With
	End With
	With .Items
		.CellState(.AddItem("Item 1"),3) = 1
		.CellState(.AddItem("Item 2"),2) = 1
		.CellState(.AddItem("Item 3"),1) = 1
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.HeaderHeight = 48
	.HeaderSingleLine = False
	.ColumnAutoResize = True
	With .Columns
		.Add "And others ..."
		With .Add("First Column")
			.HeaderVertical = True
			.Width = 36
			.AllowSizing = False
			.Def(exCellHasCheckBox) = True
			.Def(exCellPaddingLeft) = 8
			.Position = 0
		End With
		With .Add("Second Column")
			.HeaderBold = True
			.HeaderVertical = True
			.Width = 36
			.AllowSizing = False
			.Def(exCellHasCheckBox) = True
			.Def(exCellPaddingLeft) = 8
			.Position = 1
		End With
		With .Add("Third Column")
			.HeaderVertical = True
			.Width = 36
			.AllowSizing = False
			.Def(exCellHasCheckBox) = True
			.Def(exCellPaddingLeft) = 8
			.Position = 2
		End With
	End With
	With .Items
		.CellState(.AddItem("Item 1"),3) = 1
		.CellState(.AddItem("Item 2"),2) = 1
		.CellState(.AddItem("Item 3"),1) = 1
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.HeaderHeight = 48
	.ColumnAutoResize = True
	With .Columns
		.Add "And others ..."
		With .Add("")
			.HTMLCaption = "First"
			.HeaderVertical = True
			.Width = 20
			.AllowSizing = False
			.Def(exCellHasCheckBox) = True
			.Position = 0
		End With
		With .Add("")
			.HTMLCaption = "<c><b>Second"
			.HeaderVertical = True
			.Width = 20
			.AllowSizing = False
			.Def(exCellHasCheckBox) = True
			.Position = 1
		End With
		With .Add("")
			.HTMLCaption = "<r>Third"
			.HeaderVertical = True
			.Width = 20
			.AllowSizing = False
			.Def(exCellHasCheckBox) = True
			.Position = 2
		End With
	End With
	With .Items
		.CellState(.AddItem("Item 1"),3) = 1
		.CellState(.AddItem("Item 2"),2) = 1
		.CellState(.AddItem("Item 3"),1) = 1
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.HeaderHeight = 48
	.ColumnAutoResize = True
	With .Columns
		.Add "And others ..."
		With .Add("First")
			.HeaderVertical = True
			.Width = 20
			.AllowSizing = False
			.Def(exCellHasCheckBox) = True
			.Position = 0
		End With
		With .Add("Second")
			.HeaderBold = True
			.HeaderVertical = True
			.Width = 20
			.AllowSizing = False
			.Def(exCellHasCheckBox) = True
			.Position = 1
		End With
		With .Add("Third")
			.HeaderVertical = True
			.Width = 20
			.AllowSizing = False
			.Def(exCellHasCheckBox) = True
			.Position = 2
		End With
	End With
	With .Items
		.CellState(.AddItem("Item 1"),3) = 1
		.CellState(.AddItem("Item 2"),2) = 1
		.CellState(.AddItem("Item 3"),1) = 1
	End With
	.EndUpdate 
End With

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Grid1_CellStateChanged(ByVal Item As EXGRIDLibCtl.HITEM,ByVal ColIndex As Long)
End Sub

With Grid1
	.BeginUpdate 
	.SelBackMode = exTransparent
	With .ConditionalFormats.Add("%CS0","check")
		.Bold = True
	End With
	.Columns.Add("Items").Def(exCellHasCheckBox) = True
	.Columns.Add(Grid1.ConditionalFormats.Item("check").Expression).FormatColumn = Grid1.ConditionalFormats.Item("check").Expression
	With .Items
		.AddItem "Item 1"
		.CellState(.AddItem("Item 2"),0) = 1
		.AddItem "Item 3"
	End With
	.EndUpdate 
End With

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Grid1_CellStateChanged(ByVal Item As EXGRIDLibCtl.HITEM,ByVal ColIndex As Long)
End Sub

With Grid1
	.BeginUpdate 
	.LinesAtRoot = exGroupLinesInsideLeaf
	.SelBackMode = exTransparent
	With .Columns.Add("Items")
		.Def(exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Columns.Add("Format")
		.FormatColumn = "%CS0"
		.Caption = .FormatColumn
		.Def(exCellForeColor) = 8421504
		.Def(exHeaderForeColor) = .Def(exCellForeColor)
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem h,,"Item 1"
		.CellState(.InsertItem(h,,"Item 2"),0) = 1
		.CellState(.InsertItem(h,,"Item 3"),0) = 1
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.Columns.Add "Items"
	With .Columns.Add("Format")
		.FormatColumn = "%CD0"
		.Caption = .FormatColumn
		.Def(exCellForeColor) = 8421504
		.Def(exHeaderForeColor) = .Def(exCellForeColor)
	End With
	With .Items
		.CellData(.AddItem("Item 1"),0) = 1234
		.CellData(.AddItem("Item 2"),0) = "this is just an user data"
		.CellData(.AddItem("Item 3"),0) = #1/1/2001#
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	With .Columns.Add("Items")
		With .Editor
			.EditType = DropDownListType
			.AddItem 1,"Item 1"
			.AddItem 2,"Item 2"
			.AddItem 3,"Item 3"
		End With
	End With
	With .Columns.Add("Format")
		.FormatColumn = "%0"
		.Caption = .FormatColumn
		.Def(exCellForeColor) = 8421504
		.Def(exHeaderForeColor) = .Def(exCellForeColor)
		.AllowSizing = False
	End With
	With .Columns.Add("Format")
		.FormatColumn = "%C0"
		.Caption = .FormatColumn
		.Def(exCellForeColor) = 8421504
		.Def(exHeaderForeColor) = .Def(exCellForeColor)
		.AllowSizing = False
	End With
	With .Items
		.AddItem 1
		.CellValue(.AddItem(0),0) = 2
		.AddItem 2
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.RadioImage(0) = 32699122
	.RadioImage(1) = 16777216
	.Columns.Add("Check").Def(exCellHasRadioButton) = True
	With .Items
		.AddItem "Radio 1"
		.CellState(.AddItem("Radio 2"),0) = 1
		.AddItem "Radio 1"
	End With
	.EndUpdate 
End With

With Grid1
	.BeginUpdate 
	.CheckImage(Unchecked) = 32699122
	.CheckImage(Checked) = 16777216
	.Columns.Add("Check").Def(exCellHasCheckBox) = True
	With .Items
		.AddItem "Check 1"
		.CellState(.AddItem("Check 2"),0) = 1
		.AddItem "Check 3"
	End With
	.EndUpdate 
End With