Zaman dolduğunda olayına
For X = 1 To 4000: DoEvents: Next X
Label1.ForeColor = vbRed
For X = 1 To 4000: DoEvents: Next X
Label1.ForeColor = vbBlue
'For X = 1 To 5000: DoEvents: Next X
'Label1.ForeColor = vbGreen
For X = 1 To 4000: DoEvents: Next X
Label1.ForeColor = vbRed
kodu yazılmış ve süre ölçer aralığı "150" olarak ayarlanmış
Label1 yerine kendi etiketinin ismini yazacaksın.