************* Code Start *************
Private Sub Form_Timer()
    With Me.lblSomeLabel
        .ForeColor = (IIf(.ForeColor = vbRed, vbBlack, vbRed))
    End With
End Sub
'************* Code End *************

************* Code Start *************
Private Sub Form_Current()
        Me.TimerInterval = 300
  End Sub
'************* Code End *************