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

(10/11/2008, 12:46)PuLeTiN yazdı: .ForeColor = (IIf(.ForeColor = vbRed, vbBlack, vbRed))
.BackColor = (IIf(.BackColor = vbRed, vbBlue, vbRed))

Hızlı kod. PAylaşım için teşekkürler

Merhaba;

Sayın,PuLeTiN ve Bilgisayarcı ellerinize sağlık.

Teşekkürederim.

eywallah da ... Ben sadece teşekkür etmiştim. Teşekkürler Puletine yapılsın lütfen.

güzel bi örnek, teşekkürler. peki bunu form içinde butonsuz, otomatik olarak form açılınca çalışmasını sağlayabilir miyiz?

Me.TimerInterval = 300

Bu kodu

Form Load olaryına yazarsanız olacaktır....