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

local oListBar,var_Group,var_Item,var_Item1

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group")
	// var_Group.AddItem("Item <b><off 4><font ;6>1").CaptionFormat = 1
	var_Item = var_Group.AddItem("Item <b><off 4><font ;6>1")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.CaptionFormat = 1]
	endwith
	// var_Group.AddItem("Item <b><off 4><font ;6>2").CaptionFormat = 1
	var_Item1 = var_Group.AddItem("Item <b><off 4><font ;6>2")
	with (oListBar)
		TemplateDef = [dim var_Item1]
		TemplateDef = var_Item1
		Template = [var_Item1.CaptionFormat = 1]
	endwith

162:
How do I get notified once the user selects or activates a group

/*
with (this.EXLISTBARACTIVEXCONTROL1.nativeObject)
	SelectGroup = class::nativeObject_SelectGroup
endwith
*/
// Occurs when a group is selected.
function nativeObject_SelectGroup(OldGroup,NewGroup)
	oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
	? "Current " 
	? Str(NewGroup) 
	? "Previously " 
	? Str(OldGroup) 
return

local oListBar,var_Group,var_Group1,var_Group2

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
var_Group1 = oListBar.Groups.Add("Group 2")
	var_Group1.AddItem("Item 1")
	var_Group1.AddItem("Item 2")
var_Group2 = oListBar.Groups.Add("Group 3")
	var_Group2.AddItem("Item 1")
	var_Group2.AddItem("Item 2")

161:
Can I specify a different colors for groups using your EBN files

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.BackColorGroup = 0x1000000
oListBar.Groups.Add("Group 1")
// oListBar.Groups.Add("Group 2").BackColor = 0x100aabb
var_Group = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.BackColor = 16820923]
endwith
oListBar.SelectGroup = 1

160:
Can I change the color of the control's border (EBN files)

local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.Appearance = 27966412 /*0x1aabbc8 | exDrop*/

159:
How do I specify the width of the item

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.HighlightItemType = 0
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.ItemWidth = 32
	var_Group.AddItem(Str(0))
	var_Group.AddItem(Str(1))
	var_Group.AddItem(Str(2))
	var_Group.AddItem(Str(3))
	var_Group.AddItem(Str(4))
	var_Group.AddItem(Str(5))
	var_Group.AddItem(Str(6))
	var_Group.AddItem(Str(7))
	var_Group.AddItem(Str(8))
	var_Group.AddItem(Str(9))
oListBar.Groups.Add("Group 2")

158:
How do I change the visual appearance of the item from the cursor, using EBN files

local oListBar,var_Appearance,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Appearance = oListBar.VisualAppearance
	var_Appearance.Add(1,"c:\exontrol\images\normal.ebn")
	var_Appearance.Add(22,"c:\exontrol\images\pushed.ebn")
	var_Appearance.Add(2,"CP:22 0 8 0 -8")
oListBar.Template = [Background(4) = 16777216] // oListBar.Background(4) = 0x1000000
oListBar.Template = [Background(5) = 33554432] // oListBar.Background(5) = 0x2000000
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.SelectItem = 1
oListBar.Groups.Add("Group 2")

157:
How do I change the visual appearance of the selected item, using EBN files

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.Template = [Background(4) = 16777216] // oListBar.Background(4) = 0x1000000
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.SelectItem = 1
oListBar.Groups.Add("Group 2")

156:
How do I select an item

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.SelectItemType = 2
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.SelectItem = 1
oListBar.Groups.Add("Group 2")

155:
How do I specify how a selected item shows

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.SelectItemType = 2
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
oListBar.Groups.Add("Group 2")

154:
How do I select or activate a group

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
var_Group = oListBar.Groups.Add("Group 2")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
oListBar.Groups.Add("Group 3")
oListBar.SelectGroup = 1

153:
Is there any option to display groups from left to right

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Orientation = 1
oListBar.Groups.Add("Group 1")
var_Group = oListBar.Groups.Add("Group 2")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
oListBar.Groups.Add("Group 3")
oListBar.SelectGroup = 1

152:
How do I change the foreground color of the selected group

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.MarkSelectGroup = true
oListBar.SelBackColorGroup = oListBar.BackColorGroup
oListBar.SelForeColorGroup = 0xff
oListBar.Groups.Add("Group 1")
var_Group = oListBar.Groups.Add("Group 2")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
oListBar.Groups.Add("Group 3")
oListBar.SelectGroup = 1

151:
How do I highlight the selected group

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.MarkSelectGroup = true
oListBar.SelBackColorGroup = 0x1000000
oListBar.SelForeColorGroup = 0x0
oListBar.Groups.Add("Group 1")
var_Group = oListBar.Groups.Add("Group 2")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
oListBar.Groups.Add("Group 3")
oListBar.SelectGroup = 1

150:
How do I change the visual appearance of the selected group, using your EBN files

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.MarkSelectGroup = true
oListBar.SelBackColorGroup = 0x1000000
oListBar.SelForeColorGroup = 0x0
oListBar.Groups.Add("Group 1")
var_Group = oListBar.Groups.Add("Group 2")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
oListBar.Groups.Add("Group 3")
oListBar.SelectGroup = 1

149:
How do I specify the background color for selected group

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.MarkSelectGroup = true
oListBar.SelBackColorGroup = 0xff
oListBar.Groups.Add("Group 1")
var_Group = oListBar.Groups.Add("Group 2")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
oListBar.Groups.Add("Group 3")
oListBar.SelectGroup = 1

148:
How can I indent an item

local oListBar,var_Group,var_Item,var_Item1,var_Item2,var_Item3,var_Item4,var_Item5

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	// var_Group.AddItem("Item 1").Alignment = 0
	var_Item = var_Group.AddItem("Item 1")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.Alignment = 0]
	endwith
	var_Item1 = var_Group.AddItem("Sub Item <b>1</b>")
		var_Item1.CaptionFormat = 1
		var_Item1.Alignment = 0
		var_Item1.Indent = 12
	var_Item2 = var_Group.AddItem("Sub Item <b>2</b>")
		var_Item2.CaptionFormat = 1
		var_Item2.Alignment = 0
		var_Item2.Indent = 12
	var_Item3 = var_Group.AddItem("Sub Item <b>3</b>")
		var_Item3.CaptionFormat = 1
		var_Item3.Alignment = 0
		var_Item3.Indent = 12
	var_Item4 = var_Group.AddItem("Sub Sub Item <b>3</b>")
		var_Item4.CaptionFormat = 1
		var_Item4.Alignment = 0
		var_Item4.Indent = 24
	var_Item5 = var_Group.AddItem("Item 2")
		var_Item5.Alignment = 0

147:
How can I use HTML format to display my item

local oListBar,var_Group,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	// var_Group.AddItem("<font Tahoma;11>T</font>his is an HTML <b>item</b> assigned to a <fgcolor=FF0000>group</fgcolor>").CaptionFormat = 1
	var_Item = var_Group.AddItem("<font Tahoma;11>T</font>his is an HTML <b>item</b> assigned to a <fgcolor=FF0000>group</fgcolor>")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.CaptionFormat = 1]
	endwith
	var_Group.AddItem("Item 3")

