175:
How can I change the group's color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BackColorGroup = RGB(255,0,0)
		.BackColorGroup2 = .BackColorGroup
		.GroupAppearance = 0
		With .Groups
			.Add "Group 1"
			.Add "Group 2"
		End With
	End With
End Function
</SCRIPT>
</BODY>

174:
How can remove the group's appearance
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BackColorGroup = .BackColor
		.BackColorGroup2 = .BackColor
		.GroupAppearance = 1
		With .Groups
			.Add "Group 1"
			.Add "Group 2"
		End With
	End With
End Function
</SCRIPT>
</BODY>

173:
How can I align the group/item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BeginUpdate 
		With .Groups.Add("Group 1")
			.Alignment = 0
			.AddItem("Item 1").Alignment = 0
			.Expanded = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

172:
Just seen the BackgroundExt property. Not sure what I can do with that

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExplorerBar1_AddGroup(Group)
	With ExplorerBar1
		With Group
		End With
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function ExplorerBar1_AddItem(Item)
	With ExplorerBar1
		With Item
		End With
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With 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"
		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(2,4) = "<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(2,4) = "<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(2,4) = "<img>sweden:44</img>"
			.AddItem "Gamla stan"
			.AddItem "Vasa Museum"
			.AddItem "Stockholm Palace"
			.AddItem "Skansen"
			.AddItem "Djurgården"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.BackColorGroup = &H1000000
		.Groups.Add "Group 1"
		.Groups.Add("Group 2").BackColor = &H100aabb
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Appearance = 27966412 ' &H1aabbc8 Or AppearanceEnum.exDrop
	End With
End Function
</SCRIPT>
</BODY>

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
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

168:
How can I scroll to the end of the groups

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

167:
How can I display an item by multiple lines

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 0
				.CaptionFormat = 1
				.SingleLine = False
			End With
			.AddItem "Item 3"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

166:
How can I indent an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.AddItem("Item 1").Alignment = 0
			With .AddItem("Sub Item <b>1</b>")
				.CaptionFormat = 1
				.Alignment = 0
				.Indent = 12
			End With
			With .AddItem("Sub Item <b>2</b>")
				.CaptionFormat = 1
				.Alignment = 0
				.Indent = 12
			End With
			With .AddItem("Sub Item <b>3</b>")
				.CaptionFormat = 1
				.Alignment = 0
				.Indent = 12
			End With
			With .AddItem("Sub Sub Item <b>3</b>")
				.CaptionFormat = 1
				.Alignment = 0
				.Indent = 24
			End With
			With .AddItem("Item 2")
				.Alignment = 0
			End With
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 1
			.AddItem "Item 3"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

164:
How can I assign a tooltip to an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

163:
How can I show or hide an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.AddItem("Item 2").Visible = False
			.AddItem "Item 3"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

162:
How can I align an icon for an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 0
			End With
			With .AddItem("Item 2")
				.Image = 2
				.ImageAlignment = 2
			End With
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

161:
How can I stop highlighting an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.AddItem("<bgcolor=FF0000>Item</bgcolor> 2").CaptionFormat = 1
			.AddItem "Item 3"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

155:
How can I get the group of the item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

154:
How can I get the index of the item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

153:
How can I draw underlined an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.AddItem("<u>Item</u> 2").CaptionFormat = 1
			.AddItem "Item 3"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

152:
How can I draw underlined an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.AddItem("Item 2").Underline = True
			.AddItem "Item 3"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

151:
How can I draw as strikeout an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.AddItem("<s>Item</s> 2").CaptionFormat = 1
			.AddItem "Item 3"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

150:
How can I draw as strikeout an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.AddItem("Item 2").StrikeOut = True
			.AddItem "Item 3"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

149:
How can I draw as italic an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.AddItem("<i>Item</i> 2").CaptionFormat = 1
			.AddItem "Item 3"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

148:
How can I draw as italic an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.AddItem("Item 2").Italic = True
			.AddItem "Item 3"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

147:
How can I add a anchor or a hyperlink

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.HighlightItemType = 0
		.HandCursor = False
		With .Groups.Add("Group 1")
			.AddItem("Link <a1><b>1</b></a>").CaptionFormat = 1
			.AddItem("Link <a2><b>2</b></a>").CaptionFormat = 1
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

146:
How do I bold an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.AddItem("<b>Item</a> 2").CaptionFormat = 1
			.AddItem "Item 3"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

145:
How do I bold an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.AddItem("Item 2").Bold = True
			.AddItem "Item 3"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

144:
How can I align an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 0
			.AddItem("Center",2).Alignment = 1
			.AddItem("Right",3).Alignment = 2
			.AddItem("Middle",1).Alignment = 4
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

