With Excombobox1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXCOMBOBOXLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.DrawGridLines = exontrol.EXCOMBOBOXLib.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 Excombobox1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXCOMBOBOXLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.DrawGridLines = exontrol.EXCOMBOBOXLib.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 Excombobox1
	.BeginUpdate()
	With .VisualAppearance
		.RenderType = &Hffffffffui
		.Add(1,"gBFLBCJwBAEHhEJAAEhABa8IQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFMbxCKQahLEiTIhGUYJHgmK4tRiAUgxVDkBxrECZYqjcBZO" & _
"iwLQ2TxDM7DNKUCBnIoABhGOaYDh+IQNQjUFKwTRFGRxK4EIRKAyTDLQdRyGSMMbjdQpBCbMiMRqhESKRq2UwYRYCFS1NalaztO6BUAvK67YrWez/YBfF+SfwGeqDYRe" & _
"WAPfgWERnQrGMLxbD8KwZAKTRjkGJ4XhuB41TbQMqufL9ByXHKSSDpGjaXjeO5VVjYNAvS69UzXNq3bhtQAOXCMEwCgI=")
		.Add(2,"CP:1 -2 0 0 0")
	End With
	.DrawGridLines = exontrol.EXCOMBOBOXLib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXCOMBOBOXLib.GridLinesStyleEnum.exGridLinesGeometric
	.ShowFocusRect = False
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exHeaderFilterBarButton,&H2000000)
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exHeaderFilterBarActive,&H2000001)
	.HeaderAppearance = exontrol.EXCOMBOBOXLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.HeaderVisible = True
	With .Columns.Add("1st col")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.Filter = "Item B"
		.FilterType = exontrol.EXCOMBOBOXLib.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

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

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

' Click event - Occurs when the user presses and then releases the left mouse button over the list control.
Private Sub Excombobox1_Click(ByVal sender As System.Object) Handles Excombobox1.Click
	Dim c,hit,i
	With Excombobox1
		i = .get_ItemFromPoint(-1,-1,c,hit)
		.LabelText = .Items.get_CellCaption(i,0)
		.set_DropDown(,False)
	End With
End Sub

With Excombobox1
	.BeginUpdate()
	.SearchColumnIndex = -1
	.AdjustSearchColumn = False
	.SingleEdit = True
	.Style = exontrol.EXCOMBOBOXLib.StyleEnum.DropDownList
	.HeaderVisible = False
	.IntegralHeight = True
	.Columns.Add("Default")
	With .Items
		.set_LockedItemCount(exontrol.EXCOMBOBOXLib.VAlignmentEnum.exTop,1)
		.set_CellCaption(.get_LockedItem(exontrol.EXCOMBOBOXLib.VAlignmentEnum.exTop,0),0,"(no assignment)")
		.set_ItemBackColor(.get_LockedItem(exontrol.EXCOMBOBOXLib.VAlignmentEnum.exTop,0),Color.FromArgb(255,255,0))
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
	End With
	.PutItems(.GetItems(""))
	.EndUpdate()
End With

Dim rs
With Excombobox1
	.BeginUpdate()
	.ColumnAutoResize = False
	.HeaderAppearance = exontrol.EXCOMBOBOXLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.DrawGridLines = exontrol.EXCOMBOBOXLib.GridLinesEnum.exVLines
	.LinesAtRoot = exontrol.EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
	rs = New ADODB.Recordset()
	With rs
		.Open("Select * FROM Employees WHERE 1=0","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb",3,3)
	End With
	.DataSource = rs
	.Columns.Item(0).Width = 128
	rs = New ADODB.Recordset()
	With rs
		.Open("Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb",3,3)
	End With
	.PutItems(rs.GetRows(),";0;15")
	.Items.set_ExpandItem(0,True)
	.EndUpdate()
End With

Dim h,hR
With Excombobox1
	.BeginUpdate()
	.ConditionalFormats.Add("%CC0=0").ForeColor = Color.FromArgb(128,128,128)
	.HeaderAppearance = exontrol.EXCOMBOBOXLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = exontrol.EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns
		.Add("Item").Width = 16
		.Add("Desc")
	End With
	With .Items
		hR = .AddItem("Root")
		.set_CellCaption(hR,1,"The root directory /")
		h = .InsertItem(hR,Nothing,"Home")
		.set_CellCaption(h,1,"The home directory with user directories Alice and Bob")
		.InsertItem(h,Nothing,"Alice")
		.InsertItem(h,Nothing,"Bob")
		.set_ExpandItem(h,True)
		h = .InsertItem(hR,Nothing,"Etc")
		.set_CellCaption(h,1,"The etc directory with one configuration file")
		h = .InsertItem(h,Nothing,"nginx.conf")
		.set_CellCaption(.InsertItem(hR,Nothing,"Var"),1,"The var directory")
		.set_ExpandItem(hR,True)
	End With
	.EndUpdate()
End With

Dim h,hR
With Excombobox1
	.BeginUpdate()
	.ConditionalFormats.Add("%CC0").ForeColor = Color.FromArgb(255,0,0)
	.HeaderAppearance = exontrol.EXCOMBOBOXLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = exontrol.EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns
		.Add("Item").Width = 16
		.Add("Desc")
	End With
	With .Items
		hR = .AddItem("Root")
		.set_CellCaption(hR,1,"The root directory /")
		h = .InsertItem(hR,Nothing,"Home")
		.set_CellCaption(h,1,"The home directory with user directories Alice and Bob")
		.InsertItem(h,Nothing,"Alice")
		.InsertItem(h,Nothing,"Bob")
		.set_ExpandItem(h,True)
		h = .InsertItem(hR,Nothing,"Etc")
		.set_CellCaption(h,1,"The etc directory with one configuration file")
		h = .InsertItem(h,Nothing,"nginx.conf")
		.set_CellCaption(.InsertItem(hR,Nothing,"Var"),1,"The var directory")
		.set_ExpandItem(hR,True)
	End With
	.EndUpdate()
End With

Dim h,hR
With Excombobox1
	.BeginUpdate()
	.ConditionalFormats.Add("%CX0").Bold = True
	.HeaderAppearance = exontrol.EXCOMBOBOXLib.AppearanceEnum.Etched
	.HeaderHeight = 24
	.LinesAtRoot = exontrol.EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns
		.Add("Item").Width = 16
		.Add("Desc")
	End With
	With .Items
		hR = .AddItem("Root")
		.set_CellCaption(hR,1,"The root directory /")
		h = .InsertItem(hR,Nothing,"Home")
		.set_CellCaption(h,1,"The home directory with user directories Alice and Bob")
		.InsertItem(h,Nothing,"Alice")
		.InsertItem(h,Nothing,"Bob")
		.set_ExpandItem(h,True)
		h = .InsertItem(hR,Nothing,"Etc")
		.set_CellCaption(h,1,"The etc directory with one configuration file")
		h = .InsertItem(h,Nothing,"nginx.conf")
		.set_CellCaption(.InsertItem(hR,Nothing,"Var"),1,"The var directory")
		.set_ExpandItem(hR,True)
	End With
	.EndUpdate()
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Excombobox1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Excombobox1.MouseMoveEvent
	With Excombobox1
		.ShowToolTip("new content","",Nothing,"+8","+8")
	End With
