439. How can I change the background appearance (ebn) for the filter field in the bottom part of the drop down portion
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.BeginUpdate 
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.FilterForVisible = True
	.FilterForBackColor = &H1000000
	.ColumnAutoResize = True
	.IntegralHeight = True
	.Columns.Add "Default"
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
		.AddItem "Item 4"
		.AddItem "Item 5"
	End With
	.EndUpdate 
End With
438. How can I change the background color for the filter field in the bottom part of the drop down portion
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.BeginUpdate 
	.FilterForVisible = True
	.FilterForBackColor = RGB(240,240,240)
	.ColumnAutoResize = True
	.IntegralHeight = True
	.Columns.Add "Default"
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
		.AddItem "Item 4"
		.AddItem "Item 5"
	End With
	.EndUpdate 
End With
437. How can I display a filter field in the bottom part of the drop down portion
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.BeginUpdate 
	.FilterForVisible = True
	.ColumnAutoResize = True
	.IntegralHeight = True
	.Columns.Add "Default"
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
		.AddItem "Item 4"
		.AddItem "Item 5"
	End With
	.EndUpdate 
End With
436. Does your control support RightToLeft property for RTL languages or right to left
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.BeginUpdate 
	.LinesAtRoot = exLinesAtRoot
	With .Columns.Add("P1")
		.Def(exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
	End With
	.RightToLeft = True
	.EndUpdate 
End With
435. Is there any way to display the vertical scroll bar on the left side, as I want to align my data to the right
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.BeginUpdate 
	With .Columns
		.Add "C1"
		.Add "C2"
		.Add "C3"
		.Add "C4"
		.Add "C5"
		.Add "C6"
		.Add "C7"
		.Add "C8"
	End With
	.RightToLeft = True
	.EndUpdate 
End With
434. Can I display the cell's check box after the text
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	With .Columns.Add("Column")
		.Def(exCellHasCheckBox) = True
		.Def(exCellDrawPartsOrder) = "caption,check"
	End With
	With .Items
		.CellHasCheckBox(.AddItem("Caption 1"),0) = True
		.CellHasCheckBox(.AddItem("Caption 2"),0) = True
	End With
End With
433. Can I change the order of the parts in the cell, as checkbox after the text, and so on
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Columns.Add("Column").Def(exCellDrawPartsOrder) = "caption,check,icon,icons,picture"
	With .Items
		h = .AddItem("Text")
		.CellImage(h,0) = 1
		.CellHasCheckBox(h,0) = True
	End With
End With
432. Can I have an image displayed after the text. Can I get that effect without using HTML content
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Columns.Add("Column").Def(exCellDrawPartsOrder) = "caption,icon,check,icons,picture"
	With .Items
		h = .AddItem("Text")
		.CellImage(h,0) = 1
	End With
End With
431. How can I display the column using currency format and enlarge the font for certain values
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	With .Columns.Add("Currency")
		.Def(exCellCaptionFormat) = 1
	End With
	With .Items
		.AddItem "1.23"
		.AddItem "2.34"
		.AddItem "9.94"
		.AddItem "11.94"
		.AddItem "1000"
	End With
End With
430. How can I get the number of occurrences of a specified string in the cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add ""
	With .Columns.Add("occurrences")
		.ComputedField = "lower(%0) count 'o'"
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem h,0,"Child 1 oooof the root"
		.InsertItem h,0,"Child 2"
		.InsertItem h,0,"Child 3"
		.ExpandItem(h) = True
	End With
End With
429. How can I display dates in my format
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	With .Columns.Add("Date")
		.Def(exCellCaptionFormat) = 1
	End With
	With .Items
		.AddItem #1/21/2001#
		.AddItem #2/22/2002#
		.AddItem #3/13/2003#
		.AddItem #4/24/2004#
	End With
End With
428. How can I display dates in short format
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	With .Items
		.AddItem #1/1/2001#
		.AddItem #2/2/2002#
		.AddItem #3/3/2003#
		.AddItem #4/4/2004#
	End With
End With
427. How can I display dates in long format
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	With .Items
		.AddItem #1/1/2001#
		.AddItem #2/2/2002#
		.AddItem #3/3/2003#
		.AddItem #4/4/2004#
	End With
End With
426. How can I display only the right part of the cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add ""
	With .Columns.Add("Right")
		.ComputedField = "%0 right 2"
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.InsertItem h,0,"SChild 3"
		.ExpandItem(h) = True
	End With
End With
425. How can I display only the left part of the cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add ""
	.Columns.Add("Left").ComputedField = "%0 left 2"
	With .Items
		h = .AddItem("Root")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.InsertItem h,0,"SChild 3"
		.ExpandItem(h) = True
	End With
End With
424. How can I display true or false instead 0 and -1
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	With .Items
		.AddItem True
		.AddItem False
		.AddItem True
		.AddItem 0
		.AddItem 1
	End With
End With
423. How can I display icons or images instead numbers
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("Icons")
		.Def(exCellCaptionFormat) = 1
	End With
	With .Items
		.AddItem 1
		.AddItem 2
		.AddItem 3
	End With
End With
422. How can I display the column using currency
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	With .Items
		.AddItem "1.23"
		.AddItem "2.34"
		.AddItem "0"
		.AddItem 5
		.AddItem "10000.99"
	End With
End With
421. How can I display the currency only for not empty cells
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Number"
	.Columns.Add("Currency").ComputedField = "len(%0) ? currency(dbl(%0)) : ''"
	With .Items
		.AddItem "1.23"
		.AddItem "2.34"
		.AddItem "0"
		.ItemBackColor(.AddItem()) = RGB(255,128,128)
		.AddItem "10000.99"
	End With
End With
420. Is there a function to display the number of days between two date including the number of hours
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("Start").Width = 32
	.Columns.Add "End"
	.Columns.Add("Duration").ComputedField = "2:=((1:=int(0:= date(%1)-date(%0))) = 0 ? '' : str(=:1) + ' day(s)') + ( 3:=round(24*(=:0-floor" & _
"(=:0))) ? (len(=:2) ? ' and ' : '') + =:3 + ' hour(s)' : '' )"
	With .Items
		h = .AddItem(#1/11/2001#)
		.CellCaption(h,1) = #1/14/2001#
		h = .AddItem(#2/22/2002 0:00:00 PM#)
		.CellCaption(h,1) = #3/14/2002 1:00:00 PM#
		h = .AddItem(#3/13/2003#)
		.CellCaption(h,1) = #4/11/2003 11:00:00 AM#
	End With
End With
419. Is there a function to display the number of days between two date including the number of hours
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Start"
	.Columns.Add "End"
	.Columns.Add("Duration").ComputedField = """D "" + int(date(%1)-date(%0)) + "" H "" + round(24*(date(%1)-date(%0) - floor(date(%1)-date(%" & _
"0))))"
	With .Items
		h = .AddItem(#1/11/2001#)
		.CellCaption(h,1) = #1/14/2001 11:00:00 PM#
		h = .AddItem(#2/22/2002 0:00:00 PM#)
		.CellCaption(h,1) = #3/14/2002 1:00:00 PM#
		h = .AddItem(#3/13/2003#)
		.CellCaption(h,1) = #4/11/2003 11:00:00 AM#
	End With
End With
418. How can I display the number of days between two dates
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Start"
	.Columns.Add "End"
	.Columns.Add("Duration").ComputedField = "(date(%1)-date(%0)) + ' days'"
	With .Items
		h = .AddItem(#1/11/2001#)
		.CellCaption(h,1) = #1/14/2001#
		h = .AddItem(#2/22/2002#)
		.CellCaption(h,1) = #3/14/2002#
		h = .AddItem(#3/13/2003#)
		.CellCaption(h,1) = #4/11/2003#
	End With
End With
417. How can I get second part of the date
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Date"
	.Columns.Add("Second").ComputedField = "sec(date(%0))"
	With .Items
		.AddItem #1/11/2001 10:10:00 AM#
		.AddItem #2/22/2002 11:01:22 AM#
		.AddItem #3/13/2003 0:23:01 PM#
		.AddItem #4/14/2004 1:11:59 PM#
	End With
End With
416. How can I get minute part of the date
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Date"
	.Columns.Add("Minute").ComputedField = "min(date(%0))"
	With .Items
		.AddItem #1/11/2001 10:10:00 AM#
		.AddItem #2/22/2002 11:01:00 AM#
		.AddItem #3/13/2003 0:23:00 PM#
		.AddItem #4/14/2004 1:11:00 PM#
	End With
End With
415. How can I check the hour part only so I know it was afternoon
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ConditionalFormats.Add("hour(%0)>=12").Bold = True
	.Columns.Add "Date"
	.Columns.Add("Hour").ComputedField = "hour(%0)"
	With .Items
		.AddItem #1/11/2001 10:00:00 AM#
		.AddItem #2/22/2002 11:00:00 AM#
		.AddItem #3/13/2003 0:00:00 PM#
		.AddItem #4/14/2004 1:00:00 PM#
	End With
End With
414. What about a function to get the day in the week, or days since Sunday
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Date"
	.Columns.Add("WeekDay").ComputedField = "weekday(%0)"
	With .Items
		.AddItem #1/11/2001 10:00:00 AM#
		.AddItem #2/22/2002 11:00:00 AM#
		.AddItem #3/13/2003 0:00:00 PM#
		.AddItem #4/14/2004 1:00:00 PM#
	End With
End With
413. Is there any function to get the day of the year or number of days since January 1st
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Date"
	.Columns.Add("Day since January 1st").ComputedField = "yearday(%0)"
	With .Items
		.AddItem #1/11/2001 10:00:00 AM#
		.AddItem #2/22/2002 11:00:00 AM#
		.AddItem #3/13/2003 0:00:00 PM#
		.AddItem #4/14/2004 1:00:00 PM#
	End With
End With
412. How can I display only the day of the date
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Date"
	.Columns.Add("Day").ComputedField = "day(%0)"
	With .Items
		.AddItem #1/11/2001 10:00:00 AM#
		.AddItem #2/22/2002 11:00:00 AM#
		.AddItem #3/13/2003 0:00:00 PM#
		.AddItem #4/14/2004 1:00:00 PM#
	End With
End With
411. How can I display only the month of the date
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Date"
	.Columns.Add("Month").ComputedField = "month(%0)"
	With .Items
		.AddItem #1/1/2001 10:00:00 AM#
		.AddItem #2/2/2002 11:00:00 AM#
		.AddItem #3/3/2003 0:00:00 PM#
		.AddItem #4/4/2004 1:00:00 PM#
	End With
End With
410. How can I get only the year part from a date expression
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Date"
	.Columns.Add("Year").ComputedField = "year(%0)"
	With .Items
		.AddItem #1/1/2001 10:00:00 AM#
		.AddItem #2/2/2002 11:00:00 AM#
		.AddItem #3/3/2003 0:00:00 PM#
		.AddItem #4/4/2004 1:00:00 PM#
	End With
End With
409. Can I convert the expression to date
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Number"
	.Columns.Add("Date").ComputedField = "date(dbl(%0))"
	With .Items
		.AddItem "-1.98"
		.AddItem "30000.99"
		.AddItem "3561.23"
		.AddItem "1232.34"
	End With
End With
408. Can I convert the expression to a number, double or float
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Number"
	.Columns.Add("Number + 2").ComputedField = "dbl(%0)+2"
	With .Items
		.AddItem "-1.98"
		.AddItem "0.99"
		.AddItem "1.23"
		.AddItem "2.34"
	End With
End With
407. How can I display dates in long format
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Date"
	.Columns.Add("LongFormat").ComputedField = "longdate(%0)"
	With .Items
		.AddItem #1/1/2001 10:00:00 AM#
		.AddItem #2/2/2002 11:00:00 AM#
		.AddItem #3/3/2003 0:00:00 PM#
		.AddItem #4/4/2004 1:00:00 PM#
	End With
End With
406. How can I display dates in short format
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Date"
	.Columns.Add("ShortFormat").ComputedField = "shortdate(%0)"
	With .Items
		.AddItem #1/1/2001 10:00:00 AM#
		.AddItem #2/2/2002 11:00:00 AM#
		.AddItem #3/3/2003 0:00:00 PM#
		.AddItem #4/4/2004 1:00:00 PM#
	End With
End With
405. How can I display the time only of a date expression
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Date"
	.Columns.Add("Time").ComputedField = "'time is:' + time(date(%0))"
	With .Items
		.AddItem #1/1/2001 10:00:00 AM#
		.AddItem #2/2/2002 11:00:00 AM#
		.AddItem #3/3/2003 0:00:00 PM#
		.AddItem #4/4/2004 1:00:00 PM#
	End With
End With
404. Is there any function to display currencies, or money formatted as in the control panel
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Number"
	.Columns.Add("Currency").ComputedField = "currency(dbl(%0))"
	With .Items
		.AddItem "1.23"
		.AddItem "2.34"
		.AddItem "10000.99"
	End With
End With
403. How can I convert the expression to a string so I can look into the date string expression for month's name
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Number"
	.Columns.Add("Str").ComputedField = "str(%0) + ' AA'"
	With .Items
		.AddItem "-1.98"
		.AddItem "0.99"
		.AddItem "1.23"
		.AddItem "2.34"
	End With
End With
402. Can I display the absolute value or positive part of the number
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Number"
	.Columns.Add("Abs").ComputedField = "abs(%0)"
	With .Items
		.AddItem "-1.98"
		.AddItem "0.99"
		.AddItem "1.23"
		.AddItem "2.34"
	End With
End With
401. Is there any function to get largest number with no fraction part that is not greater than the value
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Number"
	.Columns.Add("Floor").ComputedField = "floor(%0)"
	With .Items
		.AddItem "-1.98"
		.AddItem "0.99"
		.AddItem "1.23"
		.AddItem "2.34"
	End With
End With
400. Is there any function to round the values base on the .5 value
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Number"
	.Columns.Add("Round").ComputedField = "round(%0)"
	With .Items
		.AddItem "-1.98"
		.AddItem "0.99"
		.AddItem "1.23"
		.AddItem "2.34"
	End With
End With
399. How can I get or display the integer part of the cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Number"
	.Columns.Add("Int").ComputedField = "int(%0)"
	With .Items
		.AddItem "-1.98"
		.AddItem "0.99"
		.AddItem "1.23"
		.AddItem "2.34"
	End With
End With
398. How can I display names as proper ( first leter of the word must be in uppercase, and the rest in lowercase )
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("").ComputedField = "proper(%0)"
	With .Items
		h = .AddItem("root")
		.InsertItem h,0,"child child"
		.InsertItem h,0,"child child"
		.InsertItem h,0,"child child"
		.ExpandItem(h) = True
	End With
End With
397. Is there any option to display cells in uppercase
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("").ComputedField = "upper(%0)"
	With .Items
		h = .AddItem("Root")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.InsertItem h,0,"Chld 3"
		.ExpandItem(h) = True
	End With
End With
396. Is there any option to display cells in lowercase
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("").ComputedField = "lower(%0)"
	With .Items
		h = .AddItem("Root")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.InsertItem h,0,"Chld 3"
		.ExpandItem(h) = True
	End With
End With
395. How can I mark the cells that has a specified type, ie strings only
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ConditionalFormats.Add("type(%0) = 8").ForeColor = RGB(255,0,0)
	.Columns.Add ""
	With .Items
		h = .AddItem("Root")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,2
		.InsertItem h,0,"Chld 3"
		.ExpandItem(h) = True
	End With
End With
394. How can I bold the items that contains data or those who displays empty strings
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ConditionalFormats.Add("not len(%1)=0").Bold = True
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Root")
		.InsertItem h,0,"Child 1"
		hC = .InsertItem(h,0,"Child 2")
		.CellCaption(hC,1) = "1"
		.InsertItem h,0,"Child 3"
		.ExpandItem(h) = True
	End With
End With
393. Can I change the background color for items or cells that contains a specified string
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ConditionalFormats.Add("%0 contains 'hi'").BackColor = RGB(255,0,0)
	.Columns.Add ""
	With .Items
		h = .AddItem("Root")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.InsertItem h,0,"Chld 3"
		.ExpandItem(h) = True
	End With
End With
392. Is there any option to change the fore color for cells or items that ends with a specified string
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ConditionalFormats.Add("%0 endwith '22'").ForeColor = RGB(255,0,0)
	.Columns.Add ""
	With .Items
		h = .AddItem("Root")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 1.22"
		.InsertItem h,0,"Child 2.22"
		.ExpandItem(h) = True
	End With
End With
391. How can I highlight the cells or items that starts with a specified string
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ConditionalFormats.Add("%0 startwith 'C'").Underline = True
	.Columns.Add ""
	With .Items
		h = .AddItem("Root")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.InsertItem h,0,"SChild 3"
		.ExpandItem(h) = True
	End With
End With
390. How can I change the background color or the visual appearance using ebn for a particular column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	With .Columns
		.Add "Column 1"
		.Add("Column 2").Def(exHeaderBackColor) = 16777216
		.Add("Column 3").Def(exHeaderBackColor) = 16777471
		.Add "Column 4"
	End With
End With
389. How can I change the background color for a particular column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	With .Columns
		.Add "Column 1"
		.Add("Column 2").Def(exHeaderBackColor) = 8439039
		.Add "Column 3"
	End With
End With
388. Does your control support prompt feature
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.AutoComplete = False
	.Columns.Add("Column 1").Prompt = "<img>1</img><i><fgcolor=808080>type to search</fgcolor></i>"
	.Items.AddItem 0
	.Items.AddItem 1
	.Items.AddItem 2
End With
387. How can I display the column's header using multiple lines
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ColumnAutoResize = True
	.HeaderHeight = 128
	.HeaderSingleLine = False
	.Columns.Add("This is just a column that should break the header.").Width = 32
	.Columns.Add "This is just another column that should break the header."
End With
386. How can I sort the value gets listed in the drop down filter window
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ColumnAutoResize = True
	.LinesAtRoot = exLinesAtRoot
	.MarkSearchColumn = False
	.Description(exFilterBarAll) = ""
	.Description(exFilterBarBlanks) = ""
	.Description(exFilterBarNonBlanks) = ""
	With .Columns.Add("P1")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = exSortItemsDesc
	End With
	With .Columns.Add("P2")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = exSortItemsAsc
	End With
	With .Items
		h = .AddItem("Z3")
		.CellCaption(h,1) = "C"
		.CellCaption(.InsertItem(h,0,"Z1"),1) = "B"
		.CellCaption(.InsertItem(h,0,"Z2"),1) = "A"
		.ExpandItem(h) = True
	End With
End With
385. Is there any property to disable the popup/context menu being shown when the user does a right click in the control's label area
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("Default").AllowEditContextMenu = False
	.Items.AddItem 0
	.Items.AddItem 1
	.Items.AddItem 2
End With
384. How can I align the text/caption on the scroll bar
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ColumnAutoResize = True
	.ScrollPartCaption(exHScroll,exLowerBackPart) = "left"
	.ScrollPartCaptionAlignment(exHScroll,exLowerBackPart) = LeftAlignment
	.ScrollPartCaption(exHScroll,exUpperBackPart) = "right"
	.ScrollPartCaptionAlignment(exHScroll,exUpperBackPart) = RightAlignment
	.ColumnAutoResize = False
	.Columns.Add 1
	.Columns.Add 2
	.Columns.Add 3
	.Columns.Add 4
	.Columns.Add 5
	.Columns.Add 6
End With
383. Does you control support RTL languages or if there is a property RightToLeft
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.RightToLeft = True
	.ItemsAllowSizing = exResizeItem
	.DrawGridLines = exHLines
	.LinesAtRoot = exLinesAtRoot
	.ScrollBySingleLine = True
	.DefaultItemHeight = 64
	.ColumnAutoResize = True
	With .Columns.Add("Column")
		.Alignment = RightAlignment
		.HeaderAlignment = RightAlignment
		.EditAlignment = RightAlignment
	End With
	With .Items
		.AddItem "Item 1"
		.ItemHeight(.InsertItem(.AddItem("Parent"),0,"Item 2")) = 48
		.AddItem "Item 3"
		.ExpandItem(.ItemByIndex(1)) = True
	End With
End With
382. How do I enable resizing all the items at runtime
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ColumnAutoResize = True
	.ItemsAllowSizing = exResizeAllItems
	.DrawGridLines = exHLines
	.Columns.Add "Column"
	.Items.AddItem "Item 1"
	With .Items
		.ItemHeight(.AddItem("Item 2")) = 48
	End With
	.Items.AddItem "Item 3"
End With
381. How can I remove the filter
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = exBlanks
	End With
	.ApplyFilter 
	.ClearFilter 
End With
380. How do I display the icons being selected in the control's label
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Columns.Add "Column"
	With .Items
		.CellImage(.AddItem("Image 1"),0) = 1
		.CellImage(.AddItem("Image 2"),0) = 2
		.CellImage(.AddItem("Image 3"),0) = 3
	End With
	.AssignEditImageOnSelect(0) = True
	.Value = "Image 2"
End With
379. How do I select a value
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.IntegralHeight = True
	.ColumnAutoResize = True
	.LinesAtRoot = exGroupLinesAtRoot
	.TreeColumnIndex = 1
	.Columns.Add "Column 1"
	.Columns.Add "Column 2"
	With .Items
		h = .AddItem("Root 1.1")
		.CellCaption(h,1) = "Root 1.2"
		.CellCaption(.InsertItem(h,0,"Child 1.1"),1) = "Child 1.2"
		.CellCaption(.InsertItem(h,0,"Child 2.1"),1) = "Child 2.2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2.1")
		.CellCaption(h,1) = "Root 2.2"
		.CellCaption(.InsertItem(h,0,"Child 1.1"),1) = "Child 1.2"
	End With
	.Value = "Root 1.1"
End With
378. How do I select a value
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.IntegralHeight = True
	.ColumnAutoResize = True
	.LinesAtRoot = exGroupLinesAtRoot
	.TreeColumnIndex = 1
	.Columns.Add "Column 1"
	.Columns.Add "Column 2"
	With .Items
		h = .AddItem("Root 1.1")
		.CellCaption(h,1) = "Root 1.2"
		.CellCaption(.InsertItem(h,0,"Child 1.1"),1) = "Child 1.2"
		.CellCaption(.InsertItem(h,0,"Child 2.1"),1) = "Child 2.2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2.1")
		.CellCaption(h,1) = "Root 2.2"
		.CellCaption(.InsertItem(h,0,"Child 1.1"),1) = "Child 1.2"
	End With
	.Select(1) = "Root 1.2"
End With
377. How do change the visual appearance for the drop down border, using EBN
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.DropDownBorder = &H1000000
End With
376. How do I remove the drop down's border
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.DropDownBorder = None2
End With
375. How can I change the foreground color for edit controls
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ForeColorEdit = RGB(255,0,0)
	.IntegralHeight = True
	.ColumnAutoResize = True
	.LinesAtRoot = exGroupLinesAtRoot
	.TreeColumnIndex = 1
	.Columns.Add "Column 1"
	.Columns.Add "Column 2"
	With .Items
		h = .AddItem("Root 1.1")
		.CellCaption(h,1) = "Root 1.2"
		.CellCaption(.InsertItem(h,0,"Child 1.1"),1) = "Child 1.2"
		.CellCaption(.InsertItem(h,0,"Child 2.1"),1) = "Child 2.2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2.1")
		.CellCaption(h,1) = "Root 2.2"
		.CellCaption(.InsertItem(h,0,"Child 1.1"),1) = "Child 1.2"
	End With
	.Select(0) = "Root 1.1"
End With
374. How can I change the background color for edit controls
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.BackColorEdit = RGB(255,0,0)
	.IntegralHeight = True
	.ColumnAutoResize = True
	.LinesAtRoot = exGroupLinesAtRoot
	.TreeColumnIndex = 1
	.Columns.Add "Column 1"
	.Columns.Add "Column 2"
	With .Items
		h = .AddItem("Root 1.1")
		.CellCaption(h,1) = "Root 1.2"
		.CellCaption(.InsertItem(h,0,"Child 1.1"),1) = "Child 1.2"
		.CellCaption(.InsertItem(h,0,"Child 2.1"),1) = "Child 2.2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2.1")
		.CellCaption(h,1) = "Root 2.2"
		.CellCaption(.InsertItem(h,0,"Child 1.1"),1) = "Child 1.2"
	End With
	.Select(0) = "Root 1.1"
End With
373. How can I hide the drop down buttons when the control loses the focus
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.HideDropDownButton = True
	.IntegralHeight = True
	.ColumnAutoResize = True
	.LinesAtRoot = exGroupLinesAtRoot
	.TreeColumnIndex = 1
	.Columns.Add "Column 1"
	.Columns.Add "Column 2"
	With .Items
		h = .AddItem("Root 1.1")
		.CellCaption(h,1) = "Root 1.2"
		.CellCaption(.InsertItem(h,0,"Child 1.1"),1) = "Child 1.2"
		.CellCaption(.InsertItem(h,0,"Child 2.1"),1) = "Child 2.2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2.1")
		.CellCaption(h,1) = "Root 2.2"
		.CellCaption(.InsertItem(h,0,"Child 1.1"),1) = "Child 1.2"
	End With
End With
372. How can I ensure that the drop down portions doesn't show partial items
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.IntegralHeight = True
	.ColumnAutoResize = True
	.LinesAtRoot = exGroupLinesAtRoot
	.TreeColumnIndex = 1
	.Columns.Add "Column 1"
	.Columns.Add "Column 2"
	With .Items
		h = .AddItem("Root 1.1")
		.CellCaption(h,1) = "Root 1.2"
		.CellCaption(.InsertItem(h,0,"Child 1.1"),1) = "Child 1.2"
		.CellCaption(.InsertItem(h,0,"Child 2.1"),1) = "Child 2.2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2.1")
		.CellCaption(h,1) = "Root 2.2"
		.CellCaption(.InsertItem(h,0,"Child 1.1"),1) = "Child 1.2"
	End With
End With
371. How can I close the drop down window when user double clicks it
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.CloseOnDblClk = True
	.ColumnAutoResize = True
	.LinesAtRoot = exGroupLinesAtRoot
	.TreeColumnIndex = 1
	.Columns.Add "Column 1"
	.Columns.Add "Column 2"
	With .Items
		h = .AddItem("Root 1.1")
		.CellCaption(h,1) = "Root 1.2"
		.CellCaption(.InsertItem(h,0,"Child 1.1"),1) = "Child 1.2"
		.CellCaption(.InsertItem(h,0,"Child 2.1"),1) = "Child 2.2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2.1")
		.CellCaption(h,1) = "Root 2.2"
		.CellCaption(.InsertItem(h,0,"Child 1.1"),1) = "Child 1.2"
	End With
End With
370. How do I get the handle of the drop down window
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add 0
End With
369. How do I specify the height of the control's label
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.LabelHeight = 34
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
End With
368. The control selects the portion of text that doesn't match with the selected item. How can I avoid that
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.AutoSelect = False
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
End With
367. How can I show the drop down window as soon as user starts typing in the control
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.AutoDropDown = True
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
End With
366. How do I change the text in the edit or label area
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
	.EditText(0) = "Test"
End With
365. How do I lock or make read-only the control
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Locked = True
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
End With
364. How do I let user to resize only the height of the drop down window, at runtime
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.AllowSizeGrip = True
	.AllowHResize = False
	.MinWidthList = 100
	.MinHeightList = 100
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
End With
363. How do I let user to resize only the width of the drop down window, at runtime
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.AllowSizeGrip = True
	.AllowVResize = False
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
End With
362. How do I let user to resize the drop down window, at runtime
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.AllowSizeGrip = True
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
End With
361. How do I specify the height of the drop down window
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.HeightList() = 400
	.MinWidthList = 100
	.AllowSizeGrip = True
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
End With
360. How do I specify the minimum height of the drop down window
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.MinHeightList = 100
	.AllowSizeGrip = True
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
End With
359. How do I specify the width of the drop down window
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.WidthList() = 100
	.AllowSizeGrip = True
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
End With
358. How do I specify the minimum width of the drop down window
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.MinWidthList = 100
	.AllowSizeGrip = True
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
End With
357. I have multiple columns, how can I display a single edit in the control's label
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.SingleEdit = True
	.Columns.Add "Column 1"
	.Columns.Add "Column 2"
	With .Items
		.CellCaption(.AddItem("Item 1"),1) = "SubItem 1"
		.CellCaption(.AddItem("Item 2"),1) = "SubItem 2"
		.CellCaption(.AddItem("Item 3"),1) = "SubItem 3"
	End With
End With
356. How do I turn off the auto complete feature
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.AutoComplete = False
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.AddItem "Item 2"
	End With
End With
355. The control supports three styles: Simple, DropDown and DropDownList. How can I change the style
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Style = DropDownList
End With
354. Is there any option to align the header to the left and the data to the right
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("Left").Alignment = LeftAlignment
	With .Columns.Add("Right")
		.Alignment = RightAlignment
		.HeaderAlignment = RightAlignment
		.EditAlignment = RightAlignment
	End With
	With .Items
		.CellCaption(.AddItem("left"),1) = "right"
	End With
End With
353. How do I change the control's border, using your EBN files
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Appearance = &H1000000
End With
352. Can I change the default border of the tooltip, using your EBN files
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exToolTipAppearance) = &H1000000
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
351. Can I change the background color for the tooltip
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Background(exToolTipBackColor) = RGB(255,0,0)
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
350. Does the tooltip support HTML format
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Columns.Add("tootip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>column</fgc" & _
"olor>"
End With
349. Can I change the forecolor for the tooltip
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Background(exToolTipForeColor) = RGB(255,0,0)
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
348. Can I change the foreground color for the tooltip
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Columns.Add("tootip").ToolTip = "<fgcolor=FF0000>this is a tooltip assigned to a column</fgcolor>"
End With
347. How can I merge cells
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.DrawGridLines = exAllLines
	.MarkSearchColumn = False
	.Columns.Add "C1"
	.Columns.Add "C2"
	.Columns.Add "C3"
	With .Items
		h = .AddItem("this cell merges the first two columns")
		.CellMerge(h,0) = 1
		h = .AddItem()
		.CellCaption(h,1) = "this cell merges the last two columns"
		.CellMerge(h,1) = 2
		h = .AddItem("this cell merges the all three columns")
		.CellMerge(h,0) = 1
		.CellMerge(h,0) = 2
		h = .AddItem("this draws a divider item")
		.ItemDivider(h) = 0
	End With
End With
346. How can I merge cells
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.MarkSearchColumn = False
	.TreeColumnIndex = -1
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multipl" & _
"e lines."
		.CellSingleLine(h,1) = False
		h = .AddItem("This is bit of text merges all cells in the item")
		.ItemDivider(h) = 0
		.CellHAlignment(h,0) = CenterAlignment
	End With
End With
345. Can I select an item giving its general position
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
	End With
End With
344. How can I change the color for separator / dividers items
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.MarkSearchColumn = False
	.TreeColumnIndex = -1
	.ScrollBySingleLine = False
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multipl" & _
"e lines."
		.CellSingleLine(h,1) = False
		h = .AddItem()
		.ItemDivider(h) = 0
		.ItemDividerLine(h) = DoubleDotLine
		.ItemDividerLineAlignment(h) = DividerCenter
		.ItemHeight(h) = 6
		.SelectableItem(h) = False
		h = .AddItem("Cell 2")
		.CellCaption(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multipl" & _
"e lines."
		.CellSingleLine(h,1) = False
	End With
End With
343. How can I add separator - dividers items
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.MarkSearchColumn = False
	.TreeColumnIndex = -1
	.ScrollBySingleLine = False
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multipl" & _
"e lines."
		.CellSingleLine(h,1) = False
		h = .AddItem()
		.ItemDivider(h) = 0
		.ItemDividerLine(h) = DoubleDotLine
		.ItemDividerLineAlignment(h) = DividerCenter
		.ItemHeight(h) = 6
		.SelectableItem(h) = False
		h = .AddItem("Cell 2")
		.CellCaption(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multipl" & _
"e lines."
		.CellSingleLine(h,1) = False
	End With
End With
342. Can I change the style of the line being displayed by a divider item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.MarkSearchColumn = False
	.TreeColumnIndex = -1
	.ScrollBySingleLine = False
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multipl" & _
"e lines."
		.CellSingleLine(h,1) = False
		h = .AddItem("This is bit of text that's displayed on the entire item, divider.")
		.ItemDivider(h) = 0
		.ItemDividerLine(h) = DoubleDotLine
		.CellHAlignment(h,0) = CenterAlignment
		.ItemHeight(h) = 24
	End With
End With
341. Can I remove the line being displayed by a divider item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.MarkSearchColumn = False
	.TreeColumnIndex = -1
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multipl" & _
"e lines."
		.CellSingleLine(h,1) = False
		h = .AddItem("This is bit of text that's displayed on the entire item, divider.")
		.ItemDivider(h) = 0
		.ItemDividerLine(h) = EmptyLine
		.CellHAlignment(h,0) = CenterAlignment
	End With
End With
340. How can I display a divider item, merging all cells
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.MarkSearchColumn = False
	.TreeColumnIndex = -1
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multipl" & _
"e lines."
		.CellSingleLine(h,1) = False
		h = .AddItem("This is bit of text that's displayed on the entire item, divider.")
		.ItemDivider(h) = 0
		.CellHAlignment(h,0) = CenterAlignment
	End With
End With
339. How can I fix or lock items
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		.LockedItemCount(exTop) = 1
		.CellCaption(.LockedItem(exTop,0),0) = "This is a locked item, fixed to the top side of the control."
		.ItemBackColor(.LockedItem(exTop,0)) = RGB(196,196,186)
		.LockedItemCount(exBottom) = 2
		.CellCaption(.LockedItem(exBottom,0),0) = "This is a locked item, fixed to the top side of the control."
		.ItemBackColor(.LockedItem(exBottom,0)) = RGB(196,196,186)
		.CellCaption(.LockedItem(exBottom,1),0) = "This is a locked item, fixed to the top side of the control."
		.ItemBackColor(.LockedItem(exBottom,1)) = RGB(186,186,186)
	End With
End With
338. How can I fix or lock an item on the bottom side of the control
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		.LockedItemCount(exBottom) = 1
		.CellCaption(.LockedItem(exBottom,0),0) = "This is a locked item, fixed to the bottom side of the control."
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
	End With
End With
337. How can I fix or lock an item on the top of the control
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		.LockedItemCount(exTop) = 1
		.CellCaption(.LockedItem(exTop,0),0) = "This is a locked item, fixed to the top side of the control."
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
	End With
End With
336. Is there any function to limit the height of the items when I display it using multiple lines
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ScrollBySingleLine = True
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multipl" & _
"e lines."
		.CellSingleLine(h,1) = False
		.ItemMaxHeight(h) = 48
	End With
End With
335. Why I cannot center my cells in the column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.TreeColumnIndex = -1
	.DrawGridLines = &Hfffffffc Or GridLinesEnum.exVLines
	.Columns.Add("Default").Alignment = CenterAlignment
	.Items.AddItem "item 1"
	.Items.AddItem "item 2"
	.Items.AddItem "item 3"
End With
334. How can I align the cell to the left, center or to the right
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.TreeColumnIndex = -1
	.DrawGridLines = &Hfffffffc Or GridLinesEnum.exVLines
	.Columns.Add "Default"
	With .Items
		.CellHAlignment(.AddItem("left"),0) = LeftAlignment
		.CellHAlignment(.AddItem("center"),0) = CenterAlignment
		.CellHAlignment(.AddItem("right"),0) = RightAlignment
	End With
End With
333. How do I apply HTML format to a cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.TreeColumnIndex = -1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("p2") = "c:\exontrol\images\auction.gif"
	.Columns.Add "Default"
	With .Items
		h = .AddItem("The following item shows some of the HTML format supported:")
		.CellHAlignment(h,0) = CenterAlignment
		h = .AddItem("<br>text icons <img>1</img>, <img>2</img>, ... pictures <img>p1</img>, <img>p2</img> <br><br>te" & _
"xt <b>bold</b>, <i>italic</i>, <u>underline</u>, <s>strikeout</s>, ...<br><dotline>and so on...<" & _
"br> <a>anchor</a> or <a2>hyperlink</a><br><fgcolor=FF0000>fgcolor</fgcolor> or <bgcolor=00FF00>b" & _
"gcolor</bgcolor> ")
		.CellCaptionFormat(h,0) = exHTML
		.CellSingleLine(h,0) = False
	End With
End With
332. How can I change the font for a cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	.Items.AddItem "std font"
	With .Items
		.CellCaptionFormat(.AddItem("this <font tahoma;12>is a bit of text with</font> a different font"),0) = exHTML
	End With
End With
331. How can I change the font for a cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	.Items.AddItem "default font"
	Set f = CreateObject("StdFont")
	With f
		.Name = "Tahoma"
		.Size = 12
	End With
	With .Items
		.CellFont(.AddItem("new font"),0) = f
	End With
End With
330. How can I change the font for entire item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	.Items.AddItem "default font"
	Set f = CreateObject("StdFont")
	With f
		.Name = "Tahoma"
		.Size = 12
	End With
	With .Items
		.ItemFont(.AddItem("new font")) = f
	End With
End With
329. How do I vertically align a cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.DrawGridLines = &Hfffffffc Or GridLinesEnum.exVLines
	.Columns.Add("MultipleLine").Def(exCellSingleLine) = False
	.Columns.Add "VAlign"
	With .Items
		h = .AddItem("This is a bit of long text that should break the line")
		.CellCaption(h,1) = "top"
		.CellVAlignment(h,1) = exTop
		h = .AddItem("This is a bit of long text that should break the line")
		.CellCaption(h,1) = "middle"
		.CellVAlignment(h,1) = exMiddle
		h = .AddItem("This is a bit of long text that should break the line")
		.CellCaption(h,1) = "bottom"
		.CellVAlignment(h,1) = exBottom
	End With
End With
328. How can I change the position of an item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.ItemPosition(.AddItem("Item 3")) = 0
	End With
End With
327. How do I find an item based on a path
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.ItemData(.InsertItem(h,0,"Child 2")) = 1234
		.ExpandItem(h) = True
		.ItemBold(.FindPath("Root 1\Child 1")) = True
	End With
End With
326. How do I find an item based on my extra data
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.ItemData(.InsertItem(h,0,"Child 2")) = 1234
		.ExpandItem(h) = True
	End With
End With
325. How do I find an item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
		.ItemBold(.FindItem("Child 2",0)) = True
	End With
End With
324. How can I insert a hyperlink or an anchor element
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Column"
	With .Items
		.CellCaptionFormat(.AddItem("Just an <a1>anchor</a> element ..."),0) = exHTML
	End With
	With .Items
		.CellCaptionFormat(.AddItem("Just another <a2>anchor</a> element ..."),0) = exHTML
	End With
End With
323. How do I find the index of the item based on its handle
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
		.ItemBold(.ItemByIndex(.ItemToIndex(h))) = True
	End With
End With
322. How do I find the handle of the item based on its index
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
		.ItemBold(.ItemByIndex(1)) = True
	End With
End With
321. How can I find the cell being clicked in a radio group
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.MarkSearchColumn = False
	.SelBackColor = RGB(255,255,128)
	.SelForeColor = RGB(0,0,0)
	.Columns.Add "C1"
	.Columns.Add "C2"
	.Columns.Add "C3"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = "Radio 1"
		.CellHasRadioButton(h,1) = True
		.CellRadioGroup(h,1) = 1234
		.CellCaption(h,2) = "Radio 2"
		.CellHasRadioButton(h,2) = True
		.CellRadioGroup(h,2) = 1234
		.CellState(h,1) = 1
		.CellBold(0,.CellChecked(1234)) = True
	End With
End With
320. Can I add a +/- ( expand / collapse ) buttons to each item, so I can load the child items later
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.LinesAtRoot = exLinesAtRoot
	.Columns.Add "Default"
	With .Items
		.ItemHasChildren(.AddItem("parent item with no child items")) = True
		.AddItem "next item"
	End With
End With
319. Can I let the user to resize at runtime the specified item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ScrollBySingleLine = True
	.DrawGridLines = &Hfffffffc Or GridLinesEnum.exVLines
	.Columns.Add "Default"
	With .Items
		.ItemAllowSizing(.AddItem("resizable item")) = True
		.AddItem "not resizable item"
	End With
End With
318. How can I change the size ( width, height ) of the picture
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.CellPicture(h,0) = ComboBox1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.CellPictureWidth(h,0) = 24
		.CellPictureHeight(h,0) = 24
		.ItemHeight(h) = 32
		h = .AddItem("Root 2")
		.CellPicture(h,0) = ComboBox1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.ItemHeight(h) = 48
	End With
End With
317. How can I find the number or the count of selected items
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
		.SelectItem(.ItemChild(h)) = True
		.SelectItem(.NextSiblingItem(.ItemChild(h))) = True
		.AddItem .SelectCount
	End With
End With
316. How do I unselect an item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
		.SelectItem(h) = False
	End With
End With
315. How do I find the selected item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
		.SelectItem(h) = True
		.ItemBold(.SelectedItem(0)) = True
	End With
End With
314. How do I un select all items
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
	End With
End With
313. How do I select multiple items
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
		.SelectItem(.ItemChild(h)) = True
		.SelectItem(.NextSiblingItem(.ItemChild(h))) = True
	End With
End With
312. How do I select all items
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
	End With
End With
311. How do I select an item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
		.SelectItem(h) = True
	End With
End With
310. Can I display a button with some picture or icon inside
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = " Button <img>p1</img> "
		.CellCaptionFormat(h,1) = exHTML
		.CellHAlignment(h,1) = RightAlignment
		.CellHasButton(h,1) = True
		.ItemHeight(h) = 48
	End With
End With
309. Can I display a button with some picture or icon inside
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = " Button <img>1</img> "
		.CellCaptionFormat(h,1) = exHTML
		.CellHAlignment(h,1) = RightAlignment
		.CellHasButton(h,1) = True
	End With
End With
308. Can I display a button with some icon inside
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = " <img>1</img> "
		.CellCaptionFormat(h,1) = exHTML
		.CellHAlignment(h,1) = RightAlignment
		.CellHasButton(h,1) = True
	End With
End With
307. How can I assign multiple icon/picture to a cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("p2") = "c:\exontrol\images\auction.gif"
	.Columns.Add "Default"
	With .Items
		h = .AddItem("text <img>p1</img> another picture <img>p2</img> and so on")
		.CellCaptionFormat(h,0) = exHTML
		.CellPicture(h,0) = ComboBox1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
		.ItemHeight(h) = 48
		.AddItem "Root 2"
	End With
End With
306. How can I assign an icon/picture to a cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.CellPicture(h,0) = ComboBox1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.ItemHeight(h) = 48
		.AddItem "Root 2"
	End With
End With
305. How can I assign multiple icons/pictures to a cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root <img>1</img> 1, <img>2</img>, ... and so on ")
		.CellCaptionFormat(h,0) = exHTML
	End With
End With
304. How can I assign multiple icons/pictures to a cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.CellImages(h,0) = "1,2,3"
	End With
End With
303. How can I assign an icon/picture to a cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.CellImage(h,0) = 1
		.CellImage(.InsertItem(h,0,"Child 1"),0) = 2
		.CellImage(.InsertItem(h,0,"Child 2"),0) = 3
		.ExpandItem(h) = True
	End With
End With
302. How can I get the handle of an item based on the handle of the cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
		.ItemBold(.CellItem(.ItemCell(h,0))) = True
	End With
End With
301. How can I display a button inside the item or cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = " Button 1 "
		.CellHAlignment(h,1) = RightAlignment
		.CellHasButton(h,1) = True
		h = .AddItem("Cell 2")
		.CellCaption(h,1) = " Button 2 "
		.CellHAlignment(h,1) = CenterAlignment
		.CellHasButton(h,1) = True
	End With
End With
300. How can I change the state of a radio button
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.MarkSearchColumn = False
	.SelBackColor = RGB(255,255,128)
	.SelForeColor = RGB(0,0,0)
	.Columns.Add "C1"
	.Columns.Add "C2"
	.Columns.Add "C3"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = "Radio 1"
		.CellHasRadioButton(h,1) = True
		.CellRadioGroup(h,1) = 1234
		.CellCaption(h,2) = "Radio 2"
		.CellHasRadioButton(h,2) = True
		.CellRadioGroup(h,2) = 1234
		.CellState(h,1) = 1
	End With
End With
299. How can I assign a radio button to a cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.MarkSearchColumn = False
	.SelBackColor = RGB(255,255,128)
	.SelForeColor = RGB(0,0,0)
	.Columns.Add "C1"
	.Columns.Add "C2"
	.Columns.Add "C3"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = "Radio 1"
		.CellHasRadioButton(h,1) = True
		.CellRadioGroup(h,1) = 1234
		.CellCaption(h,2) = "Radio 2"
		.CellHasRadioButton(h,2) = True
		.CellRadioGroup(h,2) = 1234
		.CellState(h,1) = 1
	End With
End With
298. How can I change the state of a checkbox
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = "Check Box"
		.CellHasCheckBox(h,1) = True
		.CellState(h,1) = 1
	End With
End With
297. How can I assign a checkbox to a cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = "Check Box"
		.CellHasCheckBox(h,1) = True
	End With
End With
296. How can I display an item or a cell on multiple lines
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ScrollBySingleLine = True
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = "This is bit of text that's shown on multiple lines"
		.CellSingleLine(h,1) = False
	End With
End With
295. How can I assign a tooltip to a cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = "tooltip"
		.CellToolTip(h,1) = "This is bit of text that's shown when the user hovers the cell"
	End With
End With
294. How can I associate an extra data to a cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = "Cell 2"
		.CellData(h,1) = "your extra data"
	End With
End With
293. How do I enable or disable a cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = "Cell 2"
		.CellEnabled(h,1) = False
	End With
End With
292. How do I change the cell's foreground color
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = "Cell 2"
		.CellForeColor(h,1) = RGB(255,0,0)
	End With
End With
291. How do I change the visual effect for the cell, using your EBN files
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = "Cell 2"
		.CellBackColor(h,1) = &H1000000
	End With
End With
290. How do I change the cell's background color
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = "Cell 2"
		.CellBackColor(h,1) = RGB(255,0,0)
	End With
End With
289. How do I change the caption or value for a particular cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		.CellCaption(.AddItem("Cell 1"),1) = "Cell 2"
	End With
End With
288. How do I get the handle of the cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
		.CellBold(0,.ItemCell(h,0)) = True
	End With
End With
287. How do I retrieve the focused item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
		.ItemBold(.FocusItem) = True
	End With
End With
286. How do I get the number or count of child items
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
		.AddItem .ChildCount(h)
	End With
End With
285. How do I enumerate the visible items
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.ItemBold(.FirstVisibleItem) = True
		.ItemBold(.NextVisibleItem(.FirstVisibleItem)) = True
	End With
End With
284. How do I enumerate the siblings items
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.ItemBold(.NextSiblingItem(.FirstVisibleItem)) = True
		.ItemBold(.PrevSiblingItem(.NextSiblingItem(.FirstVisibleItem))) = True
	End With
End With
283. How do I get the parent item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
		.ItemBold(.ItemParent(.ItemChild(h))) = True
	End With
End With
282. How do I get the first child item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
		.ItemBold(.ItemChild(h)) = True
	End With
End With
281. How do I enumerate the root items
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ItemBold(.RootItem(0)) = True
		.ItemUnderline(.RootItem(1)) = True
	End With
End With
280. I have a hierarchy, how can I count the number of root items
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.AddItem .RootCount
	End With
End With
279. How can I make an item unselectable, or not selectable
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Column"
	With .Items
		h = .AddItem("unselectable - you can't get selected")
		.SelectableItem(h) = False
		.AddItem "selectable"
	End With
End With
278. How can I hide or show an item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Column"
	With .Items
		h = .AddItem("hidden")
		.ItemHeight(h) = 0
		.SelectableItem(h) = False
		.AddItem "visible"
	End With
End With
277. How can I change the height for all items
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.DefaultItemHeight = 32
	.Columns.Add "Column"
	.Items.AddItem "One"
	.Items.AddItem "Two"
End With
276. How do I change the height of an item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ScrollBySingleLine = True
	.Columns.Add "Default"
	With .Items
		.ItemHeight(.AddItem("height")) = 128
	End With
	.Items.AddItem "enabled"
End With
275. How do I disable or enable an item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		.EnableItem(.AddItem("disabled")) = False
	End With
	.Items.AddItem "enabled"
End With
274. How do I display as strikeout a cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		.CellStrikeOut(.AddItem("strikeout"),0) = True
	End With
End With
273. How do I display as strikeout a cell or an item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		.CellCaptionFormat(.AddItem("gets <s>strikeout</s> only a portion of text"),0) = exHTML
	End With
End With
272. How do I display as strikeout an item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		.ItemStrikeOut(.AddItem("strikeout")) = True
	End With
End With
271. How do I underline a cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		.CellUnderline(.AddItem("underline"),0) = True
	End With
End With
270. How do I underline a cell or an item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		.CellCaptionFormat(.AddItem("gets <u>underline</u> only a portion of text"),0) = exHTML
	End With
End With
269. How do I underline an item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		.ItemUnderline(.AddItem("underline")) = True
	End With
End With
268. How do I display as italic a cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		.CellItalic(.AddItem("italic"),0) = True
	End With
End With
267. How do I display as italic a cell or an item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		.CellCaptionFormat(.AddItem("gets <i>italic</i> only a portion of text"),0) = exHTML
	End With
End With
266. How do I display as italic an item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		.ItemItalic(.AddItem("italic")) = True
	End With
End With
265. How do I bold a cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		.CellBold(.AddItem("bold"),0) = True
	End With
End With
264. How do I bold a cell or an item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		.CellCaptionFormat(.AddItem("gets <b>bold</b> only a portion of text"),0) = exHTML
	End With
End With
263. How do I bold an item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		.ItemBold(.AddItem("bold")) = True
	End With
End With
262. How do I change the foreground color for the item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root")
		hC = .InsertItem(h,0,"Child 1")
		.ItemForeColor(hC) = RGB(255,0,0)
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
	End With
End With
261. How do I change the visual appearance for the item, using your EBN technology
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root")
		hC = .InsertItem(h,0,"Child 1")
		.ItemBackColor(hC) = &H1000000
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
	End With
End With
260. How do I change the background color for the item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root")
		hC = .InsertItem(h,0,"Child 1")
		.ItemBackColor(hC) = RGB(255,0,0)
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
	End With
End With
259. How do I expand or collapse an item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
	End With
End With
258. How do I associate an extra data to an item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		.ItemData(.AddItem("item")) = "your extra data"
	End With
End With
257. How do I get the number or count of items
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
	End With
	.Items.AddItem 0.ItemCount
End With
256. How do I programmatically edit a cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
End With
255. How can I change at runtime the parent of the item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.LinesAtRoot = exLinesAtRoot
	.Columns.Add "Default"
	With .Items
		hP = .AddItem("Root")
		hC = .AddItem("Child")
		.SetParent hC,hP
	End With
End With
254. How can I sort the items
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
	End With
	.Columns.Item("Default").SortOrder = SortDescending
End With
253. How do I sort the child items
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	With .Items
		h = .AddItem("Root")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
		.SortChildren h,0,False
	End With
End With
252. How can I ensure or scroll the control so the item fits the control's client area
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	h = .Items.AddItem("item")
End With
251. How can I remove or delete all items
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	.Items.AddItem "removed item"
	.Items.RemoveAllItems 
End With
250. How can I remove or delete an item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	h = .Items.AddItem("removed item")
	.Items.RemoveItem h
End With
249. How can I add or insert child items
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.LinesAtRoot = exLinesAtRoot
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		h = .AddItem("Cell 1")
		.CellCaption(h,1) = "Cell 2"
		.CellCaption(.InsertItem(h,0,"Cell 3"),1) = "Cell 4"
		.CellCaption(.InsertItem(h,0,"Cell 5"),1) = "Cell 6"
		.ExpandItem(h) = True
	End With
End With
248. How can I add or insert a child item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.LinesAtRoot = exLinesAtRoot
	.Columns.Add "Default"
	With .Items
		.InsertItem .AddItem("root"),0,"child"
	End With
End With
247. How can I add or insert an item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "C1"
	.Columns.Add "C2"
	With .Items
		.CellCaption(.AddItem("Cell 1"),1) = "Cell 2"
		h = .AddItem("Cell 3")
		.CellCaption(h,1) = "Cell 4"
	End With
End With
246. How can I add or insert an item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Default"
	.Items.AddItem "new item"
End With
245. How can I get the columns as they are shown in the control's sortbar
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	Set var_Object = .Columns.ItemBySortPosition(0)
End With
244. How can I access the properties of a column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "A"
	.Columns.Item("A").HeaderBold = True
End With
243. How can I remove all the columns
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Clear 
End With
242. How can I remove a column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Remove "A"
End With
241. How can I get the number or the count of columns
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	var_Count = .Columns.Count
End With
240. How can I change the font for all cells in the entire column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	Set f = CreateObject("StdFont")
	With f
		.Name = "Tahoma"
		.Size = 12
	End With
	With .ConditionalFormats.Add("1")
		.Font = f
		.ApplyTo = exFormatToColumns
	End With
	.Columns.Add "Column"
	.Items.AddItem 0
	.Items.AddItem 1
End With
239. How can I change the background color for all cells in the column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	Set var_ConditionalFormat = .ConditionalFormats.Add("1")
	With var_ConditionalFormat
		.BackColor = RGB(255,0,0)
		.ApplyTo = exFormatToColumns
	End With
	.Columns.Add "Column"
	.Items.AddItem 0
	.Items.AddItem 1
End With
238. How can I change the foreground color for all cells in the column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	Set var_ConditionalFormat = .ConditionalFormats.Add("1")
	With var_ConditionalFormat
		.ForeColor = RGB(255,0,0)
		.ApplyTo = exFormatToColumns
	End With
	.Columns.Add "Column"
	.Items.AddItem 0
	.Items.AddItem 1
End With
237. How can I show as strikeout all cells in the column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	Set var_ConditionalFormat = .ConditionalFormats.Add("1")
	With var_ConditionalFormat
		.StrikeOut = True
		.ApplyTo = exFormatToColumns
	End With
	.Columns.Add "Column"
	.Items.AddItem 0
	.Items.AddItem 1
End With
236. How can I underline all cells in the column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	Set var_ConditionalFormat = .ConditionalFormats.Add("1")
	With var_ConditionalFormat
		.Underline = True
		.ApplyTo = exFormatToColumns
	End With
	.Columns.Add "Column"
	.Items.AddItem 0
	.Items.AddItem 1
End With
235. How can I show in italic all data in the column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	Set var_ConditionalFormat = .ConditionalFormats.Add("1")
	With var_ConditionalFormat
		.Italic = True
		.ApplyTo = exFormatToColumns
	End With
	.Columns.Add "Column"
	.Items.AddItem 0
	.Items.AddItem 1
End With
234. How can I bold the entire column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	Set var_ConditionalFormat = .ConditionalFormats.Add("1")
	With var_ConditionalFormat
		.Bold = True
		.ApplyTo = exFormatToColumns
	End With
	.Columns.Add "Column"
	.Items.AddItem 0
	.Items.AddItem 1
End With
233. How can I display a computed column and highlight some values that are negative or less than a value
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "A"
	.Columns.Add "B"
	.Columns.Add("(A+B)*1.19").ComputedField = "(%0 + %1) * 1.19"
	With .Items
		.CellCaption(.AddItem(1),1) = 2
	End With
	With .Items
		.CellCaption(.AddItem(10),1) = 20
	End With
	Set var_ConditionalFormat = .ConditionalFormats.Add("%2 > 10")
	With var_ConditionalFormat
		.Bold = True
		.ForeColor = RGB(255,0,0)
		.ApplyTo = &H2
	End With
End With
232. Can I display a computed column so it displays the VAT, or SUM
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "A"
	.Columns.Add "B"
	.Columns.Add("(A+B)*1.19").ComputedField = "(%0 + %1) * 1.19"
	With .Items
		.CellCaption(.AddItem(1),1) = 2
	End With
	With .Items
		.CellCaption(.AddItem(10),1) = 20
	End With
End With
231. How can I show a column that adds values in the cells
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "A"
	.Columns.Add "B"
	.Columns.Add("A+B").ComputedField = "%0 + %1"
	With .Items
		.CellCaption(.AddItem(1),1) = 2
	End With
	With .Items
		.CellCaption(.AddItem(10),1) = 20
	End With
End With
230. Is there any function to filter the control's data as I type, so the items being displayed include the typed characters
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	Set var_Column = .Columns.Add("Filter")
	With var_Column
		.FilterOnType = True
		.DisplayFilterButton = True
		.AutoSearch = exContains
	End With
	.Items.AddItem "Canada"
	.Items.AddItem "USA"
End With
229. Is there any function to filter the control's data as I type, something like filter on type
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	Set var_Column = .Columns.Add("Filter")
	With var_Column
		.FilterOnType = True
		.DisplayFilterButton = True
	End With
	.Items.AddItem "Canada"
	.Items.AddItem "USA"
End With
228. How can I programmatically filter a column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	With .Columns.Add("Filter")
		.DisplayFilterButton = True
		.FilterType = exNonBlanks
	End With
	.Items.AddItem 
	.Items.AddItem "not empty"
	.ApplyFilter 
End With
227. How can I show or display the control's filter
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("Filter").DisplayFilterButton = True
End With
226. How can I customize the items being displayed in the drop down filter window
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	With .Columns.Add("Custom Filter")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.CustomFilter = "Excel Spreadsheets (*.xls )||*.xls|||Word Documents||*.doc|||Powerpoint Presentations||*.pps|||" & _
"Text Documents (*.log,*.txt)||*.txt|*.log"
		.FilterType = exPattern
		.Filter = "*.xls"
	End With
	.Items.AddItem "excel.xls"
	.Items.AddItem "word.doc"
	.Items.AddItem "pp.pps"
	.Items.AddItem "text.txt"
	.ApplyFilter 
End With
225. How can I change the order or the position of the columns in the sort bar
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.SortBarVisible = True
	.SortBarColumnWidth = 48
	.Columns.Add("C1").SortOrder = SortAscending
	.Columns.Add("C2").SortOrder = SortDescending
	.Columns.Item("C2").SortPosition = 0
End With
224. How do I arrange my columns on multiple levels
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("S").Width = 32
	.Columns.Add("Level 2").LevelKey = 1
	.Columns.Add("Level 3").LevelKey = 1
	.Columns.Add("Level 4").LevelKey = 1
	.Columns.Add("Level 1").LevelKey = "2"
	.Columns.Add("Level 2").LevelKey = "2"
	.Columns.Add("Level 3").LevelKey = "2"
	.Columns.Add("Level 4").LevelKey = "2"
	.Columns.Add("E").Width = 32
End With
223. How do I arrange my columns on multiple lines
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.HeaderHeight = 32
	.Columns.Add("").HTMLCaption = "Line 1<br>Line 2"
End With
222. How can I display all cells using HTML format
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("HTML").Def(exCellCaptionFormat) = 1
	.Items.AddItem "<font ;12>T</font>his <b>is</b> an <a>html</a> <font Tahoma><fgcolor=FF0000>text</fgcolor></fon" & _
"t>."
End With
221. How can I display all cells using multiple lines
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("MultipleLine").Def(exCellSingleLine) = False
	.Columns.Add("SingleLine").Def(exCellSingleLine) = True
	With .Items
		.CellCaption(.AddItem("This is a bit of long text that should break the line"),1) = "this is a bit of long text that's displayed on a single line"
	End With
End With
220. How do change the vertical alignment for all cells in the column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("MultipleLine").Def(exCellSingleLine) = False
	.Columns.Add("VAlign").Def(exCellVAlignment) = 2
	With .Items
		.CellCaption(.AddItem("This is a bit of long text that should break the line"),1) = "bottom"
	End With
	With .Items
		.CellCaption(.AddItem("This is a bit of long text that should break the line"),1) = "bottom"
	End With
End With
219. How do change the foreground color for all cells in the column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("ForeColor").Def(exCellForeColor) = 255
	.Items.AddItem 0
	.Items.AddItem 1
End With
218. How do change the background color for all cells in the column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("BackColor").Def(exCellBackColor) = 255
	.Items.AddItem 0
	.Items.AddItem 1
End With
217. How do I show buttons for all cells in the column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	With .Columns.Add("Button")
		.Def(exCellHasButton) = True
		.Def(exCellButtonAutoWidth) = True
	End With
	.Items.AddItem " Button 1 "
	.Items.AddItem " Button 2 "
End With
216. How do I show buttons for all cells in the column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("Button").Def(exCellHasButton) = True
	.Items.AddItem 0
	.Items.AddItem 1
End With
215. How do I display radio buttons for all cells in the column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("Radio").Def(exCellHasRadioButton) = True
	.Items.AddItem 0
	.Items.AddItem 1
End With
214. How do I display checkboxes for all cells in the column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("Check").Def(exCellHasCheckBox) = True
	.Items.AddItem 0
	.Items.AddItem 1
End With
213. How can I display a tooltip when the cursor hovers the column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("tooltip").ToolTip = "This is a bit of text that is shown when user hovers the column."
End With
212. Is there any function to assign a key to a column instead using its name or capion
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("Data").Key = "DKey"
	.Columns.Item("DKey").Caption = "new caption"
End With
211. Is there any function to assign any extra data to a column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("Data").Data = "your extra data"
End With
210. By default, the column gets sorted descending, when I first click its header. How can I change so the column gets sorted ascending when the user first clicks the column's header
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("Sort").DefaultSortOrder = True
End With
209. How can I specify the maximum width for the column, if I use WidthAutoResize property
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	With .Columns.Add("Auto")
		.WidthAutoResize = True
		.MinWidthAutoResize = 32
		.MaxWidthAutoResize = 128
	End With
	.Items.AddItem 0
	.Items.AddItem 1
End With
208. How can I specify the minimum width for the column, if I use WidthAutoResize property
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	With .Columns.Add("Auto")
		.WidthAutoResize = True
		.MinWidthAutoResize = 32
	End With
	.Items.AddItem 0
	.Items.AddItem 1
End With
207. Is there any option to resize the column based on its data, captions
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("A").WidthAutoResize = True
	.Items.AddItem 0
	.Items.AddItem 1
End With
206. How can I align the icon in the column's header in the center
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("")
		.HeaderImage = 1
		.HeaderImageAlignment = CenterAlignment
	End With
End With
205. How do I align the icon in the column's header to the right
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("ColumnName")
		.HeaderImage = 1
		.HeaderImageAlignment = RightAlignment
	End With
End With
204. How do I show or hide the sorting icons, but still need sorting
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("Sorted").SortOrder = SortAscending
	.Columns.Item(0).DisplaySortIcon = False
End With
203. How do I enable or disable the entire column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "C1"
	.Columns.Add("Disabled").Enabled = False
	With .Items
		.CellCaption(.AddItem(0),1) = "0.1"
	End With
	With .Items
		.CellCaption(.AddItem(1),1) = "1.1"
	End With
End With
202. How do I disable drag and drop columns
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("C1").AllowDragging = False
	.Columns.Add("C2").AllowDragging = False
End With
201. How do I disable resizing a column at runtime
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("Unsizable").AllowSizing = False
	.Columns.Add "C2"
	.Columns.Add "C3"
	.Columns.Add "C4"
End With
200. How can I align the column to the right, and its caption too
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	With .Columns.Add("Column")
		.Alignment = RightAlignment
		.HeaderAlignment = RightAlignment
	End With
	.Items.AddItem 0
	.Items.AddItem 1
End With
199. How can I align the column to the right
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("Column").Alignment = RightAlignment
	.Items.AddItem 0
	.Items.AddItem 1
End With
198. How do I change the column's caption
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("Column").Caption = "new caption"
End With
197. Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.FormatAnchor(False) = "<b><u><fgcolor=880000> </fgcolor></u></b>"
	.Columns.Add "Column"
	With .Items
		.CellCaptionFormat(.AddItem("Just an <a1>anchor</a> element ..."),0) = exHTML
	End With
	With .Items
		.CellCaptionFormat(.AddItem("Just another <a2>anchor</a> element ..."),0) = exHTML
	End With
	.Items.AddItem "next item"
End With
196. Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.FormatAnchor(True) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
	.Columns.Add "Column"
	With .Items
		.CellCaptionFormat(.AddItem("Just an <a1>anchor</a> element ..."),0) = exHTML
	End With
	With .Items
		.CellCaptionFormat(.AddItem("Just another <a2>anchor</a> element ..."),0) = exHTML
	End With
End With
195. Can I change the font for the tooltip
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Columns.Add("tootip").ToolTip = "<br><font Tahoma;14>this</font> is a tooltip assigned to a column<br>"
End With
194. Can I change the font for the tooltip
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ToolTipDelay = 1
	With .ToolTipFont
		.Name = "Tahoma"
		.Size = 14
	End With
	.ToolTipWidth = 364
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
193. Can I change the order of the buttons in the scroll bar
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ScrollOrderParts(exHScroll) = "t,l,r"
	.ScrollOrderParts(exVScroll) = "t,l,r"
End With
192. The thumb size seems to be very small. Can I make it bigger
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ColumnAutoResize = False
	.Columns.Add("C1").Width = 256
	.Columns.Add("C2").Width = 256
	.Columns.Add("C3").Width = 256
	.ScrollThumbSize(exHScroll) = 64
End With
191. How can I display my text on the scroll bar, using a different font
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ScrollPartCaption(exHScroll,exThumbPart) = "This is <s><font Tahoma;12> just </font></s> text"
	.ColumnAutoResize = False
	.ScrollHeight = 20
	.Columns.Add("C1").Width = 256
	.Columns.Add("C2").Width = 256
	.Columns.Add("C3").Width = 256
End With
190. How can I display my text on the scroll bar, using a different font
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ScrollPartCaption(exHScroll,exThumbPart) = "This is just a text"
	.ScrollFont(exHScroll).Size = 12
	.ColumnAutoResize = False
	.ScrollHeight = 20
	.Columns.Add("C1").Width = 256
	.Columns.Add("C2").Width = 256
	.Columns.Add("C3").Width = 256
End With
189. How can I display my text on the scroll bar
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ScrollPartCaption(exHScroll,exThumbPart) = "this is just a text"
	.ColumnAutoResize = False
	.Columns.Add("C1").Width = 256
	.Columns.Add("C2").Width = 256
	.Columns.Add("C3").Width = 256
End With
188. How do I enlarge or change the size of the control's scrollbars
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ScrollHeight = 18
	.ScrollWidth = 18
	.ScrollButtonWidth = 18
	.ScrollButtonHeight = 18
End With
187. How do I assign a tooltip to a scrollbar
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ScrollToolTip(exHScroll) = "This is a tooltip being shown when you click and drag the thumb in the horizontal scroll bar"
	.ColumnAutoResize = False
	.Columns.Add("C1").Width = 256
	.Columns.Add("C2").Width = 256
	.Columns.Add("C3").Width = 256
End With
186. How do I assign an icon to the button in the scrollbar
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.ScrollPartVisible(exHScroll,exLeftB1Part) = True
	.ScrollPartCaption(exHScroll,exLeftB1Part) = "<img>1</img>"
	.ScrollHeight = 18
	.ScrollButtonWidth = 18
End With
185. I need to add a button in the scroll bar. Is this possible
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ScrollPartVisible(exHScroll,exLeftB1Part) = True
	.ScrollPartCaption(exHScroll,exLeftB1Part) = "1"
End With
184. Can I display an additional buttons in the scroll bar
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ScrollPartVisible(exHScroll,exLeftB1Part) = True
	.ScrollPartVisible(exHScroll,exLeftB2Part) = True
	.ScrollPartVisible(exHScroll,exRightB6Part) = True
	.ScrollPartVisible(exHScroll,exRightB5Part) = True
End With
183. How can I display a custom size picture to a cell or item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.DefaultItemHeight = 48
	.Columns.Add "C1"
	With .Items
		.CellPicture(.AddItem("Text"),0) = ComboBox1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	End With
End With
182. How can I display a multiple pictures to a cell or item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.DefaultItemHeight = 48
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	.Columns.Add "C1"
	With .Items
		.CellCaptionFormat(.AddItem("<img>pic1</img> Text <img>pic2</img> another text ..."),0) = exHTML
	End With
End With
181. How do I change the column's foreground color for numbers between an interval - Range
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	With .ConditionalFormats.Add("%0 >= 2 and %0 <= 10")
		.Bold = True
		.ForeColor = RGB(255,0,0)
		.ApplyTo = &H1
	End With
	.Columns.Add "N1"
	.Columns.Add "N2"
	With .Items
		.CellCaption(.AddItem(1),1) = 2
	End With
	With .Items
		.CellCaption(.AddItem(3),1) = 3
	End With
	With .Items
		.CellCaption(.AddItem(10),1) = 11
	End With
	With .Items
		.CellCaption(.AddItem(13),1) = 31
	End With
	.SearchColumnIndex = 1
End With
180. How do I change the item's foreground color for numbers between an interval - Range
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ConditionalFormats.Add("%0 >= 2 and %0 <= 10").ForeColor = RGB(255,0,0)
	.Columns.Add "Numbers"
	.Items.AddItem 1
	.Items.AddItem 2
	.Items.AddItem 10
	.Items.AddItem 20
End With
179. How do I change the item's background color for numbers less than a value
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ConditionalFormats.Add("%0 < 10").BackColor = RGB(255,0,0)
	.Columns.Add "Numbers"
	.Items.AddItem 1
	.Items.AddItem 2
	.Items.AddItem 10
	.Items.AddItem 20
End With
178. How do I underline the numbers greater than a value
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ConditionalFormats.Add("%0 >= 10").Underline = True
	.Columns.Add "Numbers"
	.Items.AddItem 1
	.Items.AddItem 2
	.Items.AddItem 10
	.Items.AddItem 20
End With
177. How do I highlight in italic the numbers greater than a value
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ConditionalFormats.Add("%0 >= 10").StrikeOut = True
	.Columns.Add "Numbers"
	.Items.AddItem 1
	.Items.AddItem 2
	.Items.AddItem 10
	.Items.AddItem 20
End With
176. How do I highlight in italic the numbers greater than a value
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ConditionalFormats.Add("%0 >= 10").Italic = True
	.Columns.Add "Numbers"
	.Items.AddItem 1
	.Items.AddItem 2
	.Items.AddItem 10
	.Items.AddItem 20
End With
175. How do I highlight in bold the numbers greater than a value
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ConditionalFormats.Add("%0 >= 10").Bold = True
	.Columns.Add "Numbers"
	.Items.AddItem 1
	.Items.AddItem 2
	.Items.AddItem 10
	.Items.AddItem 20
End With
174. Can I use your EBN files to change the visual appearance for +/- expand - collapse buttons
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.LinesAtRoot = exGroupLinesAtRoot
	.HasButtons = exCustom
	.HasButtonsCustom(0) = 16777216
	.HasButtonsCustom(1) = 33554432
	.Columns.Add "Column"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,0,"Child"
	End With
End With
173. Can I use your EBN files to change the visual appearance for radio buttons
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.RadioImage(0) = 16777216
	.RadioImage(1) = 33554432
	.Columns.Add("Radio").Def(exCellHasRadioButton) = True
	With .Items
		.AddItem "Radio 1"
		.CellState(.AddItem("Radio 2"),0) = 1
		.AddItem "Radio 3"
	End With
End With
172. Can I use your EBN files to change the visual appearance for checkbox cells
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.CheckImage(Unchecked) = 16777216
	.CheckImage(Checked) = 33554432
	.Columns.Add("Check").Def(exCellHasCheckBox) = True
	With .Items
		.AddItem "Check 1"
		.CellState(.AddItem("Check 2"),0) = 1
	End With
End With
171. How do I change the visual aspect for thumb parts in the scroll bars, using EBN
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.VisualAppearance.Add 3,"c:\exontrol\images\hot.ebn"
	.Background(exHSThumb) = &H1000000
	.Background(exHSThumbP) = &H2000000
	.Background(exHSThumbH) = &H3000000
	.Background(exVSThumb) = &H1000000
	.Background(exVSThumbP) = &H2000000
	.Background(exVSThumbH) = &H3000000
	.ColumnAutoResize = False
	.ScrollBySingleLine = True
	.Columns.Add("S").Width = 483
	With .Items
		.ItemHeight(.AddItem("Item 1")) = 248
	End With
	.Items.AddItem "Item 2"
End With
170. How do I change the visual aspect only for the thumb in the scroll bar, using EBN
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.VisualAppearance.Add 3,"c:\exontrol\images\hot.ebn"
	.Background(exHSThumb) = &H1000000
	.Background(exHSThumbP) = &H2000000
	.Background(exHSThumbH) = &H3000000
	.ColumnAutoResize = False
	.Columns.Add("S").Width = 483
End With
169. I've seen that you can change the visual appearance for the scroll bar. How can I do that
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.VisualAppearance.Add 3,"c:\exontrol\images\hot.ebn"
	.Background(exSBtn) = &H1000000
	.Background(exSBtnP) = &H2000000
	.Background(exSBtnH) = &H3000000
	.Background(exHSBack) = RGB(240,240,240)
	.Background(exVSBack) = RGB(240,240,240)
	.Background(&H90 Or BackgroundPartEnum.exFooterFilterBarButton Or BackgroundPartEnum.exCellButtonUp Or BackgroundPartEnum.exDropDownButtonUp Or BackgroundPartEnum.exDateHeader Or BackgroundPartEnum.exCursorHoverColumn Or BackgroundPartEnum.exToolTipAppearance Or BackgroundPartEnum.exVSUp) = RGB(240,240,240)
	.Columns.Add("S").Width = 32
	.Columns.Add("Level 1").LevelKey = 1
	.Columns.Add("Level 2").LevelKey = 1
	.Columns.Add("Level 3").LevelKey = 1
	.Columns.Add("E1").Width = 32
	.Columns.Add("E2").Width = 32
	.Columns.Add("E3").Width = 32
	.Columns.Add("E4").Width = 32
	.ColumnAutoResize = False
End With
168. Is there any option to highligth the column from the cursor - point
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exCursorHoverColumn) = &H1000000
	.Columns.Add("S").Width = 32
	.Columns.Add("Level 1").LevelKey = 1
	.Columns.Add("Level 2").LevelKey = 1
	.Columns.Add("Level 3").LevelKey = 1
	.Columns.Add("E1").Width = 32
	.Columns.Add("E2").Width = 32
	.Columns.Add("E3").Width = 32
	.Columns.Add("E4").Width = 32
End With
167. How do I change the visual aspect of selected item in the drop down filter window, using your EBN technology
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exSelBackColorFilter) = &H1000000
	.Background(exSelForeColorFilter) = RGB(255,20,20)
	.Columns.Add("Filter").DisplayFilterButton = True
End With
166. How do I change the visual aspect of the drop down calendar window, that shows up if I click the drop down filter button, using EBN
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.Background(exDateHeader) = &H1000000
	.Background(exDateTodayUp) = &H1000000
	.Background(exDateTodayDown) = &H2000000
	.Background(exDateScrollThumb) = &H1000000
	.Background(exDateScrollRange) = RGB(230,230,230)
	.Background(exDateSeparatorBar) = RGB(230,230,230)
	.Background(exDateSelect) = &H1000000
	With .Columns.Add("Date")
		.FilterType = exDate
		.DisplayFilterButton = True
		.DisplayFilterDate = True
	End With
End With
165. How do I change the visual aspect of the close button in the filter bar, using EBN
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exFooterFilterBarButton) = &H1000000
	.Columns.Add("Filter").FilterType = exBlanks
	.ApplyFilter 
End With
164. How do I change the visual aspect of buttons in the cell, using EBN
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.Background(exCellButtonUp) = &H1000000
	.Background(exSizeGrip) = &H2000000
	.SelForeColor = RGB(0,0,0)
	.ShowFocusRect = False
	.Columns.Add("Column 1").Def(exCellHasButton) = True
	.Items.AddItem "Button 1"
	.Items.AddItem "Button 2"
	.Columns.Add "Column 2"
End With
163. How do I change the visual aspect of the drop down filter button, using EBN
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exHeaderFilterBarButton) = &H1000000
	.Columns.Add("Filter").DisplayFilterButton = True
End With
162. Is there any function to get the control's data in your x-script format / template
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Column"
	.Items.AddItem 0
End With
161. How do I enable resizing the columns at runtime
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ColumnsAllowSizing = True
	.MarkSearchColumn = False
	.HeaderVisible = False
	.Columns.Add "Column 1"
	.Columns.Add "Column 2"
	.DrawGridLines = exVLines
	With .Items
		.CellCaption(.AddItem("Item 1"),1) = "Sub Item 1"
	End With
	With .Items
		.CellCaption(.AddItem("Item 2"),1) = "Sub Item 2"
	End With
End With
160. How do I enable resizing ( changing the height ) the items at runtime
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ItemsAllowSizing = exResizeItem
	.ScrollBySingleLine = True
	.Columns.Add "Column"
	.Items.AddItem "Item 1"
	With .Items
		.ItemHeight(.AddItem("Item 2")) = 48
	End With
	.Items.AddItem "Item 3"
End With
159. How can I sort by multiple columns
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.SingleSort = False
	.Columns.Add("C1").SortOrder = SortAscending
	.Columns.Add("C2").SortOrder = SortDescending
	.Columns.Add("C3").SortOrder = SortAscending
End With
158. How can I add several columns to control's sort bar
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.SortBarVisible = True
	.SortBarColumnWidth = 48
	.Columns.Add("C1").SortOrder = SortAscending
	.Columns.Add("C2").SortOrder = SortDescending
End With
157. How can I change the width of the columns being displayed in the sort bar
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.SortBarVisible = True
	.SortBarColumnWidth = 48
	.Columns.Add("C1").SortOrder = SortAscending
	.Columns.Add("C2").SortOrder = SortDescending
End With
156. How can I change the height of the sort bar's
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.SortBarVisible = True
	.SortBarHeight = 48
End With
155. How can I change the sort bar's foreground color
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.SortBarVisible = True
	.ForeColorSortBar = RGB(255,0,0)
End With
154. How can I change the visual appearance of the control's sort bar, using EBN files
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.SortBarVisible = True
	.BackColorSortBar = &H1000000
	.BackColorSortBarCaption = &H2000000
	.Appearance = None2
End With
153. How can I change the sort bar's background color
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.SortBarVisible = True
	.BackColorSortBar = RGB(255,0,0)
	.BackColorSortBarCaption = RGB(128,0,0)
End With
152. How can I change the default caption being displayed in the control's sort bar
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.SortBarVisible = True
	.SortBarCaption = "new caption"
End With
151. How can I show the locked / fixed items on the bottom side of the control
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ShowLockedItems = True
	.Columns.Add "Column"
	With .Items
		.LockedItemCount(exMiddle) = 2
		.CellCaption(.LockedItem(exMiddle,0),0) = "locked item 1"
		.CellCaption(.LockedItem(exMiddle,1),0) = "locked item 2"
		.AddItem "un-locked item"
	End With
End With
150. How can I show the locked / fixed items
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ShowLockedItems = True
	.Columns.Add "Column"
	With .Items
		.LockedItemCount(exTop) = 2
		.CellCaption(.LockedItem(exTop,0),0) = "locked item 1"
		.CellCaption(.LockedItem(exTop,1),0) = "locked item 2"
		.AddItem "un-locked item"
	End With
End With
149. How can I hide the locked / fixed items
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ShowLockedItems = False
	.Columns.Add "Column"
	With .Items
		.LockedItemCount(exTop) = 1
		.CellCaption(.LockedItem(exTop,0),0) = "locked item"
		.AddItem "un-locked item"
	End With
End With
148. How can I show the control's sort bar
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.SortBarVisible = True
End With
147. How can I change the header's background color, when multiple levels are displayed
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.BackColorLevelHeader = RGB(250,0,0)
	.Columns.Add("S").Width = 32
	.Columns.Add("Level 1").LevelKey = 1
	.Columns.Add("Level 2").LevelKey = 1
	.Columns.Add("Level 3").LevelKey = 1
End With
146. Can I programmatically scroll the control
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Column"
	.Items.AddItem 0
	.Items.AddItem 1
	.Items.AddItem 2
	.Items.AddItem 3
End With
145. How do I disable expanding or collapsing an item when user presses the arrow keys
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.LinesAtRoot = exLinesAtRoot
	.Columns.Add "Column 1"
	With .Items
		h = .AddItem("Root")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
	End With
End With
144. How do I expand automatically the items while user types characters to searching for something ( incremental searching )
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ExpandOnSearch = True
	.LinesAtRoot = exLinesAtRoot
	.AutoSearch = True
	.Columns.Add("Column").AutoSearch = exContains
	With .Items
		.InsertItem .InsertItem(.AddItem("text"),0,"some text"),0,"another text"
		.InsertItem .InsertItem(.AddItem("text"),0,"some text"),0,"another text"
	End With
End With
143. Can I programmatically scroll the control
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Column"
	.Items.AddItem 0
	.Items.AddItem 1
	.Items.AddItem 2
	.Items.AddItem 3
End With
142. Do you have some function to load data from a safe array
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Column"
	.Items.AddItem 0
End With
141. Do you have some function to retrieve all items to a safe array
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Column"
	.Items.AddItem 0
	.Items.AddItem 1
	.Items.AddItem 2
	.Items.AddItem 3
End With
140. How can still display the selected items when the control loses the focus
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 3"
		.AddItem "Item 1"
		.SelectItem(.AddItem("Item 2")) = True
	End With
End With
139. How can I hide a column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add("Hidden").Visible = False
	.Columns.Add "2"
	.Columns.Add "3"
	.Columns.Add "4"
	.Columns.Add "5"
End With
138. How can I ensure that a column is visible and fits the control's client area
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ColumnAutoResize = False
	.Columns.Add("1").Width = 128
	.Columns.Add("2").Width = 128
	.Columns.Add("3").Width = 128
	.Columns.Add("4").Width = 128
	.Columns.Add("5").Width = 128
End With
137. I've seen that the width of the tooltip is variable. Can I make it larger
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ToolTipWidth = 328
	.Columns.Add("tootip").ToolTip = "this is a tooltip that should be very very very very very very very long"
End With
136. How do I disable showing the tooltip for all control
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ToolTipDelay = 0
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
135. How do I let the tooltip being displayed longer
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ToolTipPopDelay = 10000
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
134. How do I show the tooltip quicker
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ToolTipDelay = 1
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
133. How do I change the caption being displayed in the control's filter bar
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.FilterBarCaption = "your filter caption"
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = exBlanks
	End With
	.ApplyFilter 
End With
132. How do I disable expanding or collapsing an item when user double clicks it
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.LinesAtRoot = exLinesAtRoot
	.Indent = 13
	.Columns.Add "Column 1"
	With .Items
		h = .AddItem("Root")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
	End With
End With
131. How do I search case sensitive, using your incremental search feature
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.AutoSearch = True
	.ASCIILower = ""
	With .Columns
		.Add("exStartWith").AutoSearch = exStartWith
		.Add("exContains").AutoSearch = exContains
	End With
	With .Items
		.CellCaption(.AddItem("text"),1) = "another text"
	End With
	With .Items
		.CellCaption(.AddItem("text"),1) = "another text"
	End With
End With
130. How do I disable the control
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Enabled = False
End With
129. How do I enable the incremental search feature within a column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.AutoSearch = True
	With .Columns
		.Add("exStartWith").AutoSearch = exStartWith
		.Add("exContains").AutoSearch = exContains
	End With
	With .Items
		.CellCaption(.AddItem("text"),1) = "another text"
	End With
	With .Items
		.CellCaption(.AddItem("text"),1) = "another text"
	End With
End With
128. How do I call your x-script language
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	With .ExecuteTemplate("Columns.Add(`Column`)")
		.HeaderStrikeOut = True
		.HeaderBold = True
	End With
End With
127. How do I call your x-script language
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Template = "Columns.Add(`Column`).HTMLCaption = `<b>C</b>olumn`"
End With
126. How do I show alternate rows in different background color
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.BackColorAlternate = RGB(240,240,240)
	.Columns.Add "Column"
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
		.AddItem "Item 4"
		.AddItem "Item 5"
	End With
End With
125. How do I enlarge the drop down filter window
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.FilterBarDropDownHeight = "-320"
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterBarDropDownWidth = "-320"
	End With
	.Items.AddItem "Item 1"
	.Items.AddItem "Item 2"
End With
124. How do I filter programatically the control
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = exPattern
		.Filter = "Item*"
	End With
	.Items.AddItem "Item 1"
	.Items.AddItem ""
	.Items.AddItem "Item 2"
	.ApplyFilter 
End With
123. How do I change the font of the control's filterbar
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.FilterBarFont.Size = 20
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = exBlanks
	End With
	.ApplyFilter 
End With
122. Can I apply an EBN skin to the control's filter bar so I can change its visual appearance
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.FilterBarBackColor = &H1000000
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = exBlanks
	End With
	.ApplyFilter 
End With
121. How do I change the background color of the control's filterbar
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.FilterBarBackColor = RGB(240,240,240)
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = exBlanks
	End With
	.ApplyFilter 
End With
120. How do I change the foreground color of the control's filterbar
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.FilterBarForeColor = RGB(255,0,0)
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = exBlanks
	End With
	.ApplyFilter 
End With
119. How do I change the height of the control's filterbar
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.FilterBarHeight = 32
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = exBlanks
	End With
	.ApplyFilter 
End With
118. How do select only a portion of text when the control starts editing a cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.SelStart = 1
	.SelLength = 1
	.Columns.Add "Column"
	.Items.AddItem "Item 1"
	.Items.AddItem "Item 2"
End With
117. How do I change the header's foreground color
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Column 1"
	.Columns.Add "Column 2"
	.Items.AddItem "Item 1"
End With
116. I have a picture on the control's background, the question is how do I draw selection as semi-transparent
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Column"
	.Items.AddItem "Item 1"
	.Items.AddItem "Item 2"
End With
115. It seems that the control uses the TAB key, is there any way to avoid that
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.UseTabKey = False
End With
114. I have FullRowSelect property on False, how do I force the user to select cells only in a specified column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.FullRowSelect = False
	.Columns.Add "Column 1"
	.Columns.Add "Column 2"
	With .Items
		.CellCaption(.AddItem("Item 1"),1) = "SubItem 1"
	End With
End With
113. How do I assign a database to your control, using ADO, ADOR or ADODB objects
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ColumnAutoResize = False
	Set rs = CreateObject("ADOR.Recordset")
	With rs
		.Open "Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\VB\SAMPLE." & _
"MDB",3,3
	End With
	.DataSource = rs
End With
112. How do I change the visual appearance effect for the selected item, using EBN
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.SelBackColor = &H1000000
	.SelForeColor = RGB(0,0,0)
	.ShowFocusRect = False
	.Columns.Add "Column"
	.Items.AddItem 0
	.Items.AddItem 1
End With
111. How do I change the colors for the selected item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.SelBackColor = RGB(0,0,0)
	.Columns.Add "Column"
	.Items.AddItem 0
	.Items.AddItem 1
End With
110. How do I get ride of the rectangle arround focused item
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ShowFocusRect = False
	.Columns.Add "Column"
	.Items.AddItem 0
	.Items.AddItem 1
End With
109. How can I change the control's font
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Font.Name = "Tahoma"
	.Columns.Add "Column"
End With
108. I can't scroll to the end of the data. What can I do
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ScrollBySingleLine = True
	.DrawGridLines = &Hfffffffc Or GridLinesEnum.exVLines
	.Columns.Add "Column"
	With .Items
		.ItemHeight(.AddItem(0)) = 13
	End With
	With .Items
		.ItemHeight(.AddItem(1)) = 26
	End With
	With .Items
		.ItemHeight(.AddItem(2)) = 36
	End With
	With .Items
		.ItemHeight(.AddItem(3)) = 48
	End With
End With
107. How do I specify the column where the tree lines / hierarchy are shown
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.LinesAtRoot = exGroupLinesAtRoot
	.TreeColumnIndex = 1
	.Columns.Add "Column 1"
	.Columns.Add "Column 2"
	With .Items
		h = .AddItem("Root 1.1")
		.CellCaption(h,1) = "Root 1.2"
		.CellCaption(.InsertItem(h,0,"Child 1.1"),1) = "Child 1.2"
		.CellCaption(.InsertItem(h,0,"Child 2.1"),1) = "Child 2.2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2.1")
		.CellCaption(h,1) = "Root 2.2"
		.CellCaption(.InsertItem(h,0,"Child 1.1"),1) = "Child 1.2"
	End With
End With
106. How do I specify the indentation of the child items relative to their parents
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.LinesAtRoot = exGroupLinesAtRoot
	.Indent = 11
	.Columns.Add "Column"
	With .Items
		h = .AddItem("Root 1")
		.InsertItem h,0,"Child 1"
		.InsertItem h,0,"Child 2"
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem h,0,"Child"
	End With
End With
105. Is there any option to select an item using the right button of the mouse (rclick)
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Column"
	.Items.AddItem "Item 1"
	.Items.AddItem "Item 2"
End With
104. How do I edit a cell
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Column"
	.Items.AddItem "Item 1"
	.Items.AddItem "Item 2"
End With
103. I have FullRowSelect property on False, how do I select a column
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.FullRowSelect = False
End With
102. How can I scroll columns one by one, not pixel by pixel
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ColumnAutoResize = False
	.Columns.Add("1").Width = 128
	.Columns.Add("2").Width = 128
	.Columns.Add("3").Width = 128
	.Columns.Add("4").Width = 128
	.Columns.Add("5").Width = 128
End With
101. How can I enable multiple items selection
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Column"
	.Items.AddItem 0
	.Items.AddItem 1
	.Items.AddItem 2
End With
100. How can I programmatically change the column where incremental searching is performed
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "Column 1"
	.Columns.Add "Column 2"
	With .Items
		.CellCaption(.AddItem("Item 1"),1) = "SubItem 1"
	End With
	.SearchColumnIndex = 1
End With
99. How do I disable the full-row selection in the control
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.FullRowSelect = False
	.Columns.Add "Column"
	.Items.AddItem "One"
	.Items.AddItem "Two"
End With
98. Is there any option to specify the height of the items, before adding them
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.DefaultItemHeight = 32
	.Columns.Add "Column"
	.Items.AddItem "One"
	.Items.AddItem "Two"
End With
97. How do lock / fix some columns to the control, so I can see them all the time, event if I scroll the columns
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.CountLockedColumns = 1
	.BackColorLock = RGB(240,240,240)
	.ColumnAutoResize = False
	.Columns.Add("Locked").Width = 128
	.Columns.Add("Un-Locked 1").Width = 128
	.Columns.Add("Un-Locked 2").Width = 128
	.Columns.Add("Un-Locked 3").Width = 128
	With .Items
		.CellCaption(.AddItem("locked"),1) = "unlocked"
	End With
End With
96. How do I change the control's background / foreground color on the locked area
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.CountLockedColumns = 1
	.ForeColorLock = RGB(240,240,240)
	.BackColorLock = RGB(128,128,128)
	.ColumnAutoResize = False
	.Columns.Add("Locked").Width = 128
	.Columns.Add("Un-Locked 1").Width = 128
	.Columns.Add("Un-Locked 2").Width = 128
	.Columns.Add("Un-Locked 3").Width = 128
	With .Items
		.CellCaption(.AddItem("locked"),1) = "unlocked"
	End With
End With
95. How do I change the control's foreground color
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.ForeColor = RGB(120,120,120)
	.Columns.Add "Column"
	.Items.AddItem "item"
End With
94. How do I change the control's background color
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.BackColor = RGB(200,200,200)
End With
93. How do I use my own icons for my radio buttons
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.RadioImage(0) = 1
	.RadioImage(1) = 2
	.Columns.Add("Radio").Def(exCellHasRadioButton) = True
	With .Items
		.AddItem "Radio 1"
		.CellState(.AddItem("Radio 2"),0) = 1
		.AddItem "Radio 3"
	End With
End With
92. How do I use my own icons for checkbox cells
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.CheckImage(Unchecked) = 1
	.CheckImage(Checked) = 2
	.Columns.Add("Check").Def(exCellHasCheckBox) = True
	With .Items
		.AddItem "Check 1"
		.CellState(.AddItem("Check 2"),0) = 1
	End With
End With
91. How do I perform my own sorting when user clicks the column's header
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.SortOnClick = exUserSort
	.Columns.Add "Column"
	.Items.AddItem "Item 1"
	.Items.AddItem "Item 2"
End With
90. How do I disable sorting a specified column when clicking its header
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.Columns.Add "1"
	.Columns.Add("NoSort").AllowSort = False
End With
89. How do I disable sorting the columns when clicking the control's header
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
	.SortOnClick = exNoSort
	.Columns.Add "1"
	.Columns.Add "2"
End With
88. How do I put a picture on the center of the control
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
End With
87. How do I resize/stretch a picture on the control's background
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
End With
86. How do I put a picture on the control's center right bottom side
Visual Basic
With ComboBox1
	.MinHeightList = 304
	.ColumnAutoResize = True
End With
85. How do I put a picture on the control's center left bottom side