143:
How can I assign some extra data to an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 1
			.AddItem("Item 2").Image = 2
			.AddItem("Item 3").Image = 3
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

139:
How can I change the item's position

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.AddItem "Item 2"
			.AddItem("Item 3").Position = 0
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

138:
How can I change the item's caption

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

137:
How do I add new items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Groups.Add("Group 1").AddItem("Item 1").Bold = True
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

135:
How can I show or hide the expanding or collapsing button

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

134:
How can I avoid expanding or collapsing a group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

133:
How can I assign a tooltip to a group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 1
	End With
End Function
</SCRIPT>
</BODY>

131:
How can I disable scrolling the group's list when it is expanded or collapsed

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

129:
How can I access the bounding rectangle of the group's area

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

128:
How can I expand or collapse a group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

127:
How can I specify the height of the items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

126:
How do I put a picture on the group's background
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 2
			.Expanded = True
		End With
		.Groups.Add "Group 3"
	End With
End Function
</SCRIPT>
</BODY>

125:
How do I put a picture on the group's background
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

124:
How can I change the foreground color for items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Groups.Add "Group 1"
		.Groups.Add("<fgcolor=FF0000>Group</fgcolor> 2").CaptionFormat = 1
		.Groups.Add "Group 3"
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Groups.Add "Group 1"
		.Groups.Add("Group 2").ForeColor = RGB(255,0,0)
		.Groups.Add "Group 3"
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Groups.Add "Group 1"
		.Groups.Add("<bgcolor=FF0000>Group</bgcolor> 2").CaptionFormat = 1
		.Groups.Add "Group 3"
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.GroupAppearance = 1
		.Groups.Add "Group 1"
		.Groups.Add("Group 2").BackColor = &H1000000
		.Groups.Add "Group 3"
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Groups.Add "Group 1"
		.Groups.Add("Group 2").BackColor = RGB(255,0,0)
		.Groups.Add "Group 3"
	End With
End Function
</SCRIPT>
</BODY>

117:
How do I get the index of the group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

116:
How can I underline the group's name

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Groups.Add("<u>Group</u> 1").CaptionFormat = 1
	End With
End Function
</SCRIPT>
</BODY>

115:
How can I underline the group's name

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Groups.Add "Group 1"
		.Groups.Add("Group 2").Underline = True
		.Groups.Add "Group 3"
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Groups.Add("<s>Group</s> 1").CaptionFormat = 1
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Groups.Add "Group 1"
		.Groups.Add("Group 2").StrikeOut = True
		.Groups.Add "Group 3"
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Groups.Add("<i>Group</i> 1").CaptionFormat = 1
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Groups.Add "Group 1"
		.Groups.Add("Group 2").Italic = True
		.Groups.Add "Group 3"
	End With
End Function
</SCRIPT>
</BODY>

110:
How do I bold the group's name

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Groups.Add("<b>Group</b> 1").CaptionFormat = 1
	End With
End Function
</SCRIPT>
</BODY>

109:
How do I bold the group's name

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Groups.Add "Group 1"
		.Groups.Add("Group 2").Bold = True
		.Groups.Add "Group 3"
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 2
			.Alignment = 2
		End With
	End With
End Function
</SCRIPT>
</BODY>

107:
How can I align the group's name

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Groups.Add("Group 1").Alignment = 2
	End With
End Function
</SCRIPT>
</BODY>

106:
How can I align the group's name

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Groups.Add("Group 1").Alignment = 0
	End With
End Function
</SCRIPT>
</BODY>

105:
How can I assign some extra data to a group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Groups.Add("Group 1").UserData = "your data"
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 1
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

102:
How can I access an item by its position

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

101:
How can I change the position of a group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Groups.Add "Group 1"
		.Groups.Add "Group 2"
		.Groups.Add("Group 3").Position = 0
	End With
End Function
</SCRIPT>
</BODY>

100:
How can I change the group's caption

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.AddItem "Item 2"
			.AddItem "Item 3"
			.AddItem .Count
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

98:
How can I access an item in a group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

97:
How can I remove all items, from a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.AddItem "Item 2"
			.AddItem "Item 3"
			.Clear 
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.AddItem "Item 2"
			.AddItem "Item 3"
			.RemoveItem 1
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Groups.Add("Group 1").AddItem "Item 1"
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

92:
How can I get the groups as they are listed
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups
			.Add "Group 1"
			.Add "Group 2"
			.Add "Group 3"
		End With
	End With
End Function
</SCRIPT>
</BODY>

91:
How can I access a group by position

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups
			.Add "Group 1"
			.Add "Group 2"
			.Add "Group 3"
			.ItemByPos(1).Bold = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

