Private Sub Form_Timer() On Error Resume Next Screen.PreviousControl.ForeColor = 0 Screen.PreviousControl.BackColor = 16777215 Me.ActiveControl.ForeColor = 252525 Me.ActiveControl.BackColor = 65535 End Sub