179
How can I replace or add an icon at runtime

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:BeginUpdate()
		oExplorerBar:ReplaceIcon("gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+OkYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==")
		oExplorerBar:ReplaceIcon("C:\images\favicon.ico",0)
		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item <img>1</img> text"):CaptionFormat := 1/*exHTML*/
			oGroup:AddItem("Item 2"):Image := 2
			oGroup:AddItem("Item 3"):Image := 3
			oGroup:Expanded := .T.
		oExplorerBar:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
178
Display a custom tooltip
PROCEDURE OnMouseMove(oExplorerBar, Button, Shift, X, Y)
	oExplorerBar:ShowToolTip("new content","",,"+8","+8")
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:MouseMove := {|Button, Shift, X, Y| OnMouseMove(oExplorerBar, Button, Shift, X, Y)} /*Occurs when the user moves the mouse.*/


	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
177
Shows the tooltip of the object moved relative to its default position
PROCEDURE OnMouseMove(oExplorerBar, Button, Shift, X, Y)
	oExplorerBar:ShowToolTip("<null>","<null>",,"+8","+8")
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:MouseMove := {|Button, Shift, X, Y| OnMouseMove(oExplorerBar, Button, Shift, X, Y)} /*Occurs when the user moves the mouse.*/

		oExplorerBar:Groups():Add("ToolTip"):ToolTip := "This is a bit of text that's shown when the cursor hovers the group."

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
176
How can I select an item using on its full part, not only on its icon or caption

