164
How can I select an item using on its full part, not only on its icon or caption

/*begin event Click() - Occurs when the user presses and then releases the left mouse button over the control.*/
/*
	oListBar = ole_1.Object
	MessageBox("Information",string( String(oListBar.ItemFromPoint(-1,-1)) ))
*/
/*end event Click*/

OleObject oListBar,var_Group

oListBar = ole_1.Object
oListBar.HighlightItemType = 19 /*exFull | exUnion*/
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item <b>1</b>").CaptionFormat = 1
	var_Group.AddItem("Item <b>2</b>").CaptionFormat = 1

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

OleObject oListBar,var_Group

oListBar = ole_1.Object
var_Group = oListBar.Groups.Add("Group")
	var_Group.AddItem("Item <b><off 4><font ;6>1").CaptionFormat = 1
	var_Group.AddItem("Item <b><off 4><font ;6>2").CaptionFormat = 1

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

/*begin event SelectGroup(oleobject  OldGroup,oleobject  NewGroup) - Occurs when a group is selected.*/
/*
	oListBar = ole_1.Object
	MessageBox("Information",string( "Current " ))
	MessageBox("Information",string( String(NewGroup) ))
	MessageBox("Information",string( "Previously " ))
	MessageBox("Information",string( String(OldGroup) ))
*/
/*end event SelectGroup*/

OleObject oListBar,var_Group,var_Group1,var_Group2

oListBar = ole_1.Object
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

OleObject oListBar

oListBar = ole_1.Object
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.BackColorGroup = 16777216 /*0x1000000*/
oListBar.Groups.Add("Group 1")
oListBar.Groups.Add("Group 2").BackColor = 16820923 /*0x100aabb*/
oListBar.SelectGroup = 1

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

OleObject oListBar

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

159
How do I specify the width of the item

OleObject oListBar,var_Group

oListBar = ole_1.Object
oListBar.HighlightItemType = 0
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.ItemWidth = 32
	var_Group.AddItem(String(0))
	var_Group.AddItem(String(1))
	var_Group.AddItem(String(2))
	var_Group.AddItem(String(3))
	var_Group.AddItem(String(4))
	var_Group.AddItem(String(5))
	var_Group.AddItem(String(6))
	var_Group.AddItem(String(7))
	var_Group.AddItem(String(8))
	var_Group.AddItem(String(9))
oListBar.Groups.Add("Group 2")

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

OleObject oListBar,var_Appearance,var_Group