End Sub

With Excombobox1
	.ToolTipMargin = "16,8"
End With

With Excombobox1
	.BeginUpdate()
	.SortBarVisible = True
	.SortBarCaption = "<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)"
	.HeaderEnabled = False
	.HeaderAppearance = exontrol.EXCOMBOBOXLib.AppearanceEnum.Etched
	.Columns.Add("Index").FormatColumn = "1 index ``"
	.Columns.Add("Pos").FormatColumn = "1 apos ``"
	.Columns.Add("Edit")
	.GridLineStyle = exontrol.EXCOMBOBOXLib.GridLinesStyleEnum.exGridLinesGeometric
	.DrawGridLines = exontrol.EXCOMBOBOXLib.GridLinesEnum.exVLines
	.EndUpdate()
End With

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Excombobox1_AnchorClick(ByVal sender As System.Object,ByVal AnchorID As String,ByVal Options As String) Handles Excombobox1.AnchorClick
	With Excombobox1
		Debug.Print( AnchorID )
	End With
End Sub

Dim h
With Excombobox1
	.BeginUpdate()
	.Style = exontrol.EXCOMBOBOXLib.StyleEnum.Simple
	.TreeColumnIndex = -1
	.DrawGridLines = exontrol.EXCOMBOBOXLib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXCOMBOBOXLib.GridLinesStyleEnum.exGridLinesGeometric
	.BackColorAlternate = Color.FromArgb(240,240,240)
	.ShowFocusRect = False
	.SingleEdit = True
	.SearchColumnIndex = 1
	.AdjustSearchColumn = False
	.HeaderVisible = False
	.Columns.Add("Default")
	.Columns.Add("Select").Visible = False
	With .Items
		.set_CellCaption(.AddItem("before item"),1,"before")
		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)")
		.set_CellCaptionFormat(h,0,exontrol.EXCOMBOBOXLib.CaptionFormatEnum.exHTML)
		.set_CellSingleLine(h,0,exontrol.EXCOMBOBOXLib.CellSingleLineEnum.exCaptionWordWrap)
		.set_CellCaption(h,1,"Bank Account")
		.set_CellCaption(.AddItem("after item"),1,"after")
	End With
	.set_Select(1,"after")
	.EndUpdate()
End With

Dim h
With Excombobox1
	.BeginUpdate()
	.Style = exontrol.EXCOMBOBOXLib.StyleEnum.Simple
	.TreeColumnIndex = -1
	.DrawGridLines = exontrol.EXCOMBOBOXLib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXCOMBOBOXLib.GridLinesStyleEnum.exGridLinesGeometric
	.BackColorAlternate = Color.FromArgb(240,240,240)
	.ShowFocusRect = False
	.SingleEdit = True
	.SearchColumnIndex = 1
	.AdjustSearchColumn = False
	.HeaderVisible = False
	.Columns.Add("Default")
	.Columns.Add("Select").Visible = False
	With .Items
		.set_CellCaption(.AddItem("before item"),1,"before")
		h = .AddItem("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
		.set_CellCaptionFormat(h,0,exontrol.EXCOMBOBOXLib.CaptionFormatEnum.exHTML)
		.set_CellSingleLine(h,0,exontrol.EXCOMBOBOXLib.CellSingleLineEnum.exCaptionWordWrap)
		.set_CellCaption(h,1,"Bank Account")
		.set_CellCaption(.AddItem("after item"),1,"after")
	End With
	.set_Select(1,"after")
	.EndUpdate()
End With

With Excombobox1
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exScrollHoverAll,-1)
End With

With Excombobox1
	.set_Background(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exScrollHoverAll,Color.FromArgb(1,0,0))
End With

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Excombobox1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Excombobox1.MouseMoveEvent
	With Excombobox1
		.ShowToolTip(.get_ColumnFromPoint(-1,-1),"",Nothing,"+8","+8")
	End With
End Sub

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Excombobox1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Excombobox1.MouseMoveEvent
	With Excombobox1
		.ShowToolTip("<null>","<null>",Nothing,"+8","+8")
	End With
End Sub

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

' CellStateChanging event - Fired before cell's state is about to be changed.
Private Sub Excombobox1_CellStateChanging(ByVal sender As System.Object,ByVal Cell As exontrol.EXCOMBOBOXLib.HCELL,ByRef NewState As Integer) Handles Excombobox1.CellStateChanging
	With Excombobox1
		With .Items
			NewState = .get_CellState(Nothing,Cell)
		End With
	End With
End Sub

Dim h
With Excombobox1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("P1")
		.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Columns.Add("P2")
		.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

With Excombobox1
	.BeginUpdate()
	.Style = exontrol.EXCOMBOBOXLib.StyleEnum.DropDownList
	.HeaderVisible = False
	.IntegralHeight = True
	.ShowClearButton = 3
	.Columns.Add("Column")
	With .Items
		.AddItem("Zero")
		.AddItem("One")
		.AddItem("Two")
	End With
	.set_Select(0,"Zero")
	.EndUpdate()
End With

With Excombobox1
	.BeginUpdate()
	.Style = exontrol.EXCOMBOBOXLib.StyleEnum.DropDownList
	.HeaderVisible = False
	.IntegralHeight = True
	.ShowClearButton = 2
	.Columns.Add("Column")
	With .Items
		.AddItem("Zero")
		.AddItem("One")
		.AddItem("Two")
	End With
	.set_Select(0,"Zero")
	.EndUpdate()
End With

With Excombobox1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"XP:Window 19 1")
		.Add(2,"XP:Window 19 3")
	End With
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exClearButtonUp,&H1000000)
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exClearButtonDown,&H2000000)
	.Style = exontrol.EXCOMBOBOXLib.StyleEnum.DropDownList
	.HeaderVisible = False
	.IntegralHeight = True
	.ShowClearButton = 1
	.Columns.Add("Column")
	With .Items
		.AddItem("Zero")
		.AddItem("One")
		.AddItem("Two")
	End With
	.set_Select(0,"Zero")
	.EndUpdate()
End With

With Excombobox1
	.BeginUpdate()
	.Style = exontrol.EXCOMBOBOXLib.StyleEnum.DropDownList
	.HeaderVisible = False
	.IntegralHeight = True
	.ShowClearButton = -1
	.Columns.Add("Column")
	With .Items
		.AddItem("Zero")
		.AddItem("One")
		.AddItem("Two")
	End With
	.set_Select(0,"Zero")
	.EndUpdate()
End With

With Excombobox1
	.BeginUpdate()
	.Style = exontrol.EXCOMBOBOXLib.StyleEnum.DropDownList
	.HeaderVisible = False
	.IntegralHeight = True
	.ShowClearButton = 1
	.Columns.Add("Column")
	With .Items
		.AddItem("Zero")
		.AddItem("One")
		.AddItem("Two")
	End With
	.set_Select(0,"Zero")
	.EndUpdate()