PROCEDURE OnClick(oExplorerBar)
	DevOut( Transform(oExplorerBar:ItemFromPoint(-1,-1),"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Click := {|| OnClick(oExplorerBar)} /*Occurs when the user presses and then releases the left mouse button over the control.*/

		oExplorerBar:HighlightItemType := 19/*exFull+exUnion*/
		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item <b>1</b>"):CaptionFormat := 1/*exHTML*/
			oGroup:AddItem("Item <b>2</b>"):CaptionFormat := 1/*exHTML*/
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
175
How can I change the group's color
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroups

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:SetProperty("BackColorGroup",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
		oExplorerBar:SetProperty("BackColorGroup2",oExplorerBar:BackColorGroup())
		oExplorerBar:GroupAppearance := 0/*exNone*/
		oGroups := oExplorerBar:Groups()
			oGroups:Add("Group 1")
			oGroups:Add("Group 2")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
174
How can remove the group's appearance
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroups

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:SetProperty("BackColorGroup",oExplorerBar:BackColor())
		oExplorerBar:SetProperty("BackColorGroup2",oExplorerBar:BackColor())
		oExplorerBar:GroupAppearance := 1/*exSingle*/
		oGroups := oExplorerBar:Groups()
			oGroups:Add("Group 1")
			oGroups:Add("Group 2")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
173
How can I align the group/item
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:BeginUpdate()
		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:Alignment := 0/*exLeft*/
			oGroup:AddItem("Item 1"):Alignment := 0/*exLeft*/
			oGroup:Expanded := .T.
		oExplorerBar:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
172
Just seen the BackgroundExt property. Not sure what I can do with that

PROCEDURE OnAddGroup(oExplorerBar, Group)

RETURN

PROCEDURE OnAddItem(oExplorerBar, Item)

RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oAppearance
	LOCAL oGroup,oGroup1,oGroup2

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:AddGroup := {|Group| OnAddGroup(oExplorerBar, Group)} /*Occurs when a new group is added to collection.*/
		oExplorerBar:AddItem := {|Item| OnAddItem(oExplorerBar, Item)} /*Occurs when a new item is added to a group.*/

		oExplorerBar:BeginUpdate()
		oExplorerBar:Appearance := 0/*exNone*/
		oAppearance := oExplorerBar:VisualAppearance()
			oAppearance:Add(1,"c:\exontrol\images\normal.ebn")
			oAppearance:Add(2,"CP:1 48 12 -24 0")
			oAppearance:Add(3,"c:\exontrol\images\pushed.ebn")
		oExplorerBar:SetProperty("HTMLPicture","uk","c:\exontrol\images\zipdisk.gif")
		oExplorerBar:SetProperty("HTMLPicture","brazil","c:\exontrol\images\auction.gif")
		oExplorerBar:SetProperty("HTMLPicture","sweden","c:\exontrol\images\colorize.gif")
		oExplorerBar:SetProperty("BackColorGroup",0x2000000)
		oExplorerBar:SetProperty("BackColorGroup2",oExplorerBar:BackColorGroup())
		oExplorerBar:GroupHeight := 40
		oGroup := oExplorerBar:Groups():Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>United Kingdom")
			oGroup:SetProperty("BackgroundExtValue",2/*exIndexExt2*/,4/*exTextExt*/,"<img>uk:44</img>")
			oGroup:AddItem("London Eye")
			oGroup:AddItem("Tower of London")
			oGroup:AddItem("Buckingham Palace")
			oGroup:AddItem("River Thames")
			oGroup:AddItem("Stonehenge")
		oGroup1 := oExplorerBar:Groups():Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>Brazil")
			oGroup1:SetProperty("BackgroundExtValue",2/*exIndexExt2*/,4/*exTextExt*/,"<img>brazil:44</img>")
			oGroup1:AddItem("Cristo Redentor")
			oGroup1:AddItem("Copacabana")
			oGroup1:AddItem("Ipanema, Rio de Janeiro")
			oGroup1:AddItem("Iguazu Falls")
			oGroup1:AddItem("Sugarloaf Mountain")
			oGroup1:Expanded := .T.
		oGroup2 := oExplorerBar:Groups():Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>Sweden")
			oGroup2:SetProperty("BackgroundExtValue",2/*exIndexExt2*/,4/*exTextExt*/,"<img>sweden:44</img>")
			oGroup2:AddItem("Gamla stan")
			oGroup2:AddItem("Vasa Museum")
			oGroup2:AddItem("Stockholm Palace")
			oGroup2:AddItem("Skansen")
			oGroup2:AddItem("Djurgården")
		oExplorerBar:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
171
Can I specify a different colors for groups using your EBN files

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
		oExplorerBar:SetProperty("BackColorGroup",0x1000000)
		oExplorerBar:Groups():Add("Group 1")
		oExplorerBar:Groups():Add("Group 2"):SetProperty("BackColor",0x100aabb)

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
170
Can I change the color of the control's border (EBN files)

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
		oExplorerBar:Appearance := 27966412/*0x1aabbc8+exDrop*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
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
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup
	LOCAL oGroups

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:BeginUpdate()
		oExplorerBar:GroupHeight := 48
		oGroups := oExplorerBar:Groups()
			oGroups:Add("Group 1")
			oGroups:Add("Group 2")
			oGroups:Add("Group 3")
			oGroups:Add("Group 4")
			oGroups:Add("Group 5")
			oGroups:Add("Group 6")
			oGroups:Add("Group 7")
			oGroups:Add("Group 8")
			oGroups:Add("Group 9")
			oGroups:Add("Group 10")
			oGroups:Add("Group 11")
			oGroup := oGroups:Add("Group 12")
				oGroup:AddItem(Transform(0,""))
				oGroup:AddItem(Transform(1,""))
				oGroup:AddItem(Transform(2,""))
		oExplorerBar:EnsureVisible(11,2)
		oExplorerBar:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
168
How can I scroll to the end of the groups

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroups

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
167
How can I display an item by multiple lines

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup
	LOCAL oItem

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("SingleLine")
			oItem := oGroup:AddItem("This is bit of text that should break the lines, and so <b>multiple</b> lines are displayed")
				oItem:Alignment := 0/*exLeft*/
				oItem:CaptionFormat := 1/*exHTML*/
				oItem:SingleLine := .F.
			oGroup:AddItem("Item 3")
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
166
How can I indent an item

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup
	LOCAL oItem,oItem1,oItem2,oItem3,oItem4

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1"):Alignment := 0/*exLeft*/
			oItem := oGroup:AddItem("Sub Item <b>1</b>")
				oItem:CaptionFormat := 1/*exHTML*/
				oItem:Alignment := 0/*exLeft*/
				oItem:Indent := 12
			oItem1 := oGroup:AddItem("Sub Item <b>2</b>")
				oItem1:CaptionFormat := 1/*exHTML*/
				oItem1:Alignment := 0/*exLeft*/
				oItem1:Indent := 12
			oItem2 := oGroup:AddItem("Sub Item <b>3</b>")
				oItem2:CaptionFormat := 1/*exHTML*/
				oItem2:Alignment := 0/*exLeft*/
				oItem2:Indent := 12
			oItem3 := oGroup:AddItem("Sub Sub Item <b>3</b>")
				oItem3:CaptionFormat := 1/*exHTML*/
				oItem3:Alignment := 0/*exLeft*/
				oItem3:Indent := 24
			oItem4 := oGroup:AddItem("Item 2")
				oItem4:Alignment := 0/*exLeft*/
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
165
How can I use HTML format to display my item

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("<font Tahoma;11>T</font>his is an HTML <b>item</b> assigned to a <fgcolor=FF0000>group</fgcolor>"):CaptionFormat := 1/*exHTML*/
			oGroup:AddItem("Item 3")
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
164
How can I assign a tooltip to an item

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("ToolTip"):ToolTip := "This is bit of text that should appear when the cursor hovers the <b>item</b>."
			oGroup:AddItem("Item 3")
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
163
How can I show or hide an item

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2"):Visible := .F.
			oGroup:AddItem("Item 3")
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
162
How can I align an icon for an item

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup
	LOCAL oItem,oItem1

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oGroup := oExplorerBar:Groups():Add("Group 1")
			oItem := oGroup:AddItem("Item 1")
				oItem:Image := 1
				oItem:ImageAlignment := 0/*exLeft*/
			oItem1 := oGroup:AddItem("Item 2")
				oItem1:Image := 2
				oItem1:ImageAlignment := 2/*exRight*/
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
161
How can I stop highlighting an item

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2 - no "):AllowHighLight := .F.
			oGroup:AddItem("Item 3")
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
160
How can I change the item's background color

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup
	LOCAL oItem

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oItem := oGroup:AddItem("Item 2")
				oItem:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
				oItem:SetProperty("BackColor2",AutomationTranslateColor( GraMakeRGBColor  ( { 255,255,255 } )  , .F. ))
			oGroup:AddItem("Item 3")
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
159
How can I change the item's background color

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("<bgcolor=FF0000>Item</bgcolor> 2"):CaptionFormat := 1/*exHTML*/
			oGroup:AddItem("Item 3")
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
158
How can I change the item's foreground color

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2"):SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
			oGroup:AddItem("Item 3")
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
157
How can I change the visual appearance of the item using your EBN files

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2"):SetProperty("BackColor",0x1000000)
			oGroup:AddItem("Item 3")
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
156
How can I change the item's background color

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2"):SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
			oGroup:AddItem("Item 3")
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
155
How can I get the group of the item

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2"):Group():Bold := .T.
			oGroup:AddItem("Item 3")
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
154
How can I get the index of the item

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup
	LOCAL oItem,oItem1,oItem2

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oGroup := oExplorerBar:Groups():Add("Group 1")
			oItem := oGroup:AddItem("Item 1")
				oItem:Caption := Transform(oItem:Index(),"")
			oItem1 := oGroup:AddItem("Item 2")
				oItem1:Caption := Transform(oItem1:Index(),"")
			oItem2 := oGroup:AddItem("Item 3")
				oItem2:Caption := Transform(oItem2:Index(),"")
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
153
How can I draw underlined an item

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("<u>Item</u> 2"):CaptionFormat := 1/*exHTML*/
			oGroup:AddItem("Item 3")
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
152
How can I draw underlined an item

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2"):Underline := .T.
			oGroup:AddItem("Item 3")
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
151
How can I draw as strikeout an item

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("<s>Item</s> 2"):CaptionFormat := 1/*exHTML*/
			oGroup:AddItem("Item 3")
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
150
How can I draw as strikeout an item

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2"):StrikeOut := .T.
			oGroup:AddItem("Item 3")
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
149
How can I draw as italic an item

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("<i>Item</i> 2"):CaptionFormat := 1/*exHTML*/
			oGroup:AddItem("Item 3")
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
148
How can I draw as italic an item

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2"):Italic := .T.
			oGroup:AddItem("Item 3")
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
147
How can I add a anchor or a hyperlink

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:HighlightItemType := 0/*exNoHighlight*/
		oExplorerBar:HandCursor := .F.
		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Link <a1><b>1</b></a>"):CaptionFormat := 1/*exHTML*/
			oGroup:AddItem("Link <a2><b>2</b></a>"):CaptionFormat := 1/*exHTML*/
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
146
How do I bold an item

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("<b>Item</a> 2"):CaptionFormat := 1/*exHTML*/
			oGroup:AddItem("Item 3")
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
145
How do I bold an item

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2"):Bold := .T.
			oGroup:AddItem("Item 3")
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
144
How can I align an item

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:ItemHeight := 28
			oGroup:AddItem("Left",1):Alignment := 0/*exLeft*/
			oGroup:AddItem("Center",2):Alignment := 1/*exCenter*/
			oGroup:AddItem("Right",3):Alignment := 2/*exRight*/
			oGroup:AddItem("Middle",1):Alignment := 4/*exMiddle*/
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
143
How can I assign some extra data to an item

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1"):UserData := "your data"
			oGroup:AddItem("Item 2")
			oGroup:AddItem("Item 3")
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
142
How can I assign or display an icon for an item

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item <img>1</img> text <img>2</img>"):CaptionFormat := 1/*exHTML*/
			oGroup:AddItem("Item 2"):Image := 2
			oGroup:AddItem("Item 3"):Image := 3
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
141
How can I assign or display an icon for an item

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
140
How can I assign or display an icon for an item

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
139
How can I change the item's position

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
			oGroup:AddItem("Item 3"):Position := 0
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
138
How can I change the item's caption

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2"):Caption := "new caption"
			oGroup:AddItem("Item 3")
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
137
How do I add new items

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("Group 1"):AddItem("Item 1"):Bold := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
136
How do I assign a group to a set in the shortcut bar

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		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>"
		oExplorerBar:Groups():Add("Group 2"):Shortcut := "Set <img>1</img>"
		oExplorerBar:Groups():Add("Group 3"):Shortcut := "Set <img>2</img>"
		oExplorerBar:Groups():Add("Group 4"):Shortcut := "Set <img>2</img>"

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
135
How can I show or hide the expanding or collapsing button

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("Group 1"):AddItem("Item 1")
		oGroup := oExplorerBar:Groups():Add("Group 2, expanding/collapsing button is missing ")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
			oGroup:Expanded := .T.
			oGroup:AllowExpand := .F.
		oExplorerBar:Groups():Add("Group 3"):AddItem("Item 1")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
134
How can I avoid expanding or collapsing a group

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("Group 1"):AddItem("Item 1")
		oGroup := oExplorerBar:Groups():Add("Group 2")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
			oGroup:Expanded := .T.
			oGroup:AllowExpand := .F.
		oExplorerBar:Groups():Add("Group 3"):AddItem("Item 1")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
133
How can I assign a tooltip to a group

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		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>."

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
132
How can I display HTML text in the group's caption

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:GroupHeight := 44
		oExplorerBar:SetProperty("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/*exHTML*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
131
How can I disable scrolling the group's list when it is expanded or collapsed

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("Group 1")
		oGroup := oExplorerBar:Groups():Add("Group 2")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
			oGroup:Expanded := .T.
			oGroup:AllowScroll := .F.
		oExplorerBar:Groups():Add("Group 3")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
130
How can I change the group's background color ( gradient )

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("Group 1")
		oGroup := oExplorerBar:Groups():Add("Group 2")
			oGroup:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
			oGroup:SetProperty("BackColor2",AutomationTranslateColor( GraMakeRGBColor  ( { 255,255,255 } )  , .F. ))
		oExplorerBar:Groups():Add("Group 3")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
129
How can I access the bounding rectangle of the group's area

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("Group 1")
		oGroup := oExplorerBar:Groups():Add("Group 2")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
			oGroup:AddItem(Transform(oGroup:Top(),""))
			oGroup:AddItem(Transform(oGroup:Left(),""))
			oGroup:AddItem(Transform(oGroup:Width(),""))
			oGroup:Expanded := .T.
		oExplorerBar:Groups():Add("Group 3")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
128
How can I expand or collapse a group

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("Group 1")
		oGroup := oExplorerBar:Groups():Add("Group 2")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
			oGroup:Expanded := .T.
		oExplorerBar:Groups():Add("Group 3")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
127
How can I specify the height of the items

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("Group 1")
		oGroup := oExplorerBar:Groups():Add("Group 2")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
			oGroup:ItemHeight := 13
			oGroup:Expanded := .T.
		oExplorerBar:Groups():Add("Group 3")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
126
How do I put a picture on the group's background
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("Group 1")
		oGroup := oExplorerBar:Groups():Add("Group 2")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
			oGroup:Picture := oExplorerBar:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
			oGroup:PictureDisplay := 2/*UpperRight*/
			oGroup:Expanded := .T.
		oExplorerBar:Groups():Add("Group 3")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
125
How do I put a picture on the group's background
#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("Group 1")
		oGroup := oExplorerBar:Groups():Add("Group 2")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
			oGroup:Picture := oExplorerBar:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
			oGroup:Expanded := .T.
		oExplorerBar:Groups():Add("Group 3")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
124
How can I change the foreground color for items

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("Group 1")
		oGroup := oExplorerBar:Groups():Add("Group 2")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
			oGroup:SetProperty("ForeColorList",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
			oGroup:Expanded := .T.
		oExplorerBar:Groups():Add("Group 3")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
123
How can I change the background color for the items

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("Group 1")
		oGroup := oExplorerBar:Groups():Add("Group 2")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
			oGroup:SetProperty("BackColorList",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
			oGroup:Expanded := .T.
		oExplorerBar:Groups():Add("Group 3")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
122
How can I change the group's foreground color

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("Group 1")
		oExplorerBar:Groups():Add("<fgcolor=FF0000>Group</fgcolor> 2"):CaptionFormat := 1/*exHTML*/
		oExplorerBar:Groups():Add("Group 3")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
121
How can I change the group's foreground color

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("Group 1")
		oExplorerBar:Groups():Add("Group 2"):SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
		oExplorerBar:Groups():Add("Group 3")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
120
How can I change the group's background color

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("Group 1")
		oExplorerBar:Groups():Add("<bgcolor=FF0000>Group</bgcolor> 2"):CaptionFormat := 1/*exHTML*/
		oExplorerBar:Groups():Add("Group 3")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
119
How can I change the visual appearance of the group, using EBN files

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
		oExplorerBar:GroupAppearance := 1/*exSingle*/
		oExplorerBar:Groups():Add("Group 1")
		oExplorerBar:Groups():Add("Group 2"):SetProperty("BackColor",0x1000000)
		oExplorerBar:Groups():Add("Group 3")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
118
How can I change the group's background color

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("Group 1")
		oExplorerBar:Groups():Add("Group 2"):SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
		oExplorerBar:Groups():Add("Group 3")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
117
How do I get the index of the group

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup,oGroup1,oGroup2

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:Caption := Transform(oGroup:Index(),"")
		oGroup1 := oExplorerBar:Groups():Add("Group 2")
			oGroup1:Caption := Transform(oGroup1:Index(),"")
		oGroup2 := oExplorerBar:Groups():Add("Group 3")
			oGroup2:Caption := Transform(oGroup2:Index(),"")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
116
How can I underline the group's name

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("<u>Group</u> 1"):CaptionFormat := 1/*exHTML*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
115
How can I underline the group's name

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("Group 1")
		oExplorerBar:Groups():Add("Group 2"):Underline := .T.
		oExplorerBar:Groups():Add("Group 3")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
114
How can I show the group's name as strikeout

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("<s>Group</s> 1"):CaptionFormat := 1/*exHTML*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
113
How can I show the group's name as strikeout

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("Group 1")
		oExplorerBar:Groups():Add("Group 2"):StrikeOut := .T.
		oExplorerBar:Groups():Add("Group 3")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
112
How can I draw as italic the group's name

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("<i>Group</i> 1"):CaptionFormat := 1/*exHTML*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
111
How do I draw italic the group's name

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("Group 1")
		oExplorerBar:Groups():Add("Group 2"):Italic := .T.
		oExplorerBar:Groups():Add("Group 3")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
110
How do I bold the group's name

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("<b>Group</b> 1"):CaptionFormat := 1/*exHTML*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
109
How do I bold the group's name

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("Group 1")
		oExplorerBar:Groups():Add("Group 2"):Bold := .T.
		oExplorerBar:Groups():Add("Group 3")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
108
How can I align the icon in the group's caption

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
107
How can I align the group's name

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("Group 1"):Alignment := 2/*exRight*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
106
How can I align the group's name

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("Group 1"):Alignment := 0/*exLeft*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
105
How can I assign some extra data to a group

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("Group 1"):UserData := "your data"

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
104
How can I display an icon in the group's caption

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		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/*exHTML*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
103
How can I display an icon in the group's caption

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
102
How can I access an item by its position

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar
	LOCAL oGroup

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oGroup := oExplorerBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
			oGroup:AddItem("Item 3"):Position := 0
			oGroup:ItemByPos(1):Bold := .T.
			oGroup:Expanded := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
101
How can I change the position of a group

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oExplorerBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
	oExplorerBar:CLSID  := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
	oExplorerBar:create(,, {10,60},{610,370} )

		oExplorerBar:Groups():Add("Group 1")
		oExplorerBar:Groups():Add("Group 2")
		oExplorerBar:Groups():Add("Group 3"):Position := 0

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN