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

'**************************
Private Sub Form_Current()
 If Me.RecordsetClone.RecordCount > 3 Then
     Me.TimerInterval = 300
 Else
     Me.TimerInterval = 0
     Me.lblLabel1.ForeColor = vbBlack
 End If
End Sub
'**************************