Code box #2
Private Sub cmdQuit_Click()
Unload Me
End
End Sub

Private Sub Form_Load()
Form1.Width = Screen.Width - 4000
Form1.Height = Screen.Height - 2000
Form1.Left = (Screen.Width - Form1.Width) / 2
Form1.Top = (Screen.Height - Form1.Height) / 2
Show
Timer1.Interval = 5000
welcome.MousePointer = 11
welcome.Show
DoEvents
End Sub

Private Sub Timer1_Timer()
Unload startup
MousePointer = 0
Timer1.enabled = false
End Sub