bu kadar hızlı yanıp sönmesi gözü yormaz mı?
Private Sub Form_Timer()
If Liste359.ListCount > 0 Then If Me.Etiket329.ForeColor = vbBlack Then Me.Etiket329.ForeColor = vbRed Else Me.Etiket329.ForeColor = vbBlack
If Liste361.ListCount > 0 Then If Me.Etiket356.ForeColor = vbBlack Then Me.Etiket356.ForeColor = vbRed Else Me.Etiket356.ForeColor = vbBlack
End Sub '