Exontrol.COM Software - HOW TO DO in Visual FoxPro

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

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

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
	with .Groups.Add("Group 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
endwith

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

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.BackColorGroup = 0x1000000
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").BackColor = 0x100aabb
	.SelectGroup = 1
endwith

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

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Appearance = 27966412
endwith

159. How do I specify the width of the item

with thisform.ListBar1
	.HighlightItemType = 0
	with .Groups.Add("Group 1")
		.ItemWidth = 32
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
		.AddItem(4)
		.AddItem(5)
		.AddItem(6)
		.AddItem(7)
		.AddItem(8)
		.AddItem(9)
	endwith
	.Groups.Add("Group 2")
endwith

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

with thisform.ListBar1
	with .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(22,"c:\exontrol\images\pushed.ebn")
		.Add(2,"CP:22 0 8 0 -8")
	endwith
	.Object.Background(4) = 0x1000000
	.Object.Background(5) = 0x2000000
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.SelectItem = 1
	endwith
	.Groups.Add("Group 2")
endwith

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

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

156. How do I select an item

with thisform.ListBar1
	.SelectItemType = 2
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.SelectItem = 1
	endwith
	.Groups.Add("Group 2")
endwith

155. How do I specify how a selected item shows

with thisform.ListBar1
	.SelectItemType = 2
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
	.Groups.Add("Group 2")
endwith

154. How do I select or activate a group

with thisform.ListBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
	.Groups.Add("Group 3")
	.SelectGroup = 1
endwith

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

with thisform.ListBar1
	.Orientation = 1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
	.Groups.Add("Group 3")
	.SelectGroup = 1
endwith

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

with thisform.ListBar1
	.MarkSelectGroup = .T.
	.SelBackColorGroup = .BackColorGroup
	.SelForeColorGroup = RGB(255,0,0)
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
	.Groups.Add("Group 3")
	.SelectGroup = 1
endwith

151. How do I highlight the selected group

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.MarkSelectGroup = .T.
	.SelBackColorGroup = 0x1000000
	.SelForeColorGroup = RGB(0,0,0)
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
	.Groups.Add("Group 3")
	.SelectGroup = 1
endwith

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

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.MarkSelectGroup = .T.
	.SelBackColorGroup = 0x1000000
	.SelForeColorGroup = RGB(0,0,0)
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
	.Groups.Add("Group 3")
	.SelectGroup = 1
endwith

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

with thisform.ListBar1
	.MarkSelectGroup = .T.
	.SelBackColorGroup = RGB(255,0,0)
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
	.Groups.Add("Group 3")
	.SelectGroup = 1
endwith

148. How can I indent an item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Alignment = 0
		with .AddItem("Sub Item <b>1</b>")
			.CaptionFormat = 1
			.Alignment = 0
			.Indent = 12
		endwith
		with .AddItem("Sub Item <b>2</b>")
			.CaptionFormat = 1
			.Alignment = 0
			.Indent = 12
		endwith
		with .AddItem("Sub Item <b>3</b>")
			.CaptionFormat = 1
			.Alignment = 0
			.Indent = 12
		endwith
		with .AddItem("Sub Sub Item <b>3</b>")
			.CaptionFormat = 1
			.Alignment = 0
			.Indent = 24
		endwith
		with .AddItem("Item 2")
			.Alignment = 0
		endwith
	endwith
endwith

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

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

146. How can I assign a tooltip to an item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("ToolTip").ToolTip = "This is bit of text that should appear when the cursor hovers the <b>item</b>."
		.AddItem("Item 3")
	endwith
endwith

145. How can I show or hide an item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").Visible = .F.
		.AddItem("Item 3")
	endwith
endwith

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

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		with .AddItem("Item 2")
			.BackColor = RGB(255,0,0)
			.BackColor2 = RGB(255,255,255)
		endwith
		.AddItem("Item 3")
	endwith
endwith

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

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("<bgcolor=FF0000>Item</bgcolor> 2").CaptionFormat = 1
		.AddItem("Item 3")
	endwith
endwith

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

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").ForeColor = RGB(255,0,0)
		.AddItem("Item 3")
	endwith
endwith

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

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").BackColor = 0x1000000
		.AddItem("Item 3")
	endwith
endwith

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

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").BackColor = RGB(255,0,0)
		.AddItem("Item 3")
	endwith
endwith

139. How can I get the group of the item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").Group.Bold = .T.
		.AddItem("Item 3")
	endwith
endwith

138. How can I get the index of the item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		with .AddItem("Item 1")
			.Caption = .Index
		endwith
		with .AddItem("Item 2")
			.Caption = .Index
		endwith
		with .AddItem("Item 3")
			.Caption = .Index
		endwith
	endwith
endwith

137. How can I draw underlined an item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("<u>Item</u> 2").CaptionFormat = 1
		.AddItem("Item 3")
	endwith
endwith

136. How can I draw underlined an item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").Underline = .T.
		.AddItem("Item 3")
	endwith
endwith

135. How can I draw as strikeout an item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("<s>Item</s> 2").CaptionFormat = 1
		.AddItem("Item 3")
	endwith
endwith

134. How can I draw as strikeout an item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").StrikeOut = .T.
		.AddItem("Item 3")
	endwith
endwith

133. How can I draw as italic an item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("<i>Item</i> 2").CaptionFormat = 1
		.AddItem("Item 3")
	endwith
endwith

132. How can I draw as italic an item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").Italic = .T.
		.AddItem("Item 3")
	endwith
endwith

131. How can I add a anchor or a hyperlink

with thisform.ListBar1
	.HighlightItemType = 0
	with .Groups.Add("Group 1")
		.AddItem("Link <a1><b>1</b></a>").CaptionFormat = 1
		.AddItem("Link <a2><b>2</b></a>").CaptionFormat = 1
	endwith
endwith

130. How do I bold an item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("<b>Item</a> 2").CaptionFormat = 1
		.AddItem("Item 3")
	endwith
endwith

129. How do I bold an item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").Bold = .T.
		.AddItem("Item 3")
	endwith
endwith

128. How can I align an item

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Groups.Add("Group 1")
		.ItemHeight = 28
		.AddItem("Left",1).Alignment = 0
		.AddItem("Center",2).Alignment = 1
		.AddItem("Right",3).Alignment = 2
		.AddItem("Middle",1).Alignment = 4
	endwith
endwith

127. How can I assign some extra data to an item

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1").UserData = "your data"
		.AddItem("Item 2")
		.AddItem("Item 3")
	endwith
endwith

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

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Groups.Add("Group 1")
		.AddItem("Item <img>1</img> text <img>2</img>").CaptionFormat = 1
		.AddItem("Item 2").Image = 2
		.AddItem("Item 3").Image = 3
	endwith
endwith

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

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.AddItem("Item 2").Image = 2
		.AddItem("Item 3").Image = 3
	endwith
endwith

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

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Groups.Add("Group 1")
		.AddItem("Item 1",1)
		.AddItem("Item 2",2)
		.AddItem("Item 3",3)
	endwith
endwith

123. How can I change the item's position

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3").Position = 0
	endwith
endwith

122. How can I change the item's caption

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").Caption = "new caption"
		.AddItem("Item 3")
	endwith
endwith

121. How do I add new items

with thisform.ListBar1
	.Groups.Add("Group 1").AddItem("Item 1").Bold = .T.
endwith

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

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
endwith

119. How can I assign a tooltip to a group

with thisform.ListBar1
	.ToolTipDelay = 1
	.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the <b>group</b>."
endwith

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

with thisform.ListBar1
	.GroupHeight = 44
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Groups.Add("<img>pic1</img> <s>HTML</s> <img>1</img> <b>format</b>").CaptionFormat = 1
endwith

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

with thisform.ListBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.BackColor = RGB(255,0,0)
		.BackColor2 = RGB(255,255,255)
	endwith
	.Groups.Add("Group 3")
endwith

116. How can I specify the height of the items

with thisform.ListBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.ItemHeight = 13
	endwith
	.Groups.Add("Group 3")
	.SelectGroup = 1
endwith

115. How do I put a picture on the group's background

with thisform.ListBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.Picture = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 2
	endwith
	.Groups.Add("Group 3")
	.SelectGroup = 1
endwith

114. How do I put a picture on the group's background

with thisform.ListBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.Picture = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	endwith
	.Groups.Add("Group 3")
	.SelectGroup = 1
endwith

113. How can I change the foreground color for items

with thisform.ListBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.ForeColorList = RGB(255,0,0)
	endwith
	.Groups.Add("Group 3")
	.SelectGroup = 1
endwith

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

with thisform.ListBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.BackColorList = RGB(255,0,0)
	endwith
	.Groups.Add("Group 3")
	.SelectGroup = 1
endwith

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

with thisform.ListBar1
	.Groups.Add("Group 1")
	.Groups.Add("<fgcolor=FF0000>Group</fgcolor> 2").CaptionFormat = 1
	.Groups.Add("Group 3")
endwith

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

with thisform.ListBar1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").ForeColor = RGB(255,0,0)
	.Groups.Add("Group 3")
endwith

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

with thisform.ListBar1
	.Groups.Add("Group 1")
	.Groups.Add("<bgcolor=FF0000>Group</bgcolor> 2").CaptionFormat = 1
	.Groups.Add("Group 3")
endwith

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

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.GroupAppearance = 1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").BackColor = 0x1000000
	.Groups.Add("Group 3")
endwith

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

with thisform.ListBar1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").BackColor = RGB(255,0,0)
	.Groups.Add("Group 3")
endwith

106. How do I get the index of the group

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.Caption = .Index
	endwith
	with .Groups.Add("Group 2")
		.Caption = .Index
	endwith
	with .Groups.Add("Group 3")
		.Caption = .Index
	endwith
endwith

105. How can I underline the group's name

with thisform.ListBar1
	.Groups.Add("<u>Group</u> 1").CaptionFormat = 1
endwith

104. How can I underline the group's name

with thisform.ListBar1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").Underline = .T.
	.Groups.Add("Group 3")
endwith

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

with thisform.ListBar1
	.Groups.Add("<s>Group</s> 1").CaptionFormat = 1
endwith

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

with thisform.ListBar1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").StrikeOut = .T.
	.Groups.Add("Group 3")
endwith

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

with thisform.ListBar1
	.Groups.Add("<i>Group</i> 1").CaptionFormat = 1
endwith

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

with thisform.ListBar1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").Italic = .T.
	.Groups.Add("Group 3")
endwith

99. How do I bold the group's name

with thisform.ListBar1
	.Groups.Add("<b>Group</b> 1").CaptionFormat = 1
endwith

98. How do I bold the group's name

with thisform.ListBar1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").Bold = .T.
	.Groups.Add("Group 3")
endwith

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

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Groups.Add("Group 1 <img>1</img>")
		.CaptionFormat = 1
		.Alignment = 2
	endwith
endwith

96. How can I align the group's name

with thisform.ListBar1
	.Groups.Add("Group 1").Alignment = 2
endwith

95. How can I align the group's name

with thisform.ListBar1
	.Groups.Add("Group 1").Alignment = 0
endwith

94. How can I assign some extra data to a group

with thisform.ListBar1
	.Groups.Add("Group 1").UserData = "your data"
endwith

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

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Groups.Add("Group <img>1</img> text <img>2</img>").CaptionFormat = 1
endwith

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

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Groups.Add("Group 1").Image = 1
endwith

91. How can I access an item by its position

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3").Position = 0
		.ItemByPos(1).Bold = .T.
	endwith
endwith

90. How can I change the position of a group

with thisform.ListBar1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2")
	.Groups.Add("Group 3").Position = 0
endwith

89. How can I change the group's caption

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.Caption = "new caption"
	endwith
endwith

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

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem(.Count)
	endwith
endwith

87. How can I access an item in a group

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.Item(1).Bold = .T.
	endwith
endwith

86. How can I remove all items, from a group

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.Clear
	endwith
endwith

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

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.RemoveItem(1)
	endwith
endwith

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

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Groups.Add("Group 1")
		.AddItem("Item 1",1)
	endwith
endwith

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

with thisform.ListBar1
	.Groups.Add("Group 1").AddItem("Item 1")
endwith

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

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
	endwith
endwith

81. How can I get the groups as they are listed

with thisform.ListBar1
	with .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
	endwith
endwith

80. How can I access a group by position

with thisform.ListBar1
	with .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
		.ItemByPos(1).Bold = .T.
	endwith
endwith

79. How can I access a group

with thisform.ListBar1
	with .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
		.Item(1).Bold = .T.
	endwith
endwith

78. How can I clear the groups collection

with thisform.ListBar1
	with .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
		.Clear
	endwith
endwith

77. How can I remove a group

with thisform.ListBar1
	with .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
		.Remove(1)
	endwith
endwith

76. How can I add a group

with thisform.ListBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
endwith

75. How do I count the number of groups

with thisform.ListBar1
	with .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
		.Add(.Count)
	endwith
endwith

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

with thisform.ListBar1
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set 1"
	.Groups.Add("Group 2").Shortcut = "Set 1"
	.Groups.Add("Group 3").Shortcut = "Set 2"
	.Groups.Add("Group 4").Shortcut = "Set 2"
	.Object.ShortcutPicture("Set 1") = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.Object.ShortcutPicture("Set 2") = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
	.ShortcutPictureWidth = 32
	.ShortcutPictureHeight = 32
	.ShortcutBarHeight = 32
endwith

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

with thisform.ListBar1
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set 1"
	.Groups.Add("Group 2").Shortcut = "Set 1"
	.Groups.Add("Group 3").Shortcut = "Set 2"
	.Groups.Add("Group 4").Shortcut = "Set 2"
	.Object.ShortcutPicture("Set 1") = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.Object.ShortcutPicture("Set 2") = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
	.ShortcutBarHeight = 44
endwith

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

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutResizeBackColor = 0x2000000
	.ShortcutBarSelCaptionBackColor = 0x1000000
	.ShortcutBarSelBackColor = 0x1000000
	.BackColorGroup = 0x1000000
endwith

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

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutResizeBackColor = 0x1000000
	.ExpandShortcutCount = 1
endwith

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

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutResizeBackColor = RGB(255,0,0)
	.ExpandShortcutCount = 1
endwith

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

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutBarSelCaptionBackColor = 0x1000000
	.ExpandShortcutCount = 1
endwith

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

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutBarSelCaptionBackColor = RGB(255,0,0)
	.ExpandShortcutCount = 1
endwith

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

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutBarSelBackColor = 0x1000000
endwith

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

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutBarSelBackColor = RGB(255,0,0)
endwith

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

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutBarBackColor = 0x1000000
endwith

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

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ShortcutBarBackColor = RGB(255,0,0)
endwith

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

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ExpandShortcutCount = 1
endwith

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

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ExpandShortcutImage = 3
endwith

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

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ExpandShortcutCount = 1
	.AllowResizeShortcutBar = .F.
endwith

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

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ExpandShortcutCount = 1
	.ShortcutBarHeight = 16
endwith

59. How do I select a shortcut

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ExpandShortcutCount = 1
	.SelectShortcut = "Set <img>2</img>"
endwith

58. How do I show or hide the shortcut bar

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.ShowShortcutBar = .T.
	.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
	.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
	.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
	.ExpandShortcutCount = 1
endwith

57. How do I access the groups collection

with thisform.ListBar1
	.Groups.Add("Group 1")
endwith

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

with thisform.ListBar1
	.Object.FormatAnchor(0) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
	.HighlightItemType = 0
	.Groups.Add("Group <a1><b>1</b></a>").CaptionFormat = 1
endwith

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

with thisform.ListBar1
	.Object.FormatAnchor(0) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
	.HighlightItemType = 0
	with .Groups.Add("Group 1")
		.AddItem("Item <a1><b>1</b></a>").CaptionFormat = 1
	endwith
endwith

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

with thisform.ListBar1
	.HighlightItemType = 0
	.Object.FormatAnchor(1) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
	.Groups.Add("Group <a1><b>1</b></a>").CaptionFormat = 1
endwith

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

with thisform.ListBar1
	.HighlightItemType = 0
	.Object.FormatAnchor(1) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
	with .Groups.Add("Group 1")
		.AddItem("Item <a1><b>1</b></a>").CaptionFormat = 1
	endwith
endwith

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

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	with .Groups.Add("Group 1")
		.ItemHeight = 48
		with .AddItem("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
			.Image = 2
			.CaptionFormat = 1
		endwith
	endwith
endwith

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

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	with .Groups.Add("Group 1")
		.ItemHeight = 48
		with .AddItem("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
			.Image = 2
			.CaptionFormat = 1
		endwith
	endwith
endwith

50. How can I add several pictures to an item

with thisform.ListBar1
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	with .Groups.Add("Group 1")
		.ItemHeight = 48
		.AddItem("<img>pic1</img> text <img>pic2</img>").CaptionFormat = 1
	endwith
endwith

49. How can I add several pictures to a group

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	.GroupHeight = 48
	with .Groups.Add("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
		.Image = 2
		.CaptionFormat = 1
		.Picture = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
		.AddItem("Item 1")
		.AddItem("Item 2")
	endwith
endwith

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

with thisform.ListBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	.GroupHeight = 48
	.Groups.Add("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>").CaptionFormat = 1
endwith

47. How can I add several pictures to a group

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

46. How can I add several pictures to a group

with thisform.ListBar1
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	.GroupHeight = 48
	.Groups.Add("<img>pic1</img> text <img>pic2</img>").CaptionFormat = 1
endwith

45. How do I force refreshing the control

with thisform.ListBar1
	.BeginUpdate
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
	endwith
	.EndUpdate
endwith

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

with thisform.ListBar1
	.ToolTipWidth = 328
	.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
endwith

43. How do I let the tooltip being displayed longer

with thisform.ListBar1
	.ToolTipPopDelay = 10000
	.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
endwith

42. Can I change the default border of the tooltip, using your EBN files

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

41. Can I change the background color for the tooltip

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

40. Does the tooltip support HTML format

with thisform.ListBar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	var_s = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>group</fgcol"
	var_s = var_s + "or>"
	.Groups.Add("ToolTip").ToolTip = var_s
endwith

39. Can I change the forecolor for the tooltip

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

38. Can I change the foreground color for the tooltip

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

37. Can I change the font for the tooltip

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

36. Can I change the font for the tooltip

with thisform.ListBar1
	.ToolTipDelay = 1
	with .ToolTipFont
		.Name = "Tahoma"
		.Size = 14
	endwith
	.ToolTipWidth = 364
	.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
endwith

35. How do I disable showing the tooltip for all control

with thisform.ListBar1
	.ToolTipDelay = 0
	.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
endwith

34. How do I show the tooltip quicker

with thisform.ListBar1
	.ToolTipDelay = 1
	.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
endwith

33. How do I call your x-script language

with thisform.ListBar1
	.ExecuteTemplate("Groups.Add(`Group 1`)").AddItem("Item 1")
endwith

32. How do I call your x-script language

with thisform.ListBar1
	.Template = "BackColor = RGB(255,0,0)"
endwith

31. How do I remove the control's borders

with thisform.ListBar1
	.BeginUpdate
	.Appearance = 0
	.BorderWidth = 0
	.BorderHeight = 0
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Groups.Add("Group 1").AddItem("Item 1").Image = 1
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith

30. How do I specify width or the height of the control's borders

with thisform.ListBar1
	.BeginUpdate
	.Appearance = 0
	.BorderWidth = 0
	.BorderHeight = 0
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Groups.Add("Group 1").AddItem("Item 1").Image = 1
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith

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

with thisform.ListBar1
	.BeginUpdate
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HighlightItemType = 3
	.Groups.Add("Group 1").AddItem("Item 1").Image = 1
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith

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

with thisform.ListBar1
	.BeginUpdate
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HighlightItemType = 2
	.Groups.Add("Group 1").AddItem("Item 1").Image = 1
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith

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

with thisform.ListBar1
	.BeginUpdate
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HighlightItemType = 1
	.Groups.Add("Group 1").AddItem("Item 1").Image = 1
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith

24. How do I specify the way the control highlight the items in the group

with thisform.ListBar1
	.BeginUpdate
	.HighlightItemType = 0
	.Groups.Add("Group 1").AddItem("Item 1")
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith

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

with thisform.ListBar1
	.BeginUpdate
	.Groups.Add("Group 1").AddItem("Item 1")
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith

22. How do I decrease the delay to scroll a group

with thisform.ListBar1
	.DelayScroll = 0
	.Groups.Add("Group 1").AddItem("Item 1")
	.Groups.Add("Group 2").AddItem("Item 2")
endwith

21. How do I display icons

with thisform.ListBar1
	.SmallIcons = .T.
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Groups.Add("Group 1").Image = 1
endwith

20. How do I display 32x32 icons

with thisform.ListBar1
	.SmallIcons = .F.
	.GroupHeight = 36
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/"
	var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/"
	var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx"
	var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Groups.Add("Group 1").Image = 1
endwith

19. How do I specify the height of the groups

with thisform.ListBar1
	.GroupHeight = 40
	.Groups.Add("Group 1")
	.Groups.Add("Group 2")
endwith

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

with thisform.ListBar1
	.GroupAppearance = 1
	.Groups.Add("Group 1")
	.Groups.Add("Group 2")
endwith

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

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.BackColorGroup = 0x1000000
	.Groups.Add("Group 1")
	.Groups.Add("Group 2")
endwith

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

with thisform.ListBar1
	.BackColorGroup = RGB(255,0,0)
	.BackColorGroup2 = RGB(255,0,0)
	.Groups.Add("Group 1")
endwith

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

with thisform.ListBar1
	.BackColorGroup = RGB(255,0,0)
	.Groups.Add("Group 1")
endwith

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

with thisform.ListBar1
	.ForeColor = RGB(0,0,255)
	.ForeColorGroup = RGB(255,0,0)
	.Groups.Add("Group 1").AddItem("Item 1")
	.Groups.Add("Group 2")
endwith

13. How can I change the control's font

with thisform.ListBar1
	.Font.Name = "Tahoma"
	.Groups.Add("Group 1")
endwith

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

with thisform.ListBar1
	.ForeColor = RGB(255,0,0)
	.Groups.Add("Group 1").AddItem("Item 1")
endwith

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

with thisform.ListBar1
	.BackColor = RGB(200,200,200)
endwith

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

with thisform.ListBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Appearance = 16777216
endwith

9. How do I remove the control's border

with thisform.ListBar1
	.Appearance = 0
endwith

8. How do I put a picture on the center of the control

with thisform.ListBar1
	.Picture = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 17
endwith

7. How do I resize/stretch a picture on the control's background

with thisform.ListBar1
	.Picture = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 49
endwith

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

with thisform.ListBar1
	.Picture = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 34
endwith

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

with thisform.ListBar1
	.Picture = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 32
endwith

4. How do I put a picture on the control's center top side

with thisform.ListBar1
	.Picture = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 1
endwith

3. How do I put a picture on the control's right top corner

with thisform.ListBar1
	.Picture = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 2
endwith

2. How do I put a picture on the control's left top corner

with thisform.ListBar1
	.Picture = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 0
endwith

1. How do I put a picture on the control's background

with thisform.ListBar1
	.Picture = thisform.ListBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
endwith