''' <summary>

''' Shows a login form before a main form is shown and allows security to be checked before the application

''' launches the main form (optional)

''' </summary>

''' <param name="e"></param>

''' <remarks></remarks>

Private Shared Sub ShowLoginAndInitMainForm(ByVal e As ShowLoginAndInitFormEventArgs)

     '-- Set the login form to your custom login form (optional)

     'Login.LoginFormType = GetType(MyLoginForm)

#If DEBUG Then

     ' Login.SetLoggedInUser("Administrator", "admin" & DateTime.Now.Day.ToString(), "")

     ' Login.SetLoggedInUser("Angel", "jefe", "")

     Login.SetLoggedInUser("Jeannette", "abc123", "")

     '-- Show the login form and authenticate the user

     e.ShowMainForm = Login.ShowLoginAndAuthUser(True)

#End If

End Sub