>Hi
>
>I would like a toolbar class to my VFP6 APPS, better than the native VFP class
>
>Moises

In addition to what Terry suggested, you could also create your own toolbar class as follows:

PUBLIC oform as toolbarform 
oform = CREATEOBJECT("toolbarform")
m.oform.show() 

DEFINE CLASS toolbarform as Form 
	ADD OBJECT otoolbar ;
		as mytoolbar ;
		WITH top = 0, ;
			left = 0, ;
			visible = .t.
	PROCEDURE Init()
		this.Resize() 
	ENDPROC 
	
	PROCEDURE Resize()
		this.otoolbar.width = this.Width 
	ENDPROC 
ENDDEFINE 

DEFINE CLASS mytoolbar as Container 
	width = 500
	height = 36
	specialeffect = 0
	ADD OBJECT imgbtn ;
		as imagetoolbarbutton ;
		WITH left = 20, ;
			top = 6, ;
			picture ="" 

	ADD OBJECT btn1 ;
		as toolbarbutton ;
		WITH left = 20 + 27, ;
			top = 6, ;
			picture ="" 

	PROCEDURE imgbtn.click()
		MESSAGEBOX("I am an image toolbar button")
	ENDPROC && 

	PROCEDURE btn1.click()
		MESSAGEBOX("I am a toolbar button")
	ENDPROC && 
ENDDEFINE 

DEFINE CLASS ImageToolBarButton as Image
	width = 24
	height = 24
ENDDEFINE 

DEFINE CLASS ToolBarButton as CommandButton 
	width = 24
	height = 24
ENDDEFINE