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 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

Etiketler:
Beğeniler: 0
Favoriler: 0
İzlenmeler: 1584
favori
like
share
alanya.nuri Tarih: 29.07.2006 18:16
saolllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll
corleoni Tarih: 17.07.2006 14:20
sağol kardes ama malesef ben bunlardan hiçbirşey anlamıyorum
genc34 Tarih: 15.06.2006 22:17
tskler. :23:
XX_Lord Tarih: 15.06.2006 19:29
teşekkürler dostum
lmpoSslbLe Tarih: 14.06.2006 12:43
Bu ne la?teşekkürler bakalım bi
fiber_optic Tarih: 27.05.2006 09:55
bakalım nasıl yapıldığın Teşekürler ellerine sağlık
yigithan Tarih: 23.05.2006 20:02
tskler
bey_tu Tarih: 22.05.2006 20:45
ellerine saglik tesekkürler
vampir4518 Tarih: 21.05.2006 11:50
saolasın kardes