Private Sub Timer1_Timer()
Dim txtName As String
Dim txt As TextBox
Dim ctl  As control

If TypeOf Form2.ActiveControl Is TextBox Then txtName = Form2.ActiveControl.Name

For Each ctl In Form2
    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

Amauri arrebentou cara, sabe que já usei esta função porém nuca tentei colocar em timer, legal resolveu problema do colega, parabens.