146:
How can I assign a tooltip to an item

local oListBar,var_Group,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	// var_Group.AddItem("ToolTip").ToolTip = "This is bit of text that should appear when the cursor hovers the <b>item</b>."
	var_Item = var_Group.AddItem("ToolTip")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.ToolTip = "This is bit of text that should appear when the cursor hovers the <b>item</b>."]
	endwith
	var_Group.AddItem("Item 3")

145:
How can I show or hide an item

local oListBar,var_Group,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	// var_Group.AddItem("Item 2").Visible = false
	var_Item = var_Group.AddItem("Item 2")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.Visible = False]
	endwith
	var_Group.AddItem("Item 3")

144:
How can I change the item's background color

local oListBar,var_Group,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Item = var_Group.AddItem("Item 2")
		var_Item.BackColor = 0xff
		var_Item.BackColor2 = 0xffffff
	var_Group.AddItem("Item 3")

143:
How can I change the item's background color

local oListBar,var_Group,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	// var_Group.AddItem("<bgcolor=FF0000>Item</bgcolor> 2").CaptionFormat = 1
	var_Item = var_Group.AddItem("<bgcolor=FF0000>Item</bgcolor> 2")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.CaptionFormat = 1]
	endwith
	var_Group.AddItem("Item 3")

142:
How can I change the item's foreground color

local oListBar,var_Group,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	// var_Group.AddItem("Item 2").ForeColor = 0xff
	var_Item = var_Group.AddItem("Item 2")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.ForeColor = 255]
	endwith
	var_Group.AddItem("Item 3")

141:
How can I change the visual appearance of the item using your EBN files

local oListBar,var_Group,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	// var_Group.AddItem("Item 2").BackColor = 0x1000000
	var_Item = var_Group.AddItem("Item 2")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.BackColor = 16777216]
	endwith
	var_Group.AddItem("Item 3")

140:
How can I change the item's background color

local oListBar,var_Group,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	// var_Group.AddItem("Item 2").BackColor = 0xff
	var_Item = var_Group.AddItem("Item 2")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.BackColor = 255]
	endwith
	var_Group.AddItem("Item 3")

139:
How can I get the group of the item

local oListBar,var_Group,var_Group1

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	// var_Group.AddItem("Item 2").Group.Bold = true
	var_Group1 = var_Group.AddItem("Item 2").Group
	with (oListBar)
		TemplateDef = [dim var_Group1]
		TemplateDef = var_Group1
		Template = [var_Group1.Bold = True]
	endwith
	var_Group.AddItem("Item 3")

138:
How can I get the index of the item

local oListBar,var_Group,var_Item,var_Item1,var_Item2

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Item = var_Group.AddItem("Item 1")
		var_Item.Caption = Str(var_Item.Index)
	var_Item1 = var_Group.AddItem("Item 2")
		var_Item1.Caption = Str(var_Item1.Index)
	var_Item2 = var_Group.AddItem("Item 3")
		var_Item2.Caption = Str(var_Item2.Index)

137:
How can I draw underlined an item

local oListBar,var_Group,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	// var_Group.AddItem("<u>Item</u> 2").CaptionFormat = 1
	var_Item = var_Group.AddItem("<u>Item</u> 2")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.CaptionFormat = 1]
	endwith
	var_Group.AddItem("Item 3")

136:
How can I draw underlined an item

local oListBar,var_Group,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	// var_Group.AddItem("Item 2").Underline = true
	var_Item = var_Group.AddItem("Item 2")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.Underline = True]
	endwith
	var_Group.AddItem("Item 3")

135:
How can I draw as strikeout an item

local oListBar,var_Group,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	// var_Group.AddItem("<s>Item</s> 2").CaptionFormat = 1
	var_Item = var_Group.AddItem("<s>Item</s> 2")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.CaptionFormat = 1]
	endwith
	var_Group.AddItem("Item 3")

134:
How can I draw as strikeout an item

local oListBar,var_Group,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	// var_Group.AddItem("Item 2").StrikeOut = true
	var_Item = var_Group.AddItem("Item 2")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.StrikeOut = True]
	endwith
	var_Group.AddItem("Item 3")

133:
How can I draw as italic an item

local oListBar,var_Group,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	// var_Group.AddItem("<i>Item</i> 2").CaptionFormat = 1
	var_Item = var_Group.AddItem("<i>Item</i> 2")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.CaptionFormat = 1]
	endwith
	var_Group.AddItem("Item 3")

132:
How can I draw as italic an item

local oListBar,var_Group,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	// var_Group.AddItem("Item 2").Italic = true
	var_Item = var_Group.AddItem("Item 2")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.Italic = True]
	endwith
	var_Group.AddItem("Item 3")

131:
How can I add a anchor or a hyperlink

local oListBar,var_Group,var_Item,var_Item1

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.HighlightItemType = 0
var_Group = oListBar.Groups.Add("Group 1")
	// var_Group.AddItem("Link <a1><b>1</b></a>").CaptionFormat = 1
	var_Item = var_Group.AddItem("Link <a1><b>1</b></a>")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.CaptionFormat = 1]
	endwith
	// var_Group.AddItem("Link <a2><b>2</b></a>").CaptionFormat = 1
	var_Item1 = var_Group.AddItem("Link <a2><b>2</b></a>")
	with (oListBar)
		TemplateDef = [dim var_Item1]
		TemplateDef = var_Item1
		Template = [var_Item1.CaptionFormat = 1]
	endwith

130:
How do I bold an item

local oListBar,var_Group,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	// var_Group.AddItem("<b>Item</a> 2").CaptionFormat = 1
	var_Item = var_Group.AddItem("<b>Item</a> 2")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.CaptionFormat = 1]
	endwith
	var_Group.AddItem("Item 3")

129:
How do I bold an item

local oListBar,var_Group,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	// var_Group.AddItem("Item 2").Bold = true
	var_Item = var_Group.AddItem("Item 2")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.Bold = True]
	endwith
	var_Group.AddItem("Item 3")

128:
How can I align an item

local oListBar,var_Group,var_Item,var_Item1,var_Item2,var_Item3

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.ItemHeight = 28
	// var_Group.AddItem("Left",1).Alignment = 0
	var_Item = var_Group.AddItem("Left",1)
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.Alignment = 0]
	endwith
	// var_Group.AddItem("Center",2).Alignment = 1
	var_Item1 = var_Group.AddItem("Center",2)
	with (oListBar)
		TemplateDef = [dim var_Item1]
		TemplateDef = var_Item1
		Template = [var_Item1.Alignment = 1]
	endwith
	// var_Group.AddItem("Right",3).Alignment = 2
	var_Item2 = var_Group.AddItem("Right",3)
	with (oListBar)
		TemplateDef = [dim var_Item2]
		TemplateDef = var_Item2
		Template = [var_Item2.Alignment = 2]
	endwith
	// var_Group.AddItem("Middle",1).Alignment = 4
	var_Item3 = var_Group.AddItem("Middle",1)
	with (oListBar)
		TemplateDef = [dim var_Item3]
		TemplateDef = var_Item3
		Template = [var_Item3.Alignment = 4]
	endwith

