home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD898.psc / Module1.bas < prev   
Encoding:
BASIC Source File  |  1999-07-24  |  369 b   |  24 lines
  1. Attribute VB_Name = "Module1"
  2. Public fMainForm As frmMain
  3.  
  4.  
  5. Sub Main()
  6.     frmSplash.Show
  7.     
  8.     frmSplash.Refresh
  9.     Dim fLogin As New frmLogin
  10.     fLogin.Show vbModal
  11.     If Not fLogin.OK Then
  12.         End
  13.     End If
  14.     Unload fLogin
  15.  
  16.  
  17.     Set fMainForm = New frmMain
  18.     Load fMainForm
  19.     
  20.     fMainForm.Show
  21.     Unload frmSplash
  22. End Sub
  23.  
  24.