Thanks for the code Borislav. I noticed a few things about the class that I don't have in mine.

1) I don't have a button for the user to click in order to dismiss the splash screen. Actually, I can't think of any splash screens that work this way.

2) More importantly, I need this splash screen to be show as a Top-Level form. It, like all splash screens that I've seen, appears before the main application window displays. It appears on top of all running application. It should have no title bar. I couldn't get your code to function this way. I hide the Visual Foxpro Window with _VFP.Visible = .F. in the first line of my start prg. If I do the same to your code below, you won't see the splash screen! Kinda defeats the purpose no :(


Mike


>Mike here the code for My Splash screen form, it works for me. Of course You must change the picture propertie.
>
>

>oForm = CREATEOBJECT("Splash")
>oForm.Show(2)
>READ EVENTS
>**************************************************
>*-- Form:         form1 (c:\tte\dayoftheyear.scx)
>*-- ParentClass:  form
>*-- BaseClass:    form
>*-- Time Stamp:   05/19/04 09:58:06 AM
>*
>*
>DEFINE CLASS splash AS form
>
>
>    Height = 377
>    Width = 484
>    Desktop = .T.
>    DoCreate = .T.
>    AutoCenter = .T.
>    BorderStyle = 2
>    Caption = ("")
>    ControlBox = .F.
>    Closable = .F.
>    MaxButton = .F.
>    MinButton = .F.
>    TitleBar = 0
>    AlwaysOnTop = .T.
>    cimage = "aladin.bmp"
>    cmessage = "MicroComplex"
>    Name = "splash"
>
>
>    ADD OBJECT image1 AS image WITH ;
>        Picture = "..\pictures\aladin.bmp", ;
>        Stretch = 1, ;
>        BackStyle = 0, ;
>        Height = 240, ;
>        Left = 5, ;
>        Top = 58, ;
>        Width = 192, ;
>        Name = "Image1"
>
>
>    ADD OBJECT image2 AS image WITH ;
>        Picture = "..\pictures\ala_head.bmp", ;
>        BackStyle = 0, ;
>        Height = 68, ;
>        Left = 19, ;
>        Top = -6, ;
>        Width = 190, ;
>        Name = "Image2"
>
>
>
>    ADD OBJECT command1 AS commandbutton WITH ;
>        Top = 357, ;
>        Left = 372, ;
>        Height = 19, ;
>        Width = 72, ;
>        Caption = "OK", ;
>        TabIndex = 1, ;
>        SpecialEffect = 2, ;
>        Name = "Command1"
>
>
>
>
>    PROCEDURE Init
>        LPARAMETERS show_butt
>        LOCAL p_path
>        this.cImage             = FULLPATH(this.cImage)
>        ThisForm.Image1.Picture = this.cImage
>        ThisForm.Image1.Visible = .t.
>        thisform.Command1.Visible           = .t.
>        _screen.Closable                    = .f.
>    ENDPROC
>
>
>    PROCEDURE Destroy
>        _screen.Closable                    = .t.
>    ENDPROC
>
>
>    PROCEDURE command1.Click
>        thisform.Release()
>        CLEAR EVENTS
>    ENDPROC
>
>
>ENDDEFINE
>