127:
How can I assign some extra data to an item
local oListBar,var_Group,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	// var_Group.AddItem("Item 1").UserData = "your data"
	var_Item = var_Group.AddItem("Item 1")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.UserData = "your data"]
	endwith
	var_Group.AddItem("Item 2")
	var_Group.AddItem("Item 3")

126:
How can I assign or display an icon for an item

local oListBar,var_Group,var_Item,var_Item1,var_Item2

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oListBar.Groups.Add("Group 1")
	// var_Group.AddItem("Item <img>1</img> text <img>2</img>").CaptionFormat = 1
	var_Item = var_Group.AddItem("Item <img>1</img> text <img>2</img>")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.CaptionFormat = 1]
	endwith
	// var_Group.AddItem("Item 2").Image = 2
	var_Item1 = var_Group.AddItem("Item 2")
	with (oListBar)
		TemplateDef = [dim var_Item1]
		TemplateDef = var_Item1
		Template = [var_Item1.Image = 2]
	endwith
	// var_Group.AddItem("Item 3").Image = 3
	var_Item2 = var_Group.AddItem("Item 3")
	with (oListBar)
		TemplateDef = [dim var_Item2]
		TemplateDef = var_Item2
		Template = [var_Item2.Image = 3]
	endwith

125:
How can I assign or display an icon for an item

local oListBar,var_Group,var_Item,var_Item1,var_Item2

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oListBar.Groups.Add("Group 1")
	// var_Group.AddItem("Item 1").Image = 1
	var_Item = var_Group.AddItem("Item 1")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.Image = 1]
	endwith
	// var_Group.AddItem("Item 2").Image = 2
	var_Item1 = var_Group.AddItem("Item 2")
	with (oListBar)
		TemplateDef = [dim var_Item1]
		TemplateDef = var_Item1
		Template = [var_Item1.Image = 2]
	endwith
	// var_Group.AddItem("Item 3").Image = 3
	var_Item2 = var_Group.AddItem("Item 3")
	with (oListBar)
		TemplateDef = [dim var_Item2]
		TemplateDef = var_Item2
		Template = [var_Item2.Image = 3]
	endwith

124:
How can I assign or display an icon for an item

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1",1)
	var_Group.AddItem("Item 2",2)
	var_Group.AddItem("Item 3",3)

123:
How can I change the item's position

local oListBar,var_Group,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	// var_Group.AddItem("Item 3").Position = 0
	var_Item = var_Group.AddItem("Item 3")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.Position = 0]
	endwith

122:
How can I change the item's caption

local oListBar,var_Group,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	// var_Group.AddItem("Item 2").Caption = "new caption"
	var_Item = var_Group.AddItem("Item 2")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.Caption = "new caption"]
	endwith
	var_Group.AddItem("Item 3")

121:
How do I add new items

local oListBar,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
// oListBar.Groups.Add("Group 1").AddItem("Item 1").Bold = true
var_Item = oListBar.Groups.Add("Group 1").AddItem("Item 1")
with (oListBar)
	TemplateDef = [dim var_Item]
	TemplateDef = var_Item
	Template = [var_Item.Bold = True]
endwith

120:
How do I assign a group to a set in the shortcut bar

local oListBar,var_Group,var_Group1,var_Group2,var_Group3

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = true
// oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group1]
	TemplateDef = var_Group1
	Template = [var_Group1.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
with (oListBar)
	TemplateDef = [dim var_Group2]
	TemplateDef = var_Group2
	Template = [var_Group2.Shortcut = "Set <img>2</img>"]
endwith
// oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
with (oListBar)
	TemplateDef = [dim var_Group3]
	TemplateDef = var_Group3
	Template = [var_Group3.Shortcut = "Set <img>2</img>"]
endwith

119:
How can I assign a tooltip to a group

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.ToolTipDelay = 1
// oListBar.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the <b>group</b>."
var_Group = oListBar.Groups.Add("ToolTip")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.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

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.GroupHeight = 44
oListBar.Template = [HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"] // oListBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
// oListBar.Groups.Add("<img>pic1</img> <s>HTML</s> <img>1</img> <b>format</b>").CaptionFormat = 1
var_Group = oListBar.Groups.Add("<img>pic1</img> <s>HTML</s> <img>1</img> <b>format</b>")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.CaptionFormat = 1]
endwith

117:
How can I change the group's background color ( gradient )

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
var_Group = oListBar.Groups.Add("Group 2")
	var_Group.BackColor = 0xff
	var_Group.BackColor2 = 0xffffff
oListBar.Groups.Add("Group 3")

116:
How can I specify the height of the items

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
var_Group = oListBar.Groups.Add("Group 2")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.ItemHeight = 13
oListBar.Groups.Add("Group 3")
oListBar.SelectGroup = 1

115:
How do I put a picture on the group's background
local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
var_Group = oListBar.Groups.Add("Group 2")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.Picture = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	var_Group.PictureDisplay = 2
oListBar.Groups.Add("Group 3")
oListBar.SelectGroup = 1

114:
How do I put a picture on the group's background
local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
var_Group = oListBar.Groups.Add("Group 2")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.Picture = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oListBar.Groups.Add("Group 3")
oListBar.SelectGroup = 1

113:
How can I change the foreground color for items

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
var_Group = oListBar.Groups.Add("Group 2")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.ForeColorList = 0xff
oListBar.Groups.Add("Group 3")
oListBar.SelectGroup = 1

112:
How can I change the background color for the items

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
var_Group = oListBar.Groups.Add("Group 2")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.BackColorList = 0xff
oListBar.Groups.Add("Group 3")
oListBar.SelectGroup = 1

111:
How can I change the group's foreground color

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
// oListBar.Groups.Add("<fgcolor=FF0000>Group</fgcolor> 2").CaptionFormat = 1
var_Group = oListBar.Groups.Add("<fgcolor=FF0000>Group</fgcolor> 2")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.CaptionFormat = 1]
endwith
oListBar.Groups.Add("Group 3")

110:
How can I change the group's foreground color

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
// oListBar.Groups.Add("Group 2").ForeColor = 0xff
var_Group = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.ForeColor = 255]
endwith
oListBar.Groups.Add("Group 3")

109:
How can I change the group's background color

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
// oListBar.Groups.Add("<bgcolor=FF0000>Group</bgcolor> 2").CaptionFormat = 1
var_Group = oListBar.Groups.Add("<bgcolor=FF0000>Group</bgcolor> 2")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.CaptionFormat = 1]
endwith
oListBar.Groups.Add("Group 3")

