Thanks Claudio

I'm actually using an approach like your, however, once the toolbar is docked DOCK(TOOL_TOP). I don´t want the user to undock it.

¿Is there a way to lock it?

Oscar


>>I'l appreciate any hints about how to avoid a tool bar fom being undocked. I've tried Return .T. and dock(0) at the undock method without success.
>
>Hi Oscar, Here is some sample how I´ve been producing some deal like yours:
>
>

>procedure activate
>LOCAL nDock, nTop, nLeft, nWidth
>WITH THIS
>        * get values from table to variables.
>	nDock  = myalias.t_Dock
>	nTop   = myalias.t_Top
>	nLeft  = myalias.t_Left
>	nWidth = myalias.t_Width
>	IF  TYPE(".oToolBar")!='O' AND !ISNULL(.oToolBar)
>    	    .oToolBar = NEWOBJECT('table_bar','myocx.ocx')
>	ENDIF
>        * Call the DOCK() method of the toolbar and pass it
>        * the variables read from the table.
>	.oToolBar.DOCK(nDock,nLeft,nTop)
>        *
>        * Adjust the toolbar width as well
>        * (effects vertical or horozontial positioning when not docked).
>	.oToolBar.WIDTH = nWidth
>	.oToolBar.SHOW()
>ENDWITH
>endproc
>

>
>Here is the valids values:
>
>– 1 TOOL_NOTDOCKED && not docked
>0 TOOL_TOP && docked at top
>1 TOOL_LEFT && dock a the left side
>2 TOOL_RIGHT && right side
>3 TOOL_BOTT && bottom
>
>
>CLAUDIO