175:
How can I change the group's color
With ExplorerBar1
	.BackColorGroup = RGB(255,0,0)
	.BackColorGroup2 = .BackColorGroup
	.GroupAppearance = exNone
	With .Groups
		.Add "Group 1"
		.Add "Group 2"
	End With
End With
174:
How can remove the group's appearance
With ExplorerBar1
	.BackColorGroup = .BackColor
	.BackColorGroup2 = .BackColor
	.GroupAppearance = exSingle
	With .Groups
		.Add "Group 1"
		.Add "Group 2"
	End With
End With
173:
How can I align the group/item
With ExplorerBar1
	.BeginUpdate 
	With .Groups.Add("Group 1")
		.Alignment = exLeft
		.AddItem("Item 1").Alignment = exLeft
		.Expanded = True
	End With
	.EndUpdate 
End With
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.
Private Sub ExplorerBar1_AddGroup(ByVal Group As EXPLORERBARLibCtl.IGroup)
	With ExplorerBar1
		With Group
		End With
	End With
End Sub

' AddItem event - Occurs when a new item is added to a group.
Private Sub ExplorerBar1_AddItem(ByVal Item As EXPLORERBARLibCtl.IItem)
	With ExplorerBar1
		With Item
		End With
	End With
End Sub

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

With ExplorerBar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.BackColorGroup = &H1000000
	.Groups.Add "Group 1"
	.Groups.Add("Group 2").BackColor = &H100aabb
End With
170:
Can I change the color of the control's border (EBN files)

With ExplorerBar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Appearance = &H1aabbc8 Or AppearanceEnum.exDrop
End With
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 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
		End With
	End With
	.EnsureVisible 11,2
	.EndUpdate 
End With
168:
How can I scroll to the end of the groups

With 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"
	End With
	.EnsureVisible 11
	.EndUpdate 
End With
167:
How can I display an item by multiple lines

With 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 = exLeft
			.CaptionFormat = exHTML
			.SingleLine = False
		End With
		.AddItem "Item 3"
		.Expanded = True
	End With
End With
166:
How can I indent an item

With ExplorerBar1
	With .Groups.Add("Group 1")
		.AddItem("Item 1").Alignment = exLeft
		With .AddItem("Sub Item <b>1</b>")
			.CaptionFormat = exHTML
			.Alignment = exLeft
			.Indent = 12
		End With
		With .AddItem("Sub Item <b>2</b>")
			.CaptionFormat = exHTML
			.Alignment = exLeft
			.Indent = 12
		End With
		With .AddItem("Sub Item <b>3</b>")
			.CaptionFormat = exHTML
			.Alignment = exLeft
			.Indent = 12
		End With
		With .AddItem("Sub Sub Item <b>3</b>")
			.CaptionFormat = exHTML
			.Alignment = exLeft
			.Indent = 24
		End With
		With .AddItem("Item 2")
			.Alignment = exLeft
		End With
		.Expanded = True
	End With
End With
165:
How can I use HTML format to display my item

With 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 = exHTML
		.AddItem "Item 3"
		.Expanded = True
	End With
End With
164:
How can I assign a tooltip to an item

With 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 = True
	End With
End With
163:
How can I show or hide an item

With ExplorerBar1
	With .Groups.Add("Group 1")
		.AddItem "Item 1"
		.AddItem("Item 2").Visible = False
		.AddItem "Item 3"
		.Expanded = True
	End With
End With
162:
How can I align an icon for an item

With ExplorerBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Groups.Add("Group 1")
		With .AddItem("Item 1")
			.Image = 1
			.ImageAlignment = exLeft
		End With
		With .AddItem("Item 2")
			.Image = 2
			.ImageAlignment = exRight
		End With
		.Expanded = True
	End With
End With
161:
How can I stop highlighting an item

With ExplorerBar1
	With .Groups.Add("Group 1")
		.AddItem "Item 1"
		.AddItem("Item 2 - no ").AllowHighLight = False
		.AddItem "Item 3"
		.Expanded = True
	End With
End With
160:
How can I change the item's background color

With ExplorerBar1
	With .Groups.Add("Group 1")
		.AddItem "Item 1"
		With .AddItem("Item 2")
			.BackColor = RGB(255,0,0)
			.BackColor2 = RGB(255,255,255)
		End With
		.AddItem "Item 3"
		.Expanded = True
	End With
End With
159:
How can I change the item's background color

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

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

