Hello Everybody

is it possible to add a combobox to the ActiveX ToolBar? i am able to add the combobox, but its invisible (i tried .visible=.t.).

ToolBarTest = NEWOBJECT("Form1")
ToolBarTest.SHOW()
READ EVENTS
RETURN


DEFINE CLASS form1 AS FORM
	HEIGHT = 100
	WIDTH = 300
	DOCREATE = .T.
	AUTOCENTER = .T.
	CAPTION = "Test"
	NAME = "Form1"


	ADD OBJECT _toolbar1 AS _toolbar WITH ;
		TOP = 0, ;
		LEFT = 0, ;
		HEIGHT = 24, ;
		WIDTH = 793, ;
		NAME = "_ToolBar1"

	PROCEDURE destroy
		CLEAR EVENTS
	ENDPROC

	PROCEDURE _ToolBar1.INIT
		WITH THIS.BUTTONS
			.ADD(;
				1, ;
				"_Main_Exit", ;
				"Exit", ;
				0)
		ENDWITH
		THIS.ADDOBJECT("Test", "combobox")
		THIS.Test.VISIBLE = .T.
	ENDPROC
ENDDEFINE

DEFINE CLASS _toolbar AS OLECONTROL
	OLECLASS = "MsComCtlLib.ToolBar.2"
	HEIGHT = 42
	WIDTH = 100
	ALIGN = 1
	NAME = "_toolbar"

ENDDEFINE

Thanks for all your help!