Renkli Daireler Çizelim

Renk Degiştiren Label Yapalım

1adet label 1adet commandbuton eklıyoruz kodu forma dırek yapıstırıyoz

Private Sub Command1_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
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
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
Private Sub Form_Unload(Cancel As Integer)
Unload Me
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
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