Protected Sub LogIn(sender As Object, e As EventArgs)
        If IsValid Then
            ' Convalidare la password utente
            Dim manager = Context.GetOwinContext().GetUserManager(Of ApplicationUserManager)()
            Dim signinManager = Context.GetOwinContext().GetUserManager(Of ApplicationSignInManager)()

            ' Questa opzione non calcola il numero di tentativi di accesso non riusciti per il blocco dell'account
            ' Per abilitare il conteggio degli errori di password per attivare il blocco, impostare shouldLockout: = True
            Dim result = signinManager.PasswordSignIn(Email.Text, Password.Text, RememberMe.Checked, shouldLockout := False)

            Select Case result
                Case SignInStatus.Success
                    IdentityHelper.RedirectToReturnUrl(Request.QueryString("ReturnUrl"), Response)
                    Exit Select
                Case SignInStatus.LockedOut
                    Response.Redirect("/Account/Lockout")
                    Exit Select
                Case SignInStatus.RequiresVerification
                    Response.Redirect(String.Format("/Account/TwoFactorAuthenticationSignIn?ReturnUrl={0}&RememberMe={1}",
                                                    Request.QueryString("ReturnUrl"),
                                                    RememberMe.Checked),
                                      True)
                    Exit Select
                Case Else
                    FailureText.Text = "Tentativo di accesso non valido"
                    ErrorMessage.Visible = True
                    Exit Select
            End Select
        End If
    End Sub