108:
How can I change the visual appearance of the group, using EBN files

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.GroupAppearance = 1
oListBar.Groups.Add("Group 1")
// oListBar.Groups.Add("Group 2").BackColor = 0x1000000
var_Group = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.BackColor = 16777216]
endwith
oListBar.Groups.Add("Group 3")

107:
How can I change the group's background color

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
// oListBar.Groups.Add("Group 2").BackColor = 0xff
var_Group = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.BackColor = 255]
endwith
oListBar.Groups.Add("Group 3")

106:
How do I get the index of the group

local oListBar,var_Group,var_Group1,var_Group2

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.Caption = Str(var_Group.Index)
var_Group1 = oListBar.Groups.Add("Group 2")
	var_Group1.Caption = Str(var_Group1.Index)
var_Group2 = oListBar.Groups.Add("Group 3")
	var_Group2.Caption = Str(var_Group2.Index)

105:
How can I underline the group's name

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
// oListBar.Groups.Add("<u>Group</u> 1").CaptionFormat = 1
var_Group = oListBar.Groups.Add("<u>Group</u> 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.CaptionFormat = 1]
endwith

104:
How can I underline the group's name

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
// oListBar.Groups.Add("Group 2").Underline = true
var_Group = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Underline = True]
endwith
oListBar.Groups.Add("Group 3")

103:
How can I show the group's name as strikeout

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
// oListBar.Groups.Add("<s>Group</s> 1").CaptionFormat = 1
var_Group = oListBar.Groups.Add("<s>Group</s> 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.CaptionFormat = 1]
endwith

102:
How can I show the group's name as strikeout

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
// oListBar.Groups.Add("Group 2").StrikeOut = true
var_Group = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.StrikeOut = True]
endwith
oListBar.Groups.Add("Group 3")

101:
How can I draw as italic the group's name

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
// oListBar.Groups.Add("<i>Group</i> 1").CaptionFormat = 1
var_Group = oListBar.Groups.Add("<i>Group</i> 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.CaptionFormat = 1]
endwith

100:
How do I draw italic the group's name

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
// oListBar.Groups.Add("Group 2").Italic = true
var_Group = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Italic = True]
endwith
oListBar.Groups.Add("Group 3")

99:
How do I bold the group's name

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
// oListBar.Groups.Add("<b>Group</b> 1").CaptionFormat = 1
var_Group = oListBar.Groups.Add("<b>Group</b> 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.CaptionFormat = 1]
endwith

98:
How do I bold the group's name

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
// oListBar.Groups.Add("Group 2").Bold = true
var_Group = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Bold = True]
endwith
oListBar.Groups.Add("Group 3")

97:
How can I align the icon in the group's caption

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oListBar.Groups.Add("Group 1 <img>1</img>")
	var_Group.CaptionFormat = 1
	var_Group.Alignment = 2

96:
How can I align the group's name

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
// oListBar.Groups.Add("Group 1").Alignment = 2
var_Group = oListBar.Groups.Add("Group 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Alignment = 2]
endwith

95:
How can I align the group's name

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
// oListBar.Groups.Add("Group 1").Alignment = 0
var_Group = oListBar.Groups.Add("Group 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Alignment = 0]
endwith

94:
How can I assign some extra data to a group
local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
// oListBar.Groups.Add("Group 1").UserData = "your data"
var_Group = oListBar.Groups.Add("Group 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.UserData = "your data"]
endwith

93:
How can I display an icon in the group's caption

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
// oListBar.Groups.Add("Group <img>1</img> text <img>2</img>").CaptionFormat = 1
var_Group = oListBar.Groups.Add("Group <img>1</img> text <img>2</img>")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.CaptionFormat = 1]
endwith

92:
How can I display an icon in the group's caption

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
// oListBar.Groups.Add("Group 1").Image = 1
var_Group = oListBar.Groups.Add("Group 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Image = 1]
endwith

91:
How can I access an item by its position

local oListBar,var_Group,var_Item,var_Item1

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	// var_Group.AddItem("Item 3").Position = 0
	var_Item = var_Group.AddItem("Item 3")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.Position = 0]
	endwith
	// var_Group.ItemByPos(1).Bold = true
	var_Item1 = var_Group.ItemByPos(1)
	with (oListBar)
		TemplateDef = [dim var_Item1]
		TemplateDef = var_Item1
		Template = [var_Item1.Bold = True]
	endwith

90:
How can I change the position of a group

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")
oListBar.Groups.Add("Group 2")
// oListBar.Groups.Add("Group 3").Position = 0
var_Group = oListBar.Groups.Add("Group 3")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Position = 0]
endwith

89:
How can I change the group's caption

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.AddItem("Item 3")
	var_Group.Caption = "new caption"

88:
How can I get the number or count of items in a group

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.AddItem("Item 3")
	var_Group.AddItem(Str(var_Group.Count))

87:
How can I access an item in a group

local oListBar,var_Group,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.AddItem("Item 3")
	// var_Group.Item(1).Bold = true
	var_Item = var_Group.Item(1)
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.Bold = True]
	endwith

86:
How can I remove all items, from a group
local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.AddItem("Item 3")
	var_Group.Clear()

85:
How can I remove an item, from a group

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.AddItem("Item 3")
	var_Group.RemoveItem(1)

84:
How can I add a new item to a group

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1",1)

83:
How can I add a new item to a group

local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1").AddItem("Item 1")

82:
How can I add a new item to a group

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")

81:
How can I get the groups as they are listed
local oListBar,var_Groups

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Groups = oListBar.Groups
	var_Groups.Add("Group 1")
	var_Groups.Add("Group 2")
	var_Groups.Add("Group 3")

80:
How can I access a group by position

local oListBar,var_Group,var_Groups

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Groups = oListBar.Groups
	var_Groups.Add("Group 1")
	var_Groups.Add("Group 2")
	var_Groups.Add("Group 3")
	// var_Groups.ItemByPos(1).Bold = true
	var_Group = var_Groups.ItemByPos(1)
	with (oListBar)
		TemplateDef = [dim var_Group]
		TemplateDef = var_Group
		Template = [var_Group.Bold = True]
	endwith

79:
How can I access a group

local oListBar,var_Group,var_Groups

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Groups = oListBar.Groups
	var_Groups.Add("Group 1")
	var_Groups.Add("Group 2")
	var_Groups.Add("Group 3")
	// var_Groups.Item(1).Bold = true
	var_Group = var_Groups.Item(1)
	with (oListBar)
		TemplateDef = [dim var_Group]
		TemplateDef = var_Group
		Template = [var_Group.Bold = True]
	endwith

78:
How can I clear the groups collection
local oListBar,var_Groups

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Groups = oListBar.Groups
	var_Groups.Add("Group 1")
	var_Groups.Add("Group 2")
	var_Groups.Add("Group 3")
	var_Groups.Clear()

77:
How can I remove a group

