'************************************************************************************************************************
' File: SubMain.vb
' Programmer: Ting Chan
' Date: May 25, 2004
'
' Description:
' This form is loading form for PMACS. It brings up the login form and load PMACSstartup if
' the username and password are valid.
'
' Revision History:
'
'***************************************************************
Module SubMain
    Sub Main()
        ' Display the login dialog.
        Dim dlg As New PMACSlogin
        If dlg.ShowDialog() = DialogResult.OK Then
            ' The user correctly logged in.
            ' Display the main form.
            Dim frm As New PMACSstartup
            frm.ShowDialog()
        End If
    End Sub
End Module