1 adet label
2 adet komut butonu hazırlayınız.

lblFlash
cmdFlash
cmdStop

bu butonları hazırladıktan sonra aşağıdaki kodu formumuzun kod yerine kopyala yapıştır yapın.
Option Compare Database

Private Sub cmdFlash_Click()
Me.TimerInterval = 300

End Sub

Private Sub cmdStop_Click()

Me.TimerInterval = 0
Me.lblFlash.ForeColor = vbBlack

End Sub

Private Sub Form_Timer()
With Me.lblFlash
.ForeColor = (IIf(.ForeColor = vbRed, vbBlack, vbRed))
.BackColor = (IIf(.BackColor = vbRed, vbBlue, vbRed))
End With
End Sub