You could create a textbox class. Pleas this code in a PRG and run it
to see a status bar on your VFP desktop

_Screen.AddObject("MyText", "txtStatus")
_Screen.MyText.Visible = .T.

_Screen.MyText.AddMessage("This is some status text")


DEFINE CLASS txtStatus AS TextBox

  PROCEDURE Init
    
    DisabledForeColor = 8388608    && Dark Blue
    DisabledBackColor = 12632256   && Grey
    Enabled = .F.
    FontName = "Arial"
    
    WITH This
      .Left = 0
      .Top = ThisForm.Height - .Height - 1
      .Width = ThisForm.Width - 1
    ENDWITH

  ENDPROC

  PROCEDURE AddMessage()
    LPARAMETERS cMessage
    This.Value = cMessage
  ENDPROC

ENDDEFINE