163:
Does your control support subscript or superscript, in HTML captions

with thisform.ListBar1
	with .Groups.Add("Group")
		.AddItem("Item <b><off 4><font ;6>1").CaptionFormat = 1
		.AddItem("Item <b><off 4><font ;6>2").CaptionFormat = 1
	endwith
endwith
162:
How do I get notified once the user selects or activates a group

*** SelectGroup event - Occurs when a group is selected. ***
LPARAMETERS OldGroup,NewGroup
	with thisform.ListBar1
		DEBUGOUT( "Current " )
		DEBUGOUT( NewGroup )
		DEBUGOUT( "Previously " )
		DEBUGOUT( OldGroup )
	endwith

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
	with .Groups.Add("Group 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
endwith
161:
Can I specify a different colors for groups using your EBN files

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.BackColorGroup = 0x1000000
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").BackColor = 0x100aabb
	.SelectGroup = 1
endwith
160:
Can I change the color of the control's border (EBN files)

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Appearance = 27966412 && 0x1aabbc8 Or AppearanceEnum.exDrop
endwith
159:
How do I specify the width of the item

with thisform.ListBar1
	.HighlightItemType = 0
	with .Groups.Add("Group 1")
		.ItemWidth = 32
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
		.AddItem(4)
		.AddItem(5)
		.AddItem(6)
		.AddItem(7)
		.AddItem(8)
		.AddItem(9)
	endwith
	.Groups.Add("Group 2")
endwith
158:
How do I change the visual appearance of the item from the cursor, using EBN files

with thisform.ListBar1
	with .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(22,"c:\exontrol\images\pushed.ebn")
		.Add(2,"CP:22 0 8 0 -8")
	endwith
	.Object.Background(4) = 0x1000000
	.Object.Background(5) = 0x2000000
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.SelectItem = 1
	endwith
	.Groups.Add("Group 2")
endwith
157:
How do I change the visual appearance of the selected item, using EBN files

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Object.Background(4) = 0x1000000
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.SelectItem = 1
	endwith
	.Groups.Add("Group 2")
endwith
156:
How do I select an item

with thisform.ListBar1
	.SelectItemType = 2
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.SelectItem = 1
	endwith
	.Groups.Add("Group 2")
endwith
155:
How do I specify how a selected item shows

with thisform.ListBar1
	.SelectItemType = 2
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
	.Groups.Add("Group 2")
endwith
154:
How do I select or activate a group

with thisform.ListBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
	.Groups.Add("Group 3")
	.SelectGroup = 1
endwith
153:
Is there any option to display groups from left to right

with thisform.ListBar1
	.Orientation = 1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
	.Groups.Add("Group 3")
	.SelectGroup = 1
endwith
152:
How do I change the foreground color of the selected group

with thisform.ListBar1
	.MarkSelectGroup = .T.
	.SelBackColorGroup = .BackColorGroup
	.SelForeColorGroup = RGB(255,0,0)
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
	.Groups.Add("Group 3")
	.SelectGroup = 1
endwith
151:
How do I highlight the selected group

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.MarkSelectGroup = .T.
	.SelBackColorGroup = 0x1000000
	.SelForeColorGroup = RGB(0,0,0)
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
	.Groups.Add("Group 3")
	.SelectGroup = 1
endwith
150:
How do I change the visual appearance of the selected group, using your EBN files

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.MarkSelectGroup = .T.
	.SelBackColorGroup = 0x1000000
	.SelForeColorGroup = RGB(0,0,0)
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
	.Groups.Add("Group 3")
	.SelectGroup = 1
endwith
149:
How do I specify the background color for selected group

with thisform.ListBar1
	.MarkSelectGroup = .T.
	.SelBackColorGroup = RGB(255,0,0)
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
	.Groups.Add("Group 3")
	.SelectGroup = 1
endwith
148:
How can I indent an item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Alignment = 0
		with .AddItem("Sub Item <b>1</b>")
			.CaptionFormat = 1
			.Alignment = 0
			.Indent = 12
		endwith
		with .AddItem("Sub Item <b>2</b>")
			.CaptionFormat = 1
			.Alignment = 0
			.Indent = 12
		endwith
		with .AddItem("Sub Item <b>3</b>")
			.CaptionFormat = 1
			.Alignment = 0
			.Indent = 12
		endwith
		with .AddItem("Sub Sub Item <b>3</b>")
			.CaptionFormat = 1
			.Alignment = 0
			.Indent = 24
		endwith
		with .AddItem("Item 2")
			.Alignment = 0
		endwith
	endwith
endwith
147:
How can I use HTML format to display my item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("<font Tahoma;11>T</font>his is an HTML <b>item</b> assigned to a <fgcolor=FF0000>group</fgcolor>").CaptionFormat = 1
		.AddItem("Item 3")
	endwith
endwith
146:
How can I assign a tooltip to an item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("ToolTip").ToolTip = "This is bit of text that should appear when the cursor hovers the <b>item</b>."
		.AddItem("Item 3")
	endwith
endwith
145:
How can I show or hide an item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").Visible = .F.
		.AddItem("Item 3")
	endwith
endwith
144:
How can I change the item's background color

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		with .AddItem("Item 2")
			.BackColor = RGB(255,0,0)
			.BackColor2 = RGB(255,255,255)
		endwith
		.AddItem("Item 3")
	endwith
endwith
143:
How can I change the item's background color

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("<bgcolor=FF0000>Item</bgcolor> 2").CaptionFormat = 1
		.AddItem("Item 3")
	endwith
endwith
142:
How can I change the item's foreground color

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").ForeColor = RGB(255,0,0)
		.AddItem("Item 3")
	endwith
endwith
141:
How can I change the visual appearance of the item using your EBN files

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").BackColor = 0x1000000
		.AddItem("Item 3")
	endwith
endwith
140:
How can I change the item's background color

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").BackColor = RGB(255,0,0)
		.AddItem("Item 3")
	endwith
endwith
139:
How can I get the group of the item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").Group.Bold = .T.
		.AddItem("Item 3")
	endwith
endwith
138:
How can I get the index of the item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		with .AddItem("Item 1")
			.Caption = .Index
		endwith
		with .AddItem("Item 2")
			.Caption = .Index
		endwith
		with .AddItem("Item 3")
			.Caption = .Index
		endwith
	endwith
endwith
137:
How can I draw underlined an item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("<u>Item</u> 2").CaptionFormat = 1
		.AddItem("Item 3")
	endwith
endwith
136:
How can I draw underlined an item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").Underline = .T.
		.AddItem("Item 3")
	endwith
endwith
135:
How can I draw as strikeout an item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("<s>Item</s> 2").CaptionFormat = 1
		.AddItem("Item 3")
	endwith
endwith
134:
How can I draw as strikeout an item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").StrikeOut = .T.
		.AddItem("Item 3")
	endwith
endwith
133:
How can I draw as italic an item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("<i>Item</i> 2").CaptionFormat = 1
		.AddItem("Item 3")
	endwith
endwith
132:
How can I draw as italic an item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").Italic = .T.
		.AddItem("Item 3")
	endwith
endwith
131:
How can I add a anchor or a hyperlink

with thisform.ListBar1
	.HighlightItemType = 0
	with .Groups.Add("Group 1")
		.AddItem("Link <a1><b>1</b></a>").CaptionFormat = 1
		.AddItem("Link <a2><b>2</b></a>").CaptionFormat = 1
	endwith
endwith
130:
How do I bold an item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("<b>Item</a> 2").CaptionFormat = 1
		.AddItem("Item 3")
	endwith
endwith
129:
How do I bold an item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").Bold = .T.
		.AddItem("Item 3")
	endwith
endwith
128:
How can I align an item

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Groups.Add("Group 1")
		.ItemHeight = 28
		.AddItem("Left",1).Alignment = 0
		.AddItem("Center",2).Alignment = 1
		.AddItem("Right",3).Alignment = 2
		.AddItem("Middle",1).Alignment = 4
	endwith
endwith
127:
How can I assign some extra data to an item
with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1").UserData = "your data"
		.AddItem("Item 2")
		.AddItem("Item 3")
	endwith
endwith
126:
How can I assign or display an icon for an item

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Groups.Add("Group 1")
		.AddItem("Item <img>1</img> text <img>2</img>").CaptionFormat = 1
		.AddItem("Item 2").Image = 2
		.AddItem("Item 3").Image = 3
	endwith
endwith
125:
How can I assign or display an icon for an item

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.AddItem("Item 2").Image = 2
		.AddItem("Item 3").Image = 3
	endwith
endwith
124:
How can I assign or display an icon for an item

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Groups.Add("Group 1")
		.AddItem("Item 1",1)
		.AddItem("Item 2",2)
		.AddItem("Item 3",3)
	endwith
endwith
123:
How can I change the item's position

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3").Position = 0
	endwith
endwith
122:
How can I change the item's caption

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").Caption = "new caption"
		.AddItem("Item 3")
	endwith
endwith
121:
How do I add new items

with thisform.ListBar1
	.Groups.Add("Group 1").AddItem("Item 1").Bold = .T.
endwith
120:
How do I assign a group to a set in the shortcut bar

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
endwith
119:
How can I assign a tooltip to a group

with thisform.ListBar1
	.ToolTipDelay = 1
	.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the <b>group</b>."
endwith
118:
How can I display HTML text in the group's caption

with thisform.ListBar1
	.GroupHeight = 44
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Groups.Add("<img>pic1</img> <s>HTML</s> <img>1</img> <b>format</b>").CaptionFormat = 1
endwith
117:
How can I change the group's background color ( gradient )

with thisform.ListBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.BackColor = RGB(255,0,0)
		.BackColor2 = RGB(255,255,255)
	endwith
	.Groups.Add("Group 3")
endwith
116:
How can I specify the height of the items

with thisform.ListBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.ItemHeight = 13
	endwith
	.Groups.Add("Group 3")
	.SelectGroup = 1
endwith
115:
How do I put a picture on the group's background
with thisform.ListBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.Picture = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 2
	endwith
	.Groups.Add("Group 3")
	.SelectGroup = 1
endwith
114:
How do I put a picture on the group's background
with thisform.ListBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.Picture = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	endwith
	.Groups.Add("Group 3")
	.SelectGroup = 1
endwith
113:
How can I change the foreground color for items

with thisform.ListBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.ForeColorList = RGB(255,0,0)
	endwith
	.Groups.Add("Group 3")
	.SelectGroup = 1
endwith
112:
How can I change the background color for the items

with thisform.ListBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.BackColorList = RGB(255,0,0)
	endwith
	.Groups.Add("Group 3")
	.SelectGroup = 1
endwith
111:
How can I change the group's foreground color

with thisform.ListBar1
	.Groups.Add("Group 1")
	.Groups.Add("<fgcolor=FF0000>Group</fgcolor> 2").CaptionFormat = 1
	.Groups.Add("Group 3")
endwith
110:
How can I change the group's foreground color

with thisform.ListBar1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").ForeColor = RGB(255,0,0)
	.Groups.Add("Group 3")
endwith
109:
How can I change the group's background color

with thisform.ListBar1
	.Groups.Add("Group 1")
	.Groups.Add("<bgcolor=FF0000>Group</bgcolor> 2").CaptionFormat = 1
	.Groups.Add("Group 3")
endwith
108:
How can I change the visual appearance of the group, using EBN files

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.GroupAppearance = 1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").BackColor = 0x1000000
	.Groups.Add("Group 3")
endwith
107:
How can I change the group's background color

with thisform.ListBar1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").BackColor = RGB(255,0,0)
	.Groups.Add("Group 3")
endwith
106:
How do I get the index of the group

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.Caption = .Index
	endwith
	with .Groups.Add("Group 2")
		.Caption = .Index
	endwith
	with .Groups.Add("Group 3")
		.Caption = .Index
	endwith
endwith
105:
How can I underline the group's name

with thisform.ListBar1
	.Groups.Add("<u>Group</u> 1").CaptionFormat = 1
endwith
104:
How can I underline the group's name

with thisform.ListBar1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").Underline = .T.
	.Groups.Add("Group 3")
endwith
103:
How can I show the group's name as strikeout

with thisform.ListBar1
	.Groups.Add("<s>Group</s> 1").CaptionFormat = 1
endwith
102:
How can I show the group's name as strikeout

with thisform.ListBar1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").StrikeOut = .T.
	.Groups.Add("Group 3")
endwith
101:
How can I draw as italic the group's name

with thisform.ListBar1
	.Groups.Add("<i>Group</i> 1").CaptionFormat = 1
endwith
100:
How do I draw italic the group's name

with thisform.ListBar1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").Italic = .T.
	.Groups.Add("Group 3")
endwith
99:
How do I bold the group's name

with thisform.ListBar1
	.Groups.Add("<b>Group</b> 1").CaptionFormat = 1
endwith
98:
How do I bold the group's name

with thisform.ListBar1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").Bold = .T.
	.Groups.Add("Group 3")
endwith
97:
How can I align the icon in the group's caption

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Groups.Add("Group 1 <img>1</img>")
		.CaptionFormat = 1
		.Alignment = 2
	endwith
endwith
96:
How can I align the group's name

with thisform.ListBar1
	.Groups.Add("Group 1").Alignment = 2
endwith
95:
How can I align the group's name

with thisform.ListBar1
	.Groups.Add("Group 1").Alignment = 0
endwith
94:
How can I assign some extra data to a group
with thisform.ListBar1
	.Groups.Add("Group 1").UserData = "your data"
endwith
93:
How can I display an icon in the group's caption

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Groups.Add("Group <img>1</img> text <img>2</img>").CaptionFormat = 1
endwith
92:
How can I display an icon in the group's caption

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Groups.Add("Group 1").Image = 1
endwith
91:
How can I access an item by its position

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3").Position = 0
		.ItemByPos(1).Bold = .T.
	endwith
endwith
90:
How can I change the position of a group

with thisform.ListBar1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2")
	.Groups.Add("Group 3").Position = 0
endwith
89:
How can I change the group's caption

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.Caption = "new caption"
	endwith
endwith
88:
How can I get the number or count of items in a group

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem(.Count)
	endwith
endwith
87:
How can I access an item in a group

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.Item(1).Bold = .T.
	endwith
endwith
86:
How can I remove all items, from a group
with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.Clear
	endwith
endwith
85:
How can I remove an item, from a group

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.RemoveItem(1)
	endwith
endwith
84:
How can I add a new item to a group

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Groups.Add("Group 1")
		.AddItem("Item 1",1)
	endwith
endwith
83:
How can I add a new item to a group

with thisform.ListBar1
	.Groups.Add("Group 1").AddItem("Item 1")
endwith
82:
How can I add a new item to a group

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
	endwith
endwith
81:
How can I get the groups as they are listed
with thisform.ListBar1
	with .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
	endwith
endwith
80:
How can I access a group by position

with thisform.ListBar1
	with .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
		.ItemByPos(1).Bold = .T.
	endwith
endwith
79:
How can I access a group

with thisform.ListBar1
	with .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
		.Item(1).Bold = .T.
	endwith
endwith
78:
How can I clear the groups collection
with thisform.ListBar1
	with .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
		.Clear
	endwith
endwith
77:
How can I remove a group

with thisform.ListBar1
	with .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
		.Remove(1)
	endwith
endwith
76:
How can I add a group

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
endwith
75:
How do I count the number of groups

with thisform.ListBar1
	with .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
		.Add(.Count)
	endwith
endwith
74:
How can I display pictures with a custom size, instead icons, in the shortcut bar

with thisform.ListBar1
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set 1"
	.Groups.Add("Group 2").Shortcut = "Set 1"
	.Groups.Add("Group 3").Shortcut = "Set 2"
	.Groups.Add("Group 4").Shortcut = "Set 2"
	.Object.ShortcutPicture("Set 1") = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.Object.ShortcutPicture("Set 2") = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
	.ShortcutPictureWidth = 32
	.ShortcutPictureHeight = 32
	.ShortcutBarHeight = 32
endwith
73:
How can I display pictures instead icons, in the shortcut bar

with thisform.ListBar1
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set 1"
	.Groups.Add("Group 2").Shortcut = "Set 1"
	.Groups.Add("Group 3").Shortcut = "Set 2"
	.Groups.Add("Group 4").Shortcut = "Set 2"
	.Object.ShortcutPicture("Set 1") = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.Object.ShortcutPicture("Set 2") = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
	.ShortcutBarHeight = 44
endwith
72:
How can I change the visual appearance of the shortcut bar, using EBN files

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutResizeBackColor = 0x2000000
	.ShortcutBarSelCaptionBackColor = 0x1000000
	.ShortcutBarSelBackColor = 0x1000000
	.BackColorGroup = 0x1000000
endwith
71:
How can I change the visual appearance of the separator between groups and the shortcut bar, using your EBN files

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutResizeBackColor = 0x1000000
	.ExpandShortcutCount = 1
endwith
70:
How do I change the background color of the separator between groups and the shortcut bar

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutResizeBackColor = RGB(255,0,0)
	.ExpandShortcutCount = 1
endwith
69:
How can I change the visual appearance of the shortcut bar, using your EBN files

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutBarSelCaptionBackColor = 0x1000000
	.ExpandShortcutCount = 1
endwith
68:
How do I change the selection background color in the shortcut bar

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutBarSelCaptionBackColor = RGB(255,0,0)
	.ExpandShortcutCount = 1
endwith
67:
How can I change the visual appearance of the shortcut bar, using your EBN files

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutBarSelBackColor = 0x1000000
endwith
66:
How do I change the selection background color in the shortcut bar

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutBarSelBackColor = RGB(255,0,0)
endwith
65:
How can I change the visual appearance of the shortcut bar, using your EBN files

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutBarBackColor = 0x1000000
endwith
64:
How do I change the background color in the shortcut bar

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutBarBackColor = RGB(255,0,0)
endwith
63:
How can I programmatically change expand or collapse the shortcut bar

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ExpandShortcutCount = 1
endwith
62:
How do I change the icon for the expanding or collapsing the shortcut bar

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ExpandShortcutImage = 3
endwith
61:
How can I enable or disable resizing the shortcut bar

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ExpandShortcutCount = 1
	.AllowResizeShortcutBar = .F.
endwith
60:
How do I specify the height of the shortcut bar

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ExpandShortcutCount = 1
	.ShortcutBarHeight = 16
endwith
59:
How do I select a shortcut

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ExpandShortcutCount = 1
	.SelectShortcut = "Set <img>2</img>"
endwith
58:
How do I show or hide the shortcut bar

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ExpandShortcutCount = 1
endwith
57:
How do I access the groups collection
with thisform.ListBar1
	.Groups.Add("Group 1")
endwith
56:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

with thisform.ListBar1
	.Object.FormatAnchor(0) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
	.HighlightItemType = 0
	.Groups.Add("Group <a1><b>1</b></a>").CaptionFormat = 1
endwith
55:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

with thisform.ListBar1
	.Object.FormatAnchor(0) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
	.HighlightItemType = 0
	with .Groups.Add("Group 1")
		.AddItem("Item <a1><b>1</b></a>").CaptionFormat = 1
	endwith
endwith
54:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

with thisform.ListBar1
	.HighlightItemType = 0
	.Object.FormatAnchor(1) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
	.Groups.Add("Group <a1><b>1</b></a>").CaptionFormat = 1
endwith
53:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

with thisform.ListBar1
	.HighlightItemType = 0
	.Object.FormatAnchor(1) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
	with .Groups.Add("Group 1")
		.AddItem("Item <a1><b>1</b></a>").CaptionFormat = 1
	endwith
endwith
52:
How can I add several pictures and icons to an item

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	with .Groups.Add("Group 1")
		.ItemHeight = 48
		with .AddItem("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
			.Image = 2
			.CaptionFormat = 1
		endwith
	endwith
endwith
51:
How can I add several pictures and icons to an item

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	with .Groups.Add("Group 1")
		.ItemHeight = 48
		with .AddItem("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
			.Image = 2
			.CaptionFormat = 1
		endwith
	endwith
endwith
50:
How can I add several pictures to an item

with thisform.ListBar1
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	with .Groups.Add("Group 1")
		.ItemHeight = 48
		.AddItem("<img>pic1</img> text <img>pic2</img>").CaptionFormat = 1
	endwith
endwith
49:
How can I add several pictures to a group

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	.GroupHeight = 48
	with .Groups.Add("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
		.Image = 2
		.CaptionFormat = 1
		.Picture = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
endwith
48:
How can I add several pictures and icons to a group

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	.GroupHeight = 48
	.Groups.Add("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>").CaptionFormat = 1
endwith
47:
How can I add several pictures to a group

with thisform.ListBar1
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	.GroupHeight = 48
	with .Groups.Add("<img>pic1</img> text <img>pic2</img>")
		.CaptionFormat = 1
		.Picture = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
endwith
46:
How can I add several pictures to a group

with thisform.ListBar1
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	.GroupHeight = 48
	.Groups.Add("<img>pic1</img> text <img>pic2</img>").CaptionFormat = 1
endwith
45:
How do I force refreshing the control
with thisform.ListBar1
	.BeginUpdate
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
	endwith
	.EndUpdate
endwith
44:
I've seen that the width of the tooltip is variable. Can I make it larger

with thisform.ListBar1
	.ToolTipWidth = 328
	.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
endwith
43:
How do I let the tooltip being displayed longer

with thisform.ListBar1
	.ToolTipPopDelay = 10000
	.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
endwith
42:
Can I change the default border of the tooltip, using your EBN files

with thisform.ListBar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Object.Background(64) = 0x1000000
	.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
endwith
41:
Can I change the background color for the tooltip

with thisform.ListBar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Object.Background(65) = RGB(255,0,0)
	.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
endwith
40:
Does the tooltip support HTML format

with thisform.ListBar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>group</fgcolor>"
endwith
39:
Can I change the forecolor for the tooltip

with thisform.ListBar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Object.Background(66) = RGB(255,0,0)
	.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
endwith
38:
Can I change the foreground color for the tooltip

with thisform.ListBar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Groups.Add("ToolTip").ToolTip = "<fgcolor=FF0000>This is a bit of text that's shown when the cursor hovers the group.</fgcolor>"
endwith
37:
Can I change the font for the tooltip

with thisform.ListBar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Groups.Add("ToolTip").ToolTip = "<font Tahoma>This is a bit of text that's shown when the cursor hovers the group.</font> Back to the normal font"
endwith
36:
Can I change the font for the tooltip

with thisform.ListBar1
	.ToolTipDelay = 1
	with .ToolTipFont
		.Name = "Tahoma"
		.Size = 14
	endwith
	.ToolTipWidth = 364
	.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
endwith
35:
How do I disable showing the tooltip for all control
with thisform.ListBar1
	.ToolTipDelay = 0
	.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
endwith
34:
How do I show the tooltip quicker
with thisform.ListBar1
	.ToolTipDelay = 1
	.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
endwith
33:
How do I call your x-script language

with thisform.ListBar1
	.ExecuteTemplate("Groups.Add(`Group 1`)").AddItem("Item 1")
endwith
32:
How do I call your x-script language

with thisform.ListBar1
	.Template = "BackColor = RGB(255,0,0)"
endwith
31:
How do I remove the control's borders
with thisform.ListBar1
	.BeginUpdate
	.Appearance = 0
	.BorderWidth = 0
	.BorderHeight = 0
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Groups.Add("Group 1").AddItem("Item 1").Image = 1
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith
30:
How do I specify width or the height of the control's borders
with thisform.ListBar1
	.BeginUpdate
	.Appearance = 0
	.BorderWidth = 0
	.BorderHeight = 0
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Groups.Add("Group 1").AddItem("Item 1").Image = 1
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith
27:
How do I specify to highlight the items in the group, when the cursor hovers the item

with thisform.ListBar1
	.BeginUpdate
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HighlightItemType = 3
	.Groups.Add("Group 1").AddItem("Item 1").Image = 1
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith
26:
How do I specify to highlight the items in the group, when the cursor hovers the item

with thisform.ListBar1
	.BeginUpdate
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HighlightItemType = 2
	.Groups.Add("Group 1").AddItem("Item 1").Image = 1
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith
25:
How do I specify to highlight the items in the group, when the cursor hovers the item

with thisform.ListBar1
	.BeginUpdate
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HighlightItemType = 1
	.Groups.Add("Group 1").AddItem("Item 1").Image = 1
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith
24:
How do I specify the way the control highlight the items in the group
with thisform.ListBar1
	.BeginUpdate
	.HighlightItemType = 0
	.Groups.Add("Group 1").AddItem("Item 1")
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith
23:
Is there any function to avoid painting the control while adding multiple items and groups
with thisform.ListBar1
	.BeginUpdate
	.Groups.Add("Group 1").AddItem("Item 1")
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith
22:
How do I decrease the delay to scroll a group
with thisform.ListBar1
	.DelayScroll = 0
	.Groups.Add("Group 1").AddItem("Item 1")
	.Groups.Add("Group 2").AddItem("Item 2")
endwith
21:
How do I display icons

with thisform.ListBar1
	.SmallIcons = .T.
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Groups.Add("Group 1").Image = 1
endwith
20:
How do I display 32x32 icons

with thisform.ListBar1
	.SmallIcons = .F.
	.GroupHeight = 36
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Groups.Add("Group 1").Image = 1
endwith
19:
How do I specify the height of the groups

with thisform.ListBar1
	.GroupHeight = 40
	.Groups.Add("Group 1")
	.Groups.Add("Group 2")
endwith
18:
How do I change the visual appearance of the groups

with thisform.ListBar1
	.GroupAppearance = 1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2")
endwith
17:
How do I change the visual appearance of the groups, using your EBN files

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.BackColorGroup = 0x1000000
	.Groups.Add("Group 1")
	.Groups.Add("Group 2")
endwith
16:
How do I change the background color for the groups

with thisform.ListBar1
	.BackColorGroup = RGB(255,0,0)
	.BackColorGroup2 = RGB(255,0,0)
	.Groups.Add("Group 1")
endwith
15:
How do I change the background color for the groups

with thisform.ListBar1
	.BackColorGroup = RGB(255,0,0)
	.Groups.Add("Group 1")
endwith
14:
How do I change the control's foreground color

with thisform.ListBar1
	.ForeColor = RGB(0,0,255)
	.ForeColorGroup = RGB(255,0,0)
	.Groups.Add("Group 1").AddItem("Item 1")
	.Groups.Add("Group 2")
endwith
13:
How can I change the control's font

with thisform.ListBar1
	.Font.Name = "Tahoma"
	.Groups.Add("Group 1")
endwith
12:
How do I change the control's foreground color

with thisform.ListBar1
	.ForeColor = RGB(255,0,0)
	.Groups.Add("Group 1").AddItem("Item 1")
endwith
11:
How do I change the control's background color

with thisform.ListBar1
	.BackColor = RGB(200,200,200)
endwith
10:
How do I change the control's border, using your EBN files

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Appearance = 16777216 && 0x1000000
endwith
9:
How do I remove the control's border
with thisform.ListBar1
	.Appearance = 0
endwith
8:
How do I put a picture on the center of the control
with thisform.ListBar1
	.Picture = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 17
endwith
7:
How do I resize/stretch a picture on the control's background
with thisform.ListBar1
	.Picture = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 49
endwith
6:
How do I put a picture on the control's center right bottom side
with thisform.ListBar1
	.Picture = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 34
endwith
5:
How do I put a picture on the control's center left bottom side
with thisform.ListBar1
	.Picture = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 32
endwith
4:
How do I put a picture on the control's center top side
with thisform.ListBar1
	.Picture = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 1
endwith
3:
How do I put a picture on the control's right top corner
with thisform.ListBar1
	.Picture = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 2
endwith
2:
How do I put a picture on the control's left top corner
with thisform.ListBar1
	.Picture = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 0
endwith
1:
How do I put a picture on the control's background
with thisform.ListBar1
	.Picture = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
endwith