163:
Does your control support subscript or superscript, in HTML captions

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oGroup := oListBar:Groups():Add("Group")
			oGroup:AddItem("Item <b><off 4><font ;6>1"):CaptionFormat := 1/*exHTML*/
			oGroup:AddItem("Item <b><off 4><font ;6>2"):CaptionFormat := 1/*exHTML*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
162:
How do I get notified once the user selects or activates a group

PROCEDURE OnSelectGroup(oListBar,OldGroup,NewGroup)
	DevOut( "Current " )
	DevOut( Transform(NewGroup,"") )
	DevOut( "Previously " )
	DevOut( Transform(OldGroup,"") )
RETURN

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:SelectGroup := {|OldGroup,NewGroup| OnSelectGroup(oListBar,OldGroup,NewGroup)} /*Occurs when a group is selected.*/

		oGroup := oListBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
		oGroup1 := oListBar:Groups():Add("Group 2")
			oGroup1:AddItem("Item 1")
			oGroup1:AddItem("Item 2")
		oGroup2 := oListBar:Groups():Add("Group 3")
			oGroup2:AddItem("Item 1")
			oGroup2:AddItem("Item 2")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
161:
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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
160:
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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
159:
How do I specify the width of the item

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:HighlightItemType := 0/*exNoHighlight*/
		oGroup := oListBar:Groups():Add("Group 1")
			oGroup:ItemWidth := 32
			oGroup:AddItem(Transform(0,""))
			oGroup:AddItem(Transform(1,""))
			oGroup:AddItem(Transform(2,""))
			oGroup:AddItem(Transform(3,""))
			oGroup:AddItem(Transform(4,""))
			oGroup:AddItem(Transform(5,""))
			oGroup:AddItem(Transform(6,""))
			oGroup:AddItem(Transform(7,""))
			oGroup:AddItem(Transform(8,""))
			oGroup:AddItem(Transform(9,""))
		oListBar:Groups():Add("Group 2")

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

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oAppearance := oListBar:VisualAppearance()
			oAppearance:Add(1,"c:\exontrol\images\normal.ebn")
			oAppearance:Add(22,"c:\exontrol\images\pushed.ebn")
			oAppearance:Add(2,"CP:22 0 8 0 -8")
		oListBar:SetProperty("Background",4/*exSelectItem*/,0x1000000)
		oListBar:SetProperty("Background",5/*exHightlightItem*/,0x2000000)
		oGroup := oListBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
			oGroup:SelectItem := 1
		oListBar:Groups():Add("Group 2")

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

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
		oListBar:SetProperty("Background",4/*exSelectItem*/,0x1000000)
		oGroup := oListBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
			oGroup:SelectItem := 1
		oListBar:Groups():Add("Group 2")

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

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:SelectItemType := 2/*exSelectPop*/
		oGroup := oListBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
			oGroup:SelectItem := 1
		oListBar:Groups():Add("Group 2")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
155:
How do I specify how a selected item shows

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:SelectItemType := 2/*exSelectPop*/
		oGroup := oListBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
		oListBar:Groups():Add("Group 2")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