With ExplorerBar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	With .Groups.Add("Group 1")
		.AddItem "Item 1"
		.AddItem("Item 2").BackColor = &H1000000
		.AddItem "Item 3"
		.Expanded = True
	End With
End With
156:
How can I change the item's background color

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

With ExplorerBar1
	With .Groups.Add("Group 1")
		.AddItem "Item 1"
		.AddItem("Item 2").Group.Bold = True
		.AddItem "Item 3"
		.Expanded = True
	End With
End With
154:
How can I get the index of the item

With ExplorerBar1
	With .Groups.Add("Group 1")
		With .AddItem("Item 1")
			.Caption = .Index
		End With
		With .AddItem("Item 2")
			.Caption = .Index
		End With
		With .AddItem("Item 3")
			.Caption = .Index
		End With
		.Expanded = True
	End With
End With
153:
How can I draw underlined an item

With ExplorerBar1
	With .Groups.Add("Group 1")
		.AddItem "Item 1"
		.AddItem("<u>Item</u> 2").CaptionFormat = exHTML
		.AddItem "Item 3"
		.Expanded = True
	End With
End With
152:
How can I draw underlined an item

With ExplorerBar1
	With .Groups.Add("Group 1")
		.AddItem "Item 1"
		.AddItem("Item 2").Underline = True
		.AddItem "Item 3"
		.Expanded = True
	End With
End With
151:
How can I draw as strikeout an item

With ExplorerBar1
	With .Groups.Add("Group 1")
		.AddItem "Item 1"
		.AddItem("<s>Item</s> 2").CaptionFormat = exHTML
		.AddItem "Item 3"
		.Expanded = True
	End With
End With
150:
How can I draw as strikeout an item

With ExplorerBar1
	With .Groups.Add("Group 1")
		.AddItem "Item 1"
		.AddItem("Item 2").StrikeOut = True
		.AddItem "Item 3"
		.Expanded = True
	End With
End With
149:
How can I draw as italic an item

With ExplorerBar1
	With .Groups.Add("Group 1")
		.AddItem "Item 1"
		.AddItem("<i>Item</i> 2").CaptionFormat = exHTML
		.AddItem "Item 3"
		.Expanded = True
	End With
End With
148:
How can I draw as italic an item

With ExplorerBar1
	With .Groups.Add("Group 1")
		.AddItem "Item 1"
		.AddItem("Item 2").Italic = True
		.AddItem "Item 3"
		.Expanded = True
	End With
End With
147:
How can I add a anchor or a hyperlink

With ExplorerBar1
	.HighlightItemType = exNoHighlight
	.HandCursor = False
	With .Groups.Add("Group 1")
		.AddItem("Link <a1><b>1</b></a>").CaptionFormat = exHTML
		.AddItem("Link <a2><b>2</b></a>").CaptionFormat = exHTML
		.Expanded = True
	End With
End With
146:
How do I bold an item

With ExplorerBar1
	With .Groups.Add("Group 1")
		.AddItem "Item 1"
		.AddItem("<b>Item</a> 2").CaptionFormat = exHTML
		.AddItem "Item 3"
		.Expanded = True
	End With
End With
145:
How do I bold an item

With ExplorerBar1
	With .Groups.Add("Group 1")
		.AddItem "Item 1"
		.AddItem("Item 2").Bold = True
		.AddItem "Item 3"
		.Expanded = True
	End With
End With
144:
How can I align an item

With ExplorerBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Groups.Add("Group 1")
		.ItemHeight = 28
		.AddItem("Left",1).Alignment = exLeft
		.AddItem("Center",2).Alignment = exCenter
		.AddItem("Right",3).Alignment = exRight
		.AddItem("Middle",1).Alignment = exMiddle
		.Expanded = True
	End With
End With
143:
How can I assign some extra data to an item

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

With ExplorerBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Groups.Add("Group 1")
		.AddItem("Item <img>1</img> text <img>2</img>").CaptionFormat = exHTML
		.AddItem("Item 2").Image = 2
		.AddItem("Item 3").Image = 3
		.Expanded = True
	End With
End With
141:
How can I assign or display an icon for an item

With ExplorerBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.AddItem("Item 2").Image = 2
		.AddItem("Item 3").Image = 3
		.Expanded = True
	End With
End With
140:
How can I assign or display an icon for an item

With ExplorerBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Groups.Add("Group 1")
		.AddItem "Item 1",1
		.AddItem "Item 2",2
		.AddItem "Item 3",3
		.Expanded = True
	End With
End With
139:
How can I change the item's position

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