oListBar = ole_1.Object
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.Background(4,16777216 /*0x1000000*/)
oListBar.Background(5,33554432 /*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

OleObject oListBar,var_Group

oListBar = ole_1.Object
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.Background(4,16777216 /*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

OleObject oListBar,var_Group

oListBar = ole_1.Object
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

OleObject oListBar,var_Group

oListBar = ole_1.Object
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

OleObject oListBar,var_Group

oListBar = ole_1.Object
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

OleObject oListBar,var_Group

oListBar = ole_1.Object
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

OleObject oListBar,var_Group

oListBar = ole_1.Object
oListBar.MarkSelectGroup = true
oListBar.SelBackColorGroup = oListBar.BackColorGroup
oListBar.SelForeColorGroup = RGB(255,0,0)
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

OleObject oListBar,var_Group

oListBar = ole_1.Object
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.MarkSelectGroup = true
oListBar.SelBackColorGroup = 16777216 /*0x1000000*/
oListBar.SelForeColorGroup = RGB(0,0,0)
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

OleObject oListBar,var_Group

oListBar = ole_1.Object
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.MarkSelectGroup = true
oListBar.SelBackColorGroup = 16777216 /*0x1000000*/
oListBar.SelForeColorGroup = RGB(0,0,0)
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

OleObject oListBar,var_Group

oListBar = ole_1.Object
oListBar.MarkSelectGroup = true
oListBar.SelBackColorGroup = RGB(255,0,0)
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

OleObject oListBar,var_Group,var_Item,var_Item1,var_Item2,var_Item3,var_Item4

oListBar = ole_1.Object
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1").Alignment = 0
	var_Item = var_Group.AddItem("Sub Item <b>1</b>")
		var_Item.CaptionFormat = 1
		var_Item.Alignment = 0
		var_Item.Indent = 12
	var_Item1 = var_Group.AddItem("Sub Item <b>2</b>")
		var_Item1.CaptionFormat = 1
		var_Item1.Alignment = 0
		var_Item1.Indent = 12
	var_Item2 = var_Group.AddItem("Sub Item <b>3</b>")
		var_Item2.CaptionFormat = 1
		var_Item2.Alignment = 0
		var_Item2.Indent = 12
	var_Item3 = var_Group.AddItem("Sub Sub Item <b>3</b>")
		var_Item3.CaptionFormat = 1
		var_Item3.Alignment = 0
		var_Item3.Indent = 24
	var_Item4 = var_Group.AddItem("Item 2")
		var_Item4.Alignment = 0

147
How can I use HTML format to display my item

OleObject oListBar,var_Group

oListBar = ole_1.Object
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_Group.AddItem("Item 3")

146
How can I assign a tooltip to an item

OleObject oListBar,var_Group

oListBar = ole_1.Object
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_Group.AddItem("Item 3")

145
How can I show or hide an item

OleObject oListBar,var_Group

oListBar = ole_1.Object
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2").Visible = false
	var_Group.AddItem("Item 3")

144
How can I change the item's background color

OleObject oListBar,var_Group,var_Item

oListBar = ole_1.Object
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Item = var_Group.AddItem("Item 2")
		var_Item.BackColor = RGB(255,0,0)
		var_Item.BackColor2 = RGB(255,255,255)
	var_Group.AddItem("Item 3")

143
How can I change the item's background color

OleObject oListBar,var_Group

oListBar = ole_1.Object
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("<bgcolor=FF0000>Item</bgcolor> 2").CaptionFormat = 1
	var_Group.AddItem("Item 3")

142
How can I change the item's foreground color

OleObject oListBar,var_Group

oListBar = ole_1.Object
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2").ForeColor = RGB(255,0,0)
	var_Group.AddItem("Item 3")

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

OleObject oListBar,var_Group

oListBar = ole_1.Object
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 = 16777216 /*0x1000000*/
	var_Group.AddItem("Item 3")

140
How can I change the item's background color

OleObject oListBar,var_Group

oListBar = ole_1.Object
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2").BackColor = RGB(255,0,0)
	var_Group.AddItem("Item 3")

139
How can I get the group of the item

OleObject oListBar,var_Group

oListBar = ole_1.Object
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2").Group.Bold = true
	var_Group.AddItem("Item 3")

138
How can I get the index of the item

OleObject oListBar,var_Group,var_Item,var_Item1,var_Item2

oListBar = ole_1.Object
var_Group = oListBar.Groups.Add("Group 1")
	var_Item = var_Group.AddItem("Item 1")
		var_Item.Caption = String(var_Item.Index)
	var_Item1 = var_Group.AddItem("Item 2")
		var_Item1.Caption = String(var_Item1.Index)
	var_Item2 = var_Group.AddItem("Item 3")
		var_Item2.Caption = String(var_Item2.Index)

137
How can I draw underlined an item

OleObject oListBar,var_Group

oListBar = ole_1.Object
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("<u>Item</u> 2").CaptionFormat = 1
	var_Group.AddItem("Item 3")

136
How can I draw underlined an item

OleObject oListBar,var_Group

oListBar = ole_1.Object
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2").Underline = true
	var_Group.AddItem("Item 3")

135
How can I draw as strikeout an item

OleObject oListBar,var_Group

oListBar = ole_1.Object
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("<s>Item</s> 2").CaptionFormat = 1
	var_Group.AddItem("Item 3")

134
How can I draw as strikeout an item

OleObject oListBar,var_Group

oListBar = ole_1.Object
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2").StrikeOut = true
	var_Group.AddItem("Item 3")

133
How can I draw as italic an item

OleObject oListBar,var_Group

oListBar = ole_1.Object
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("<i>Item</i> 2").CaptionFormat = 1
	var_Group.AddItem("Item 3")

132
How can I draw as italic an item

OleObject oListBar,var_Group

oListBar = ole_1.Object
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2").Italic = true
	var_Group.AddItem("Item 3")

131
How can I add a anchor or a hyperlink

OleObject oListBar,var_Group

oListBar = ole_1.Object
oListBar.HighlightItemType = 0
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Link <a1><b>1</b></a>").CaptionFormat = 1
	var_Group.AddItem("Link <a2><b>2</b></a>").CaptionFormat = 1

130
How do I bold an item

OleObject oListBar,var_Group

oListBar = ole_1.Object
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("<b>Item</a> 2").CaptionFormat = 1
	var_Group.AddItem("Item 3")

129
How do I bold an item

OleObject oListBar,var_Group

oListBar = ole_1.Object
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2").Bold = true
	var_Group.AddItem("Item 3")

128
How can I align an item

OleObject oListBar,var_Group

oListBar = ole_1.Object
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_Group.AddItem("Center",2).Alignment = 1
	var_Group.AddItem("Right",3).Alignment = 2
	var_Group.AddItem("Middle",1).Alignment = 4

127
How can I assign some extra data to an item
OleObject oListBar,var_Group

oListBar = ole_1.Object
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1").UserData = "your data"
	var_Group.AddItem("Item 2")
	var_Group.AddItem("Item 3")

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

OleObject oListBar,var_Group

oListBar = ole_1.Object
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_Group.AddItem("Item 2").Image = 2
	var_Group.AddItem("Item 3").Image = 3

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

OleObject oListBar,var_Group

oListBar = ole_1.Object
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_Group.AddItem("Item 2").Image = 2
	var_Group.AddItem("Item 3").Image = 3

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

OleObject oListBar,var_Group

oListBar = ole_1.Object
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

OleObject oListBar,var_Group

oListBar = ole_1.Object
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.AddItem("Item 3").Position = 0

122
How can I change the item's caption

OleObject oListBar,var_Group

oListBar = ole_1.Object
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2").Caption = "new caption"
	var_Group.AddItem("Item 3")

121
How do I add new items

OleObject oListBar

oListBar = ole_1.Object
oListBar.Groups.Add("Group 1").AddItem("Item 1").Bold = true

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

OleObject oListBar

oListBar = ole_1.Object
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>"
oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"

119
How can I assign a tooltip to a group

OleObject oListBar

oListBar = ole_1.Object
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>."

118
How can I display HTML text in the group's caption

OleObject oListBar

oListBar = ole_1.Object
oListBar.GroupHeight = 44
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

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

OleObject oListBar,var_Group

oListBar = ole_1.Object
oListBar.Groups.Add("Group 1")
var_Group = oListBar.Groups.Add("Group 2")
	var_Group.BackColor = RGB(255,0,0)
	var_Group.BackColor2 = RGB(255,255,255)
oListBar.Groups.Add("Group 3")

116
How can I specify the height of the items

OleObject oListBar,var_Group

oListBar = ole_1.Object
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
OleObject oListBar,var_Group

oListBar = ole_1.Object
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
OleObject oListBar,var_Group

oListBar = ole_1.Object
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

OleObject oListBar,var_Group

oListBar = ole_1.Object
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 = RGB(255,0,0)
oListBar.Groups.Add("Group 3")
oListBar.SelectGroup = 1

112
How can I change the background color for the items

OleObject oListBar,var_Group

oListBar = ole_1.Object
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 = RGB(255,0,0)
oListBar.Groups.Add("Group 3")
oListBar.SelectGroup = 1

111
How can I change the group's foreground color

OleObject oListBar

oListBar = ole_1.Object
oListBar.Groups.Add("Group 1")
oListBar.Groups.Add("<fgcolor=FF0000>Group</fgcolor> 2").CaptionFormat = 1
oListBar.Groups.Add("Group 3")

110
How can I change the group's foreground color

OleObject oListBar

oListBar = ole_1.Object
oListBar.Groups.Add("Group 1")
oListBar.Groups.Add("Group 2").ForeColor = RGB(255,0,0)
oListBar.Groups.Add("Group 3")

109
How can I change the group's background color

OleObject oListBar

oListBar = ole_1.Object
oListBar.Groups.Add("Group 1")
oListBar.Groups.Add("<bgcolor=FF0000>Group</bgcolor> 2").CaptionFormat = 1
oListBar.Groups.Add("Group 3")

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

OleObject oListBar

oListBar = ole_1.Object
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.GroupAppearance = 1
oListBar.Groups.Add("Group 1")
oListBar.Groups.Add("Group 2").BackColor = 16777216 /*0x1000000*/
oListBar.Groups.Add("Group 3")

107
How can I change the group's background color

OleObject oListBar

oListBar = ole_1.Object
oListBar.Groups.Add("Group 1")
oListBar.Groups.Add("Group 2").BackColor = RGB(255,0,0)
oListBar.Groups.Add("Group 3")

106
How do I get the index of the group

OleObject oListBar,var_Group,var_Group1,var_Group2

oListBar = ole_1.Object
var_Group = oListBar.Groups.Add("Group 1")
	var_Group.Caption = String(var_Group.Index)
var_Group1 = oListBar.Groups.Add("Group 2")
	var_Group1.Caption = String(var_Group1.Index)
var_Group2 = oListBar.Groups.Add("Group 3")
	var_Group2.Caption = String(var_Group2.Index)

105
How can I underline the group's name

OleObject oListBar

oListBar = ole_1.Object
oListBar.Groups.Add("<u>Group</u> 1").CaptionFormat = 1

104
How can I underline the group's name

OleObject oListBar

oListBar = ole_1.Object
oListBar.Groups.Add("Group 1")
oListBar.Groups.Add("Group 2").Underline = true
oListBar.Groups.Add("Group 3")

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

OleObject oListBar

oListBar = ole_1.Object
oListBar.Groups.Add("<s>Group</s> 1").CaptionFormat = 1

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

OleObject oListBar

oListBar = ole_1.Object
oListBar.Groups.Add("Group 1")
oListBar.Groups.Add("Group 2").StrikeOut = true
oListBar.Groups.Add("Group 3")

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

OleObject oListBar

oListBar = ole_1.Object
oListBar.Groups.Add("<i>Group</i> 1").CaptionFormat = 1