End With

' Click event - Occurs when the user presses and then releases the left mouse button over the list control.
Private Sub Excombobox1_Click(ByVal sender As System.Object) Handles Excombobox1.Click
	With Excombobox1
		Debug.Print( .get_DropDown() )
		.set_DropDown(,True)
	End With
End Sub

Dim h
With Excombobox1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
	.Style = exontrol.EXCOMBOBOXLib.StyleEnum.DropDownList
	.IntegralHeight = True
	.Columns.Add("P1")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		.set_SelectItem(h,True)
	End With
	.EndUpdate()
End With

Dim rs
With Excombobox1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\SAMPLE.MDB",3,3)
	End With
	.DataSource = rs
	.EndUpdate()
End With

Dim h
With Excombobox1
	.BeginUpdate()
	.IntegralHeight = True
	.Images("gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmD" & _
"cD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB")
	With .Columns.Add("ToLeft")
		.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox,True)
	End With
	With .Columns.Add("ToRight")
		.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox,True)
		.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellDrawPartsOrder,"caption,picture,icons,icon,check")
	End With
	.DefaultItemHeight = 32
	.DrawGridLines = exontrol.EXCOMBOBOXLib.GridLinesEnum.exVLines
	.HeaderAppearance = exontrol.EXCOMBOBOXLib.AppearanceEnum.Etched
	With .Items
		h = .AddItem("Caption")
		.set_CellImage(h,0,2)
		.set_CellImages(h,0,"1,2")
		.set_CellPicture(h,0,Excombobox1.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==`)"))
		.set_CellCaption(h,1,.get_CellCaption(h,0))
		.set_CellHAlignment(h,1,exontrol.EXCOMBOBOXLib.AlignmentEnum.RightAlignment)
		.set_CellImage(h,1,.get_CellImage(h,0))
		.set_CellImages(h,1,"2,1")
		.set_CellPicture(h,1,.get_CellPicture(h,0))
		h = .AddItem("<b>HTML</b> <off 4>Caption")
		.set_CellCaptionFormat(h,0,exontrol.EXCOMBOBOXLib.CaptionFormatEnum.exHTML)
		.set_CellImage(h,0,2)
		.set_CellImages(h,0,"1,2")
		.set_CellPicture(h,0,Excombobox1.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==`)"))
		.set_CellCaption(h,1,.get_CellCaption(h,0))
		.set_CellCaptionFormat(h,1,exontrol.EXCOMBOBOXLib.CaptionFormatEnum.exHTML)
		.set_CellHAlignment(h,1,exontrol.EXCOMBOBOXLib.AlignmentEnum.RightAlignment)
		.set_CellImage(h,1,.get_CellImage(h,0))
		.set_CellImages(h,1,"2,1")
		.set_CellPicture(h,1,.get_CellPicture(h,0))
	End With
	.EndUpdate()
End With

' AddColumn event - Fired after a new column has been added.
Private Sub Excombobox1_AddColumn(ByVal sender As System.Object,ByVal Column As exontrol.EXCOMBOBOXLib.Column) Handles Excombobox1.AddColumn
	' Column.Def(48) = 2
	' Column.Def(49) = 2
End Sub

Dim h,hR
With Excombobox1
	.BeginUpdate()
	.ImageSize = 32
	.LabelHeight = 36
	.DefaultItemHeight = 36
	.HeaderHeight = .DefaultItemHeight
	.SortBarHeight = .DefaultItemHeight
	.Font.Size = 16
	.FilterBarFont.Size = Excombobox1.Font.Size
	.ToolTipFont.Size = Excombobox1.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
	.HeaderBackColor32 = &H4c6c6c6
	.SelBackColor32 = &H4000000
	.SelForeColor = Color.FromArgb(0,0,1)
	.set_CheckImage(exontrol.EXCOMBOBOXLib.CheckStateEnum.Unchecked,16777216)
	.set_CheckImage(exontrol.EXCOMBOBOXLib.CheckStateEnum.Checked,33554432)
	.set_CheckImage(exontrol.EXCOMBOBOXLib.CheckStateEnum.PartialChecked,50331648)
	.set_Background(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exSelBackColorFilter,.SelBackColor)
	.set_Background(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exSelForeColorFilter,.SelForeColor)
	.set_Background(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exBackColorFilter,.BackColor)
	.set_Background(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exForeColorFilter,.ForeColor)
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exHeaderFilterBarButton,&H4000000)
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exHeaderFilterBarActive,&H4010101)
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exFooterFilterBarButton,&H40000ff)
	.HeaderAppearance = exontrol.EXCOMBOBOXLib.AppearanceEnum.Etched
	.ShowFocusRect = False
	.SortBarVisible = True
	.BackColorSortBar = .BackColor
	.BackColorLevelHeader = .BackColor
	.FilterBarDropDownHeight = 1
	.IntegralHeight = True
	With .Columns.Add("Check")
		.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
		.Width = 128
		.DisplayFilterButton = True
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.FormatColumn = "1 pos ``"
		.AllowSort = False
		.Width = 48
		.AllowSizing = False
		.Alignment = exontrol.EXCOMBOBOXLib.AlignmentEnum.CenterAlignment
		.HeaderAlignment = exontrol.EXCOMBOBOXLib.AlignmentEnum.CenterAlignment
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowExclude Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or exontrol.EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exImage
		.Width = 128
		.HeaderImage = 1
	End With
	With .Columns.Add("Images")
		.set_Def(exontrol.EXCOMBOBOXLib.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")
		.set_ItemDivider(hR,0)
		.set_ItemDividerLine(hR,exontrol.EXCOMBOBOXLib.DividerLineEnum.EmptyLine)
		h = .InsertItem(hR,Nothing,"Child A")
		.set_CellImage(h,2,1)
		.set_CellImages(h,3,"1,2,3")
		.set_CellCaption(h,3,"123")
		h = .InsertItem(hR,Nothing,"Child B")
		.set_CellState(h,0,1)
		.set_CellImage(h,2,3)
		.set_CellImages(h,3,"2,3,1")
		.set_CellCaption(h,3,"231")
		.set_SelectItem(h,True)
		h = .InsertItem(hR,Nothing,"Child C")
		.set_CellImage(h,2,2)
		.set_CellState(h,3,1)
		.set_CellCaption(h,3,"312")
		.set_CellImages(h,3,"3,1,2")
		.set_ExpandItem(hR,True)
	End With
	.EndUpdate()
End With

' AddColumn event - Fired after a new column has been added.
Private Sub Excombobox1_AddColumn(ByVal sender As System.Object,ByVal Column As exontrol.EXCOMBOBOXLib.Column) Handles Excombobox1.AddColumn
	' Column.Def(48) = 2
	' Column.Def(49) = 2
End Sub

Dim h,hR
With Excombobox1
	.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
	.HeaderBackColor32 = &H4c6c6c6
	.SelBackColor32 = &H4000000
	.SelForeColor = Color.FromArgb(0,0,1)
	.set_Background(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exSelBackColorFilter,.SelBackColor)
	.set_Background(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exSelForeColorFilter,.SelForeColor)
	.set_Background(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exBackColorFilter,.BackColor)
	.set_Background(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exForeColorFilter,.ForeColor)
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exHeaderFilterBarButton,&H4000000)
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exHeaderFilterBarActive,&H4010101)
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exFooterFilterBarButton,&H40000ff)
	.HeaderAppearance = exontrol.EXCOMBOBOXLib.AppearanceEnum.Etched
	.ShowFocusRect = False
	.SortBarVisible = True
	.BackColorSortBar = .BackColor
	.BackColorLevelHeader = .BackColor
	.FilterBarDropDownHeight = 1
	.IntegralHeight = True
	With .Columns.Add("Check")
		.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
		.Width = 128
		.DisplayFilterButton = True
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.FormatColumn = "1 pos ``"
		.AllowSort = False
		.Width = 48
		.AllowSizing = False
		.Alignment = exontrol.EXCOMBOBOXLib.AlignmentEnum.CenterAlignment
		.HeaderAlignment = exontrol.EXCOMBOBOXLib.AlignmentEnum.CenterAlignment
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowExclude Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or exontrol.EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exImage
		.Width = 128
		.HeaderImage = 1
	End With
	With .Columns.Add("Images")
		.set_Def(exontrol.EXCOMBOBOXLib.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")
		.set_ItemDivider(hR,0)
		.set_ItemDividerLine(hR,exontrol.EXCOMBOBOXLib.DividerLineEnum.EmptyLine)
		h = .InsertItem(hR,Nothing,"Child A")
		.set_CellImage(h,2,1)
		.set_CellImages(h,3,"1,2,3")
		.set_CellCaption(h,3,"123")
		h = .InsertItem(hR,Nothing,"Child B")
		.set_CellState(h,0,1)
		.set_CellImage(h,2,3)
		.set_CellImages(h,3,"2,3,1")
		.set_CellCaption(h,3,"231")
		.set_SelectItem(h,True)
		h = .InsertItem(hR,Nothing,"Child C")
		.set_CellImage(h,2,2)
		.set_CellState(h,3,1)
		.set_CellCaption(h,3,"312")
		.set_CellImages(h,3,"3,1,2")
		.set_ExpandItem(hR,True)
	End With
	.EndUpdate()
End With

' AddColumn event - Fired after a new column has been added.
Private Sub Excombobox1_AddColumn(ByVal sender As System.Object,ByVal Column As exontrol.EXCOMBOBOXLib.Column) Handles Excombobox1.AddColumn
	With Excombobox1
		With Column
		End With
	End With
End Sub

Dim rs
With Excombobox1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb",3,3)
	End With
	.DataSource = rs
	.Columns.Item("ShipVia").Position = 2
	.EndUpdate()
End With

With Excombobox1
	.Columns.Add("Max 2 chars").EditMaxLength = 2
	.AutoSearch = False
	.AutoComplete = False
End With

With Excombobox1
	.BeginUpdate()
	.VisualAppearance.Add(1,"XP: COMBOBOX 1 1")
	.VisualAppearance.Add(2,"XP: COMBOBOX 1 3")
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exDropDownButtonUp,&H1000000)
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exDropDownButtonDown,&H2000000)
	.Columns.Add("Default")
	.EndUpdate()
