>thank you for the reply Tracy. I knew how to do what you were suggesting. I was not clear with my problem with this approach. I don't want a form hanging around on the screen. It will get involved with the dynamamic Window Menu. Unless you know of a way to filter out.

Ron,

Is this more what your looking for?
RightClick in the screen to close the form.

oOleForm = createobject("frmStatus")
With oOleForm
   .Show(0)
   .AddObject("oStatusBar", "olecontrol", "MsComctlLib.SBarCtrl") 
   .oStatusBar.Height = 25
   .oStatusBar.Visible = .T.
EndWith
&& I left the ".2" off the MsComctlLib.SbarCtrl to prevent 
&& the requirement of a specific version installed on the machine

&& Unremark the following line to recieves an error doing the same 
&& on the screen
*_Screen.AddObject("oStatusBar", "oleControl", "MsComctlLib.SBarCtrl")

Read Events

Define Class frmStatus as Form

Caption     = ""
ControlBox  = .F.
MinButton   = .F.
MaxButton   = .F.
Movable     = .F.
BorderStyle = 0
BackColor   = _Screen.BackColor

Procedure Init
   Bindevent(_Screen, "Resize", This, "Resize")
   Raiseevent(_Screen, "Resize")
EndProc

Procedure RightClick
   ThisForm.Release()
EndProc

Procedure Destroy
   Clear Events
EndProc

Procedure Resize
   This.Width  = _Screen.Width
   This.Height = _Screen.Height
EndProc

EndDef