TEXTBOX

Private Sub Timer1_Timer()
Dim txtName As String
Dim txt As TextBox
Dim ctl  As control
If TypeOf Me.ActiveControl Is TextBox Then txtName = Me.ActiveControl.Name
For Each ctl In Me
    If txtName = ctl.Name Then
        ctl.BackColor = vbYellow
        ctl.ForeColor = vbBlue
    Else
        If TypeOf ctl Is TextBox Then
            ctl.BackColor = vbWhite
            ctl.ForeColor = vbBlack
        End If
    End If
Next
End Sub