End With

With Excombobox1
	.BeginUpdate()
	.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABKYCg6AADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSKUOQTDKMIziYBYJhEMwwDhEIwjGKsIhsGIbJAGQBJCjWGodQLOEgzN" & _
"C0IxNFCQILhEZJADKII8TTOU5UPRESwTE4cKBmKhQCo2NpKR7VUTxCKQahLLivoCjBT8EzHMqtIzrCA6MpaP4pQjKcqwTJ8YyHEi0ZrjazKaj6T5AXDUcaWbbNVx3PK3" & _
"aioOpLZrqOZZYzYFoRFYNTTJMTLcZifBsEoib4qSxMVaDPQWNT3CTIMQve4IEyGQ6jDDVOjYfqmDzTPAALLFUaNYzoOKyABMHATBIXAY7BIIOQ1HgHNBwJAAczzcTSBI" & _
"ABECQoBoTBnEOKZIkuJYFEMCBElgXBoG0CQUHKIB8huYBiDUEYtAkA4Ol+D5PmWdJ7nyHh/iKCQ8iYWwWkWY5aAIfgfFgFgEgGXxoCSbR+g8N5wFMCABnCDgQAiX54AY" & _
"A4CiCCAaBgfhfjedgTBgBZhggVQVEWCBOBWAIPGgZgqgcIJYHoEQYEWcYMniDJPFOUJ1giYhYEYJ8siidgMgOIQ4kIMoMmASJWDeCQiGgAgogYY54jgI4QiMM5iCsOxk" & _
"GiYhJgWIoYjIQILmMGRGAQNpNjMcJjhiZBYloVoOiSKAKCAGIkBkdhEgKJgDHAMgMEMcJkDgD4mDODhlhGY4QgwbgbEcAxElANBnnGQhehwJgZkwN4EmEOZaHiGQgikG" & _
"BpBoRozGSWS5jmRoKgSSJiDiEAgEgEgOg2HZnhkTgZiaJxIEyDwjkkF5Qn6K5qAqCgRiOKhYG4PYqCiOBGiuKxrGqPJ+iwag6D4eotiuCoqiyKYfCqepAiyahKECbYxG" & _
"uKwejaFJsiqBpBh4YRbBqPIPGyCAWlWLICDoTBrDsLhCgiIgpC2W4mkmK5JmIdIfDwbwDi2bxAlAECAg=")
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exDropDownButtonUp,&H1f0f0f0)
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exDropDownButtonDown,&H1666666)
	.Columns.Add("Default")
	.EndUpdate()
End With

With Excombobox1
	.BeginUpdate()
	.UseVisualTheme = exontrol.EXCOMBOBOXLib.UIVisualThemeEnum.exNoVisualTheme
	.Columns.Add("Default")
	.EndUpdate()
End With

