Sub Form_Load () 
    Screen.MousePointer = 11    '  Hourglass cursor 
                                '  Center message Left/Right:
    Banner.Left = (Screen.Width - Banner.Width) / 2 
                                ' Center message Top/Bottom:
    Banner.Top = (Screen.Height - Banner.Height) / 2 
 End Sub 
 
Sub Timer1_Timer () 
    Timer1.Enabled = 0      '  False   -   Turn off the timer  
    Load MainForm           '  Load form with Visible Property set to False
    MainForm.Visible = -1   '  True - Keep it hidden until load is complete 
End Sub 
 
