Crear login en visual basic

[pic 1]

Public Class frmLogin

    Dim numeroIntentos As Integer = 0

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LblRecuperarContraseña.Click

        frmOlvidoContraseña.Show()

        Me.Close()

    End Sub

    Private Sub BtnAceptarACC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAceptar.Click

        If TxtUsuario.Text = "" Then

            MsgBox("Debe ingresar su nombre de usuario.", MsgBoxStyle.Critical, "Mensaje de SGCP_PROVEEMA")

            TxtUsuario.Focus()

        ElseIf TxtContraseña.Text = "" Then

            MsgBox("Debe ingresar su contraseña.", MsgBoxStyle.Critical, "Mensaje de SGCP_PROVEEMA")

            TxtContraseña.Focus()

        Else

            idUsuarios = UsuarioExiste(TxtUsuario.Text) 'llamamos a la funcion UsauarioExiste para saber si el usuario existe en la BBDD

            'si el usuario existe nos retorna el id del usuario,  sino retorna cero

            If idUsuarios > 0 Then

                'Se crea un objeto de tipo usuario

                nuevoUsuario = New Usuario()

                nuevoUsuario.traerDatosUsuario(idUsuarios)  'Se cargan los datos del usuario

                If TxtContraseña.Text.Trim = nuevoUsuario.Contraseña Then

                    If nuevoUsuario.Estado = "Inactivo" Then  'Estado: Inactivo

                        MsgBox("Su cuenta está inactiva, Contacte al administrador del sistema", MsgBoxStyle.Information, "Mensaje de SGCP_PROVEEMA")

                        Application.Exit()

                    ElseIf nuevoUsuario.Estado = "Nuevo" Then  'Estado: primer ingreso

                        MsgBox("Por ser su primer ingreso." & vbCrLf & "Deberá activar su cuenta.", MsgBoxStyle.Information, "Mensaje de SGCP_PROVEEMA")

                        accionFormularioPreguntas = "ACTIVAR"

                        frmPreguntas.Show()

                        Me.Close()

                        Exit Sub

                    ElseIf nuevoUsuario.Estado = "Reseteado" Then

                        Dim res As Integer = DateTime.Compare(Now, nuevoUsuario.FechaVencimiento)

                        If res <= 0 Then

                            MsgBox("Como parte de la seguridad del sistema,  se le solicita que por favor cambie su contraseña." & vbCrLf & "Gracias.", MsgBoxStyle.Information, "Mensaje de SGCP_PROVEEMA")

                            accionFormularioPreguntas = "RESETEADO"

                            frmCambioContraseña.Show()

                            Me.Close()

                            Exit Sub

                        Else

                            MsgBox("Su contraseña esta vencida." & vbCrLf & "Comuniquese con el administrador.", MsgBoxStyle.Information, "Mensaje de SGCP_PROVEEMA")

                        End If

                    ElseIf nuevoUsuario.Estado = "Bloqueado" Then

                        MsgBox("Su usuario está bloqueado.", MsgBoxStyle.Critical, "Mensaje de SGCP_PROVEEMA")

                        Exit Sub

                    ElseIf nuevoUsuario.Estado = "Activo" Then  'Estado: activo

                        Dim res As Integer = DateTime.Compare(Now, nuevoUsuario.FechaVencimiento)

                        If res <= 0 Then

                            Cotizacion.desHabilitarCotizaciones(misParametros.duracionCotizaciones * -1)

...