175:
How can I change the group's color
Dim oExplorerBar as P
Dim var_Groups as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BackColorGroup = 255
oExplorerBar.BackColorGroup2 = oExplorerBar.BackColorGroup
oExplorerBar.GroupAppearance = 0
var_Groups = oExplorerBar.Groups
	var_Groups.Add("Group 1")
	var_Groups.Add("Group 2")

174:
How can remove the group's appearance
Dim oExplorerBar as P
Dim var_Groups as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BackColorGroup = oExplorerBar.BackColor
oExplorerBar.BackColorGroup2 = oExplorerBar.BackColor
oExplorerBar.GroupAppearance = 1
var_Groups = oExplorerBar.Groups
	var_Groups.Add("Group 1")
	var_Groups.Add("Group 2")

173:
How can I align the group/item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BeginUpdate()
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.Alignment = 0
	' var_Group.AddItem("Item 1").Alignment = 0
	var_Item = var_Group.AddItem("Item 1")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.Alignment = 0"

	var_Group.Expanded = .t.
oExplorerBar.EndUpdate()

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

' Occurs when a new group is added to collection.
function AddGroup as v (Group as OLE::Exontrol.ExplorerBar.1::IGroup)
	oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
end function

' Occurs when a new item is added to a group.
function AddItem as v (Item as OLE::Exontrol.ExplorerBar.1::IItem)
	oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
end function

Dim oExplorerBar as P
Dim var_Appearance as P
Dim var_Group as P
Dim var_Group1 as P
Dim var_Group2 as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BeginUpdate()
oExplorerBar.Appearance = 0
var_Appearance = oExplorerBar.VisualAppearance
	var_Appearance.Add(1,"c:\exontrol\images\normal.ebn")
	var_Appearance.Add(2,"CP:1 48 12 -24 0")
	var_Appearance.Add(3,"c:\exontrol\images\pushed.ebn")
oExplorerBar.Template = "HTMLPicture(`uk`) = `c:\exontrol\images\zipdisk.gif`" // oExplorerBar.HTMLPicture("uk") = "c:\exontrol\images\zipdisk.gif"
oExplorerBar.Template = "HTMLPicture(`brazil`) = `c:\exontrol\images\auction.gif`" // oExplorerBar.HTMLPicture("brazil") = "c:\exontrol\images\auction.gif"
oExplorerBar.Template = "HTMLPicture(`sweden`) = `c:\exontrol\images\colorize.gif`" // oExplorerBar.HTMLPicture("sweden") = "c:\exontrol\images\colorize.gif"
oExplorerBar.BackColorGroup = 33554432
oExplorerBar.BackColorGroup2 = oExplorerBar.BackColorGroup
oExplorerBar.GroupHeight = 40
var_Group = oExplorerBar.Groups.Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>United Kingdom")
	' var_Group.BackgroundExtValue(2,4) = "<img>uk:44</img>"
	oExplorerBar.TemplateDef = "dim var_Group"
	oExplorerBar.TemplateDef = var_Group
	oExplorerBar.Template = "var_Group.BackgroundExtValue(2,4) = `<img>uk:44</img>`"

	var_Group.AddItem("London Eye")
	var_Group.AddItem("Tower of London")
	var_Group.AddItem("Buckingham Palace")
	var_Group.AddItem("River Thames")
	var_Group.AddItem("Stonehenge")
var_Group1 = oExplorerBar.Groups.Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>Brazil")
	' var_Group1.BackgroundExtValue(2,4) = "<img>brazil:44</img>"
	oExplorerBar.TemplateDef = "dim var_Group1"
	oExplorerBar.TemplateDef = var_Group1
	oExplorerBar.Template = "var_Group1.BackgroundExtValue(2,4) = `<img>brazil:44</img>`"

	var_Group1.AddItem("Cristo Redentor")
	var_Group1.AddItem("Copacabana")
	var_Group1.AddItem("Ipanema, Rio de Janeiro")
	var_Group1.AddItem("Iguazu Falls")
	var_Group1.AddItem("Sugarloaf Mountain")
	var_Group1.Expanded = .t.
var_Group2 = oExplorerBar.Groups.Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>Sweden")
	' var_Group2.BackgroundExtValue(2,4) = "<img>sweden:44</img>"
	oExplorerBar.TemplateDef = "dim var_Group2"
	oExplorerBar.TemplateDef = var_Group2
	oExplorerBar.Template = "var_Group2.BackgroundExtValue(2,4) = `<img>sweden:44</img>`"

	var_Group2.AddItem("Gamla stan")
	var_Group2.AddItem("Vasa Museum")
	var_Group2.AddItem("Stockholm Palace")
	var_Group2.AddItem("Skansen")
	var_Group2.AddItem("Djurgården")
oExplorerBar.EndUpdate()

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

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExplorerBar.BackColorGroup = 16777216
oExplorerBar.Groups.Add("Group 1")
' oExplorerBar.Groups.Add("Group 2").BackColor = 16820923
var_Group = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.BackColor = 16820923"


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

Dim oExplorerBar as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExplorerBar.Appearance = 27966412 '1aabbc8 + exDrop

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
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Groups as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BeginUpdate()
oExplorerBar.GroupHeight = 48
var_Groups = oExplorerBar.Groups
	var_Groups.Add("Group 1")
	var_Groups.Add("Group 2")
	var_Groups.Add("Group 3")
	var_Groups.Add("Group 4")
	var_Groups.Add("Group 5")
	var_Groups.Add("Group 6")
	var_Groups.Add("Group 7")
	var_Groups.Add("Group 8")
	var_Groups.Add("Group 9")
	var_Groups.Add("Group 10")
	var_Groups.Add("Group 11")
	var_Group = var_Groups.Add("Group 12")
		var_Group.AddItem(0)
		var_Group.AddItem(1)
		var_Group.AddItem(2)
oExplorerBar.EnsureVisible(11,2)
oExplorerBar.EndUpdate()

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

Dim oExplorerBar as P
Dim var_Groups as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BeginUpdate()
oExplorerBar.GroupHeight = 48
var_Groups = oExplorerBar.Groups
	var_Groups.Add("Group 1")
	var_Groups.Add("Group 2")
	var_Groups.Add("Group 3")
	var_Groups.Add("Group 4")
	var_Groups.Add("Group 5")
	var_Groups.Add("Group 6")
	var_Groups.Add("Group 7")
	var_Groups.Add("Group 8")
	var_Groups.Add("Group 9")
	var_Groups.Add("Group 10")
	var_Groups.Add("Group 11")
	var_Groups.Add("Group 12")
oExplorerBar.EnsureVisible(11)
oExplorerBar.EndUpdate()

167:
How can I display an item by multiple lines

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("SingleLine")
	var_Item = var_Group.AddItem("This is bit of text that should break the lines, and so <b>multiple</b> lines are displayed")
		var_Item.Alignment = 0
		var_Item.CaptionFormat = 1
		var_Item.SingleLine = .f.
	var_Group.AddItem("Item 3")
	var_Group.Expanded = .t.

166:
How can I indent an item

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
Dim var_Item1 as P
Dim var_Item2 as P
Dim var_Item3 as P
Dim var_Item4 as P
Dim var_Item5 as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	' var_Group.AddItem("Item 1").Alignment = 0
	var_Item = var_Group.AddItem("Item 1")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.Alignment = 0"

	var_Item1 = var_Group.AddItem("Sub Item <b>1</b>")
		var_Item1.CaptionFormat = 1
		var_Item1.Alignment = 0
		var_Item1.Indent = 12
	var_Item2 = var_Group.AddItem("Sub Item <b>2</b>")
		var_Item2.CaptionFormat = 1
		var_Item2.Alignment = 0
		var_Item2.Indent = 12
	var_Item3 = var_Group.AddItem("Sub Item <b>3</b>")
		var_Item3.CaptionFormat = 1
		var_Item3.Alignment = 0
		var_Item3.Indent = 12
	var_Item4 = var_Group.AddItem("Sub Sub Item <b>3</b>")
		var_Item4.CaptionFormat = 1
		var_Item4.Alignment = 0
		var_Item4.Indent = 24
	var_Item5 = var_Group.AddItem("Item 2")
		var_Item5.Alignment = 0
	var_Group.Expanded = .t.

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

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	' var_Group.AddItem("<font Tahoma;11>T</font>his is an HTML <b>item</b> assigned to a <fgcolor=FF0000>group</fgcolor>").CaptionFormat = 1
	var_Item = var_Group.AddItem("<font Tahoma;11>T</font>his is an HTML <b>item</b> assigned to a <fgcolor=FF0000>group</fgcolor>")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.CaptionFormat = 1"

	var_Group.AddItem("Item 3")
	var_Group.Expanded = .t.

