yanıp sönen label olur mu?

[osmanfenerli1907]

merhabalar
Ben commandbutton1 e label1 yanıp yanıp sönse.commandbutton2 e tıklayınca label1 eski haline dönsün.
iyi günler.

 

[Tankut SAZLI]

Bu kodları bir deneyin,istediğiniz şey bumukısa bir döngü yaptım ama geliştirilebilir.

Private Sub CommandButton1_Click()
For X = 1 To 5000: DoEvents: Next X
Label1.ForeColor = vbRed
For X = 1 To 5000: DoEvents: Next X
Label1.ForeColor = vbBlue
For X = 1 To 5000: DoEvents: Next X
Label1.ForeColor = vbGreen
For X = 1 To 5000: DoEvents: Next X
Label1.ForeColor = vbRed
End Sub