#DEFINE WM_NULL            0 
#DEFINE WM_SYSCOMMAND    274   && 0x112 for SendMassage
#DEFINE MOUSE_MOVE     61458   && 0xF012
#DEFINE SC_VSCROLL     61552   && 0xF070 for SendMassage
#DEFINE LOGPIXELSX        88   && Logical pixels/inch in X
#DEFINE LOGPIXELSY        90   && Logical pixels/inch in Y

#DEFINE WM_VSCROLL        277   && 0x0115 for SendMassage
#DEFINE WM_HSCROLL        276   && 0x0115 for SendMassage
#DEFINE SB_LINEUP           0 
#DEFINE SB_LINELEFT         0 
#DEFINE SB_LINEDOWN         1 
#DEFINE SB_LINERIGHT        1 
#DEFINE SB_PAGEUP           2 
#DEFINE SB_PAGELEFT         2 
#DEFINE SB_PAGEDOWN         3 
#DEFINE SB_PAGERIGHT        3 
#DEFINE SB_THUMBPOSITION    4 
#DEFINE SB_THUMBTRACK       5 
#DEFINE SB_TOP              6 
#DEFINE SB_LEFT             6 
#DEFINE SB_BOTTOM           7 
#DEFINE SB_RIGHT            7 
#DEFINE SB_ENDSCROLL        8 
Declare INTEGER SendMessage IN user32 INTEGER, INTEGER, INTEGER, INTEGER
=SendMessage(ThisForm.Olecontrol1.hWnd,WM_VSCROLL,SB_LINEUP,WM_NULL) &&вверх
=SendMessage(ThisForm.Olecontrol1.hWnd,WM_HSCROLL,SB_LINELEFT,WM_NULL) &&влево
=SendMessage(ThisForm.Olecontrol1.hWnd,WM_VSCROLL,SB_LINEDOWN,WM_NULL) &&вниз
=SendMessage(ThisForm.Olecontrol1.hWnd,WM_HSCROLL,SB_LINERIGHT,WM_NULL) &&вправо

CLEAR ALL
PUBLIC my_tool_bar2, my_tool_bar3
my_tool_bar2=CREATEOBJECT('toolbar')
my_tool_bar2.AddObject('a1','commandbutton')
my_tool_bar2.a1.width =  1020 
my_tool_bar2.a1.Caption = "Второй подгружаемый <<левый тулбар>>"
my_tool_bar2.Visible = .T.
my_tool_bar2.a1.Visible = .T.

my_tool_bar3=CREATEOBJECT('toolbar')
my_tool_bar3.Visible = .T.
my_tool_bar3.AddObject('a1','commandbutton')
my_tool_bar3.a1.Caption = "<<Правый тулбар>>"
my_tool_bar3.a1.Visible = .T.
my_tool_bar3.Dock( 0 , 1200 , 0 )
susp
my_tool_bar2.Dock( 0 )