I am using the following code to Get Too Bar for My application. But I need to have a look in which Tool Bar looks like Embedded in Menu . The Code I have used below gives tool bar aloof from My Main Menu, I need to have embedded in Main Menu (Plese See Screen Shot Below, I have Drag the Tool Bar to do so)

Kinldy Look at the Image below. Is it Possible to have tool bar location as Per the Image.

https://www.dropbox.com/s/wz613tl82u04iyo/ToolBar.bmp

PUBLIC tbrDesktop
tbrDesktop = CREATEOBJ('mytoolbar')
tbrDesktop.SHOW

DEFINE CLASS myToolBar  AS Toolbar
ADD OBJECT btnBold  AS CommandButton
   
btnBold.HEIGHT = 40
btnBold.WIDTH = 40
btnBold.Picture='C:\Documents and Settings\AO system\Desktop\Graphics\1.ico'
btnBold.Caption = ''
   
LEFT = 1
TOP = -20
WIDTH = 125

Caption=' '
Controlbox=.F.
dockable=.F.
   
PROCEDURE Activate 
this.btnBold.FontBold = _SCREEN.FONTBOLD
ENDPROC
   
PROCEDURE btnBold.CLICK
DO FORM Sort
ENDPROC
   
ENDDEFINE