With ExplorerBar1
	With .Groups.Add("Group 1")
		.AddItem "Item 1"
		.AddItem("Item 2").Caption = "new caption"
		.AddItem "Item 3"
		.Expanded = True
	End With
End With
137:
How do I add new items

With ExplorerBar1
	.Groups.Add("Group 1").AddItem("Item 1").Bold = True
End With
136:
How do I assign a group to a set in the shortcut bar

With ExplorerBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.ShowShortcutBar = True
	.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>"
End With
135:
How can I show or hide the expanding or collapsing button

With 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 = True
		.AllowExpand = False
	End With
	.Groups.Add("Group 3").AddItem "Item 1"
End With
134:
How can I avoid expanding or collapsing a group

With ExplorerBar1
	.Groups.Add("Group 1").AddItem "Item 1"
	With .Groups.Add("Group 2")
		.AddItem "Item 1"
		.AddItem "Item 2"
		.Expanded = True
		.AllowExpand = False
	End With
	.Groups.Add("Group 3").AddItem "Item 1"
End With
133:
How can I assign a tooltip to a group

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

With ExplorerBar1
	.GroupHeight = 44
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Groups.Add("<img>pic1</img> <s>HTML</s> <img>1</img> <b>format</b>").CaptionFormat = exHTML
End With
131:
How can I disable scrolling the group's list when it is expanded or collapsed

With ExplorerBar1
	.Groups.Add "Group 1"
	With .Groups.Add("Group 2")
		.AddItem "Item 1"
		.AddItem "Item 2"
		.Expanded = True
		.AllowScroll = False
	End With
	.Groups.Add "Group 3"
End With
130:
How can I change the group's background color ( gradient )

With ExplorerBar1
	.Groups.Add "Group 1"
	With .Groups.Add("Group 2")
		.BackColor = RGB(255,0,0)
		.BackColor2 = RGB(255,255,255)
	End With
	.Groups.Add "Group 3"
End With
129:
How can I access the bounding rectangle of the group's area

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

With ExplorerBar1
	.Groups.Add "Group 1"
	With .Groups.Add("Group 2")
		.AddItem "Item 1"
		.AddItem "Item 2"
		.Expanded = True
	End With
	.Groups.Add "Group 3"
End With
127:
How can I specify the height of the items

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

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

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

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

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

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

With ExplorerBar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.GroupAppearance = exSingle
	.Groups.Add "Group 1"
	.Groups.Add("Group 2").BackColor = &H1000000
	.Groups.Add "Group 3"
End With
118:
How can I change the group's background color

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

With ExplorerBar1
	With .Groups.Add("Group 1")
		.Caption = .Index
	End With
	With .Groups.Add("Group 2")
		.Caption = .Index
	End With
	With .Groups.Add("Group 3")
		.Caption = .Index
	End With
End With
116:
How can I underline the group's name

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

With ExplorerBar1
	.Groups.Add "Group 1"
	.Groups.Add("Group 2").Underline = True
	.Groups.Add "Group 3"
End With
114:
How can I show the group's name as strikeout

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

With ExplorerBar1
	.Groups.Add "Group 1"
	.Groups.Add("Group 2").StrikeOut = True
	.Groups.Add "Group 3"
End With
112:
How can I draw as italic the group's name

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

With ExplorerBar1
	.Groups.Add "Group 1"
	.Groups.Add("Group 2").Italic = True
	.Groups.Add "Group 3"
End With
110:
How do I bold the group's name

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

With ExplorerBar1
	.Groups.Add "Group 1"
	.Groups.Add("Group 2").Bold = True
	.Groups.Add "Group 3"
End With
108:
How can I align the icon in the group's caption

With ExplorerBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Groups.Add("Group 1")
		.Image = 1
		.ImageAlignment = exRight
		.Alignment = exRight
	End With
End With
107:
How can I align the group's name

With ExplorerBar1
	.Groups.Add("Group 1").Alignment = exRight
End With
106:
How can I align the group's name

With ExplorerBar1
	.Groups.Add("Group 1").Alignment = exLeft
End With
105:
How can I assign some extra data to a group

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

With ExplorerBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Groups.Add("Group <img>1</img> text <img>2</img>").CaptionFormat = exHTML
End With
103:
How can I display an icon in the group's caption

With ExplorerBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Groups.Add("Group 1").Image = 1
End With
102:
How can I access an item by its position

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

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

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

With ExplorerBar1
	With .Groups.Add("Group 1")
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
		.AddItem .Count
		.Expanded = True
	End With
End With
98:
How can I access an item in a group

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

