home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_03_03 / 3n03062b < prev    next >
Text File  |  1992-01-22  |  576b  |  15 lines
  1. Sub Form_Load () 
  2.     Screen.MousePointer = 11    '  Hourglass cursor 
  3.                                 '  Center message Left/Right:
  4.     Banner.Left = (Screen.Width - Banner.Width) / 2 
  5.                                 ' Center message Top/Bottom:
  6.     Banner.Top = (Screen.Height - Banner.Height) / 2 
  7.  End Sub 
  8.  
  9. Sub Timer1_Timer () 
  10.     Timer1.Enabled = 0      '  False   -   Turn off the timer  
  11.     Load MainForm           '  Load form with Visible Property set to False
  12.     MainForm.Visible = -1   '  True - Keep it hidden until load is complete 
  13. End Sub 
  14.  
  15.