Dim h
With Excombobox1
	.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_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exHeaderFilterBarButton,&H1fefefe)
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exHeaderFilterBarActive,&H1010101)
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.HeaderHeight = 28
	.DrawGridLines = exontrol.EXCOMBOBOXLib.GridLinesEnum.exRowLines
	.HeaderVisible = True
	With .Columns
		.Add("C1").DisplayFilterButton = True
		With .Add("C2")
			.DisplayFilterButton = True
			.Filter = "Item 2"
			.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exFilter
		End With
		.Add("C3").DisplayFilterButton = True
	End With
	With .Items
		h = .AddItem("Item 1")
		.set_CellCaption(h,1,"Item 2")
		.set_CellCaption(h,2,"Item 3")
		h = .AddItem("Item 4")
		.set_CellCaption(h,1,"Item 5")
		.set_CellCaption(h,2,"Item 6")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Excombobox1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA")
	End With
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exHeaderFilterBarButton,&H1000000)
	.set_Background(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exBackColorFilter,Color.FromArgb(0,0,1))
	.set_Background(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exForeColorFilter,Color.FromArgb(255,255,255))
	.set_Description(exontrol.EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarExclude,"<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>")
	.HeaderAppearance = exontrol.EXCOMBOBOXLib.AppearanceEnum.None2
	.HeaderBackColor = Color.FromArgb(0,0,0)
	.HeaderForeColor = Color.FromArgb(255,255,255)
	.HeaderVisible = True
	With .Columns.Add("Filter")
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowExclude Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox
		.DisplayFilterButton = True
		.AllowSort = False
		.AllowDragging = False
	End With
	With .Items
		.AddItem("One")
		.AddItem("Two")
		.AddItem("Three")
	End With
	.EndUpdate()
End With

With Excombobox1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXCOMBOBOXLib.AppearanceEnum.Etched
	.Style = exontrol.EXCOMBOBOXLib.StyleEnum.DropDownList
	.SingleSel = False
	.SingleEdit = True
	.LabelColumnIndex = 0
	.SelBackColor = Color.FromArgb(51,153,255)
	.SelForeColor = Color.FromArgb(255,255,255)
	.LabelText = "<bgcolor=3399FF><fgcolor=FFFFFF> %c </fgcolor></bgcolor>"
	With .Columns
		.Add("Column")
		.Add("Sub-Column")
	End With
	With .Items
		.set_CellCaption(.AddItem("Item 1"),1,"SubItem 1.1")
		.set_CellCaption(.AddItem("Item 2"),1,"SubItem 2.1")
		.set_CellCaption(.AddItem("Item 3"),1,"SubItem 3.1")
		.set_CellCaption(.AddItem("Item 4"),1,"SubItem 4.1")
		.set_SelectItem(.get_ItemByIndex(1),True)
		.set_SelectItem(.get_ItemByIndex(3),True)
	End With
	.EndUpdate()
End With

With Excombobox1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXCOMBOBOXLib.AppearanceEnum.Etched
	.Style = exontrol.EXCOMBOBOXLib.StyleEnum.DropDownList
	.SingleSel = False
	.SingleEdit = True
	.LabelColumnIndex = 0
	.SelBackColor = Color.FromArgb(51,153,255)
	.SelForeColor = Color.FromArgb(255,255,255)
	.LabelText = " "
	With .Columns
		.Add("Column")
		.Add("Sub-Column")
	End With
	With .Items
		.set_CellCaption(.AddItem("Item 1"),1,"SubItem 1.1")
		.set_CellCaption(.AddItem("Item 2"),1,"SubItem 2.1")
		.set_CellCaption(.AddItem("Item 3"),1,"SubItem 3.1")
		.set_CellCaption(.AddItem("Item 4"),1,"SubItem 4.1")
		.set_SelectItem(.get_ItemByIndex(1),True)
		.set_SelectItem(.get_ItemByIndex(3),True)
	End With
	.EndUpdate()
End With

With Excombobox1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXCOMBOBOXLib.AppearanceEnum.Etched
	.Style = exontrol.EXCOMBOBOXLib.StyleEnum.DropDownList
	.SingleSel = False
	.SingleEdit = True
	.LabelColumnIndex = 0
	With .Columns
		.Add("Column")
		.Add("Sub-Column")
	End With
	With .Items
		.set_CellCaption(.AddItem("Item 1"),1,"SubItem 1.1")
		.set_CellCaption(.AddItem("Item 2"),1,"SubItem 2.1")
		.set_CellCaption(.AddItem("Item 3"),1,"SubItem 3.1")
		.set_CellCaption(.AddItem("Item 4"),1,"SubItem 4.1")
		.set_SelectItem(.get_ItemByIndex(1),True)
		.set_SelectItem(.get_ItemByIndex(3),True)
	End With
	.EndUpdate()
End With

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

With Excombobox1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXCOMBOBOXLib.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 Excombobox1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXCOMBOBOXLib.AppearanceEnum.Etched
	.set_Background32(exontrol.EXCOMBOBOXLib.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

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

With Excombobox1
	.BeginUpdate()
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.set_SelectItem(.get_ItemByIndex(1),True)
	End With
	.EndUpdate()
End With

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

With Excombobox1
	.BeginUpdate()
	.Columns.Add("Default")
	With .Items
		.set_ItemData(.AddItem("method 1"),"your extra data of method 1")
		.InsertItem(0,"your extra data of method 2","method 2")
	End With
	With .Items
		.DefaultItem = .AddItem("method 3")
		.set_ItemData(0,"your extra data of method 3")
	End With
	.EndUpdate()
End With

With Excombobox1
	.BeginUpdate()
	.AttachTemplate("handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}")
	.HeaderAppearance = exontrol.EXCOMBOBOXLib.AppearanceEnum.Etched
	.DrawGridLines = exontrol.EXCOMBOBOXLib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXCOMBOBOXLib.GridLinesStyleEnum.exGridLinesVSolid
	With .Columns
		.Add("Item")
		With .Add("Pos")
			.Position = 0
			.Width = 32
			.AllowSizing = False
			.FormatColumn = "1 index ``"
		End With
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.EndUpdate()
End With

With Excombobox1
	.BeginUpdate()
	With .Columns.Add("Check")
		.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox,True)
		.SortType = exontrol.EXCOMBOBOXLib.SortTypeEnum.exSortByState
	End With
	With .Items
		.AddItem()
		.set_CellState(.AddItem(),0,1)
		.set_CellState(.AddItem(),0,1)
		.AddItem()
	End With
	.Columns.Item(0).SortOrder = exontrol.EXCOMBOBOXLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With

With Excombobox1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Image")
		.SortType = exontrol.EXCOMBOBOXLib.SortTypeEnum.exSortByImage
	End With
	With .Items
		.set_CellImage(.AddItem(),0,3)
		.AddItem()
		.set_CellImage(.AddItem(),0,1)
		.set_CellImage(.AddItem(),0,2)
	End With
	.Columns.Item(0).SortOrder = exontrol.EXCOMBOBOXLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With

' BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
Private Sub Excombobox1_BeforeExpandItem(ByVal sender As System.Object,ByVal Item As Integer,ByRef Cancel As Object) Handles Excombobox1.BeforeExpandItem
	With Excombobox1
		With .Items
			.set_ItemHasChildren(.InsertItem(Item,Nothing,"new"),True)
		End With
	End With
End Sub

With Excombobox1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
	.Style = exontrol.EXCOMBOBOXLib.StyleEnum.DropDown
	.Columns.Add("Def")
	With .Items
		.AddItem("Item 1")
		.set_ItemHasChildren(.AddItem("Item 2"),True)
		.AddItem("Item 3")
	End With
	.Value = "Item 2"
	.EndUpdate()
End With