With ExplorerBar1
	With .Groups.Add("Group 1")
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
		.RemoveItem 1
		.Expanded = True
	End With
End With
95:
How can I add a new item to a group

With ExplorerBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Groups.Add("Group 1")
		.AddItem "Item 1",1
		.Expanded = True
	End With
End With
94:
How can I add a new item to a group

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

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

With ExplorerBar1
	With .Groups
		.Add "Group 1"
		.Add "Group 2"
		.Add "Group 3"
		.ItemByPos(1).Bold = True
	End With
End With
90:
How can I access a group

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

With ExplorerBar1
	With .Groups
		.Add "Group 1"
		.Add "Group 2"
		.Add "Group 3"
		.Remove 1
	End With
End With
87:
How can I add a group

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

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

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

With ExplorerBar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.ShowShortcutBar = True
	.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 = &H2000000
	.ShortcutBarSelCaptionBackColor = &H1000000
	.ShortcutBarSelBackColor = &H1000000
	.BackColorGroup = &H1000000
End With
82:
How can I change the visual appearance of the separator between groups and the shortcut bar, using your EBN files

With ExplorerBar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.ShowShortcutBar = True
	.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 = &H1000000
	.ExpandShortcutCount = 1
End With
81:
How do I change the background color of the separator between groups and the shortcut bar

With ExplorerBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.ShowShortcutBar = True
	.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
End With
80:
How can I change the visual appearance of the shortcut bar, using your EBN files

With ExplorerBar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.ShowShortcutBar = True
	.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 = &H1000000
	.ExpandShortcutCount = 1
End With
79:
How do I change the selection background color in the shortcut bar

With ExplorerBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.ShowShortcutBar = True
	.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
End With
78:
How can I change the visual appearance of the shortcut bar, using your EBN files

With ExplorerBar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.ShowShortcutBar = True
	.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 = &H1000000
End With
77:
How do I change the selection background color in the shortcut bar

With ExplorerBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.ShowShortcutBar = True
	.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)
End With
76:
How can I change the visual appearance of the shortcut bar, using your EBN files

With ExplorerBar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.ShowShortcutBar = True
	.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 = &H1000000
End With
75:
How do I change the background color in the shortcut bar

With ExplorerBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.ShowShortcutBar = True
	.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)
End With
74:
How can I programmatically change expand or collapse the shortcut bar

With ExplorerBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.ShowShortcutBar = True
	.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
End With
73:
How do I change the icon for the expanding or collapsing the shortcut bar

With ExplorerBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.ShowShortcutBar = True
	.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
End With
72:
How can I enable or disable resizing the shortcut bar

With ExplorerBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.ShowShortcutBar = True
	.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 = False
End With
71:
How do I specify the height of the shortcut bar

With ExplorerBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.ShowShortcutBar = True
	.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
End With
70:
How do I select a shortcut

With ExplorerBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.ShowShortcutBar = True
	.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>"
End With
69:
How do I show or hide the shortcut bar

With ExplorerBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.ShowShortcutBar = True
	.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
End With
68:
How do I access the groups collection
With ExplorerBar1
	.Groups.Add "Group 1"
End With
67:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

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

With ExplorerBar1
	.FormatAnchor(False) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
	.HighlightItemType = exNoHighlight
	.HandCursor = False
	With .Groups.Add("Group 1")
		.AddItem("Item <a1><b>1</b></a>").CaptionFormat = exHTML
		.Expanded = True
	End With
End With
65:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

With ExplorerBar1
	.HighlightItemType = exNoHighlight
	.HandCursor = False
	.FormatAnchor(True) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
	.Groups.Add("Group <a1><b>1</b></a>").CaptionFormat = exHTML
End With
64:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

With ExplorerBar1
	.HighlightItemType = exNoHighlight
	.HandCursor = False
	.FormatAnchor(True) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
	With .Groups.Add("Group 1")
		.AddItem("Item <a1><b>1</b></a>").CaptionFormat = exHTML
		.Expanded = True
	End With
End With
63:
How can I add several pictures and icons to an item

With ExplorerBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.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 = exHTML
		End With
		.Expanded = True
	End With
End With
62:
How can I add several pictures and icons to an item
With ExplorerBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.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 = exHTML
		End With
		.Expanded = True
	End With
End With
61:
How can I add several pictures to an item

With ExplorerBar1
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	With .Groups.Add("Group 1")
		.ItemHeight = 48
		.AddItem("<img>pic1</img> text <img>pic2</img>").CaptionFormat = exHTML
		.Expanded = True
	End With