154:
How do I select or activate a group

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Groups():Add("Group 1")
		oGroup := oListBar:Groups():Add("Group 2")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
		oListBar:Groups():Add("Group 3")
		oListBar:SelectGroup := 1

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
153:
Is there any option to display groups from left to right

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Orientation := 1/*exHorizontal*/
		oListBar:Groups():Add("Group 1")
		oGroup := oListBar:Groups():Add("Group 2")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
		oListBar:Groups():Add("Group 3")
		oListBar:SelectGroup := 1

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
152:
How do I change the foreground color of the selected group

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:MarkSelectGroup := .T.
		oListBar:SetProperty("SelBackColorGroup",oListBar:BackColorGroup())
		oListBar:SetProperty("SelForeColorGroup",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
		oListBar:Groups():Add("Group 1")
		oGroup := oListBar:Groups():Add("Group 2")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
		oListBar:Groups():Add("Group 3")
		oListBar:SelectGroup := 1

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
151:
How do I highlight the selected group

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
		oListBar:MarkSelectGroup := .T.
		oListBar:SetProperty("SelBackColorGroup",0x1000000)
		oListBar:SetProperty("SelForeColorGroup",AutomationTranslateColor( GraMakeRGBColor  ( { 0,0,0 } )  , .F. ))
		oListBar:Groups():Add("Group 1")
		oGroup := oListBar:Groups():Add("Group 2")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
		oListBar:Groups():Add("Group 3")
		oListBar:SelectGroup := 1

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

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
		oListBar:MarkSelectGroup := .T.
		oListBar:SetProperty("SelBackColorGroup",0x1000000)
		oListBar:SetProperty("SelForeColorGroup",AutomationTranslateColor( GraMakeRGBColor  ( { 0,0,0 } )  , .F. ))
		oListBar:Groups():Add("Group 1")
		oGroup := oListBar:Groups():Add("Group 2")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
		oListBar:Groups():Add("Group 3")
		oListBar:SelectGroup := 1

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
149:
How do I specify the background color for selected group

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:MarkSelectGroup := .T.
		oListBar:SetProperty("SelBackColorGroup",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
		oListBar:Groups():Add("Group 1")
		oGroup := oListBar:Groups():Add("Group 2")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
		oListBar:Groups():Add("Group 3")
		oListBar:SelectGroup := 1

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
148:
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 oGroup
	LOCAL oItem,oItem1,oItem2,oItem3,oItem4
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oGroup := oListBar: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*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
147:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oGroup := oListBar: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")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
146:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oGroup := oListBar: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")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
145:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
144:
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 oGroup
	LOCAL oItem
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oGroup := oListBar: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")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
143:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
142:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
141:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
140:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
139:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
138:
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 oGroup
	LOCAL oItem,oItem1,oItem2
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oGroup := oListBar: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(),"")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
137:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
136:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
135:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
134:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
133:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
132:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
131:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:HighlightItemType := 0/*exNoHighlight*/
		oGroup := oListBar: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*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
130:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
129:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
128:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oGroup := oListBar: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*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
127:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oGroup := oListBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1"):UserData := "your data"
			oGroup:AddItem("Item 2")
			oGroup:AddItem("Item 3")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
126:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oGroup := oListBar: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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
125:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
124:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oGroup := oListBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1",1)
			oGroup:AddItem("Item 2",2)
			oGroup:AddItem("Item 3",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 item's position

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oGroup := oListBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
			oGroup:AddItem("Item 3"):Position := 0

	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 item's caption

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oGroup := oListBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2"):Caption := "new caption"
			oGroup:AddItem("Item 3")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
121:
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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar: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
120:
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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar:ShowShortcutBar := .T.
		oListBar:Groups():Add("Group 1"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 2"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 3"):Shortcut := "Set <img>2</img>"
		oListBar: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
119:
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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:ToolTipDelay := 1
		oListBar: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
118:
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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:GroupHeight := 44
		oListBar:SetProperty("HTMLPicture","pic1","c:\exontrol\images\zipdisk.gif")
		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar: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
117:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
116:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Groups():Add("Group 1")
		oGroup := oListBar:Groups():Add("Group 2")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
			oGroup:ItemHeight := 13
		oListBar:Groups():Add("Group 3")
		oListBar:SelectGroup := 1

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
115:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
114:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
113:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
112:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
111:
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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Groups():Add("Group 1")
		oListBar:Groups():Add("<fgcolor=FF0000>Group</fgcolor> 2"):CaptionFormat := 1/*exHTML*/
		oListBar: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 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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
109:
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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Groups():Add("Group 1")
		oListBar:Groups():Add("<bgcolor=FF0000>Group</bgcolor> 2"):CaptionFormat := 1/*exHTML*/
		oListBar: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 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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
107:
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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
106:
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 oGroup,oGroup1,oGroup2
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oGroup := oListBar:Groups():Add("Group 1")
			oGroup:Caption := Transform(oGroup:Index(),"")
		oGroup1 := oListBar:Groups():Add("Group 2")
			oGroup1:Caption := Transform(oGroup1:Index(),"")
		oGroup2 := oListBar: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
105:
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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar: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
104:
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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
103:
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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar: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
102:
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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
101:
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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar: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
100:
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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
99:
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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar: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
98:
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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
97:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
96:
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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar: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
95:
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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar: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
94:
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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar: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
93:
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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar: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
92:
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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar: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
91:
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 oGroup
	LOCAL oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
90:
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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Groups():Add("Group 1")
		oListBar:Groups():Add("Group 2")
		oListBar: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
89:
How can I change the group's caption

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oGroup := oListBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
			oGroup:AddItem("Item 3")
			oGroup:Caption := "new caption"

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
88:
How can I get the number or count of items in a group

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oGroup := oListBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
			oGroup:AddItem("Item 3")
			oGroup:AddItem(Transform(oGroup:Count(),""))

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
87:
How can I access an item in a group

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
86:
How can I remove all items, from a group
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oGroup := oListBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
			oGroup:AddItem("Item 3")
			oGroup:Clear()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
85:
How can I remove an item, from a group

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oGroup := oListBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")
			oGroup:AddItem("Item 3")
			oGroup:RemoveItem(1)

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
84:
How can I add a new item to a group

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
83:
How can I add a new item to a group

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Groups():Add("Group 1"):AddItem("Item 1")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
82:
How can I add a new item to a group

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oGroup := oListBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
81:
How can I get the groups as they are listed
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oGroups := oListBar:Groups()
			oGroups:Add("Group 1")
			oGroups:Add("Group 2")
			oGroups:Add("Group 3")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
80:
How can I access a group by position

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oGroups := oListBar:Groups()
			oGroups:Add("Group 1")
			oGroups:Add("Group 2")
			oGroups:Add("Group 3")
			oGroups:ItemByPos(1):Bold := .T.

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

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oGroups := oListBar:Groups()
			oGroups:Add("Group 1")
			oGroups:Add("Group 2")
			oGroups:Add("Group 3")
			oGroups:Item(1):Bold := .T.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
78:
How can I clear the groups collection
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oGroups := oListBar:Groups()
			oGroups:Add("Group 1")
			oGroups:Add("Group 2")
			oGroups:Add("Group 3")
			oGroups:Clear()

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

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oGroups := oListBar:Groups()
			oGroups:Add("Group 1")
			oGroups:Add("Group 2")
			oGroups:Add("Group 3")
			oGroups:Remove(1)

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

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oGroup := oListBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
75:
How do I count the number of groups

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oGroups := oListBar:Groups()
			oGroups:Add("Group 1")
			oGroups:Add("Group 2")
			oGroups:Add("Group 3")
			oGroups:Add(Transform(oGroups:Count(),""))

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
74:
How can I display pictures with a custom size, instead icons, in the shortcut bar

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:ShowShortcutBar := .T.
		oListBar:Groups():Add("Group 1"):Shortcut := "Set 1"
		oListBar:Groups():Add("Group 2"):Shortcut := "Set 1"
		oListBar:Groups():Add("Group 3"):Shortcut := "Set 2"
		oListBar:Groups():Add("Group 4"):Shortcut := "Set 2"
		oListBar:SetProperty("ShortcutPicture","Set 1",oListBar:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)"))
		oListBar:SetProperty("ShortcutPicture","Set 2",oListBar:ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)"))
		oListBar:ShortcutPictureWidth := 32
		oListBar:ShortcutPictureHeight := 32
		oListBar:ShortcutBarHeight := 32

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
73:
How can I display pictures instead icons, in the shortcut bar

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:ShowShortcutBar := .T.
		oListBar:Groups():Add("Group 1"):Shortcut := "Set 1"
		oListBar:Groups():Add("Group 2"):Shortcut := "Set 1"
		oListBar:Groups():Add("Group 3"):Shortcut := "Set 2"
		oListBar:Groups():Add("Group 4"):Shortcut := "Set 2"
		oListBar:SetProperty("ShortcutPicture","Set 1",oListBar:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)"))
		oListBar:SetProperty("ShortcutPicture","Set 2",oListBar:ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)"))
		oListBar:ShortcutBarHeight := 44

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

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
		oListBar:VisualAppearance():Add(2,"c:\exontrol\images\pushed.ebn")
		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar:ShowShortcutBar := .T.
		oListBar:Groups():Add("Group 1"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 2"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 3"):Shortcut := "Set <img>2</img>"
		oListBar:Groups():Add("Group 4"):Shortcut := "Set <img>2</img>"
		oListBar:SetProperty("ShortcutResizeBackColor",0x2000000)
		oListBar:SetProperty("ShortcutBarSelCaptionBackColor",0x1000000)
		oListBar:SetProperty("ShortcutBarSelBackColor",0x1000000)
		oListBar:SetProperty("BackColorGroup",0x1000000)

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
71:
How can I change the visual appearance of the separator between groups and the shortcut bar, using your EBN files

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar:ShowShortcutBar := .T.
		oListBar:Groups():Add("Group 1"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 2"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 3"):Shortcut := "Set <img>2</img>"
		oListBar:Groups():Add("Group 4"):Shortcut := "Set <img>2</img>"
		oListBar:SetProperty("ShortcutResizeBackColor",0x1000000)
		oListBar:ExpandShortcutCount := 1

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
70:
How do I change the background color of the separator between groups and the shortcut bar

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar:ShowShortcutBar := .T.
		oListBar:Groups():Add("Group 1"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 2"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 3"):Shortcut := "Set <img>2</img>"
		oListBar:Groups():Add("Group 4"):Shortcut := "Set <img>2</img>"
		oListBar:SetProperty("ShortcutResizeBackColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
		oListBar:ExpandShortcutCount := 1

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

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar:ShowShortcutBar := .T.
		oListBar:Groups():Add("Group 1"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 2"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 3"):Shortcut := "Set <img>2</img>"
		oListBar:Groups():Add("Group 4"):Shortcut := "Set <img>2</img>"
		oListBar:SetProperty("ShortcutBarSelCaptionBackColor",0x1000000)
		oListBar:ExpandShortcutCount := 1

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
68:
How do I change the selection background color in the shortcut bar

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar:ShowShortcutBar := .T.
		oListBar:Groups():Add("Group 1"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 2"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 3"):Shortcut := "Set <img>2</img>"
		oListBar:Groups():Add("Group 4"):Shortcut := "Set <img>2</img>"
		oListBar:SetProperty("ShortcutBarSelCaptionBackColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
		oListBar:ExpandShortcutCount := 1

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

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar:ShowShortcutBar := .T.
		oListBar:Groups():Add("Group 1"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 2"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 3"):Shortcut := "Set <img>2</img>"
		oListBar:Groups():Add("Group 4"):Shortcut := "Set <img>2</img>"
		oListBar:SetProperty("ShortcutBarSelBackColor",0x1000000)

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
66:
How do I change the selection background color in the shortcut bar

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar:ShowShortcutBar := .T.
		oListBar:Groups():Add("Group 1"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 2"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 3"):Shortcut := "Set <img>2</img>"
		oListBar:Groups():Add("Group 4"):Shortcut := "Set <img>2</img>"
		oListBar:SetProperty("ShortcutBarSelBackColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))

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

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar:ShowShortcutBar := .T.
		oListBar:Groups():Add("Group 1"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 2"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 3"):Shortcut := "Set <img>2</img>"
		oListBar:Groups():Add("Group 4"):Shortcut := "Set <img>2</img>"
		oListBar:SetProperty("ShortcutBarBackColor",0x1000000)

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
64:
How do I change the background color in the shortcut bar

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar:ShowShortcutBar := .T.
		oListBar:Groups():Add("Group 1"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 2"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 3"):Shortcut := "Set <img>2</img>"
		oListBar:Groups():Add("Group 4"):Shortcut := "Set <img>2</img>"
		oListBar:SetProperty("ShortcutBarBackColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
63:
How can I programmatically change expand or collapse the shortcut bar

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar:ShowShortcutBar := .T.
		oListBar:Groups():Add("Group 1"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 2"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 3"):Shortcut := "Set <img>2</img>"
		oListBar:Groups():Add("Group 4"):Shortcut := "Set <img>2</img>"
		oListBar:ExpandShortcutCount := 1

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
62:
How do I change the icon for the expanding or collapsing the shortcut bar

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar:ShowShortcutBar := .T.
		oListBar:Groups():Add("Group 1"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 2"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 3"):Shortcut := "Set <img>2</img>"
		oListBar:Groups():Add("Group 4"):Shortcut := "Set <img>2</img>"
		oListBar:ExpandShortcutImage := 3

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
61:
How can I enable or disable resizing the shortcut bar

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar:ShowShortcutBar := .T.
		oListBar:Groups():Add("Group 1"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 2"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 3"):Shortcut := "Set <img>2</img>"
		oListBar:Groups():Add("Group 4"):Shortcut := "Set <img>2</img>"
		oListBar:ExpandShortcutCount := 1
		oListBar:AllowResizeShortcutBar := .F.

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
60:
How do I specify the height of the shortcut bar

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar:ShowShortcutBar := .T.
		oListBar:Groups():Add("Group 1"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 2"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 3"):Shortcut := "Set <img>2</img>"
		oListBar:Groups():Add("Group 4"):Shortcut := "Set <img>2</img>"
		oListBar:ExpandShortcutCount := 1
		oListBar:ShortcutBarHeight := 16

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
59:
How do I select a shortcut

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar:ShowShortcutBar := .T.
		oListBar:Groups():Add("Group 1"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 2"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 3"):Shortcut := "Set <img>2</img>"
		oListBar:Groups():Add("Group 4"):Shortcut := "Set <img>2</img>"
		oListBar:ExpandShortcutCount := 1
		oListBar:SelectShortcut := "Set <img>2</img>"

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
58:
How do I show or hide the shortcut bar

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar:ShowShortcutBar := .T.
		oListBar:Groups():Add("Group 1"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 2"):Shortcut := "Set <img>1</img>"
		oListBar:Groups():Add("Group 3"):Shortcut := "Set <img>2</img>"
		oListBar:Groups():Add("Group 4"):Shortcut := "Set <img>2</img>"
		oListBar:ExpandShortcutCount := 1

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
57:
How do I access the groups collection
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Groups():Add("Group 1")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
56:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:SetProperty("FormatAnchor",.F.,"<b><u><fgcolor=FF0000> </fgcolor></u></b>")
		oListBar:HighlightItemType := 0/*exNoHighlight*/
		oListBar:Groups():Add("Group <a1><b>1</b></a>"):CaptionFormat := 1/*exHTML*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
55:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:SetProperty("FormatAnchor",.F.,"<b><u><fgcolor=FF0000> </fgcolor></u></b>")
		oListBar:HighlightItemType := 0/*exNoHighlight*/
		oGroup := oListBar:Groups():Add("Group 1")
			oGroup:AddItem("Item <a1><b>1</b></a>"):CaptionFormat := 1/*exHTML*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
54:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:HighlightItemType := 0/*exNoHighlight*/
		oListBar:SetProperty("FormatAnchor",.T.,"<b><u><fgcolor=FF0000> </fgcolor></u></b>")
		oListBar:Groups():Add("Group <a1><b>1</b></a>"):CaptionFormat := 1/*exHTML*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
53:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:HighlightItemType := 0/*exNoHighlight*/
		oListBar:SetProperty("FormatAnchor",.T.,"<b><u><fgcolor=FF0000> </fgcolor></u></b>")
		oGroup := oListBar:Groups():Add("Group 1")
			oGroup:AddItem("Item <a1><b>1</b></a>"):CaptionFormat := 1/*exHTML*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
52:
How can I add several pictures and icons to an item

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar:SetProperty("HTMLPicture","pic1","c:\exontrol\images\zipdisk.gif")
		oListBar:SetProperty("HTMLPicture","pic2","c:\exontrol\images\auction.gif")
		oGroup := oListBar:Groups():Add("Group 1")
			oGroup:ItemHeight := 48
			oItem := oGroup:AddItem("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
				oItem:Image := 2
				oItem:CaptionFormat := 1/*exHTML*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
51:
How can I add several pictures and icons to an item

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar:SetProperty("HTMLPicture","pic1","c:\exontrol\images\zipdisk.gif")
		oListBar:SetProperty("HTMLPicture","pic2","c:\exontrol\images\auction.gif")
		oGroup := oListBar:Groups():Add("Group 1")
			oGroup:ItemHeight := 48
			oItem := oGroup:AddItem("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
				oItem:Image := 2
				oItem:CaptionFormat := 1/*exHTML*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
50:
How can I add several pictures to an item

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:SetProperty("HTMLPicture","pic1","c:\exontrol\images\zipdisk.gif")
		oListBar:SetProperty("HTMLPicture","pic2","c:\exontrol\images\auction.gif")
		oGroup := oListBar:Groups():Add("Group 1")
			oGroup:ItemHeight := 48
			oGroup:AddItem("<img>pic1</img> text <img>pic2</img>"):CaptionFormat := 1/*exHTML*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
49:
How can I add several pictures to a group

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
48:
How can I add several pictures and icons to a group

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar:SetProperty("HTMLPicture","pic1","c:\exontrol\images\zipdisk.gif")
		oListBar:SetProperty("HTMLPicture","pic2","c:\exontrol\images\auction.gif")
		oListBar:GroupHeight := 48
		oListBar: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/*exHTML*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
47:
How can I add several pictures to a group

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:SetProperty("HTMLPicture","pic1","c:\exontrol\images\zipdisk.gif")
		oListBar:SetProperty("HTMLPicture","pic2","c:\exontrol\images\auction.gif")
		oListBar:GroupHeight := 48
		oGroup := oListBar:Groups():Add("<img>pic1</img> text <img>pic2</img>")
			oGroup:CaptionFormat := 1/*exHTML*/
			oGroup:Picture := oListBar:ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
			oGroup:AddItem("Item 1")
			oGroup:AddItem("Item 2")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
46:
How can I add several pictures to a group

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:SetProperty("HTMLPicture","pic1","c:\exontrol\images\zipdisk.gif")
		oListBar:SetProperty("HTMLPicture","pic2","c:\exontrol\images\auction.gif")
		oListBar:GroupHeight := 48
		oListBar:Groups():Add("<img>pic1</img> text <img>pic2</img>"):CaptionFormat := 1/*exHTML*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
45:
How do I force refreshing the control
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:BeginUpdate()
		oGroup := oListBar:Groups():Add("Group 1")
			oGroup:AddItem("Item 1")
		oListBar:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
44:
I've seen that the width of the tooltip is variable. Can I make it larger

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:ToolTipWidth := 328
		oListBar:Groups():Add("ToolTip"):ToolTip := "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
43:
How do I let the tooltip being displayed longer

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:ToolTipPopDelay := 10000
		oListBar:Groups():Add("ToolTip"):ToolTip := "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
42:
Can I change the default border of the tooltip, using your EBN files

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:ToolTipDelay := 1
		oListBar:ToolTipWidth := 364
		oListBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
		oListBar:SetProperty("Background",64/*exToolTipAppearance*/,0x1000000)
		oListBar:Groups():Add("ToolTip"):ToolTip := "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
41:
Can I change the background color for the tooltip

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:ToolTipDelay := 1
		oListBar:ToolTipWidth := 364
		oListBar:SetProperty("Background",65/*exToolTipBackColor*/,AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
		oListBar:Groups():Add("ToolTip"):ToolTip := "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
40:
Does the tooltip support HTML format

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:ToolTipDelay := 1
		oListBar:ToolTipWidth := 364
		oListBar:Groups():Add("ToolTip"):ToolTip := "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>group</fgcolor>"

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
39:
Can I change the forecolor for the tooltip

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:ToolTipDelay := 1
		oListBar:ToolTipWidth := 364
		oListBar:SetProperty("Background",66/*exToolTipForeColor*/,AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
		oListBar: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
38:
Can I change the foreground color for the tooltip

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:ToolTipDelay := 1
		oListBar:ToolTipWidth := 364
		oListBar:Groups():Add("ToolTip"):ToolTip := "<fgcolor=FF0000>This is a bit of text that's shown when the cursor hovers the group.</fgcolor>"

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
37:
Can I change the font for the tooltip

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:ToolTipDelay := 1
		oListBar:ToolTipWidth := 364
		oListBar: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"

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
36:
Can I change the font for the tooltip

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:ToolTipDelay := 1
		oStdFont := oListBar:ToolTipFont()
			oStdFont:Name := "Tahoma"
			oStdFont:Size := 14
		oListBar:ToolTipWidth := 364
		oListBar: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
35:
How do I disable showing the tooltip for all control
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:ToolTipDelay := 0
		oListBar: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
34:
How do I show the tooltip quicker
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:ToolTipDelay := 1
		oListBar: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
33:
How do I call your x-script language

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:ExecuteTemplate("Groups.Add(`Group 1`)"):AddItem("Item 1")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
32:
How do I call your x-script language

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Template := "BackColor = RGB(255,0,0)"

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
31:
How do I remove the control's borders
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:BeginUpdate()
		oListBar:Appearance := 0/*exNone*/
		oListBar:BorderWidth := 0
		oListBar:BorderHeight := 0
		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar:Groups():Add("Group 1"):AddItem("Item 1"):Image := 1
		oListBar:Groups():Add("Group 2"):AddItem("Item 2")
		oListBar:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
30:
How do I specify width or the height of the control's borders
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:BeginUpdate()
		oListBar:Appearance := 0/*exNone*/
		oListBar:BorderWidth := 0
		oListBar:BorderHeight := 0
		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar:Groups():Add("Group 1"):AddItem("Item 1"):Image := 1
		oListBar:Groups():Add("Group 2"):AddItem("Item 2")
		oListBar:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
29:
How do I access the item from the point
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )


	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
28:
How do I access the group from the point
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )


	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
27:
How do I specify to highlight the items in the group, when the cursor hovers the item

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:BeginUpdate()
		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar:HighlightItemType := 3/*exUnion*/
		oListBar:Groups():Add("Group 1"):AddItem("Item 1"):Image := 1
		oListBar:Groups():Add("Group 2"):AddItem("Item 2")
		oListBar:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
26:
How do I specify to highlight the items in the group, when the cursor hovers the item

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:BeginUpdate()
		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar:HighlightItemType := 2/*exIcon*/
		oListBar:Groups():Add("Group 1"):AddItem("Item 1"):Image := 1
		oListBar:Groups():Add("Group 2"):AddItem("Item 2")
		oListBar:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
25:
How do I specify to highlight the items in the group, when the cursor hovers the item

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:BeginUpdate()
		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar:HighlightItemType := 1/*exCaption*/
		oListBar:Groups():Add("Group 1"):AddItem("Item 1"):Image := 1
		oListBar:Groups():Add("Group 2"):AddItem("Item 2")
		oListBar:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
24:
How do I specify the way the control highlight the items in the group
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:BeginUpdate()
		oListBar:HighlightItemType := 0/*exNoHighlight*/
		oListBar:Groups():Add("Group 1"):AddItem("Item 1")
		oListBar:Groups():Add("Group 2"):AddItem("Item 2")
		oListBar:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
23:
Is there any function to avoid painting the control while adding multiple items and groups
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:BeginUpdate()
		oListBar:Groups():Add("Group 1"):AddItem("Item 1")
		oListBar:Groups():Add("Group 2"):AddItem("Item 2")
		oListBar:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
22:
How do I decrease the delay to scroll a group
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:DelayScroll := 0
		oListBar:Groups():Add("Group 1"):AddItem("Item 1")
		oListBar:Groups():Add("Group 2"):AddItem("Item 2")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
21:
How do I display icons

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:SmallIcons := .T.
		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar: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
20:
How do I display 32x32 icons

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:SmallIcons := .F.
		oListBar:GroupHeight := 36
		oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
		oListBar: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
19:
How do I specify the height of the groups

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:GroupHeight := 40
		oListBar:Groups():Add("Group 1")
		oListBar:Groups():Add("Group 2")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
18:
How do I change the visual appearance of the groups

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:GroupAppearance := 1/*exSingle*/
		oListBar:Groups():Add("Group 1")
		oListBar:Groups():Add("Group 2")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
17:
How do I change the visual appearance of the 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 oListBar

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

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

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

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:SetProperty("BackColorGroup",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
		oListBar:SetProperty("BackColorGroup2",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
		oListBar:Groups():Add("Group 1")

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

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:SetProperty("BackColorGroup",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
		oListBar:Groups():Add("Group 1")

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

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor  ( { 0,0,255 } )  , .F. ))
		oListBar:SetProperty("ForeColorGroup",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
		oListBar:Groups():Add("Group 1"):AddItem("Item 1")
		oListBar:Groups():Add("Group 2")

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

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Font():Name := "Tahoma"
		oListBar:Groups():Add("Group 1")

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

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
		oListBar:Groups():Add("Group 1"):AddItem("Item 1")

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

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor  ( { 200,200,200 } )  , .F. ))

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
10:
How do I change the control's border, using your EBN files

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
		oListBar:Appearance := 16777216/*0x1000000+*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
9:
How do I remove the control's border
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Appearance := 0/*exNone*/

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
8:
How do I put a picture on the center of the control
#include "AppEvent.ch"
#include "ActiveX.ch"

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Picture := oListBar:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		oListBar:PictureDisplay := 17/*MiddleCenter*/

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Picture := oListBar:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		oListBar:PictureDisplay := 49/*Stretch*/

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Picture := oListBar:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		oListBar:PictureDisplay := 34/*LowerRight*/

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Picture := oListBar:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		oListBar:PictureDisplay := 32/*LowerLeft*/

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Picture := oListBar:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		oListBar:PictureDisplay := 1/*UpperCenter*/

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Picture := oListBar:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		oListBar:PictureDisplay := 2/*UpperRight*/

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Picture := oListBar:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		oListBar:PictureDisplay := 0/*UpperLeft*/

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

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

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

	oListBar := XbpActiveXControl():new( oForm:drawingArea )
	oListBar:CLSID  := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
	oListBar:create(,, {10,60},{610,370} )

		oListBar:Picture := oListBar:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")

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