SAMPLE SPLASH FORM IN VISUAL FOXPRO

in your config.fpw file
SCREEN=OFF

in your main program
DO FORM splash WITH 60000  && show splash screen for one min
READ EVENTS

set the properties of the splash form
these settings are a must
WindowType = 0  && modeless
ShowWindow = 2  && as a top level form
ShowInTask = .F. && show icon in taskbar
Desktop = .t.

these settings are only to have the appearence of a splash screen, remove form attributes
AutoCenter = .t.  && not a requirement
ClipControls = .f.
Closeable = .f.
MaxButton = .f.
MinButton = .f.
Titlebar = 0

In the InitEvent of the form:
LPARAMETERS lnInterval
ThisForm.Timer1.Interval = lnInterval

In the Destroy event of the form:
clear events

Place a timer control on the form.  In the TimerEvent place
ThisForm.Release()

Add what ever graphics and text to suit.

I have modified this to make a Security warning screen that requires user to ankowledge by clicking Accept button.  If the form times out or user selects Reject the form returns .f. to main calling program or in the Unloadevent of the form

if !thisform.returnvalue
    quit
endif

Download Code