164:
How can I assign a tooltip to an item

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	' var_Group.AddItem("ToolTip").ToolTip = "This is bit of text that should appear when the cursor hovers the <b>item</b>."
	var_Item = var_Group.AddItem("ToolTip")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.ToolTip = `This is bit of text that should appear when the cursor hovers the <b>item</b>.`"

	var_Group.AddItem("Item 3")
	var_Group.Expanded = .t.

163:
How can I show or hide an item

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	' var_Group.AddItem("Item 2").Visible = .f.
	var_Item = var_Group.AddItem("Item 2")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.Visible = False"

	var_Group.AddItem("Item 3")
	var_Group.Expanded = .t.

162:
How can I align an icon for an item

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as P
Dim var_Item1 as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Item = var_Group.AddItem("Item 1")
		var_Item.Image = 1
		var_Item.ImageAlignment = 0
	var_Item1 = var_Group.AddItem("Item 2")
		var_Item1.Image = 2
		var_Item1.ImageAlignment = 2
	var_Group.Expanded = .t.

161:
How can I stop highlighting an item

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	' var_Group.AddItem("Item 2 - no ").AllowHighLight = .f.
	var_Item = var_Group.AddItem("Item 2 - no ")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.AllowHighLight = False"

	var_Group.AddItem("Item 3")
	var_Group.Expanded = .t.

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

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Item = var_Group.AddItem("Item 2")
		var_Item.BackColor = 255
		var_Item.BackColor2 = 16777215
	var_Group.AddItem("Item 3")
	var_Group.Expanded = .t.

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

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	' var_Group.AddItem("<bgcolor=FF0000>Item</bgcolor> 2").CaptionFormat = 1
	var_Item = var_Group.AddItem("<bgcolor=FF0000>Item</bgcolor> 2")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.CaptionFormat = 1"

	var_Group.AddItem("Item 3")
	var_Group.Expanded = .t.

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

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	' var_Group.AddItem("Item 2").ForeColor = 255
	var_Item = var_Group.AddItem("Item 2")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.ForeColor = 255"

	var_Group.AddItem("Item 3")
	var_Group.Expanded = .t.

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

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	' var_Group.AddItem("Item 2").BackColor = 16777216
	var_Item = var_Group.AddItem("Item 2")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.BackColor = 16777216"

	var_Group.AddItem("Item 3")
	var_Group.Expanded = .t.

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

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	' var_Group.AddItem("Item 2").BackColor = 255
	var_Item = var_Group.AddItem("Item 2")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.BackColor = 255"

	var_Group.AddItem("Item 3")
	var_Group.Expanded = .t.

155:
How can I get the group of the item

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Group1 as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	' var_Group.AddItem("Item 2").Group.Bold = .t.
	var_Group1 = var_Group.AddItem("Item 2").Group
	oExplorerBar.TemplateDef = "dim var_Group1"
	oExplorerBar.TemplateDef = var_Group1
	oExplorerBar.Template = "var_Group1.Bold = True"

	var_Group.AddItem("Item 3")
	var_Group.Expanded = .t.

154:
How can I get the index of the item

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as P
Dim var_Item1 as P
Dim var_Item2 as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Item = var_Group.AddItem("Item 1")
		var_Item.Caption = var_Item.Index
	var_Item1 = var_Group.AddItem("Item 2")
		var_Item1.Caption = var_Item1.Index
	var_Item2 = var_Group.AddItem("Item 3")
		var_Item2.Caption = var_Item2.Index
	var_Group.Expanded = .t.

153:
How can I draw underlined an item

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	' var_Group.AddItem("<u>Item</u> 2").CaptionFormat = 1
	var_Item = var_Group.AddItem("<u>Item</u> 2")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.CaptionFormat = 1"

	var_Group.AddItem("Item 3")
	var_Group.Expanded = .t.

152:
How can I draw underlined an item

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	' var_Group.AddItem("Item 2").Underline = .t.
	var_Item = var_Group.AddItem("Item 2")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.Underline = True"

	var_Group.AddItem("Item 3")
	var_Group.Expanded = .t.

151:
How can I draw as strikeout an item

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	' var_Group.AddItem("<s>Item</s> 2").CaptionFormat = 1
	var_Item = var_Group.AddItem("<s>Item</s> 2")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.CaptionFormat = 1"

	var_Group.AddItem("Item 3")
	var_Group.Expanded = .t.

150:
How can I draw as strikeout an item

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	' var_Group.AddItem("Item 2").StrikeOut = .t.
	var_Item = var_Group.AddItem("Item 2")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.StrikeOut = True"

	var_Group.AddItem("Item 3")
	var_Group.Expanded = .t.

149:
How can I draw as italic an item

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	' var_Group.AddItem("<i>Item</i> 2").CaptionFormat = 1
	var_Item = var_Group.AddItem("<i>Item</i> 2")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.CaptionFormat = 1"

	var_Group.AddItem("Item 3")
	var_Group.Expanded = .t.

148:
How can I draw as italic an item

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	' var_Group.AddItem("Item 2").Italic = .t.
	var_Item = var_Group.AddItem("Item 2")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.Italic = True"

	var_Group.AddItem("Item 3")
	var_Group.Expanded = .t.

147:
How can I add a anchor or a hyperlink

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
Dim var_Item1 as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.HighlightItemType = 0
oExplorerBar.HandCursor = .f.
var_Group = oExplorerBar.Groups.Add("Group 1")
	' var_Group.AddItem("Link <a1><b>1</b></a>").CaptionFormat = 1
	var_Item = var_Group.AddItem("Link <a1><b>1</b></a>")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.CaptionFormat = 1"

	' var_Group.AddItem("Link <a2><b>2</b></a>").CaptionFormat = 1
	var_Item1 = var_Group.AddItem("Link <a2><b>2</b></a>")
	oExplorerBar.TemplateDef = "dim var_Item1"
	oExplorerBar.TemplateDef = var_Item1
	oExplorerBar.Template = "var_Item1.CaptionFormat = 1"

	var_Group.Expanded = .t.

146:
How do I bold an item

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	' var_Group.AddItem("<b>Item</a> 2").CaptionFormat = 1
	var_Item = var_Group.AddItem("<b>Item</a> 2")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.CaptionFormat = 1"

	var_Group.AddItem("Item 3")
	var_Group.Expanded = .t.

145:
How do I bold an item

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	' var_Group.AddItem("Item 2").Bold = .t.
	var_Item = var_Group.AddItem("Item 2")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.Bold = True"

	var_Group.AddItem("Item 3")
	var_Group.Expanded = .t.