With Excombobox1
	.BeginUpdate()
	With .Font
		.Name = "Arial Unicode"
		.Size = 22
	End With
	.HeaderVisible = False
	.DefaultItemHeight = 48
	.Columns.Add("").set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat,1)
	With .Items
		.AddItem("Ӓӓ")
		.AddItem("ᦜᦝ;ᦞ")
		.AddItem("ɮɭ;ɯ")
		.AddItem("勳勴勵勶")
		.set_FormatCell(.AddItem(Excombobox1.Version),0,"(value lfind `UNICODE`) < 0 ? `<fgcolor=FF0000><b>!UNICODE!</b> version</fgcolor> required: ` + value : `` ")
	End With
	.EndUpdate()
End With

With Excombobox1
	.BeginUpdate()
	.Columns.Add("Items").FormatColumn = "((1 apos ``) lpad `00`) + `. `  + value"
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
		.AddItem("Item D")
	End With
	.EndUpdate()
End With

' FilterChange event - Occurs when filter was changed.
Private Sub Excombobox1_FilterChange(ByVal sender As System.Object) Handles Excombobox1.FilterChange
	With Excombobox1
		.set_Background(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exHeaderFilterBarButton,.FormatABC("value = 0 ? 0x1000001 : 0x10000FF ",.Columns.Item(0).FilterType))
	End With
End Sub

With Excombobox1
	.BeginUpdate()
	With .VisualAppearance
		.RenderType = &Hff000000ui
		.Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA")
	End With
	.DrawGridLines = exontrol.EXCOMBOBOXLib.GridLinesEnum.exAllLines
	.ShowFocusRect = False
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exHeaderFilterBarButton,&H1000001)
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.HeaderAppearance = exontrol.EXCOMBOBOXLib.AppearanceEnum.Etched
	.HeaderVisible = True
	With .Columns.Add("Filter")
		.DisplayFilterButton = True
		.AllowSort = False
		.AllowDragging = False
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	With .Columns.Item(0)
		.Filter = "Item B"
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exFilter
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Excombobox1
	.AutoComplete = False
	.IntegralHeight = True
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	End With
End With

Dim rs
With Excombobox1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb",1,1)
	End With
	.DataSource = rs
	.Value = 10311
	With .Items
		.EnsureVisibleItem(.FocusItem)
	End With
	.EndUpdate()
End With

Dim rs
With Excombobox1
	.BeginUpdate()
	rs = New ADODB.Recordset()
	With rs
		.Fields.Append("A",8)
		.Fields.Append("B",8)
		.Open()
		.AddNew()
		.Fields.Item("A").Value = "Item A.1"
		.Fields.Item("B").Value = "Item B.1"
		.Update()
		.AddNew()
		.Fields.Item("A").Value = "Item A.2"
		.Fields.Item("B").Value = "Item B.2"
		.Update()
	End With
	.DataSource = rs
	.Value = "Item A.1"
	.EndUpdate()
End With

With Excombobox1
	Debug.Print( New DAO.PrivDBEngine().Version )
	Debug.Print( New DAO.PrivDBEngine().Version )
	Debug.Print( New DAO.PrivDBEngine().Version )
End With

Dim rs
With Excombobox1
	.BeginUpdate()
	.ColumnAutoResize = False
	With New DAO.PrivDBEngine()
		rs = .OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb").OpenRecordset("Orders")
	End With
	Debug.Print( New Object() )
	.DataSource = rs
	.Value = 10248
	.EndUpdate()
End With

With Excombobox1
	Debug.Print( "ADO Version:" )
	Debug.Print( New ADODB.Connection().Version )
End With

Dim rs
With Excombobox1
	.BeginUpdate()
	.ColumnAutoResize = False
	With New DAO.PrivDBEngine()
		rs = .OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb").OpenRecordset("Orders")
	End With
	.DataSource = rs
	.Value = 10248
	.EndUpdate()
End With

Dim rs
With Excombobox1
	.BeginUpdate()
	.ColumnAutoResize = False
	With New DAO.PrivDBEngine()
		rs = .OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb").OpenRecordset("Orders")
	End With
	.DataSource = rs
	.Value = 10248
	.EndUpdate()
End With

Dim rs
With Excombobox1
	.BeginUpdate()
	.ColumnAutoResize = False
	With New DAO.PrivDBEngine()
		rs = .OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb").OpenRecordset("Orders")
	End With
	.DataSource = rs
	.Value = 10248
	.EndUpdate()
End With

Dim rs
With Excombobox1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb",1,1)
	End With
	.DataSource = rs
	.Value = 10248
	.EndUpdate()
End With

Dim rs
With Excombobox1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb",3,3)
	End With
	.DataSource = rs
	.Value = 10248
	.EndUpdate()
End With

Dim rs
With Excombobox1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb",3,3)
	End With
	.DataSource = rs
	.Value = 10248
	.EndUpdate()
End With

Dim rs
With Excombobox1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb",3,3)
	End With
	.DataSource = rs
	.Value = 10248
	.EndUpdate()
End With

With Excombobox1
	.BeginUpdate()
	.HeaderSingleLine = False
	.HeaderHeight = 36
	.DrawGridLines = exontrol.EXCOMBOBOXLib.GridLinesEnum.exRowLines
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	With .Columns
		With .Add("Single-Line (exCaptionSingleLine)")
			.Width = 96
			.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat,1)
			.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellSingleLine,-1)
		End With
		With .Add("Word-Wrap (exCaptionWordWrap)")
			.Width = 96
			.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat,1)
			.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellSingleLine,0)
			.FormatColumn = "%0"
		End With
		With .Add("Break-Wrap (exCaptionBreakWrap)")
			.Width = 96
			.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat,1)
			.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.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

