Attribute VB_Name = "Module1"
Option Explicit

Public fMainForm As frmMain


Sub Main()
   frmSplash.Show
   frmSplash.Refresh
   Set fMainForm = New frmMain
   Load fMainForm
   Unload frmSplash


   fMainForm.Show
End Sub