Ron,

I am able to get the Status Bar into a toolbar, in a container, locked on the bottom. I am unable to get anything to sit on top of the statusbar, hiding the sizer.

This is what I did

oToolBar = CREATEOBJECT("ToolBar")
oToolBar.AddObject("oStatusBar", "oleContainer")
oToolBar.Dock(3)
oToolBar.Show()
oToolBar.ControlBox = .F.
oToolBar.Movable = .f.
READ events
Define Class oleContainer As Container

   Add Object oStatusBar As OleControl With OleClass = "MsComctlLib.SBarCtrl"

   BorderWidth = 0
   Height      = 25
   Width       = _Screen.Width
   Visible     = .T.
   Top         = _Screen.Height - This.Height

   Procedure Resize
      This.Width = _Screen.Width
      This.oStatusBar.Width = This.Width
   Endproc

   Procedure Init
      Bindevent(_Screen, "Resize", This, "Resize")
      BINDEVENT(This.oStatusBar, "DblClick", This, "RightClick")
   Endproc

   Procedure RightClick
      This.Parent.Release()
   Endproc

   PROCEDURE destroy
      CLEAR EVENTS
   endproc
Enddefine