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