175:
How can I change the group's color
with thisform.ExplorerBar1
	.BackColorGroup = RGB(255,0,0)
	.BackColorGroup2 = .BackColorGroup
	.GroupAppearance = 0
	with .Groups
		.Add("Group 1")
		.Add("Group 2")
	endwith
endwith
174:
How can remove the group's appearance
with thisform.ExplorerBar1
	.BackColorGroup = .BackColor
	.BackColorGroup2 = .BackColor
	.GroupAppearance = 1
	with .Groups
		.Add("Group 1")
		.Add("Group 2")
	endwith
endwith
173:
How can I align the group/item
with thisform.ExplorerBar1
	.BeginUpdate
	with .Groups.Add("Group 1")
		.Alignment = 0
		.AddItem("Item 1").Alignment = 0
		.Expanded = .T.
	endwith
	.EndUpdate
endwith
172:
Just seen the BackgroundExt property. Not sure what I can do with that

*** AddGroup event - Occurs when a new group is added to collection. ***
LPARAMETERS Group
	with thisform.ExplorerBar1
		with Group
		endwith
	endwith

*** AddItem event - Occurs when a new item is added to a group. ***
LPARAMETERS Item
	with thisform.ExplorerBar1
		with Item
		endwith
	endwith

with thisform.ExplorerBar1
	.BeginUpdate
	.Appearance = 0
	with .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"CP:1 48 12 -24 0")
		.Add(3,"c:\exontrol\images\pushed.ebn")
	endwith
	.Object.HTMLPicture("uk") = "c:\exontrol\images\zipdisk.gif"
	.Object.HTMLPicture("brazil") = "c:\exontrol\images\auction.gif"
	.Object.HTMLPicture("sweden") = "c:\exontrol\images\colorize.gif"
	.BackColorGroup = 0x2000000
	.BackColorGroup2 = .BackColorGroup
	.GroupHeight = 40
	with .Groups.Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>United Kingdom")
		.BackgroundExtValue(2,4) = "<img>uk:44</img>"
		.AddItem("London Eye")
		.AddItem("Tower of London")
		.AddItem("Buckingham Palace")
		.AddItem("River Thames")
		.AddItem("Stonehenge")
	endwith
	with .Groups.Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>Brazil")
		.BackgroundExtValue(2,4) = "<img>brazil:44</img>"
		.AddItem("Cristo Redentor")
		.AddItem("Copacabana")
		.AddItem("Ipanema, Rio de Janeiro")
		.AddItem("Iguazu Falls")
		.AddItem("Sugarloaf Mountain")
		.Expanded = .T.
	endwith
	with .Groups.Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>Sweden")
		.BackgroundExtValue(2,4) = "<img>sweden:44</img>"
		.AddItem("Gamla stan")
		.AddItem("Vasa Museum")
		.AddItem("Stockholm Palace")
		.AddItem("Skansen")
		.AddItem("Djurgården")
	endwith
	.EndUpdate
endwith
171:
Can I specify a different colors for groups using your EBN files

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

with thisform.ExplorerBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Appearance = 27966412 && 0x1aabbc8 Or AppearanceEnum.exDrop
endwith
169:
How can I make the items visible automatically, or how can I ensure an item is visible or it is shown in the control's client area
with thisform.ExplorerBar1
	.BeginUpdate
	.GroupHeight = 48
	with .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
		.Add("Group 4")
		.Add("Group 5")
		.Add("Group 6")
		.Add("Group 7")
		.Add("Group 8")
		.Add("Group 9")
		.Add("Group 10")
		.Add("Group 11")
		with .Add("Group 12")
			.AddItem(0)
			.AddItem(1)
			.AddItem(2)
		endwith
	endwith
	.EnsureVisible(11,2)
	.EndUpdate
endwith
168:
How can I scroll to the end of the groups

with thisform.ExplorerBar1
	.BeginUpdate
	.GroupHeight = 48
	with .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
		.Add("Group 4")
		.Add("Group 5")
		.Add("Group 6")
		.Add("Group 7")
		.Add("Group 8")
		.Add("Group 9")
		.Add("Group 10")
		.Add("Group 11")
		.Add("Group 12")
	endwith
	.EnsureVisible(11)
	.EndUpdate