Dim h
With Excombobox1
	.BeginUpdate()
	.HeaderSingleLine = False
	.HeaderHeight = 36
	.DrawGridLines = exontrol.EXCOMBOBOXLib.GridLinesEnum.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.")
		.set_CellCaptionFormat(h,0,exontrol.EXCOMBOBOXLib.CaptionFormatEnum.exHTML)
		h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
		.set_CellSingleLine(h,0,exontrol.EXCOMBOBOXLib.CellSingleLineEnum.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.")
		.set_CellCaptionFormat(h,0,exontrol.EXCOMBOBOXLib.CaptionFormatEnum.exHTML)
		.set_CellSingleLine(h,0,exontrol.EXCOMBOBOXLib.CellSingleLineEnum.exCaptionWordWrap)
		h = .AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
		.set_CellSingleLine(h,0,exontrol.EXCOMBOBOXLib.CellSingleLineEnum.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.")
		.set_CellCaptionFormat(h,0,exontrol.EXCOMBOBOXLib.CaptionFormatEnum.exHTML)
		.set_CellSingleLine(h,0,exontrol.EXCOMBOBOXLib.CellSingleLineEnum.exCaptionBreakWrap)
	End With
	.EndUpdate()
End With

With Excombobox1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXCOMBOBOXLib.GridLinesEnum.exRowLines
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	.Columns.Add("Default").Width = 128
	With .Items
		.set_CellSingleLine(.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0,exontrol.EXCOMBOBOXLib.CellSingleLineEnum.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 Excombobox1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXCOMBOBOXLib.GridLinesEnum.exRowLines
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	With .Columns.Add("Default")
		.Width = 128
		.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.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

Dim h,sFile
With Excombobox1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
	.BackColorAlternate = Color.FromArgb(240,240,240)
	.DrawGridLines = exontrol.EXCOMBOBOXLib.GridLinesEnum.exAllLines
	.HeaderAppearance = exontrol.EXCOMBOBOXLib.AppearanceEnum.Etched
	.set_Description(exontrol.EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXCOMBOBOXLib.DescriptionTypeEnum.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 = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = exontrol.EXCOMBOBOXLib.FilterPromptEnum.exFilterPromptContainsAny
	With .ConditionalFormats
		.Add("%0 like `*parent*`","parent").BackColor = Color.FromArgb(192,192,192)
		With .Add("%0 like `*child*`","child")
			.ForeColor = Color.FromArgb(255,128,128)
			.ApplyTo = exontrol.EXCOMBOBOXLib.FormatApplyToEnum.exFormatToColumns
		End With
		With .Add("%0 like `*B*`","b")
			.ForeColor = Color.FromArgb(0,0,255)
			.Bold = True
			.Italic = True
			.ApplyTo = exontrol.EXCOMBOBOXLib.FormatApplyToEnum.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
			.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellBackColor,15790320)
			.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellForeColor,8421504)
			.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exHeaderForeColor,.get_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.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 = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox
			.Position = 2
		End With
		With .Add("Data 1")
			.FormatColumn = "0 index `A-Z`"
			.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox,True)
		End With
		With .Add("Data 2")
			.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
			.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellSingleLine,False)
			.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat,1)
			.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellHasRadioButton,True)
		End With
		With .Add("Data 3")
			.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
			.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat,1)
		End With
	End With
	With .Items
		h = .AddItem("ParentA")
		.InsertItem(h,Nothing,"Child A")
		.InsertItem(h,Nothing,"Child B")
		.set_CellState(h,4,1)
		.set_CellBackColor(.InsertItem(h,Nothing,"Child C"),5,Color.FromArgb(0,255,0))
		.set_ExpandItem(h,True)
		.AddItem("Item A")
		h = .AddItem("ParentB")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_CellBackColor(.InsertItem(h,Nothing,"Child 3"),5,Color.FromArgb(0,255,0))
		.set_CellState(h,5,1)
		.AddItem("Item B")
		.AddItem("Item C")
		.AddItem("Item D")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
	sFile = "c:/temp/export.html"
	.Export(sFile,"vis")
	With New SHDocVw.ShellBrowserWindow()
		.Navigate2(sFile)
	End With
End With

Dim h
With Excombobox1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
	.BackColorAlternate = Color.FromArgb(240,240,240)
	.DrawGridLines = exontrol.EXCOMBOBOXLib.GridLinesEnum.exAllLines
	.HeaderAppearance = exontrol.EXCOMBOBOXLib.AppearanceEnum.Etched
	.set_Description(exontrol.EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXCOMBOBOXLib.DescriptionTypeEnum.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 = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptType = exontrol.EXCOMBOBOXLib.FilterPromptEnum.exFilterPromptContainsAny
	With .ConditionalFormats
		.Add("%0 like `*parent*`","parent").BackColor = Color.FromArgb(192,192,192)
		With .Add("%0 like `*child*`","child")
			.ForeColor = Color.FromArgb(255,128,128)
			.ApplyTo = exontrol.EXCOMBOBOXLib.FormatApplyToEnum.exFormatToColumns
		End With
		With .Add("%0 like `*B*`","b")
			.ForeColor = Color.FromArgb(0,0,255)
			.Bold = True
			.Italic = True
			.ApplyTo = exontrol.EXCOMBOBOXLib.FormatApplyToEnum.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
			.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellBackColor,15790320)
			.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellForeColor,8421504)
			.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exHeaderForeColor,.get_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.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 = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox
			.Position = 2
		End With
		With .Add("Data 1")
			.FormatColumn = "0 index `A-Z`"
			.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox,True)
		End With
		With .Add("Data 2")
			.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
			.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellSingleLine,False)
			.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat,1)
			.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellHasRadioButton,True)
		End With
		With .Add("Data 3")
			.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
			.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat,1)
		End With
	End With
	With .Items
		h = .AddItem("ParentA")
		.InsertItem(h,Nothing,"Child A")
		.InsertItem(h,Nothing,"Child B")
		.set_CellState(h,4,1)
		.set_CellBackColor(.InsertItem(h,Nothing,"Child C"),5,Color.FromArgb(0,255,0))
		.set_ExpandItem(h,True)
		.AddItem("Item A")
		h = .AddItem("ParentB")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_CellBackColor(.InsertItem(h,Nothing,"Child 3"),5,Color.FromArgb(0,255,0))
		.set_CellState(h,5,1)
		.AddItem("Item B")
		.AddItem("Item C")
		.AddItem("Item D")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
	Debug.Print( .Export("","vis") )
End With

With Excombobox1
	.BeginUpdate()
	.HeaderAppearance = exontrol.EXCOMBOBOXLib.AppearanceEnum.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
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exColumnsPositionSign,&H2000000)
	.EndUpdate()
End With

With Excombobox1
	.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")
		.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Columns.Add("Position")
		.FormatColumn = "1 rindex ``"
		.Visible = False
	End With
	With .ConditionalFormats.Add("%C1 mod 2")
		.BackColor32 = &H1000000
	End With
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 4")
	End With
	.EndUpdate()
End With

Dim h
With Excombobox1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Default")
		.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.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 = Color.FromArgb(240,240,240)
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_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

' InsertItem event - Occurs after a new item has been inserted to Items collection.
Private Sub Excombobox1_InsertItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Excombobox1.InsertItem
	Dim i
	With Excombobox1
		i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
		.Items.set_CellImage(Item,3,i)
	End With
End Sub

Dim h
With Excombobox1
	.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 = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowExclude Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or exontrol.EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowExclude Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or exontrol.EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox,True)
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exImage
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowExclude Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		h = .AddItem("Item B")
		.set_CellCaption(h,1,"Sub-Item B")
		.set_CellState(h,2,1)
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXCOMBOBOXLib.DescriptionTypeEnum.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 = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With

' InsertItem event - Occurs after a new item has been inserted to Items collection.
Private Sub Excombobox1_InsertItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Excombobox1.InsertItem
	Dim i
	With Excombobox1
		i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
		.Items.set_CellImage(Item,3,i)
	End With
End Sub

Dim h
With Excombobox1
	.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 = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowExclude Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or exontrol.EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowExclude Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or exontrol.EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox,True)
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exImage
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowExclude Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		h = .AddItem("Item B")
		.set_CellCaption(h,1,"Sub-Item B")
		.set_CellState(h,2,1)
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "all"
	.FilterBarPromptVisible = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With

