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) EndDefineHope this helps,