recMain.bas

 Attribute VB_Name = "recMain"
Public fMainForm As frmMain

Sub Main()

'    Call LoginDialog
   
    frmSplash.Show
    frmSplash.Refresh
   
    Set fMainForm = New frmMain
    Load fMainForm
   
    Unload frmSplash

    fMainForm.Show

End Sub

Private Sub LoginDialog()
Dim fLogin As New frmLogin
    fLogin.Show vbModal
    If Not fLogin.OK Then
        'Login Failed so exit app
        End
    End If
    Unload fLogin
End Sub


Project Homepage: