Finalizando Login y Uso de Status Bar

Video:

En este vídeo depuramos un poco mas el login y usamos una funciones nuevas para mejorarlo, el código es el siguiente:

este código va en el modulo mod_Funciones

Sub SeleccionarTextBox(Control As TextBox)
    Control.BackColor = &H9A620E
    Control.ForeColor = &HFFFFFF
    Control.SelStart = 0
    Control.SelLength = Len(Control.Text)
End Sub

Sub DeseleccionarTexBox(Formulario As Form)
    Dim I As Integer
    For I = 0 To Formulario.Controls.Count - 1
        If TypeOf Formulario.Controls(I) Is TextBox Then
            Formulario.Controls(I).BackColor = &H80000005
            Formulario.Controls(I).ForeColor = &H9A620E
        End If
    Next I
End Sub

En la ventana de Login

Private Sub txtUsuario_GotFocus()
    Call DeseleccionarTexBox(Me)
    Call SeleccionarTextBox(txtUsuario)

End Sub

Private Sub txtPassword_GotFocus()
    Call DeseleccionarTexBox(Me)
    Call SeleccionarTextBox(txtPassword)

End Sub

Y para al dar enter y se pase al cuadro de texto de la contraseña el código es el siguiente:

Private Sub txtUsuario_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        txtPassword.SetFocus
    End If
End Sub

Y se se da enter en el cuadro de contraseña valide el usuario:

Private Sub txtPassword_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Call cmdIngresar_Click
    End If

End Sub