local oListBar,var_Groups

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Groups = oListBar.Groups
	var_Groups.Add("Group 1")
	var_Groups.Add("Group 2")
	var_Groups.Add("Group 3")
	var_Groups.Remove(1)

76:
How can I add a group

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")

75:
How do I count the number of groups

local oListBar,var_Groups

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
var_Groups = oListBar.Groups
	var_Groups.Add("Group 1")
	var_Groups.Add("Group 2")
	var_Groups.Add("Group 3")
	var_Groups.Add(Str(var_Groups.Count))

74:
How can I display pictures with a custom size, instead icons, in the shortcut bar

local oListBar,var_Group,var_Group1,var_Group2,var_Group3

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.ShowShortcutBar = true
// oListBar.Groups.Add("Group 1").Shortcut = "Set 1"
var_Group = oListBar.Groups.Add("Group 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Shortcut = "Set 1"]
endwith
// oListBar.Groups.Add("Group 2").Shortcut = "Set 1"
var_Group1 = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group1]
	TemplateDef = var_Group1
	Template = [var_Group1.Shortcut = "Set 1"]
endwith
// oListBar.Groups.Add("Group 3").Shortcut = "Set 2"
var_Group2 = oListBar.Groups.Add("Group 3")
with (oListBar)
	TemplateDef = [dim var_Group2]
	TemplateDef = var_Group2
	Template = [var_Group2.Shortcut = "Set 2"]
endwith
// oListBar.Groups.Add("Group 4").Shortcut = "Set 2"
var_Group3 = oListBar.Groups.Add("Group 4")
with (oListBar)
	TemplateDef = [dim var_Group3]
	TemplateDef = var_Group3
	Template = [var_Group3.Shortcut = "Set 2"]
endwith
oListBar.Template = [ShortcutPicture("Set 1") = Me.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")] // oListBar.ShortcutPicture("Set 1") = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oListBar.Template = [ShortcutPicture("Set 2") = Me.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")] // oListBar.ShortcutPicture("Set 2") = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
oListBar.ShortcutPictureWidth = 32
oListBar.ShortcutPictureHeight = 32
oListBar.ShortcutBarHeight = 32

73:
How can I display pictures instead icons, in the shortcut bar

local oListBar,var_Group,var_Group1,var_Group2,var_Group3

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.ShowShortcutBar = true
// oListBar.Groups.Add("Group 1").Shortcut = "Set 1"
var_Group = oListBar.Groups.Add("Group 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Shortcut = "Set 1"]
endwith
// oListBar.Groups.Add("Group 2").Shortcut = "Set 1"
var_Group1 = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group1]
	TemplateDef = var_Group1
	Template = [var_Group1.Shortcut = "Set 1"]
endwith
// oListBar.Groups.Add("Group 3").Shortcut = "Set 2"
var_Group2 = oListBar.Groups.Add("Group 3")
with (oListBar)
	TemplateDef = [dim var_Group2]
	TemplateDef = var_Group2
	Template = [var_Group2.Shortcut = "Set 2"]
endwith
// oListBar.Groups.Add("Group 4").Shortcut = "Set 2"
var_Group3 = oListBar.Groups.Add("Group 4")
with (oListBar)
	TemplateDef = [dim var_Group3]
	TemplateDef = var_Group3
	Template = [var_Group3.Shortcut = "Set 2"]
endwith
oListBar.Template = [ShortcutPicture("Set 1") = Me.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")] // oListBar.ShortcutPicture("Set 1") = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oListBar.Template = [ShortcutPicture("Set 2") = Me.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")] // oListBar.ShortcutPicture("Set 2") = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
oListBar.ShortcutBarHeight = 44

72:
How can I change the visual appearance of the shortcut bar, using EBN files