endwith
167:
How can I display an item by multiple lines

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("SingleLine")
		with .AddItem("This is bit of text that should break the lines, and so <b>multiple</b> lines are displayed")
			.Alignment = 0
			.CaptionFormat = 1
			.SingleLine = .F.
		endwith
		.AddItem("Item 3")
		.Expanded = .T.
	endwith
endwith
166:
How can I indent an item

with thisform.ExplorerBar1
	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
		.Expanded = .T.
	endwith
endwith
165:
How can I use HTML format to display my item

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

with thisform.ExplorerBar1
	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")
		.Expanded = .T.
	endwith
endwith
163:
How can I show or hide an item

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2").Visible = .F.
		.AddItem("Item 3")
		.Expanded = .T.
	endwith
endwith
162:
How can I align an icon for an item

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Groups.Add("Group 1")
		with .AddItem("Item 1")
			.Image = 1
			.ImageAlignment = 0
		endwith
		with .AddItem("Item 2")
			.Image = 2
			.ImageAlignment = 2
		endwith
		.Expanded = .T.
	endwith
endwith
161:
How can I stop highlighting an item

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2 - no ").AllowHighLight = .F.
		.AddItem("Item 3")
		.Expanded = .T.
	endwith
endwith
160:
How can I change the item's background color

with thisform.ExplorerBar1
	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")
		.Expanded = .T.
	endwith
endwith
159:
How can I change the item's background color

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

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

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

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

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

with thisform.ExplorerBar1
	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
		.Expanded = .T.
	endwith
endwith
153:
How can I draw underlined an item

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

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

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

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

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

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

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

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

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

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

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1").UserData = "your data"
		.AddItem("Item 2")
		.AddItem("Item 3")
		.Expanded = .T.
	endwith
endwith
142:
How can I assign or display an icon for an item

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

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

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

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

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

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

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

with thisform.ExplorerBar1
	.Groups.Add("Group 1").AddItem("Item 1")
	with .Groups.Add("Group 2, expanding/collapsing button is missing ")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.Expanded = .T.
		.AllowExpand = .F.
	endwith
	.Groups.Add("Group 3").AddItem("Item 1")
endwith
134:
How can I avoid expanding or collapsing a group