90:
How can I access a group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups
			.Add "Group 1"
			.Add "Group 2"
			.Add "Group 3"
			.Item(1).Bold = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

89:
How can I clear the groups collection
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups
			.Add "Group 1"
			.Add "Group 2"
			.Add "Group 3"
			.Clear 
		End With
	End With
End Function
</SCRIPT>
</BODY>

88:
How can I remove a group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups
			.Add "Group 1"
			.Add "Group 2"
			.Add "Group 3"
			.Remove 1
		End With
	End With
End Function
</SCRIPT>
</BODY>

87:
How can I add a group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.AddItem "Item 2"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

86:
How do I count the number of groups
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups
			.Add "Group 1"
			.Add "Group 2"
			.Add "Group 3"
			.Add .Count
		End With
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

70:
How do I select a shortcut

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

69:
How do I show or hide the shortcut bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

68:
How do I access the groups collection
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Groups.Add "Group 1"
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.FormatAnchor(False) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
		.HighlightItemType = 0
		.HandCursor = False
		.Groups.Add("Group <a1><b>1</b></a>").CaptionFormat = 1
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.FormatAnchor(False) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
		.HighlightItemType = 0
		.HandCursor = False
		With .Groups.Add("Group 1")
			.AddItem("Item <a1><b>1</b></a>").CaptionFormat = 1
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.HighlightItemType = 0
		.HandCursor = False
		.FormatAnchor(True) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
		.Groups.Add("Group <a1><b>1</b></a>").CaptionFormat = 1
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.HighlightItemType = 0
		.HandCursor = False
		.FormatAnchor(True) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
		With .Groups.Add("Group 1")
			.AddItem("Item <a1><b>1</b></a>").CaptionFormat = 1
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 1
			End With
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

62:
How can I add several pictures and icons to an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 1
			End With
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

61:
How can I add several pictures to an item

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 1
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

60:
How can I add several pictures to a group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 1
			.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
			.AddItem "Item 1"
			.AddItem "Item 2"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 1
	End With
End Function
</SCRIPT>
</BODY>

58:
How can I add several pictures to a group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 1
			.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
			.AddItem "Item 1"
			.AddItem "Item 2"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

57:
How can I add several pictures to a group

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 1
	End With
End Function
</SCRIPT>
</BODY>

56:
How do I force refreshing the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .Groups.Add("Group 1")
			.Expanded = True
			.AddItem "Item 1"
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

55:
How can show or hide the focus rectangle

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.ShowFocusRect = False
		With .Groups.Add("Group 1")
			.Expanded = True
			.AddItem "Item 1"
		End With
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

53:
How do I let the tooltip being displayed longer

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

52:
Can I change the default border of the tooltip, using your EBN files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.ToolTipDelay = 1
		.ToolTipWidth = 364
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Background(64) = &H1000000
		.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
	End With
End Function
</SCRIPT>
</BODY>

51:
Can I change the background color for the tooltip

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.ToolTipDelay = 1
		.ToolTipWidth = 364
		.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."
	End With
End Function
</SCRIPT>
</BODY>

50:
Does the tooltip support HTML format

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

49:
Can I change the forecolor for the tooltip

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.ToolTipDelay = 1
		.ToolTipWidth = 364
		.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."
	End With
End Function
</SCRIPT>
</BODY>

48:
Can I change the foreground color for the tooltip

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

47:
Can I change the font for the tooltip

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

46:
Can I change the font for the tooltip

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

45:
How do I disable showing the tooltip for all control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

44:
How do I show the tooltip quicker
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

43:
How do I call your x-script language

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		With .ExecuteTemplate("Groups.Add(`Group 1`)")
			.AddItem "Item 1"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

42:
How do I call your x-script language

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Template = "BackColor = RGB(255,0,0)"
	End With
End Function
</SCRIPT>
</BODY>

41:
How can I hide a tooltip when the item exceeds its area, so ... are displayed
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

40:
How can I show a tooltip when the item exceeds its area, so ... are displayed

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

39:
How do I specify the distance between two groups

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BorderGroupHeight = 0
		.Groups.Add "Group 1"
		.Groups.Add("Group 2").AddItem "Item 2"
	End With
End Function
</SCRIPT>
</BODY>

38:
How can I change the expand / collapse buttons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

37:
How do I enable or disable the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

36:
How do I hide the icons in the right side of the group, the expand / collapse buttons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

35:
Is there any option to stop using the hand shape cursor, when the cursor hovers an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 0
		With .Groups.Add("Group 1")
			.AddItem("Item 1").Image = 1
			.Expanded = True
		End With
		.Groups.Add("Group 2").AddItem "Item 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

34:
How do I specify the color to highlight the item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 4
		With .Groups.Add("Group 1")
			.AddItem("Item 1").Image = 1
			.Expanded = True
		End With
		.Groups.Add("Group 2").AddItem "Item 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