local oListBar,var_Group,var_Group1,var_Group2,var_Group3

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = true
// oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group1]
	TemplateDef = var_Group1
	Template = [var_Group1.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
with (oListBar)
	TemplateDef = [dim var_Group2]
	TemplateDef = var_Group2
	Template = [var_Group2.Shortcut = "Set <img>2</img>"]
endwith
// oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
with (oListBar)
	TemplateDef = [dim var_Group3]
	TemplateDef = var_Group3
	Template = [var_Group3.Shortcut = "Set <img>2</img>"]
endwith
oListBar.ShortcutResizeBackColor = 0x2000000
oListBar.ShortcutBarSelCaptionBackColor = 0x1000000
oListBar.ShortcutBarSelBackColor = 0x1000000
oListBar.BackColorGroup = 0x1000000

71:
How can I change the visual appearance of the separator between groups and the shortcut bar, using your EBN files

local oListBar,var_Group,var_Group1,var_Group2,var_Group3

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = true
// oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group1]
	TemplateDef = var_Group1
	Template = [var_Group1.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
with (oListBar)
	TemplateDef = [dim var_Group2]
	TemplateDef = var_Group2
	Template = [var_Group2.Shortcut = "Set <img>2</img>"]
endwith
// oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
with (oListBar)
	TemplateDef = [dim var_Group3]
	TemplateDef = var_Group3
	Template = [var_Group3.Shortcut = "Set <img>2</img>"]
endwith
oListBar.ShortcutResizeBackColor = 0x1000000
oListBar.ExpandShortcutCount = 1

70:
How do I change the background color of the separator between groups and the shortcut bar

local oListBar,var_Group,var_Group1,var_Group2,var_Group3

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = true
// oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group1]
	TemplateDef = var_Group1
	Template = [var_Group1.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
with (oListBar)
	TemplateDef = [dim var_Group2]
	TemplateDef = var_Group2
	Template = [var_Group2.Shortcut = "Set <img>2</img>"]
endwith
// oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
with (oListBar)
	TemplateDef = [dim var_Group3]
	TemplateDef = var_Group3
	Template = [var_Group3.Shortcut = "Set <img>2</img>"]
endwith
oListBar.ShortcutResizeBackColor = 0xff
oListBar.ExpandShortcutCount = 1

69:
How can I change the visual appearance of the shortcut bar, using your EBN files

local oListBar,var_Group,var_Group1,var_Group2,var_Group3

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = true
// oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group1]
	TemplateDef = var_Group1
	Template = [var_Group1.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
with (oListBar)
	TemplateDef = [dim var_Group2]
	TemplateDef = var_Group2
	Template = [var_Group2.Shortcut = "Set <img>2</img>"]
endwith
// oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
with (oListBar)
	TemplateDef = [dim var_Group3]
	TemplateDef = var_Group3
	Template = [var_Group3.Shortcut = "Set <img>2</img>"]
endwith
oListBar.ShortcutBarSelCaptionBackColor = 0x1000000
oListBar.ExpandShortcutCount = 1

68:
How do I change the selection background color in the shortcut bar

local oListBar,var_Group,var_Group1,var_Group2,var_Group3

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = true
// oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group1]
	TemplateDef = var_Group1
	Template = [var_Group1.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
with (oListBar)
	TemplateDef = [dim var_Group2]
	TemplateDef = var_Group2
	Template = [var_Group2.Shortcut = "Set <img>2</img>"]
endwith
// oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
with (oListBar)
	TemplateDef = [dim var_Group3]
	TemplateDef = var_Group3
	Template = [var_Group3.Shortcut = "Set <img>2</img>"]
endwith
oListBar.ShortcutBarSelCaptionBackColor = 0xff
oListBar.ExpandShortcutCount = 1

67:
How can I change the visual appearance of the shortcut bar, using your EBN files

local oListBar,var_Group,var_Group1,var_Group2,var_Group3

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = true
// oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group1]
	TemplateDef = var_Group1
	Template = [var_Group1.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
with (oListBar)
	TemplateDef = [dim var_Group2]
	TemplateDef = var_Group2
	Template = [var_Group2.Shortcut = "Set <img>2</img>"]
endwith
// oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
with (oListBar)
	TemplateDef = [dim var_Group3]
	TemplateDef = var_Group3
	Template = [var_Group3.Shortcut = "Set <img>2</img>"]
endwith
oListBar.ShortcutBarSelBackColor = 0x1000000

66:
How do I change the selection background color in the shortcut bar

local oListBar,var_Group,var_Group1,var_Group2,var_Group3

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = true
// oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group1]
	TemplateDef = var_Group1
	Template = [var_Group1.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
with (oListBar)
	TemplateDef = [dim var_Group2]
	TemplateDef = var_Group2
	Template = [var_Group2.Shortcut = "Set <img>2</img>"]
endwith
// oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
with (oListBar)
	TemplateDef = [dim var_Group3]
	TemplateDef = var_Group3
	Template = [var_Group3.Shortcut = "Set <img>2</img>"]
endwith
oListBar.ShortcutBarSelBackColor = 0xff

65:
How can I change the visual appearance of the shortcut bar, using your EBN files

local oListBar,var_Group,var_Group1,var_Group2,var_Group3

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = true
// oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group1]
	TemplateDef = var_Group1
	Template = [var_Group1.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
with (oListBar)
	TemplateDef = [dim var_Group2]
	TemplateDef = var_Group2
	Template = [var_Group2.Shortcut = "Set <img>2</img>"]
endwith
// oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
with (oListBar)
	TemplateDef = [dim var_Group3]
	TemplateDef = var_Group3
	Template = [var_Group3.Shortcut = "Set <img>2</img>"]
endwith
oListBar.ShortcutBarBackColor = 0x1000000

64:
How do I change the background color in the shortcut bar

local oListBar,var_Group,var_Group1,var_Group2,var_Group3

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = true
// oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group1]
	TemplateDef = var_Group1
	Template = [var_Group1.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
with (oListBar)
	TemplateDef = [dim var_Group2]
	TemplateDef = var_Group2
	Template = [var_Group2.Shortcut = "Set <img>2</img>"]
endwith
// oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
with (oListBar)
	TemplateDef = [dim var_Group3]
	TemplateDef = var_Group3
	Template = [var_Group3.Shortcut = "Set <img>2</img>"]
endwith
oListBar.ShortcutBarBackColor = 0xff

63:
How can I programmatically change expand or collapse the shortcut bar

local oListBar,var_Group,var_Group1,var_Group2,var_Group3

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = true
// oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group1]
	TemplateDef = var_Group1
	Template = [var_Group1.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
with (oListBar)
	TemplateDef = [dim var_Group2]
	TemplateDef = var_Group2
	Template = [var_Group2.Shortcut = "Set <img>2</img>"]
endwith
// oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
with (oListBar)
	TemplateDef = [dim var_Group3]
	TemplateDef = var_Group3
	Template = [var_Group3.Shortcut = "Set <img>2</img>"]
endwith
oListBar.ExpandShortcutCount = 1

62:
How do I change the icon for the expanding or collapsing the shortcut bar

local oListBar,var_Group,var_Group1,var_Group2,var_Group3

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = true
// oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group1]
	TemplateDef = var_Group1
	Template = [var_Group1.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
with (oListBar)
	TemplateDef = [dim var_Group2]
	TemplateDef = var_Group2
	Template = [var_Group2.Shortcut = "Set <img>2</img>"]
endwith
// oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
with (oListBar)
	TemplateDef = [dim var_Group3]
	TemplateDef = var_Group3
	Template = [var_Group3.Shortcut = "Set <img>2</img>"]
endwith
oListBar.ExpandShortcutImage = 3

61:
How can I enable or disable resizing the shortcut bar

local oListBar,var_Group,var_Group1,var_Group2,var_Group3

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = true
// oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group1]
	TemplateDef = var_Group1
	Template = [var_Group1.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
with (oListBar)
	TemplateDef = [dim var_Group2]
	TemplateDef = var_Group2
	Template = [var_Group2.Shortcut = "Set <img>2</img>"]
endwith
// oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
with (oListBar)
	TemplateDef = [dim var_Group3]
	TemplateDef = var_Group3
	Template = [var_Group3.Shortcut = "Set <img>2</img>"]
endwith
oListBar.ExpandShortcutCount = 1
oListBar.AllowResizeShortcutBar = false

60:
How do I specify the height of the shortcut bar

local oListBar,var_Group,var_Group1,var_Group2,var_Group3

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = true
// oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group1]
	TemplateDef = var_Group1
	Template = [var_Group1.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
with (oListBar)
	TemplateDef = [dim var_Group2]
	TemplateDef = var_Group2
	Template = [var_Group2.Shortcut = "Set <img>2</img>"]
endwith
// oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
with (oListBar)
	TemplateDef = [dim var_Group3]
	TemplateDef = var_Group3
	Template = [var_Group3.Shortcut = "Set <img>2</img>"]
endwith
oListBar.ExpandShortcutCount = 1
oListBar.ShortcutBarHeight = 16

59:
How do I select a shortcut

local oListBar,var_Group,var_Group1,var_Group2,var_Group3

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = true
// oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group1]
	TemplateDef = var_Group1
	Template = [var_Group1.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
with (oListBar)
	TemplateDef = [dim var_Group2]
	TemplateDef = var_Group2
	Template = [var_Group2.Shortcut = "Set <img>2</img>"]
endwith
// oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
with (oListBar)
	TemplateDef = [dim var_Group3]
	TemplateDef = var_Group3
	Template = [var_Group3.Shortcut = "Set <img>2</img>"]
endwith
oListBar.ExpandShortcutCount = 1
oListBar.SelectShortcut = "Set <img>2</img>"

58:
How do I show or hide the shortcut bar

local oListBar,var_Group,var_Group1,var_Group2,var_Group3

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = true
// oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
with (oListBar)
	TemplateDef = [dim var_Group1]
	TemplateDef = var_Group1
	Template = [var_Group1.Shortcut = "Set <img>1</img>"]
endwith
// oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
with (oListBar)
	TemplateDef = [dim var_Group2]
	TemplateDef = var_Group2
	Template = [var_Group2.Shortcut = "Set <img>2</img>"]
endwith
// oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
with (oListBar)
	TemplateDef = [dim var_Group3]
	TemplateDef = var_Group3
	Template = [var_Group3.Shortcut = "Set <img>2</img>"]
endwith
oListBar.ExpandShortcutCount = 1

57:
How do I access the groups collection
local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Groups.Add("Group 1")

56:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Template = [FormatAnchor(False) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"] // oListBar.FormatAnchor(false) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
oListBar.HighlightItemType = 0
// oListBar.Groups.Add("Group <a1><b>1</b></a>").CaptionFormat = 1
var_Group = oListBar.Groups.Add("Group <a1><b>1</b></a>")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.CaptionFormat = 1]
endwith

55:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

local oListBar,var_Group,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Template = [FormatAnchor(False) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"] // oListBar.FormatAnchor(false) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
oListBar.HighlightItemType = 0
var_Group = oListBar.Groups.Add("Group 1")
	// var_Group.AddItem("Item <a1><b>1</b></a>").CaptionFormat = 1
	var_Item = var_Group.AddItem("Item <a1><b>1</b></a>")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.CaptionFormat = 1]
	endwith

54:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.HighlightItemType = 0
oListBar.Template = [FormatAnchor(True) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"] // oListBar.FormatAnchor(true) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
// oListBar.Groups.Add("Group <a1><b>1</b></a>").CaptionFormat = 1
var_Group = oListBar.Groups.Add("Group <a1><b>1</b></a>")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.CaptionFormat = 1]
endwith

53:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

local oListBar,var_Group,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.HighlightItemType = 0
oListBar.Template = [FormatAnchor(True) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"] // oListBar.FormatAnchor(true) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
var_Group = oListBar.Groups.Add("Group 1")
	// var_Group.AddItem("Item <a1><b>1</b></a>").CaptionFormat = 1
	var_Item = var_Group.AddItem("Item <a1><b>1</b></a>")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.CaptionFormat = 1]
	endwith

52:
How can I add several pictures and icons to an item

local oListBar,var_Group,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.Template = [HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"] // oListBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oListBar.Template = [HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"] // oListBar.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.ItemHeight = 48
	var_Item = var_Group.AddItem("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
		var_Item.Image = 2
		var_Item.CaptionFormat = 1

51:
How can I add several pictures and icons to an item

local oListBar,var_Group,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.Template = [HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"] // oListBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oListBar.Template = [HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"] // oListBar.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.ItemHeight = 48
	var_Item = var_Group.AddItem("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
		var_Item.Image = 2
		var_Item.CaptionFormat = 1

50:
How can I add several pictures to an item

local oListBar,var_Group,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Template = [HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"] // oListBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oListBar.Template = [HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"] // oListBar.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.ItemHeight = 48
	// var_Group.AddItem("<img>pic1</img> text <img>pic2</img>").CaptionFormat = 1
	var_Item = var_Group.AddItem("<img>pic1</img> text <img>pic2</img>")
	with (oListBar)
		TemplateDef = [dim var_Item]
		TemplateDef = var_Item
		Template = [var_Item.CaptionFormat = 1]
	endwith

49:
How can I add several pictures to a group

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.Template = [HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"] // oListBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oListBar.Template = [HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"] // oListBar.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
oListBar.GroupHeight = 48
var_Group = oListBar.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>")
	var_Group.Image = 2
	var_Group.CaptionFormat = 1
	var_Group.Picture = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")

48:
How can I add several pictures and icons to a group

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.Template = [HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"] // oListBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oListBar.Template = [HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"] // oListBar.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
oListBar.GroupHeight = 48
// oListBar.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
var_Group = oListBar.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>")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.CaptionFormat = 1]
endwith

47:
How can I add several pictures to a group

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Template = [HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"] // oListBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oListBar.Template = [HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"] // oListBar.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
oListBar.GroupHeight = 48
var_Group = oListBar.Groups.Add("<img>pic1</img> text <img>pic2</img>")
	var_Group.CaptionFormat = 1
	var_Group.Picture = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")

46:
How can I add several pictures to a group

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Template = [HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"] // oListBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oListBar.Template = [HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"] // oListBar.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
oListBar.GroupHeight = 48
// oListBar.Groups.Add("<img>pic1</img> text <img>pic2</img>").CaptionFormat = 1
var_Group = oListBar.Groups.Add("<img>pic1</img> text <img>pic2</img>")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.CaptionFormat = 1]
endwith

45:
How do I force refreshing the control
local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.BeginUpdate()
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
oListBar.EndUpdate()

44:
I've seen that the width of the tooltip is variable. Can I make it larger

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.ToolTipWidth = 328
// oListBar.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
var_Group = oListBar.Groups.Add("ToolTip")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.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

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.ToolTipPopDelay = 10000
// oListBar.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
var_Group = oListBar.Groups.Add("ToolTip")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.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

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.ToolTipDelay = 1
oListBar.ToolTipWidth = 364
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.Template = [Background(64) = 16777216] // oListBar.Background(64) = 0x1000000
// oListBar.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
var_Group = oListBar.Groups.Add("ToolTip")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.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

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.ToolTipDelay = 1
oListBar.ToolTipWidth = 364
oListBar.Template = [Background(65) = 255] // oListBar.Background(65) = 0xff
// oListBar.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
var_Group = oListBar.Groups.Add("ToolTip")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.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

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.ToolTipDelay = 1
oListBar.ToolTipWidth = 364
// oListBar.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>group</fgcolor>"
var_Group = oListBar.Groups.Add("ToolTip")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.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

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.ToolTipDelay = 1
oListBar.ToolTipWidth = 364
oListBar.Template = [Background(66) = 255] // oListBar.Background(66) = 0xff
// oListBar.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
var_Group = oListBar.Groups.Add("ToolTip")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.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

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.ToolTipDelay = 1
oListBar.ToolTipWidth = 364
// oListBar.Groups.Add("ToolTip").ToolTip = "<fgcolor=FF0000>This is a bit of text that's shown when the cursor hovers the group.</fgcolor>"
var_Group = oListBar.Groups.Add("ToolTip")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.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

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.ToolTipDelay = 1
oListBar.ToolTipWidth = 364
// oListBar.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"
var_Group = oListBar.Groups.Add("ToolTip")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.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

local oListBar,var_Group,var_StdFont

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.ToolTipDelay = 1
var_StdFont = oListBar.ToolTipFont
	var_StdFont.Name = "Tahoma"
	var_StdFont.Size = 14
oListBar.ToolTipWidth = 364
// oListBar.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
var_Group = oListBar.Groups.Add("ToolTip")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.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
local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.ToolTipDelay = 0
// oListBar.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
var_Group = oListBar.Groups.Add("ToolTip")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.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
local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.ToolTipDelay = 1
// oListBar.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
var_Group = oListBar.Groups.Add("ToolTip")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.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

local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.ExecuteTemplate("Groups.Add(`Group 1`)").AddItem("Item 1")

32:
How do I call your x-script language

local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Template = "BackColor = RGB(255,0,0)"

31:
How do I remove the control's borders
local oListBar,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.BeginUpdate()
oListBar.Appearance = 0
oListBar.BorderWidth = 0
oListBar.BorderHeight = 0
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
// oListBar.Groups.Add("Group 1").AddItem("Item 1").Image = 1
var_Item = oListBar.Groups.Add("Group 1").AddItem("Item 1")
with (oListBar)
	TemplateDef = [dim var_Item]
	TemplateDef = var_Item
	Template = [var_Item.Image = 1]
endwith
oListBar.Groups.Add("Group 2").AddItem("Item 2")
oListBar.EndUpdate()

30:
How do I specify width or the height of the control's borders
local oListBar,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.BeginUpdate()
oListBar.Appearance = 0
oListBar.BorderWidth = 0
oListBar.BorderHeight = 0
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
// oListBar.Groups.Add("Group 1").AddItem("Item 1").Image = 1
var_Item = oListBar.Groups.Add("Group 1").AddItem("Item 1")
with (oListBar)
	TemplateDef = [dim var_Item]
	TemplateDef = var_Item
	Template = [var_Item.Image = 1]
endwith
oListBar.Groups.Add("Group 2").AddItem("Item 2")
oListBar.EndUpdate()

29:
How do I access the item from the point
local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject

28:
How do I access the group from the point
local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject

27:
How do I specify to highlight the items in the group, when the cursor hovers the item

local oListBar,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.BeginUpdate()
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.HighlightItemType = 3
// oListBar.Groups.Add("Group 1").AddItem("Item 1").Image = 1
var_Item = oListBar.Groups.Add("Group 1").AddItem("Item 1")
with (oListBar)
	TemplateDef = [dim var_Item]
	TemplateDef = var_Item
	Template = [var_Item.Image = 1]
endwith
oListBar.Groups.Add("Group 2").AddItem("Item 2")
oListBar.EndUpdate()

26:
How do I specify to highlight the items in the group, when the cursor hovers the item

local oListBar,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.BeginUpdate()
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.HighlightItemType = 2
// oListBar.Groups.Add("Group 1").AddItem("Item 1").Image = 1
var_Item = oListBar.Groups.Add("Group 1").AddItem("Item 1")
with (oListBar)
	TemplateDef = [dim var_Item]
	TemplateDef = var_Item
	Template = [var_Item.Image = 1]
endwith
oListBar.Groups.Add("Group 2").AddItem("Item 2")
oListBar.EndUpdate()

25:
How do I specify to highlight the items in the group, when the cursor hovers the item

local oListBar,var_Item

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.BeginUpdate()
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.HighlightItemType = 1
// oListBar.Groups.Add("Group 1").AddItem("Item 1").Image = 1
var_Item = oListBar.Groups.Add("Group 1").AddItem("Item 1")
with (oListBar)
	TemplateDef = [dim var_Item]
	TemplateDef = var_Item
	Template = [var_Item.Image = 1]
endwith
oListBar.Groups.Add("Group 2").AddItem("Item 2")
oListBar.EndUpdate()

24:
How do I specify the way the control highlight the items in the group
local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.BeginUpdate()
oListBar.HighlightItemType = 0
oListBar.Groups.Add("Group 1").AddItem("Item 1")
oListBar.Groups.Add("Group 2").AddItem("Item 2")
oListBar.EndUpdate()

23:
Is there any function to avoid painting the control while adding multiple items and groups
local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.BeginUpdate()
oListBar.Groups.Add("Group 1").AddItem("Item 1")
oListBar.Groups.Add("Group 2").AddItem("Item 2")
oListBar.EndUpdate()

22:
How do I decrease the delay to scroll a group
local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.DelayScroll = 0
oListBar.Groups.Add("Group 1").AddItem("Item 1")
oListBar.Groups.Add("Group 2").AddItem("Item 2")

21:
How do I display icons

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.SmallIcons = true
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
// oListBar.Groups.Add("Group 1").Image = 1
var_Group = oListBar.Groups.Add("Group 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Image = 1]
endwith

20:
How do I display 32x32 icons

local oListBar,var_Group

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.SmallIcons = false
oListBar.GroupHeight = 36
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
// oListBar.Groups.Add("Group 1").Image = 1
var_Group = oListBar.Groups.Add("Group 1")
with (oListBar)
	TemplateDef = [dim var_Group]
	TemplateDef = var_Group
	Template = [var_Group.Image = 1]
endwith

19:
How do I specify the height of the groups

local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.GroupHeight = 40
oListBar.Groups.Add("Group 1")
oListBar.Groups.Add("Group 2")

18:
How do I change the visual appearance of the groups

local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.GroupAppearance = 1
oListBar.Groups.Add("Group 1")
oListBar.Groups.Add("Group 2")

17:
How do I change the visual appearance of the groups, using your EBN files

local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.BackColorGroup = 0x1000000
oListBar.Groups.Add("Group 1")
oListBar.Groups.Add("Group 2")

16:
How do I change the background color for the groups

local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.BackColorGroup = 0xff
oListBar.BackColorGroup2 = 0xff
oListBar.Groups.Add("Group 1")

15:
How do I change the background color for the groups

local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.BackColorGroup = 0xff
oListBar.Groups.Add("Group 1")

14:
How do I change the control's foreground color

local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.ForeColor = 0xff0000
oListBar.ForeColorGroup = 0xff
oListBar.Groups.Add("Group 1").AddItem("Item 1")
oListBar.Groups.Add("Group 2")

13:
How can I change the control's font

local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Font.Name = "Tahoma"
oListBar.Groups.Add("Group 1")

12:
How do I change the control's foreground color

local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.ForeColor = 0xff
oListBar.Groups.Add("Group 1").AddItem("Item 1")

11:
How do I change the control's background color

local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.BackColor = 0xc8c8c8

10:
How do I change the control's border, using your EBN files

local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.Appearance = 16777216 /*0x1000000 | */

9:
How do I remove the control's border
local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Appearance = 0

8:
How do I put a picture on the center of the control
local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Picture = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oListBar.PictureDisplay = 17

7:
How do I resize/stretch a picture on the control's background
local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Picture = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oListBar.PictureDisplay = 49

6:
How do I put a picture on the control's center right bottom side
local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Picture = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oListBar.PictureDisplay = 34

5:
How do I put a picture on the control's center left bottom side
local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Picture = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oListBar.PictureDisplay = 32

4:
How do I put a picture on the control's center top side
local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Picture = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oListBar.PictureDisplay = 1

3:
How do I put a picture on the control's right top corner
local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Picture = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oListBar.PictureDisplay = 2

2:
How do I put a picture on the control's left top corner
local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Picture = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oListBar.PictureDisplay = 0

1:
How do I put a picture on the control's background
local oListBar

oListBar = form.EXLISTBARACTIVEXCONTROL1.nativeObject
oListBar.Picture = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")