144:
How can I align an item

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
Dim var_Item1 as local
Dim var_Item2 as local
Dim var_Item3 as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.ItemHeight = 28
	' var_Group.AddItem("Left",1).Alignment = 0
	var_Item = var_Group.AddItem("Left",1)
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.Alignment = 0"

	' var_Group.AddItem("Center",2).Alignment = 1
	var_Item1 = var_Group.AddItem("Center",2)
	oExplorerBar.TemplateDef = "dim var_Item1"
	oExplorerBar.TemplateDef = var_Item1
	oExplorerBar.Template = "var_Item1.Alignment = 1"

	' var_Group.AddItem("Right",3).Alignment = 2
	var_Item2 = var_Group.AddItem("Right",3)
	oExplorerBar.TemplateDef = "dim var_Item2"
	oExplorerBar.TemplateDef = var_Item2
	oExplorerBar.Template = "var_Item2.Alignment = 2"

	' var_Group.AddItem("Middle",1).Alignment = 4
	var_Item3 = var_Group.AddItem("Middle",1)
	oExplorerBar.TemplateDef = "dim var_Item3"
	oExplorerBar.TemplateDef = var_Item3
	oExplorerBar.Template = "var_Item3.Alignment = 4"

	var_Group.Expanded = .t.

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

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	' var_Group.AddItem("Item 1").UserData = "your data"
	var_Item = var_Group.AddItem("Item 1")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.UserData = `your data`"

	var_Group.AddItem("Item 2")
	var_Group.AddItem("Item 3")
	var_Group.Expanded = .t.

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

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
Dim var_Item1 as local
Dim var_Item2 as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oExplorerBar.Groups.Add("Group 1")
	' var_Group.AddItem("Item <img>1</img> text <img>2</img>").CaptionFormat = 1
	var_Item = var_Group.AddItem("Item <img>1</img> text <img>2</img>")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.CaptionFormat = 1"

	' var_Group.AddItem("Item 2").Image = 2
	var_Item1 = var_Group.AddItem("Item 2")
	oExplorerBar.TemplateDef = "dim var_Item1"
	oExplorerBar.TemplateDef = var_Item1
	oExplorerBar.Template = "var_Item1.Image = 2"

	' var_Group.AddItem("Item 3").Image = 3
	var_Item2 = var_Group.AddItem("Item 3")
	oExplorerBar.TemplateDef = "dim var_Item2"
	oExplorerBar.TemplateDef = var_Item2
	oExplorerBar.Template = "var_Item2.Image = 3"

	var_Group.Expanded = .t.

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

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
Dim var_Item1 as local
Dim var_Item2 as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oExplorerBar.Groups.Add("Group 1")
	' var_Group.AddItem("Item 1").Image = 1
	var_Item = var_Group.AddItem("Item 1")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.Image = 1"

	' var_Group.AddItem("Item 2").Image = 2
	var_Item1 = var_Group.AddItem("Item 2")
	oExplorerBar.TemplateDef = "dim var_Item1"
	oExplorerBar.TemplateDef = var_Item1
	oExplorerBar.Template = "var_Item1.Image = 2"

	' var_Group.AddItem("Item 3").Image = 3
	var_Item2 = var_Group.AddItem("Item 3")
	oExplorerBar.TemplateDef = "dim var_Item2"
	oExplorerBar.TemplateDef = var_Item2
	oExplorerBar.Template = "var_Item2.Image = 3"

	var_Group.Expanded = .t.

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

Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1",1)
	var_Group.AddItem("Item 2",2)
	var_Group.AddItem("Item 3",3)
	var_Group.Expanded = .t.

139:
How can I change the item's position

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	' var_Group.AddItem("Item 3").Position = 0
	var_Item = var_Group.AddItem("Item 3")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.Position = 0"

	var_Group.Expanded = .t.

138:
How can I change the item's caption

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	' var_Group.AddItem("Item 2").Caption = "new caption"
	var_Item = var_Group.AddItem("Item 2")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.Caption = `new caption`"

	var_Group.AddItem("Item 3")
	var_Group.Expanded = .t.

137:
How do I add new items

Dim oExplorerBar as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
' oExplorerBar.Groups.Add("Group 1").AddItem("Item 1").Bold = .t.
var_Item = oExplorerBar.Groups.Add("Group 1").AddItem("Item 1")
oExplorerBar.TemplateDef = "dim var_Item"
oExplorerBar.TemplateDef = var_Item
oExplorerBar.Template = "var_Item.Bold = True"


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

Dim oExplorerBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.ShowShortcutBar = .t.
' oExplorerBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group1"
oExplorerBar.TemplateDef = var_Group1
oExplorerBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oExplorerBar.Groups.Add("Group 3")
oExplorerBar.TemplateDef = "dim var_Group2"
oExplorerBar.TemplateDef = var_Group2
oExplorerBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"

' oExplorerBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oExplorerBar.Groups.Add("Group 4")
oExplorerBar.TemplateDef = "dim var_Group3"
oExplorerBar.TemplateDef = var_Group3
oExplorerBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"


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

Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1").AddItem("Item 1")
var_Group = oExplorerBar.Groups.Add("Group 2, expanding/collapsing button is missing ")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.Expanded = .t.
	var_Group.AllowExpand = .f.
oExplorerBar.Groups.Add("Group 3").AddItem("Item 1")

134:
How can I avoid expanding or collapsing a group

Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1").AddItem("Item 1")
var_Group = oExplorerBar.Groups.Add("Group 2")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.Expanded = .t.
	var_Group.AllowExpand = .f.
oExplorerBar.Groups.Add("Group 3").AddItem("Item 1")

133:
How can I assign a tooltip to a group

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.ToolTipDelay = 1
' oExplorerBar.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the <b>group</b>."
var_Group = oExplorerBar.Groups.Add("ToolTip")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.ToolTip = `This is a bit of text that's shown when the cursor hovers the <b>group</b>.`"


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

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.GroupHeight = 44
oExplorerBar.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oExplorerBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
' oExplorerBar.Groups.Add("<img>pic1</img> <s>HTML</s> <img>1</img> <b>format</b>").CaptionFormat = 1
var_Group = oExplorerBar.Groups.Add("<img>pic1</img> <s>HTML</s> <img>1</img> <b>format</b>")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.CaptionFormat = 1"


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

Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
var_Group = oExplorerBar.Groups.Add("Group 2")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.Expanded = .t.
	var_Group.AllowScroll = .f.
oExplorerBar.Groups.Add("Group 3")

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

Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
var_Group = oExplorerBar.Groups.Add("Group 2")
	var_Group.BackColor = 255
	var_Group.BackColor2 = 16777215
oExplorerBar.Groups.Add("Group 3")

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

Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
var_Group = oExplorerBar.Groups.Add("Group 2")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.AddItem(var_Group.Top)
	var_Group.AddItem(var_Group.Left)
	var_Group.AddItem(var_Group.Width)
	var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 3")

128:
How can I expand or collapse a group

Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
var_Group = oExplorerBar.Groups.Add("Group 2")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 3")

127:
How can I specify the height of the items

Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
var_Group = oExplorerBar.Groups.Add("Group 2")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.ItemHeight = 13
	var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 3")

126:
How do I put a picture on the group's background
Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
var_Group = oExplorerBar.Groups.Add("Group 2")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.Picture = oExplorerBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	var_Group.PictureDisplay = 2
	var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 3")

125:
How do I put a picture on the group's background
Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
var_Group = oExplorerBar.Groups.Add("Group 2")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.Picture = oExplorerBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
	var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 3")

124:
How can I change the foreground color for items

Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
var_Group = oExplorerBar.Groups.Add("Group 2")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.ForeColorList = 255
	var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 3")

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

Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
var_Group = oExplorerBar.Groups.Add("Group 2")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.BackColorList = 255
	var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 3")

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

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
' oExplorerBar.Groups.Add("<fgcolor=FF0000>Group</fgcolor> 2").CaptionFormat = 1
var_Group = oExplorerBar.Groups.Add("<fgcolor=FF0000>Group</fgcolor> 2")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.CaptionFormat = 1"

oExplorerBar.Groups.Add("Group 3")

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

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
' oExplorerBar.Groups.Add("Group 2").ForeColor = 255
var_Group = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.ForeColor = 255"

oExplorerBar.Groups.Add("Group 3")

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

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
' oExplorerBar.Groups.Add("<bgcolor=FF0000>Group</bgcolor> 2").CaptionFormat = 1
var_Group = oExplorerBar.Groups.Add("<bgcolor=FF0000>Group</bgcolor> 2")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.CaptionFormat = 1"

oExplorerBar.Groups.Add("Group 3")

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

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExplorerBar.GroupAppearance = 1
oExplorerBar.Groups.Add("Group 1")
' oExplorerBar.Groups.Add("Group 2").BackColor = 16777216
var_Group = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.BackColor = 16777216"

