Tony,
This code is taken from our prg at App startup.

otbrMain =CREATEOBJECT('SysToolBar')
otbrMain.Dock( TOOL_TOP )
otbrMain.ReFresh()
otbrMain.SHOW

DEFINE CLASS SysToolBar AS toolbar

ADD OBJECT btnCustomer AS stdtoolbarbtn
ADD OBJECT sep1 AS separator
ADD OBJECT btnOrderEnq AS stdtoolbarbtn
ADD OBJECT sep2 AS separator

LEFT = 1
TOP = 1
WIDTH = 25
MOVABLE = .F.
CAPTION = "Standard"
ControlBox = .F.

HTH,