with thisform.ExplorerBar1
	.Groups.Add("Group 1").AddItem("Item 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.Expanded = .T.
		.AllowExpand = .F.
	endwith
	.Groups.Add("Group 3").AddItem("Item 1")
endwith
133:
How can I assign a tooltip to a group

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

with thisform.ExplorerBar1
	.GroupHeight = 44
	.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Groups.Add("<img>pic1</img> <s>HTML</s> <img>1</img> <b>format</b>").CaptionFormat = 1
endwith
131:
How can I disable scrolling the group's list when it is expanded or collapsed

with thisform.ExplorerBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.Expanded = .T.
		.AllowScroll = .F.
	endwith
	.Groups.Add("Group 3")
endwith
130:
How can I change the group's background color ( gradient )

with thisform.ExplorerBar1
	.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
129:
How can I access the bounding rectangle of the group's area

with thisform.ExplorerBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem(.Top)
		.AddItem(.Left)
		.AddItem(.Width)
		.Expanded = .T.
	endwith
	.Groups.Add("Group 3")
endwith
128:
How can I expand or collapse a group

with thisform.ExplorerBar1
	.Groups.Add("Group 1")
	with .Groups.Add("Group 2")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.Expanded = .T.
	endwith
	.Groups.Add("Group 3")
endwith
127:
How can I specify the height of the items

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

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

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

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

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

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

with thisform.ExplorerBar1
	.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
118:
How can I change the group's background color

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

with thisform.ExplorerBar1
	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
116:
How can I underline the group's name

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

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

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

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

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

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

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

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

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

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

with thisform.ExplorerBar1
	.Groups.Add("Group 1").Alignment = 0
endwith
105:
How can I assign some extra data to a group

with thisform.ExplorerBar1
	.Groups.Add("Group 1").UserData = "your data"
endwith
104:
How can I display an icon in the group's caption

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

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

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

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

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

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem(.Count)
		.Expanded = .T.
	endwith
endwith
98:
How can I access an item in a group

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

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.RemoveItem(1)
		.Expanded = .T.
	endwith
endwith
95:
How can I add a new item to a group

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

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

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.Expanded = .T.
	endwith
endwith
92:
How can I get the groups as they are listed
with thisform.ExplorerBar1
	with .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
	endwith
endwith
91:
How can I access a group by position

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

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

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

with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.Expanded = .T.
	endwith
endwith
86:
How do I count the number of groups
with thisform.ExplorerBar1
	with .Groups
		.Add("Group 1")
		.Add("Group 2")
		.Add("Group 3")
		.Add(.Count)
	endwith
endwith
85:
How can I display pictures with a custom size, instead icons, in the shortcut bar

with thisform.ExplorerBar1
	.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.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.Object.ShortcutPicture("Set 2") = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
	.ShortcutPictureWidth = 32
	.ShortcutPictureHeight = 32
	.ShortcutBarHeight = 32
endwith
84:
How can I display pictures instead icons, in the shortcut bar

with thisform.ExplorerBar1
	.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.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.Object.ShortcutPicture("Set 2") = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
	.ShortcutBarHeight = 44
endwith
83:
How can I change the visual appearance of the shortcut bar, using EBN files

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

with thisform.ExplorerBar1
	.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
		.Expanded = .T.
	endwith
endwith
60:
How can I add several pictures to a group

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

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

with thisform.ExplorerBar1
	.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.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
		.AddItem("Item 1")
		.AddItem("Item 2")
		.Expanded = .T.
	endwith
endwith
57:
How can I add several pictures to a group

with thisform.ExplorerBar1
	.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
56:
How do I force refreshing the control
with thisform.ExplorerBar1
	with .Groups.Add("Group 1")
		.Expanded = .T.
		.AddItem("Item 1")
	endwith
	.Refresh
endwith
55:
How can show or hide the focus rectangle

with thisform.ExplorerBar1
	.ShowFocusRect = .F.
	with .Groups.Add("Group 1")
		.Expanded = .T.
		.AddItem("Item 1")
	endwith
endwith
54:
I've seen that the width of the tooltip is variable. Can I make it larger

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

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

with thisform.ExplorerBar1
	.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
51:
Can I change the background color for the tooltip

with thisform.ExplorerBar1
	.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
50:
Does the tooltip support HTML format

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

with thisform.ExplorerBar1
	.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
48:
Can I change the foreground color for the tooltip

with thisform.ExplorerBar1
	.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
47:
Can I change the font for the tooltip

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

with thisform.ExplorerBar1
	.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
45:
How do I disable showing the tooltip for all control
with thisform.ExplorerBar1
	.ToolTipDelay = 0
	.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
endwith
44:
How do I show the tooltip quicker
with thisform.ExplorerBar1
	.ToolTipDelay = 1
	.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
endwith
43:
How do I call your x-script language

with thisform.ExplorerBar1
	with .ExecuteTemplate("Groups.Add(`Group 1`)")
		.AddItem("Item 1")
		.Expanded = .T.
	endwith
endwith
42:
How do I call your x-script language

with thisform.ExplorerBar1
	.Template = "BackColor = RGB(255,0,0)"
endwith
41:
How can I hide a tooltip when the item exceeds its area, so ... are displayed
with thisform.ExplorerBar1
	.AllowTooltip = .F.
	with .Groups.Add("Group 1")
		.Expanded = .T.
		.AddItem("This isa very long text that should break the control in several pieces")
	endwith
endwith
40:
How can I show a tooltip when the item exceeds its area, so ... are displayed

with thisform.ExplorerBar1
	.AllowTooltip = .T.
	with .Groups.Add("Group 1")
		.Expanded = .T.
		.AddItem("This isa very long text that should break the control in several pieces")
	endwith
endwith
39:
How do I specify the distance between two groups

with thisform.ExplorerBar1
	.BorderGroupHeight = 0
	.Groups.Add("Group 1")
	.Groups.Add("Group 2").AddItem("Item 2")
endwith
38:
How can I change the expand / collapse buttons

with thisform.ExplorerBar1
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.Object.ExpandIcon(1) = 1
	.Object.ExpandIcon(0) = 2
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.Expanded = .T.
	endwith
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith
37:
How do I enable or disable the control
with thisform.ExplorerBar1
	.Enabled = .F.
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = .T.
	endwith
	.Groups.Add("Group 2").AddItem("Item 2")
endwith
36:
How do I hide the icons in the right side of the group, the expand / collapse buttons

with thisform.ExplorerBar1
	.BeginUpdate
	.DisplayExpandIcon = .F.
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = .T.
	endwith
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith
35:
Is there any option to stop using the hand shape cursor, when the cursor hovers an item
with thisform.ExplorerBar1
	.BeginUpdate
	.HandCursor = .F.
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HighlightItemType = 0
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = .T.
	endwith
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith
34:
How do I specify the color to highlight the item
with thisform.ExplorerBar1
	.BeginUpdate
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HyperLinkColor = RGB(255,0,0)
	.HighlightItemType = 4
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = .T.
	endwith
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith
33:
How can I expand or collapse a group when I click only its right icon
with thisform.ExplorerBar1
	.BeginUpdate
	.ExpandOnClick = .F.
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HighlightItemType = 4
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = .T.
	endwith
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith
32:
How do I remove the control's borders
with thisform.ExplorerBar1
	.BeginUpdate
	.Appearance = 0
	.BorderWidth = 0
	.BorderHeight = 0
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HighlightItemType = 4
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = .T.
	endwith
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith
31:
How do I specify width or the height of the control's borders
with thisform.ExplorerBar1
	.BeginUpdate
	.Appearance = 0
	.BorderWidth = 0
	.BorderHeight = 0
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HighlightItemType = 4
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = .T.
	endwith
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith
28:
How do I specify to highlight the items in the group, when the cursor hovers the item
with thisform.ExplorerBar1
	.BeginUpdate
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HighlightItemType = 4
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = .T.
	endwith
	.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.ExplorerBar1
	.BeginUpdate
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HighlightItemType = 3
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = .T.
	endwith
	.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.ExplorerBar1
	.BeginUpdate
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HighlightItemType = 2
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = .T.
	endwith
	.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.ExplorerBar1
	.BeginUpdate
	var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
	var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
	var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
	var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Images(var_s)
	.HighlightItemType = 1
	with .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = .T.
	endwith
	.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.ExplorerBar1
	.BeginUpdate
	.HighlightItemType = 0
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.Expanded = .T.
	endwith
	.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.ExplorerBar1
	.BeginUpdate
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.Expanded = .T.
	endwith
	.Groups.Add("Group 2").AddItem("Item 2")
	.EndUpdate
endwith
22:
How do I decrease the delay to scroll a group
with thisform.ExplorerBar1
	.DelayScroll = 0
	with .Groups.Add("Group 1")
		.AddItem("Item 1")
		.Expanded = .T.
	endwith
	with .Groups.Add("Group 2")
		.AddItem("Item 2")
		.Expanded = .T.
	endwith
endwith
21:
How do I display icons

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

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

with thisform.ExplorerBar1
	.GroupHeight = 40
	.Groups.Add("Group 1")
	.Groups.Add("Group 2")
endwith
18:
How do I change the visual appearance of the groups
with thisform.ExplorerBar1
	.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.ExplorerBar1
	.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.ExplorerBar1
	.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.ExplorerBar1
	.BackColorGroup = RGB(255,0,0)
	.Groups.Add("Group 1")
endwith
14:
How do I change the control's foreground color

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

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

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

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

with thisform.ExplorerBar1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Appearance = 16777216 && 0x1000000
endwith
9:
How do I remove the control's border
with thisform.ExplorerBar1
	.Appearance = 0
endwith
8:
How do I put a picture on the center of the control
with thisform.ExplorerBar1
	.Picture = thisform.ExplorerBar1.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.ExplorerBar1
	.Picture = thisform.ExplorerBar1.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.ExplorerBar1
	.Picture = thisform.ExplorerBar1.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.ExplorerBar1
	.Picture = thisform.ExplorerBar1.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.ExplorerBar1
	.Picture = thisform.ExplorerBar1.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.ExplorerBar1
	.Picture = thisform.ExplorerBar1.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.ExplorerBar1
	.Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = 0
endwith
1:
How do I put a picture on the control's background
with thisform.ExplorerBar1
	.Picture = thisform.ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
endwith