oExplorerBar.Groups.Add("Group 3")

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

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
' oExplorerBar.Groups.Add("Group 2").BackColor = 255
var_Group = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.BackColor = 255"

oExplorerBar.Groups.Add("Group 3")

117:
How do I get the index of the group

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Group1 as P
Dim var_Group2 as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.Caption = var_Group.Index
var_Group1 = oExplorerBar.Groups.Add("Group 2")
	var_Group1.Caption = var_Group1.Index
var_Group2 = oExplorerBar.Groups.Add("Group 3")
	var_Group2.Caption = var_Group2.Index

116:
How can I underline the group's name

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
' oExplorerBar.Groups.Add("<u>Group</u> 1").CaptionFormat = 1
var_Group = oExplorerBar.Groups.Add("<u>Group</u> 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.CaptionFormat = 1"


115:
How can I underline the group's name

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
' oExplorerBar.Groups.Add("Group 2").Underline = .t.
var_Group = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Underline = True"

oExplorerBar.Groups.Add("Group 3")

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

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
' oExplorerBar.Groups.Add("<s>Group</s> 1").CaptionFormat = 1
var_Group = oExplorerBar.Groups.Add("<s>Group</s> 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.CaptionFormat = 1"


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

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
' oExplorerBar.Groups.Add("Group 2").StrikeOut = .t.
var_Group = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.StrikeOut = True"

oExplorerBar.Groups.Add("Group 3")

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

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
' oExplorerBar.Groups.Add("<i>Group</i> 1").CaptionFormat = 1
var_Group = oExplorerBar.Groups.Add("<i>Group</i> 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.CaptionFormat = 1"


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

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
' oExplorerBar.Groups.Add("Group 2").Italic = .t.
var_Group = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Italic = True"

oExplorerBar.Groups.Add("Group 3")

110:
How do I bold the group's name

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
' oExplorerBar.Groups.Add("<b>Group</b> 1").CaptionFormat = 1
var_Group = oExplorerBar.Groups.Add("<b>Group</b> 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.CaptionFormat = 1"


109:
How do I bold the group's name

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
' oExplorerBar.Groups.Add("Group 2").Bold = .t.
var_Group = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Bold = True"

oExplorerBar.Groups.Add("Group 3")

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

Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.Image = 1
	var_Group.ImageAlignment = 2
	var_Group.Alignment = 2

107:
How can I align the group's name

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
' oExplorerBar.Groups.Add("Group 1").Alignment = 2
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Alignment = 2"


106:
How can I align the group's name

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
' oExplorerBar.Groups.Add("Group 1").Alignment = 0
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Alignment = 0"


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

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
' oExplorerBar.Groups.Add("Group 1").UserData = "your data"
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.UserData = `your data`"


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

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
' oExplorerBar.Groups.Add("Group <img>1</img> text <img>2</img>").CaptionFormat = 1
var_Group = oExplorerBar.Groups.Add("Group <img>1</img> text <img>2</img>")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.CaptionFormat = 1"


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

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
' oExplorerBar.Groups.Add("Group 1").Image = 1
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Image = 1"


102:
How can I access an item by its position

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local
Dim var_Item1 as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	' var_Group.AddItem("Item 3").Position = 0
	var_Item = var_Group.AddItem("Item 3")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.Position = 0"

	' var_Group.ItemByPos(1).Bold = .t.
	var_Item1 = var_Group.ItemByPos(1)
	oExplorerBar.TemplateDef = "dim var_Item1"
	oExplorerBar.TemplateDef = var_Item1
	oExplorerBar.Template = "var_Item1.Bold = True"

	var_Group.Expanded = .t.

101:
How can I change the position of a group

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")
oExplorerBar.Groups.Add("Group 2")
' oExplorerBar.Groups.Add("Group 3").Position = 0
var_Group = oExplorerBar.Groups.Add("Group 3")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Position = 0"


100:
How can I change the group's caption

Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.AddItem("Item 3")
	var_Group.Caption = "new caption"
	var_Group.Expanded = .t.

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

Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.AddItem("Item 3")
	var_Group.AddItem(var_Group.Count)
	var_Group.Expanded = .t.

98:
How can I access an item in a group

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.AddItem("Item 3")
	' var_Group.Item(1).Bold = .t.
	var_Item = var_Group.Item(1)
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.Bold = True"

	var_Group.Expanded = .t.

97:
How can I remove all items, from a group
Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.AddItem("Item 3")
	var_Group.Clear()
	var_Group.Expanded = .t.

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

Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.AddItem("Item 3")
	var_Group.RemoveItem(1)
	var_Group.Expanded = .t.

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

Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1",1)
	var_Group.Expanded = .t.

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

Dim oExplorerBar as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1").AddItem("Item 1")

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

Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.Expanded = .t.

92:
How can I get the groups as they are listed
Dim oExplorerBar as P
Dim var_Groups as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Groups = oExplorerBar.Groups
	var_Groups.Add("Group 1")
	var_Groups.Add("Group 2")
	var_Groups.Add("Group 3")

91:
How can I access a group by position

Dim oExplorerBar as P
Dim var_Group as local
Dim var_Groups as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Groups = oExplorerBar.Groups
	var_Groups.Add("Group 1")
	var_Groups.Add("Group 2")
	var_Groups.Add("Group 3")
	' var_Groups.ItemByPos(1).Bold = .t.
	var_Group = var_Groups.ItemByPos(1)
	oExplorerBar.TemplateDef = "dim var_Group"
	oExplorerBar.TemplateDef = var_Group
	oExplorerBar.Template = "var_Group.Bold = True"


90:
How can I access a group

Dim oExplorerBar as P
Dim var_Group as local
Dim var_Groups as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Groups = oExplorerBar.Groups
	var_Groups.Add("Group 1")
	var_Groups.Add("Group 2")
	var_Groups.Add("Group 3")
	' var_Groups.Item(1).Bold = .t.
	var_Group = var_Groups.Item(1)
	oExplorerBar.TemplateDef = "dim var_Group"
	oExplorerBar.TemplateDef = var_Group
	oExplorerBar.Template = "var_Group.Bold = True"


89:
How can I clear the groups collection
Dim oExplorerBar as P
Dim var_Groups as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Groups = oExplorerBar.Groups
	var_Groups.Add("Group 1")
	var_Groups.Add("Group 2")
	var_Groups.Add("Group 3")
	var_Groups.Clear()

88:
How can I remove a group

Dim oExplorerBar as P
Dim var_Groups as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Groups = oExplorerBar.Groups
	var_Groups.Add("Group 1")
	var_Groups.Add("Group 2")
	var_Groups.Add("Group 3")
	var_Groups.Remove(1)

87:
How can I add a group

Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.Expanded = .t.

86:
How do I count the number of groups
Dim oExplorerBar as P
Dim var_Groups as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Groups = oExplorerBar.Groups
	var_Groups.Add("Group 1")
	var_Groups.Add("Group 2")
	var_Groups.Add("Group 3")
	var_Groups.Add(var_Groups.Count)

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

Dim oExplorerBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.ShowShortcutBar = .t.
' oExplorerBar.Groups.Add("Group 1").Shortcut = "Set 1"
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Shortcut = `Set 1`"

' oExplorerBar.Groups.Add("Group 2").Shortcut = "Set 1"
var_Group1 = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group1"
oExplorerBar.TemplateDef = var_Group1
oExplorerBar.Template = "var_Group1.Shortcut = `Set 1`"

' oExplorerBar.Groups.Add("Group 3").Shortcut = "Set 2"
var_Group2 = oExplorerBar.Groups.Add("Group 3")
oExplorerBar.TemplateDef = "dim var_Group2"
oExplorerBar.TemplateDef = var_Group2
oExplorerBar.Template = "var_Group2.Shortcut = `Set 2`"

' oExplorerBar.Groups.Add("Group 4").Shortcut = "Set 2"
var_Group3 = oExplorerBar.Groups.Add("Group 4")
oExplorerBar.TemplateDef = "dim var_Group3"
oExplorerBar.TemplateDef = var_Group3
oExplorerBar.Template = "var_Group3.Shortcut = `Set 2`"

oExplorerBar.Template = "ShortcutPicture(`Set 1`) = Me.ExecuteTemplate(`loadpicture(``c:\exontrol\images\zipdisk.gif``)`)" // oExplorerBar.ShortcutPicture("Set 1") = oExplorerBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oExplorerBar.Template = "ShortcutPicture(`Set 2`) = Me.ExecuteTemplate(`loadpicture(``c:\exontrol\images\auction.gif``)`)" // oExplorerBar.ShortcutPicture("Set 2") = oExplorerBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
oExplorerBar.ShortcutPictureWidth = 32
oExplorerBar.ShortcutPictureHeight = 32
oExplorerBar.ShortcutBarHeight = 32

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

Dim oExplorerBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.ShowShortcutBar = .t.
' oExplorerBar.Groups.Add("Group 1").Shortcut = "Set 1"
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Shortcut = `Set 1`"

' oExplorerBar.Groups.Add("Group 2").Shortcut = "Set 1"
var_Group1 = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group1"
oExplorerBar.TemplateDef = var_Group1
oExplorerBar.Template = "var_Group1.Shortcut = `Set 1`"

' oExplorerBar.Groups.Add("Group 3").Shortcut = "Set 2"
var_Group2 = oExplorerBar.Groups.Add("Group 3")
oExplorerBar.TemplateDef = "dim var_Group2"
oExplorerBar.TemplateDef = var_Group2
oExplorerBar.Template = "var_Group2.Shortcut = `Set 2`"

' oExplorerBar.Groups.Add("Group 4").Shortcut = "Set 2"
var_Group3 = oExplorerBar.Groups.Add("Group 4")
oExplorerBar.TemplateDef = "dim var_Group3"
oExplorerBar.TemplateDef = var_Group3
oExplorerBar.Template = "var_Group3.Shortcut = `Set 2`"

oExplorerBar.Template = "ShortcutPicture(`Set 1`) = Me.ExecuteTemplate(`loadpicture(``c:\exontrol\images\zipdisk.gif``)`)" // oExplorerBar.ShortcutPicture("Set 1") = oExplorerBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oExplorerBar.Template = "ShortcutPicture(`Set 2`) = Me.ExecuteTemplate(`loadpicture(``c:\exontrol\images\auction.gif``)`)" // oExplorerBar.ShortcutPicture("Set 2") = oExplorerBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
oExplorerBar.ShortcutBarHeight = 44

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

Dim oExplorerBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExplorerBar.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.ShowShortcutBar = .t.
' oExplorerBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group1"
oExplorerBar.TemplateDef = var_Group1
oExplorerBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oExplorerBar.Groups.Add("Group 3")
oExplorerBar.TemplateDef = "dim var_Group2"
oExplorerBar.TemplateDef = var_Group2
oExplorerBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"

' oExplorerBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oExplorerBar.Groups.Add("Group 4")
oExplorerBar.TemplateDef = "dim var_Group3"
oExplorerBar.TemplateDef = var_Group3
oExplorerBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"

oExplorerBar.ShortcutResizeBackColor = 33554432
oExplorerBar.ShortcutBarSelCaptionBackColor = 16777216
oExplorerBar.ShortcutBarSelBackColor = 16777216
oExplorerBar.BackColorGroup = 16777216

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

Dim oExplorerBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.ShowShortcutBar = .t.
' oExplorerBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group1"
oExplorerBar.TemplateDef = var_Group1
oExplorerBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oExplorerBar.Groups.Add("Group 3")
oExplorerBar.TemplateDef = "dim var_Group2"
oExplorerBar.TemplateDef = var_Group2
oExplorerBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"

' oExplorerBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oExplorerBar.Groups.Add("Group 4")
oExplorerBar.TemplateDef = "dim var_Group3"
oExplorerBar.TemplateDef = var_Group3
oExplorerBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"

oExplorerBar.ShortcutResizeBackColor = 16777216
oExplorerBar.ExpandShortcutCount = 1

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

Dim oExplorerBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.ShowShortcutBar = .t.
' oExplorerBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group1"
oExplorerBar.TemplateDef = var_Group1
oExplorerBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oExplorerBar.Groups.Add("Group 3")
oExplorerBar.TemplateDef = "dim var_Group2"
oExplorerBar.TemplateDef = var_Group2
oExplorerBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"

' oExplorerBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oExplorerBar.Groups.Add("Group 4")
oExplorerBar.TemplateDef = "dim var_Group3"
oExplorerBar.TemplateDef = var_Group3
oExplorerBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"

oExplorerBar.ShortcutResizeBackColor = 255
oExplorerBar.ExpandShortcutCount = 1

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

Dim oExplorerBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.ShowShortcutBar = .t.
' oExplorerBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group1"
oExplorerBar.TemplateDef = var_Group1
oExplorerBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oExplorerBar.Groups.Add("Group 3")
oExplorerBar.TemplateDef = "dim var_Group2"
oExplorerBar.TemplateDef = var_Group2
oExplorerBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"

' oExplorerBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oExplorerBar.Groups.Add("Group 4")
oExplorerBar.TemplateDef = "dim var_Group3"
oExplorerBar.TemplateDef = var_Group3
oExplorerBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"

oExplorerBar.ShortcutBarSelCaptionBackColor = 16777216
oExplorerBar.ExpandShortcutCount = 1

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

Dim oExplorerBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.ShowShortcutBar = .t.
' oExplorerBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group1"
oExplorerBar.TemplateDef = var_Group1
oExplorerBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oExplorerBar.Groups.Add("Group 3")
oExplorerBar.TemplateDef = "dim var_Group2"
oExplorerBar.TemplateDef = var_Group2
oExplorerBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"

' oExplorerBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oExplorerBar.Groups.Add("Group 4")
oExplorerBar.TemplateDef = "dim var_Group3"
oExplorerBar.TemplateDef = var_Group3
oExplorerBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"

oExplorerBar.ShortcutBarSelCaptionBackColor = 255
oExplorerBar.ExpandShortcutCount = 1

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

Dim oExplorerBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.ShowShortcutBar = .t.
' oExplorerBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group1"
oExplorerBar.TemplateDef = var_Group1
oExplorerBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oExplorerBar.Groups.Add("Group 3")
oExplorerBar.TemplateDef = "dim var_Group2"
oExplorerBar.TemplateDef = var_Group2
oExplorerBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"

' oExplorerBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oExplorerBar.Groups.Add("Group 4")
oExplorerBar.TemplateDef = "dim var_Group3"
oExplorerBar.TemplateDef = var_Group3
oExplorerBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"

oExplorerBar.ShortcutBarSelBackColor = 16777216

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

Dim oExplorerBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.ShowShortcutBar = .t.
' oExplorerBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group1"
oExplorerBar.TemplateDef = var_Group1
oExplorerBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oExplorerBar.Groups.Add("Group 3")
oExplorerBar.TemplateDef = "dim var_Group2"
oExplorerBar.TemplateDef = var_Group2
oExplorerBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"

' oExplorerBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oExplorerBar.Groups.Add("Group 4")
oExplorerBar.TemplateDef = "dim var_Group3"
oExplorerBar.TemplateDef = var_Group3
oExplorerBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"

oExplorerBar.ShortcutBarSelBackColor = 255

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

Dim oExplorerBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.ShowShortcutBar = .t.
' oExplorerBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group1"
oExplorerBar.TemplateDef = var_Group1
oExplorerBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oExplorerBar.Groups.Add("Group 3")
oExplorerBar.TemplateDef = "dim var_Group2"
oExplorerBar.TemplateDef = var_Group2
oExplorerBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"

' oExplorerBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oExplorerBar.Groups.Add("Group 4")
oExplorerBar.TemplateDef = "dim var_Group3"
oExplorerBar.TemplateDef = var_Group3
oExplorerBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"

oExplorerBar.ShortcutBarBackColor = 16777216

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

Dim oExplorerBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.ShowShortcutBar = .t.
' oExplorerBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group1"
oExplorerBar.TemplateDef = var_Group1
oExplorerBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oExplorerBar.Groups.Add("Group 3")
oExplorerBar.TemplateDef = "dim var_Group2"
oExplorerBar.TemplateDef = var_Group2
oExplorerBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"

' oExplorerBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oExplorerBar.Groups.Add("Group 4")
oExplorerBar.TemplateDef = "dim var_Group3"
oExplorerBar.TemplateDef = var_Group3
oExplorerBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"

oExplorerBar.ShortcutBarBackColor = 255

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

Dim oExplorerBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.ShowShortcutBar = .t.
' oExplorerBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group1"
oExplorerBar.TemplateDef = var_Group1
oExplorerBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oExplorerBar.Groups.Add("Group 3")
oExplorerBar.TemplateDef = "dim var_Group2"
oExplorerBar.TemplateDef = var_Group2
oExplorerBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"

' oExplorerBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oExplorerBar.Groups.Add("Group 4")
oExplorerBar.TemplateDef = "dim var_Group3"
oExplorerBar.TemplateDef = var_Group3
oExplorerBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"

oExplorerBar.ExpandShortcutCount = 1

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

Dim oExplorerBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.ShowShortcutBar = .t.
' oExplorerBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group1"
oExplorerBar.TemplateDef = var_Group1
oExplorerBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oExplorerBar.Groups.Add("Group 3")
oExplorerBar.TemplateDef = "dim var_Group2"
oExplorerBar.TemplateDef = var_Group2
oExplorerBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"

' oExplorerBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oExplorerBar.Groups.Add("Group 4")
oExplorerBar.TemplateDef = "dim var_Group3"
oExplorerBar.TemplateDef = var_Group3
oExplorerBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"

oExplorerBar.ExpandShortcutImage = 3

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

Dim oExplorerBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.ShowShortcutBar = .t.
' oExplorerBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group1"
oExplorerBar.TemplateDef = var_Group1
oExplorerBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oExplorerBar.Groups.Add("Group 3")
oExplorerBar.TemplateDef = "dim var_Group2"
oExplorerBar.TemplateDef = var_Group2
oExplorerBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"

' oExplorerBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oExplorerBar.Groups.Add("Group 4")
oExplorerBar.TemplateDef = "dim var_Group3"
oExplorerBar.TemplateDef = var_Group3
oExplorerBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"

oExplorerBar.ExpandShortcutCount = 1
oExplorerBar.AllowResizeShortcutBar = .f.

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

Dim oExplorerBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.ShowShortcutBar = .t.
' oExplorerBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group1"
oExplorerBar.TemplateDef = var_Group1
oExplorerBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oExplorerBar.Groups.Add("Group 3")
oExplorerBar.TemplateDef = "dim var_Group2"
oExplorerBar.TemplateDef = var_Group2
oExplorerBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"

' oExplorerBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oExplorerBar.Groups.Add("Group 4")
oExplorerBar.TemplateDef = "dim var_Group3"
oExplorerBar.TemplateDef = var_Group3
oExplorerBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"

oExplorerBar.ExpandShortcutCount = 1
oExplorerBar.ShortcutBarHeight = 16

70:
How do I select a shortcut

Dim oExplorerBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.ShowShortcutBar = .t.
' oExplorerBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group1"
oExplorerBar.TemplateDef = var_Group1
oExplorerBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oExplorerBar.Groups.Add("Group 3")
oExplorerBar.TemplateDef = "dim var_Group2"
oExplorerBar.TemplateDef = var_Group2
oExplorerBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"

' oExplorerBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oExplorerBar.Groups.Add("Group 4")
oExplorerBar.TemplateDef = "dim var_Group3"
oExplorerBar.TemplateDef = var_Group3
oExplorerBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"

oExplorerBar.ExpandShortcutCount = 1
oExplorerBar.SelectShortcut = "Set <img>2</img>"

69:
How do I show or hide the shortcut bar

Dim oExplorerBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.ShowShortcutBar = .t.
' oExplorerBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oExplorerBar.Groups.Add("Group 2")
oExplorerBar.TemplateDef = "dim var_Group1"
oExplorerBar.TemplateDef = var_Group1
oExplorerBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"

' oExplorerBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oExplorerBar.Groups.Add("Group 3")
oExplorerBar.TemplateDef = "dim var_Group2"
oExplorerBar.TemplateDef = var_Group2
oExplorerBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"

' oExplorerBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oExplorerBar.Groups.Add("Group 4")
oExplorerBar.TemplateDef = "dim var_Group3"
oExplorerBar.TemplateDef = var_Group3
oExplorerBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"

oExplorerBar.ExpandShortcutCount = 1

68:
How do I access the groups collection
Dim oExplorerBar as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Groups.Add("Group 1")

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

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Template = "FormatAnchor(False) = `<b><u><fgcolor=FF0000> </fgcolor></u></b>`" // oExplorerBar.FormatAnchor(.f.) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
oExplorerBar.HighlightItemType = 0
oExplorerBar.HandCursor = .f.
' oExplorerBar.Groups.Add("Group <a1><b>1</b></a>").CaptionFormat = 1
var_Group = oExplorerBar.Groups.Add("Group <a1><b>1</b></a>")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.CaptionFormat = 1"


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

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Template = "FormatAnchor(False) = `<b><u><fgcolor=FF0000> </fgcolor></u></b>`" // oExplorerBar.FormatAnchor(.f.) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
oExplorerBar.HighlightItemType = 0
oExplorerBar.HandCursor = .f.
var_Group = oExplorerBar.Groups.Add("Group 1")
	' var_Group.AddItem("Item <a1><b>1</b></a>").CaptionFormat = 1
	var_Item = var_Group.AddItem("Item <a1><b>1</b></a>")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.CaptionFormat = 1"

	var_Group.Expanded = .t.

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

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.HighlightItemType = 0
oExplorerBar.HandCursor = .f.
oExplorerBar.Template = "FormatAnchor(True) = `<b><u><fgcolor=FF0000> </fgcolor></u></b>`" // oExplorerBar.FormatAnchor(.t.) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
' oExplorerBar.Groups.Add("Group <a1><b>1</b></a>").CaptionFormat = 1
var_Group = oExplorerBar.Groups.Add("Group <a1><b>1</b></a>")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.CaptionFormat = 1"


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

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.HighlightItemType = 0
oExplorerBar.HandCursor = .f.
oExplorerBar.Template = "FormatAnchor(True) = `<b><u><fgcolor=FF0000> </fgcolor></u></b>`" // oExplorerBar.FormatAnchor(.t.) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
var_Group = oExplorerBar.Groups.Add("Group 1")
	' var_Group.AddItem("Item <a1><b>1</b></a>").CaptionFormat = 1
	var_Item = var_Group.AddItem("Item <a1><b>1</b></a>")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.CaptionFormat = 1"

	var_Group.Expanded = .t.

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

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oExplorerBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oExplorerBar.Template = "HTMLPicture(`pic2`) = `c:\exontrol\images\auction.gif`" // oExplorerBar.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.ItemHeight = 48
	var_Item = var_Group.AddItem("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
		var_Item.Image = 2
		var_Item.CaptionFormat = 1
	var_Group.Expanded = .t.

62:
How can I add several pictures and icons to an item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oExplorerBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oExplorerBar.Template = "HTMLPicture(`pic2`) = `c:\exontrol\images\auction.gif`" // oExplorerBar.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.ItemHeight = 48
	var_Item = var_Group.AddItem("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
		var_Item.Image = 2
		var_Item.CaptionFormat = 1
	var_Group.Expanded = .t.

61:
How can I add several pictures to an item

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oExplorerBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oExplorerBar.Template = "HTMLPicture(`pic2`) = `c:\exontrol\images\auction.gif`" // oExplorerBar.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.ItemHeight = 48
	' var_Group.AddItem("<img>pic1</img> text <img>pic2</img>").CaptionFormat = 1
	var_Item = var_Group.AddItem("<img>pic1</img> text <img>pic2</img>")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.CaptionFormat = 1"

	var_Group.Expanded = .t.

60:
How can I add several pictures to a group

Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oExplorerBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oExplorerBar.Template = "HTMLPicture(`pic2`) = `c:\exontrol\images\auction.gif`" // oExplorerBar.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
oExplorerBar.GroupHeight = 48
var_Group = oExplorerBar.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>")
	var_Group.Image = 2
	var_Group.CaptionFormat = 1
	var_Group.Picture = oExplorerBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.Expanded = .t.

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

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oExplorerBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oExplorerBar.Template = "HTMLPicture(`pic2`) = `c:\exontrol\images\auction.gif`" // oExplorerBar.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
oExplorerBar.GroupHeight = 48
' oExplorerBar.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
var_Group = oExplorerBar.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>")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.CaptionFormat = 1"


58:
How can I add several pictures to a group

Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oExplorerBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oExplorerBar.Template = "HTMLPicture(`pic2`) = `c:\exontrol\images\auction.gif`" // oExplorerBar.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
oExplorerBar.GroupHeight = 48
var_Group = oExplorerBar.Groups.Add("<img>pic1</img> text <img>pic2</img>")
	var_Group.CaptionFormat = 1
	var_Group.Picture = oExplorerBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
	var_Group.AddItem("Item 1")
	var_Group.AddItem("Item 2")
	var_Group.Expanded = .t.

57:
How can I add several pictures to a group

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oExplorerBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oExplorerBar.Template = "HTMLPicture(`pic2`) = `c:\exontrol\images\auction.gif`" // oExplorerBar.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
oExplorerBar.GroupHeight = 48
' oExplorerBar.Groups.Add("<img>pic1</img> text <img>pic2</img>").CaptionFormat = 1
var_Group = oExplorerBar.Groups.Add("<img>pic1</img> text <img>pic2</img>")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.CaptionFormat = 1"


56:
How do I force refreshing the control
Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.Expanded = .t.
	var_Group.AddItem("Item 1")
oExplorerBar.Refresh()

55:
How can show or hide the focus rectangle

Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.ShowFocusRect = .f.
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.Expanded = .t.
	var_Group.AddItem("Item 1")

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

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.ToolTipWidth = 328
' oExplorerBar.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
var_Group = oExplorerBar.Groups.Add("ToolTip")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.ToolTip = `<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group.`"


53:
How do I let the tooltip being displayed longer

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.ToolTipPopDelay = 10000
' oExplorerBar.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
var_Group = oExplorerBar.Groups.Add("ToolTip")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.ToolTip = `<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group.`"


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

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.ToolTipDelay = 1
oExplorerBar.ToolTipWidth = 364
oExplorerBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExplorerBar.Template = "Background(64) = 16777216" // oExplorerBar.Background(64) = 16777216
' oExplorerBar.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
var_Group = oExplorerBar.Groups.Add("ToolTip")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.ToolTip = `<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group.`"


51:
Can I change the background color for the tooltip

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.ToolTipDelay = 1
oExplorerBar.ToolTipWidth = 364
oExplorerBar.Template = "Background(65) = 255" // oExplorerBar.Background(65) = 255
' oExplorerBar.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
var_Group = oExplorerBar.Groups.Add("ToolTip")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.ToolTip = `<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group.`"


50:
Does the tooltip support HTML format

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.ToolTipDelay = 1
oExplorerBar.ToolTipWidth = 364
' oExplorerBar.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>group</fgcolor>"
var_Group = oExplorerBar.Groups.Add("ToolTip")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.ToolTip = `<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>group</fgcolor>`"


49:
Can I change the forecolor for the tooltip

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.ToolTipDelay = 1
oExplorerBar.ToolTipWidth = 364
oExplorerBar.Template = "Background(66) = 255" // oExplorerBar.Background(66) = 255
' oExplorerBar.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
var_Group = oExplorerBar.Groups.Add("ToolTip")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.ToolTip = `This is a bit of text that's shown when the cursor hovers the group.`"


48:
Can I change the foreground color for the tooltip

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.ToolTipDelay = 1
oExplorerBar.ToolTipWidth = 364
' oExplorerBar.Groups.Add("ToolTip").ToolTip = "<fgcolor=FF0000>This is a bit of text that's shown when the cursor hovers the group.</fgcolor>"
var_Group = oExplorerBar.Groups.Add("ToolTip")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.ToolTip = `<fgcolor=FF0000>This is a bit of text that's shown when the cursor hovers the group.</fgcolor>`"


47:
Can I change the font for the tooltip

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.ToolTipDelay = 1
oExplorerBar.ToolTipWidth = 364
' oExplorerBar.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"
var_Group = oExplorerBar.Groups.Add("ToolTip")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.ToolTip = `<font Tahoma>This is a bit of text that's shown when the cursor hovers the group.</font> Back to the normal font`"


46:
Can I change the font for the tooltip

Dim oExplorerBar as P
Dim var_Group as local
Dim var_StdFont as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.ToolTipDelay = 1
var_StdFont = oExplorerBar.ToolTipFont
	var_StdFont.Name = "Tahoma"
	var_StdFont.Size = 14
oExplorerBar.ToolTipWidth = 364
' oExplorerBar.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
var_Group = oExplorerBar.Groups.Add("ToolTip")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.ToolTip = `This is a bit of text that's shown when the cursor hovers the group.`"


45:
How do I disable showing the tooltip for all control
Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.ToolTipDelay = 0
' oExplorerBar.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
var_Group = oExplorerBar.Groups.Add("ToolTip")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.ToolTip = `This is a bit of text that's shown when the cursor hovers the group.`"


44:
How do I show the tooltip quicker
Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.ToolTipDelay = 1
' oExplorerBar.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
var_Group = oExplorerBar.Groups.Add("ToolTip")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.ToolTip = `This is a bit of text that's shown when the cursor hovers the group.`"


43:
How do I call your x-script language

Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oExplorerBar.ExecuteTemplate("Groups.Add(`Group 1`)")
	var_Group.AddItem("Item 1")
	var_Group.Expanded = .t.

42:
How do I call your x-script language

Dim oExplorerBar as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Template = "BackColor = RGB(255,0,0)"

41:
How can I hide a tooltip when the item exceeds its area, so ... are displayed
Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.AllowTooltip = .f.
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.Expanded = .t.
	var_Group.AddItem("This isa very long text that should break the control in several pieces")

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

Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.AllowTooltip = .t.
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.Expanded = .t.
	var_Group.AddItem("This isa very long text that should break the control in several pieces")

39:
How do I specify the distance between two groups

Dim oExplorerBar as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BorderGroupHeight = 0
oExplorerBar.Groups.Add("Group 1")
oExplorerBar.Groups.Add("Group 2").AddItem("Item 2")

38:
How can I change the expand / collapse buttons

Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.Template = "ExpandIcon(True) = 1" // oExplorerBar.ExpandIcon(.t.) = 1
oExplorerBar.Template = "ExpandIcon(False) = 2" // oExplorerBar.ExpandIcon(.f.) = 2
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 2").AddItem("Item 2")
oExplorerBar.EndUpdate()

37:
How do I enable or disable the control
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Enabled = .f.
var_Group = oExplorerBar.Groups.Add("Group 1")
	' var_Group.AddItem("Item 1").Image = 1
	var_Item = var_Group.AddItem("Item 1")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.Image = 1"

	var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 2").AddItem("Item 2")

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

Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BeginUpdate()
oExplorerBar.DisplayExpandIcon = .f.
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oExplorerBar.Groups.Add("Group 1")
	' var_Group.AddItem("Item 1").Image = 1
	var_Item = var_Group.AddItem("Item 1")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.Image = 1"

	var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 2").AddItem("Item 2")
oExplorerBar.EndUpdate()

35:
Is there any option to stop using the hand shape cursor, when the cursor hovers an item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BeginUpdate()
oExplorerBar.HandCursor = .f.
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.HighlightItemType = 0
var_Group = oExplorerBar.Groups.Add("Group 1")
	' var_Group.AddItem("Item 1").Image = 1
	var_Item = var_Group.AddItem("Item 1")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.Image = 1"

	var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 2").AddItem("Item 2")
oExplorerBar.EndUpdate()

34:
How do I specify the color to highlight the item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BeginUpdate()
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.HyperLinkColor = 255
oExplorerBar.HighlightItemType = 4
var_Group = oExplorerBar.Groups.Add("Group 1")
	' var_Group.AddItem("Item 1").Image = 1
	var_Item = var_Group.AddItem("Item 1")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.Image = 1"

	var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 2").AddItem("Item 2")
oExplorerBar.EndUpdate()

33:
How can I expand or collapse a group when I click only its right icon
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BeginUpdate()
oExplorerBar.ExpandOnClick = .f.
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.HighlightItemType = 4
var_Group = oExplorerBar.Groups.Add("Group 1")
	' var_Group.AddItem("Item 1").Image = 1
	var_Item = var_Group.AddItem("Item 1")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.Image = 1"

	var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 2").AddItem("Item 2")
oExplorerBar.EndUpdate()

32:
How do I remove the control's borders
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BeginUpdate()
oExplorerBar.Appearance = 0
oExplorerBar.BorderWidth = 0
oExplorerBar.BorderHeight = 0
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.HighlightItemType = 4
var_Group = oExplorerBar.Groups.Add("Group 1")
	' var_Group.AddItem("Item 1").Image = 1
	var_Item = var_Group.AddItem("Item 1")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.Image = 1"

	var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 2").AddItem("Item 2")
oExplorerBar.EndUpdate()

31:
How do I specify width or the height of the control's borders
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BeginUpdate()
oExplorerBar.Appearance = 0
oExplorerBar.BorderWidth = 0
oExplorerBar.BorderHeight = 0
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.HighlightItemType = 4
var_Group = oExplorerBar.Groups.Add("Group 1")
	' var_Group.AddItem("Item 1").Image = 1
	var_Item = var_Group.AddItem("Item 1")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.Image = 1"

	var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 2").AddItem("Item 2")
oExplorerBar.EndUpdate()

30:
How do I access the item from the point
Dim oExplorerBar as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex

29:
How do I access the group from the point
Dim oExplorerBar as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex

28:
How do I specify to highlight the items in the group, when the cursor hovers the item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BeginUpdate()
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.HighlightItemType = 4
var_Group = oExplorerBar.Groups.Add("Group 1")
	' var_Group.AddItem("Item 1").Image = 1
	var_Item = var_Group.AddItem("Item 1")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.Image = 1"

	var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 2").AddItem("Item 2")
oExplorerBar.EndUpdate()

27:
How do I specify to highlight the items in the group, when the cursor hovers the item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BeginUpdate()
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.HighlightItemType = 3
var_Group = oExplorerBar.Groups.Add("Group 1")
	' var_Group.AddItem("Item 1").Image = 1
	var_Item = var_Group.AddItem("Item 1")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.Image = 1"

	var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 2").AddItem("Item 2")
oExplorerBar.EndUpdate()

26:
How do I specify to highlight the items in the group, when the cursor hovers the item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BeginUpdate()
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.HighlightItemType = 2
var_Group = oExplorerBar.Groups.Add("Group 1")
	' var_Group.AddItem("Item 1").Image = 1
	var_Item = var_Group.AddItem("Item 1")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.Image = 1"

	var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 2").AddItem("Item 2")
oExplorerBar.EndUpdate()

25:
How do I specify to highlight the items in the group, when the cursor hovers the item
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Item as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BeginUpdate()
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar.HighlightItemType = 1
var_Group = oExplorerBar.Groups.Add("Group 1")
	' var_Group.AddItem("Item 1").Image = 1
	var_Item = var_Group.AddItem("Item 1")
	oExplorerBar.TemplateDef = "dim var_Item"
	oExplorerBar.TemplateDef = var_Item
	oExplorerBar.Template = "var_Item.Image = 1"

	var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 2").AddItem("Item 2")
oExplorerBar.EndUpdate()

24:
How do I specify the way the control highlight the items in the group
Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BeginUpdate()
oExplorerBar.HighlightItemType = 0
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 2").AddItem("Item 2")
oExplorerBar.EndUpdate()

23:
Is there any function to avoid painting the control while adding multiple items and groups
Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BeginUpdate()
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 2").AddItem("Item 2")
oExplorerBar.EndUpdate()

22:
How do I decrease the delay to scroll a group
Dim oExplorerBar as P
Dim var_Group as P
Dim var_Group1 as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.DelayScroll = 0
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.Expanded = .t.
var_Group1 = oExplorerBar.Groups.Add("Group 2")
	var_Group1.AddItem("Item 2")
	var_Group1.Expanded = .t.

21:
How do I display icons

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.SmallIcons = .t.
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
' oExplorerBar.Groups.Add("Group 1").Image = 1
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Image = 1"


20:
How do I display 32x32 icons

Dim oExplorerBar as P
Dim var_Group as local

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.SmallIcons = .f.
oExplorerBar.GroupHeight = 36
oExplorerBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
' oExplorerBar.Groups.Add("Group 1").Image = 1
var_Group = oExplorerBar.Groups.Add("Group 1")
oExplorerBar.TemplateDef = "dim var_Group"
oExplorerBar.TemplateDef = var_Group
oExplorerBar.Template = "var_Group.Image = 1"


19:
How do I specify the height of the groups

Dim oExplorerBar as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.GroupHeight = 40
oExplorerBar.Groups.Add("Group 1")
oExplorerBar.Groups.Add("Group 2")

18:
How do I change the visual appearance of the groups
Dim oExplorerBar as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.GroupAppearance = 1
oExplorerBar.Groups.Add("Group 1")
oExplorerBar.Groups.Add("Group 2")

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

Dim oExplorerBar as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExplorerBar.BackColorGroup = 16777216
oExplorerBar.Groups.Add("Group 1")
oExplorerBar.Groups.Add("Group 2")

16:
How do I change the background color for the groups
Dim oExplorerBar as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BackColorGroup = 255
oExplorerBar.BackColorGroup2 = 255
oExplorerBar.Groups.Add("Group 1")

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

Dim oExplorerBar as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BackColorGroup = 255
oExplorerBar.Groups.Add("Group 1")

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

Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.ForeColor = 16711680
oExplorerBar.ForeColorGroup = 255
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.Expanded = .t.
oExplorerBar.Groups.Add("Group 2")

13:
How can I change the control's font

Dim oExplorerBar as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Font.Name = "Tahoma"
oExplorerBar.Groups.Add("Group 1")

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

Dim oExplorerBar as P
Dim var_Group as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.ForeColor = 255
var_Group = oExplorerBar.Groups.Add("Group 1")
	var_Group.AddItem("Item 1")
	var_Group.Expanded = .t.

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

Dim oExplorerBar as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.BackColor = 13158600

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

Dim oExplorerBar as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExplorerBar.Appearance = 16777216 '1000000 + 

9:
How do I remove the control's border
Dim oExplorerBar as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Appearance = 0

8:
How do I put a picture on the center of the control
Dim oExplorerBar as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Picture = oExplorerBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oExplorerBar.PictureDisplay = 17

7:
How do I resize/stretch a picture on the control's background
Dim oExplorerBar as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Picture = oExplorerBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oExplorerBar.PictureDisplay = 49

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

Dim oExplorerBar as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Picture = oExplorerBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oExplorerBar.PictureDisplay = 34

5:
How do I put a picture on the control's center left bottom side
Dim oExplorerBar as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Picture = oExplorerBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oExplorerBar.PictureDisplay = 32

4:
How do I put a picture on the control's center top side
Dim oExplorerBar as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Picture = oExplorerBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oExplorerBar.PictureDisplay = 1

3:
How do I put a picture on the control's right top corner
Dim oExplorerBar as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Picture = oExplorerBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oExplorerBar.PictureDisplay = 2

2:
How do I put a picture on the control's left top corner
Dim oExplorerBar as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Picture = oExplorerBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oExplorerBar.PictureDisplay = 0

1:
How do I put a picture on the control's background
Dim oExplorerBar as P

oExplorerBar = topparent:CONTROL_ACTIVEX1.activex
oExplorerBar.Picture = oExplorerBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")