' InsertItem event - Occurs after a new item has been inserted to Items collection.
Private Sub Excombobox1_InsertItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Excombobox1.InsertItem
	Dim i
	With Excombobox1
		i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
		.Items.set_CellImage(Item,3,i)
	End With
End Sub

Dim h
With Excombobox1
	.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 = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowExclude Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or exontrol.EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowExclude Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or exontrol.EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox,True)
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exImage
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowExclude Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		h = .AddItem("Item B")
		.set_CellCaption(h,1,"Sub-Item B")
		.set_CellState(h,2,1)
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXCOMBOBOXLib.DescriptionTypeEnum.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 = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With

' InsertItem event - Occurs after a new item has been inserted to Items collection.
Private Sub Excombobox1_InsertItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Excombobox1.InsertItem
	Dim i
	With Excombobox1
		i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
		.Items.set_CellImage(Item,3,i)
	End With
End Sub

Dim h
With Excombobox1
	.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 = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowExclude Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or exontrol.EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowExclude Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or exontrol.EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox,True)
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exImage
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowExclude Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		h = .AddItem("Item B")
		.set_CellCaption(h,1,"Sub-Item B")
		.set_CellState(h,2,1)
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "allui"
	.FilterBarPromptVisible = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With

' InsertItem event - Occurs after a new item has been inserted to Items collection.
Private Sub Excombobox1_InsertItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Excombobox1.InsertItem
	Dim i
	With Excombobox1
		i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
		.Items.set_CellImage(Item,3,i)
	End With
End Sub

Dim h
With Excombobox1
	.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 = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowExclude Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or exontrol.EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowExclude Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or exontrol.EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox,True)
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exImage
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowExclude Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		h = .AddItem("Item B")
		.set_CellCaption(h,1,"Sub-Item B")
		.set_CellState(h,2,1)
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXCOMBOBOXLib.DescriptionTypeEnum.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 = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With

' InsertItem event - Occurs after a new item has been inserted to Items collection.
Private Sub Excombobox1_InsertItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Excombobox1.InsertItem
	Dim i
	With Excombobox1
		i = .FormatABC("value + 1",.Items.get_ItemToIndex(Item))
		.Items.set_CellImage(Item,3,i)
	End With
End Sub

Dim h
With Excombobox1
	.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 = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowExclude Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or exontrol.EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowExclude Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or exontrol.EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Check")
		.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox,True)
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exCheck
	End With
	With .Columns.Add("Image")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exImage
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowExclude Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		h = .AddItem("Item B")
		.set_CellCaption(h,1,"Sub-Item B")
		.set_CellState(h,2,1)
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.get_Description(exontrol.EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd)))
	.FilterBarCaption = "value + ` ` + available"
	.FilterBarPromptVisible = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.Columns.Item(2).Filter = 1
	.ApplyFilter()
	.EndUpdate()
End With

With Excombobox1
	.BeginUpdate()
	With .Columns.Add("Col-1")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowExclude Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or exontrol.EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Col-2")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowExclude Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or exontrol.EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc
	End With
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.set_CellCaption(.AddItem("Item A"),1,"Sub-Item A")
		.set_CellCaption(.AddItem("Item B"),1,"Sub-Item B")
		.set_CellCaption(.AddItem("Item C"),1,"Sub-Item C")
	End With
	.FilterBarFont = .Font
	.set_Description(exontrol.EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd,.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.get_Description(exontrol.EXCOMBOBOXLib.DescriptionTypeEnum.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 = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarToggle
	With .Columns.Item(0)
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	With .Columns.Item(1)
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exPattern
		.Filter = "*B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

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

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

With Excombobox1
	.BeginUpdate()
	With .Columns.Add("Item")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowExclude Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or exontrol.EXCOMBOBOXLib.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 = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarToggle
	With .Columns.Item(0)
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

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

With Excombobox1
	.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 = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Excombobox1
	.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 = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Excombobox1
	.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 = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

' AfterExpandItem event - Fired after an item is expanded (collapsed).
Private Sub Excombobox1_AfterExpandItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Excombobox1.AfterExpandItem
	With Excombobox1
		.Refresh()
	End With
End Sub

Dim h
With Excombobox1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Check")
		.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox,True)
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.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")
		.set_CellState(.InsertItem(h,Nothing,"Sub-Item B1"),1,1)
		.InsertItem(h,Nothing,"Sub-Item B2")
		.set_ExpandItem(h,True)
		.AddItem("Item C")
	End With
	.FilterInclude = exontrol.EXCOMBOBOXLib.FilterIncludeEnum.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 = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarCaptionVisible Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Excombobox1
	.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 = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Excombobox1
	.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 = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarToggle Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPrompt = .FormatABC("`<r>` + value",.FilterBarPrompt)
	.EndUpdate()
End With

With Excombobox1
	.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 = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarToggle Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With

With Excombobox1
	.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 = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarToggle Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exFooterFilterBarButton,&H1000000)
	.EndUpdate()
End With

With Excombobox1
	.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 = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.set_Background(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exFooterFilterBarButton,Color.FromArgb(255,0,0))
	.EndUpdate()
End With

With Excombobox1
	.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 = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exFooterFilterBarButton,-1)
	.EndUpdate()
End With

With Excombobox1
	.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 = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With

Dim h
With Excombobox1
	.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")
		.set_LockedItemCount(exontrol.EXCOMBOBOXLib.VAlignmentEnum.exBottom,1)
		h = .get_LockedItem(exontrol.EXCOMBOBOXLib.VAlignmentEnum.exBottom,0)
		.set_ItemDivider(h,0)
		.set_CellCaption(h,0,"<c><fgcolor=808080>Press the CTRL + F to turn on/off the control's filter bar. ALT + Up/Down moves the focus.")
		.set_CellCaptionFormat(h,0,exontrol.EXCOMBOBOXLib.CaptionFormatEnum.exHTML)
	End With
	.FilterBarCaption = "`<r><fgcolor=808080>` + value"
	.FilterBarPromptPattern = "B"
	.FilterBarPromptVisible = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarToggle Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Excombobox1
	.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 = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Excombobox1
	.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 = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.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 list control.
Private Sub Excombobox1_Click(ByVal sender As System.Object) Handles Excombobox1.Click
	With Excombobox1
		.ClearFilter()
	End With
End Sub

' FilterChange event - Occurs when filter was changed.
Private Sub Excombobox1_FilterChange(ByVal sender As System.Object) Handles Excombobox1.FilterChange
	With Excombobox1
		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 Excombobox1
	.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 = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptPattern = "Item"
	.EndUpdate()
End With

' Click event - Occurs when the user presses and then releases the left mouse button over the list control.
Private Sub Excombobox1_Click(ByVal sender As System.Object) Handles Excombobox1.Click
	With Excombobox1
		.ClearFilter()
	End With
End Sub

With Excombobox1
	.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 = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptPattern = "B"
	.EndUpdate()
End With

With Excombobox1
	.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 = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Excombobox1
	.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 = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptPattern = "B"
	.EndUpdate()
End With