... Perhaps with a pocket class ? oToolbar:=TMyControl():New( oBrw:ntop-10,oBrw:nwidth,oBrw:oWnd , , ,, , , oBrw:nWidth, 20,, ) obtn[1] := oToolbar:AddItem("test", bAction, "top2.bmp") CLASS TMyControl FROM TControl CLASSDATA lRegistered AS LOGICAL ...