Hi Alonso,

Check this aproach, it's very simple but it works fine in all my apps.

 Program Start

 . . .

 oSplash = CreateObject ("frmSplash")
 oSplash.Show ()

 . . . (Init code ...)

 Some latter...

 InKey   (0.5)  (just to allow user to see it at last for 0.5 sec < s >)
 Release oSplash
 Application.Visible   = .T.  && Deve haver um 'Screen = Off' no Config.Fpw para Iniciar a Aplicação de forma 'Invisível'

 . . .

 End of program

 . . .
 
*====== ===== ========= == ====
 Define Class frmSplash as Form
*====== ===== ========= == ====

        ShowWindow        =   2
        WindowType        =   0
        ScaleMode         =   3
        Name              = "frmSplash"
        Caption           =  ". . ."
        Icon              =  ". . ."

        Height            = 240
        Width             = 460

        MaxHeight         = 282
        MaxWidth          = 493

        AlWaysOnTop       =  .T.
        AutoCenter        =  .T.
        Enabled           =  .T.

        ColorSource       =   4
        BackColor         = RGB (. . .)
        BorderStyle       =   0

        Closable          =  .T.
        ControlBox        =  .T.
        ZoomBox           =  .F.
        SizeBox           =  .F.
        MaxButton         =  .F.
        MinButton         =  .F.
        Movable           =  .F.

        Add Object imgAbout as Image  with Top         =   0    , ;
                                           Left        =  10    , ;
                                           Height      = ...    , ;
                                           Width       = ...    , ;
                                           Picture     = ". . .", ;
                                           Stretch     =   2    , ;
                                           BackStyle   =   0    , ;
                                           BorderStyle =   0

  . . . (other stuff)

 EndDefine

Hope this helps,

Fernando