33:
How can I expand or collapse a group when I click only its right icon
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 4
		With .Groups.Add("Group 1")
			.AddItem("Item 1").Image = 1
			.Expanded = True
		End With
		.Groups.Add("Group 2").AddItem "Item 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

32:
How do I remove the control's borders
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BeginUpdate 
		.Appearance = 0
		.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 = 4
		With .Groups.Add("Group 1")
			.AddItem("Item 1").Image = 1
			.Expanded = True
		End With
		.Groups.Add("Group 2").AddItem "Item 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

31:
How do I specify width or the height of the control's borders
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BeginUpdate 
		.Appearance = 0
		.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 = 4
		With .Groups.Add("Group 1")
			.AddItem("Item 1").Image = 1
			.Expanded = True
		End With
		.Groups.Add("Group 2").AddItem "Item 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

30:
How do I access the item from the point
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()

End Function
</SCRIPT>
</BODY>

29:
How do I access the group from the point
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()

End Function
</SCRIPT>
</BODY>

28:
How do I specify to highlight the items in the group, when the cursor hovers the item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 4
		With .Groups.Add("Group 1")
			.AddItem("Item 1").Image = 1
			.Expanded = True
		End With
		.Groups.Add("Group 2").AddItem "Item 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

27:
How do I specify to highlight the items in the group, when the cursor hovers the item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 3
		With .Groups.Add("Group 1")
			.AddItem("Item 1").Image = 1
			.Expanded = True
		End With
		.Groups.Add("Group 2").AddItem "Item 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

26:
How do I specify to highlight the items in the group, when the cursor hovers the item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 2
		With .Groups.Add("Group 1")
			.AddItem("Item 1").Image = 1
			.Expanded = True
		End With
		.Groups.Add("Group 2").AddItem "Item 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

25:
How do I specify to highlight the items in the group, when the cursor hovers the item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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 = 1
		With .Groups.Add("Group 1")
			.AddItem("Item 1").Image = 1
			.Expanded = True
		End With
		.Groups.Add("Group 2").AddItem "Item 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

24:
How do I specify the way the control highlight the items in the group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BeginUpdate 
		.HighlightItemType = 0
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.Expanded = True
		End With
		.Groups.Add("Group 2").AddItem "Item 2"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

23:
Is there any function to avoid painting the control while adding multiple items and groups
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

22:
How do I decrease the delay to scroll a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

21:
How do I display icons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

20:
How do I display 32x32 icons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

19:
How do I specify the height of the groups

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.GroupHeight = 40
		.Groups.Add "Group 1"
		.Groups.Add "Group 2"
	End With
End Function
</SCRIPT>
</BODY>

18:
How do I change the visual appearance of the groups
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.GroupAppearance = 1
		.Groups.Add "Group 1"
		.Groups.Add "Group 2"
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.BackColorGroup = &H1000000
		.Groups.Add "Group 1"
		.Groups.Add "Group 2"
	End With
End Function
</SCRIPT>
</BODY>

16:
How do I change the background color for the groups
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BackColorGroup = RGB(255,0,0)
		.BackColorGroup2 = RGB(255,0,0)
		.Groups.Add "Group 1"
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BackColorGroup = RGB(255,0,0)
		.Groups.Add "Group 1"
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

13:
How can I change the control's font

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Font.Name = "Tahoma"
		.Groups.Add "Group 1"
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.ForeColor = RGB(255,0,0)
		With .Groups.Add("Group 1")
			.AddItem "Item 1"
			.Expanded = True
		End With
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.BackColor = RGB(200,200,200)
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Appearance = 16777216 ' &H1000000
	End With
End Function
</SCRIPT>
</BODY>

9:
How do I remove the control's border
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Appearance = 0
	End With
End Function
</SCRIPT>
</BODY>

8:
How do I put a picture on the center of the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 17
	End With
End Function
</SCRIPT>
</BODY>

7:
How do I resize/stretch a picture on the control's background
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 49
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 34
	End With
End Function
</SCRIPT>
</BODY>

5:
How do I put a picture on the control's center left bottom side
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 32
	End With
End Function
</SCRIPT>
</BODY>

4:
How do I put a picture on the control's center top side
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 1
	End With
End Function
</SCRIPT>
</BODY>

3:
How do I put a picture on the control's right top corner
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 2
	End With
End Function
</SCRIPT>
</BODY>

2:
How do I put a picture on the control's left top corner
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.PictureDisplay = 0
	End With
End Function
</SCRIPT>
</BODY>

1:
How do I put a picture on the control's background
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExplorerBar1
		.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	End With
End Function
</SCRIPT>
</BODY>