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