> 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 >>