oSplash = createobject('splasher') oSplash.Show() wait window "run the form" timeout 5 oSplash.Hide() DEFINE CLASS splasher AS form Top = 0 Left = 0 Height = 172 Width = 377 DoCreate = .T. Caption = "Form5" TitleBar = 0 Name = "splasher" AutoCenter = .T. ADD OBJECT label1 AS label WITH ; FontBold = .T., ; FontSize = 40, ; FontUnderline = .T., ; WordWrap = .T., ; Alignment = 2, ; Caption = "Big Flashy Splash!", ; Height = 144, ; Left = 10, ; Top = 16, ; Width = 349, ; ForeColor = RGB(0,0,128), ; Name = "Label1" ENDDEFINE