End With
60:
How can I add several pictures to a group

With ExplorerBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.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 = exHTML
		.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
		.AddItem "Item 1"
		.AddItem "Item 2"
		.Expanded = True
	End With
End With
59:
How can I add several pictures and icons to a group

With ExplorerBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.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 = exHTML
End With
58:
How can I add several pictures to a group

With ExplorerBar1
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	.GroupHeight = 48
	With .Groups.Add("<img>pic1</img> text <img>pic2</img>")
		.CaptionFormat = exHTML
		.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
		.AddItem "Item 1"
		.AddItem "Item 2"
		.Expanded = True
	End With
End With
57:
How can I add several pictures to a group

With ExplorerBar1
	.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
	.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
	.GroupHeight = 48
	.Groups.Add("<img>pic1</img> text <img>pic2</img>").CaptionFormat = exHTML
End With
56:
How do I force refreshing the control
With ExplorerBar1
	With .Groups.Add("Group 1")
		.Expanded = True
		.AddItem "Item 1"
	End With
	.Refresh 
End With
55:
How can show or hide the focus rectangle

With ExplorerBar1
	.ShowFocusRect = False
	With .Groups.Add("Group 1")
		.Expanded = True
		.AddItem "Item 1"
	End With
End With
54:
I've seen that the width of the tooltip is variable. Can I make it larger

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

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

With ExplorerBar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exToolTipAppearance) = &H1000000
	.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
End With
51:
Can I change the background color for the tooltip

With ExplorerBar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Background(exToolTipBackColor) = RGB(255,0,0)
	.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
End With
50:
Does the tooltip support HTML format

With 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>"
End With
49:
Can I change the forecolor for the tooltip

With ExplorerBar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Background(exToolTipForeColor) = RGB(255,0,0)
	.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
End With
48:
Can I change the foreground color for the tooltip

With 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>"
End With
47:
Can I change the font for the tooltip

With 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"
End With
46:
Can I change the font for the tooltip

With ExplorerBar1
	.ToolTipDelay = 1
	With .ToolTipFont
		.Name = "Tahoma"
		.Size = 14
	End With
	.ToolTipWidth = 364
	.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
End With
45:
How do I disable showing the tooltip for all control
With ExplorerBar1
	.ToolTipDelay = 0
	.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
End With
44:
How do I show the tooltip quicker
With ExplorerBar1
	.ToolTipDelay = 1
	.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
End With
43:
How do I call your x-script language

With ExplorerBar1
	With .ExecuteTemplate("Groups.Add(`Group 1`)")
		.AddItem "Item 1"
		.Expanded = True
	End With
End With
42:
How do I call your x-script language

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

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

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

With ExplorerBar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.ExpandIcon(True) = 1
	.ExpandIcon(False) = 2
	With .Groups.Add("Group 1")
		.AddItem "Item 1"
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem "Item 2"
	.EndUpdate 
End With
37:
How do I enable or disable the control
With ExplorerBar1
	.Enabled = False
	With .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem "Item 2"
End With
36:
How do I hide the icons in the right side of the group, the expand / collapse buttons

With ExplorerBar1
	.BeginUpdate 
	.DisplayExpandIcon = False
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem "Item 2"
	.EndUpdate 
End With
35:
Is there any option to stop using the hand shape cursor, when the cursor hovers an item
With ExplorerBar1
	.BeginUpdate 
	.HandCursor = False
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.HighlightItemType = exNoHighlight
	With .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem "Item 2"
	.EndUpdate 
End With
34:
How do I specify the color to highlight the item
With ExplorerBar1
	.BeginUpdate 
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.HyperLinkColor = RGB(255,0,0)
	.HighlightItemType = exHyperLink
	With .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem "Item 2"
	.EndUpdate 
End With
33:
How can I expand or collapse a group when I click only its right icon
With ExplorerBar1
	.BeginUpdate 
	.ExpandOnClick = False
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.HighlightItemType = exHyperLink
	With .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem "Item 2"
	.EndUpdate 
End With
32:
How do I remove the control's borders
With ExplorerBar1
	.BeginUpdate 
	.Appearance = exNone
	.BorderWidth = 0
	.BorderHeight = 0
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.HighlightItemType = exHyperLink
	With .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem "Item 2"
	.EndUpdate 
End With
31:
How do I specify width or the height of the control's borders
With ExplorerBar1
	.BeginUpdate 
	.Appearance = exNone
	.BorderWidth = 0
	.BorderHeight = 0
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.HighlightItemType = exHyperLink
	With .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem "Item 2"
	.EndUpdate 
