u either define a class
with a label for a message & a timer with an event as
thisform.visible=.t.
classform's hide as
thisform.visible=.f.
THISFORM.TIMER1.INTERVAL=0
=dodefault()
in the main program
obj=create the object

use as
ob.label1.caption="Loading Company...."
ob.timer1.interval=2000 && show after two secs
&& no need to show if code exes in 2 secs ..
to hide
ob.hide()
....... but will deactivate a window if already activated

or could use
wait window "Load Program"+chr(13)+"Please wait ..." nowait
&
wait clear