End With
28:
How do I specify to highlight the items in the group, when the cursor hovers the item
With ExplorerBar1
	.BeginUpdate 
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.HighlightItemType = exHyperLink
	With .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem "Item 2"
	.EndUpdate 
End With
27:
How do I specify to highlight the items in the group, when the cursor hovers the item
With ExplorerBar1
	.BeginUpdate 
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.HighlightItemType = exUnion
	With .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem "Item 2"
	.EndUpdate 
End With
26:
How do I specify to highlight the items in the group, when the cursor hovers the item
With ExplorerBar1
	.BeginUpdate 
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.HighlightItemType = exIcon
	With .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem "Item 2"
	.EndUpdate 
End With
25:
How do I specify to highlight the items in the group, when the cursor hovers the item
With ExplorerBar1
	.BeginUpdate 
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.HighlightItemType = exCaption
	With .Groups.Add("Group 1")
		.AddItem("Item 1").Image = 1
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem "Item 2"
	.EndUpdate 
End With
24:
How do I specify the way the control highlight the items in the group
With ExplorerBar1
	.BeginUpdate 
	.HighlightItemType = exNoHighlight
	With .Groups.Add("Group 1")
		.AddItem "Item 1"
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem "Item 2"
	.EndUpdate 
End With
23:
Is there any function to avoid painting the control while adding multiple items and groups
With ExplorerBar1
	.BeginUpdate 
	With .Groups.Add("Group 1")
		.AddItem "Item 1"
		.Expanded = True
	End With
	.Groups.Add("Group 2").AddItem "Item 2"
	.EndUpdate 
End With
22:
How do I decrease the delay to scroll a group
With ExplorerBar1
	.DelayScroll = 0
	With .Groups.Add("Group 1")
		.AddItem "Item 1"
		.Expanded = True
	End With
	With .Groups.Add("Group 2")
		.AddItem "Item 2"
		.Expanded = True
	End With
End With
21:
How do I display icons

With ExplorerBar1
	.SmallIcons = True
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Groups.Add("Group 1").Image = 1
End With
20:
How do I display 32x32 icons

With ExplorerBar1
	.SmallIcons = False
	.GroupHeight = 36
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Groups.Add("Group 1").Image = 1
End With
19:
How do I specify the height of the groups

With ExplorerBar1
	.GroupHeight = 40
	.Groups.Add "Group 1"
	.Groups.Add "Group 2"
End With
18:
How do I change the visual appearance of the groups
With ExplorerBar1
	.GroupAppearance = exSingle
	.Groups.Add "Group 1"
	.Groups.Add "Group 2"
End With
17:
How do I change the visual appearance of the groups, using your EBN files

With ExplorerBar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.BackColorGroup = &H1000000
	.Groups.Add "Group 1"
	.Groups.Add "Group 2"
End With
16:
How do I change the background color for the groups
With ExplorerBar1
	.BackColorGroup = RGB(255,0,0)
	.BackColorGroup2 = RGB(255,0,0)
	.Groups.Add "Group 1"
End With
15:
How do I change the background color for the groups

With ExplorerBar1
	.BackColorGroup = RGB(255,0,0)
	.Groups.Add "Group 1"
End With
14:
How do I change the control's foreground color

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

With ExplorerBar1
	.Font.Name = "Tahoma"
	.Groups.Add "Group 1"
End With
12:
How do I change the control's foreground color

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

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

With ExplorerBar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Appearance = &H1000000
End With
9:
How do I remove the control's border
With ExplorerBar1
	.Appearance = exNone
End With
8:
How do I put a picture on the center of the control
With ExplorerBar1
	.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = MiddleCenter
End With
7:
How do I resize/stretch a picture on the control's background
With ExplorerBar1
	.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = Stretch
End With
6:
How do I put a picture on the control's center right bottom side

With ExplorerBar1
	.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = LowerRight
End With
5:
How do I put a picture on the control's center left bottom side
With ExplorerBar1
	.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = LowerLeft
End With
4:
How do I put a picture on the control's center top side
With ExplorerBar1
	.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = UpperCenter
End With
3:
How do I put a picture on the control's right top corner
With ExplorerBar1
	.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = UpperRight
End With
2:
How do I put a picture on the control's left top corner
With ExplorerBar1
	.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	.PictureDisplay = UpperLeft
End With
1:
How do I put a picture on the control's background
With ExplorerBar1
	.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
End With