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: 1557
favori
like
share
alanya.nuri Tarih: 29.07.2006 19:16
saolllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll
corleoni Tarih: 17.07.2006 15:20
sağol kardes ama malesef ben bunlardan hiçbirşey anlamıyorum
genc34 Tarih: 15.06.2006 23:17
tskler. :23:
XX_Lord Tarih: 15.06.2006 20:29
teşekkürler dostum
lmpoSslbLe Tarih: 14.06.2006 13:43
Bu ne la?teşekkürler bakalım bi
fiber_optic Tarih: 27.05.2006 10:55
bakalım nasıl yapıldığın Teşekürler ellerine sağlık
yigithan Tarih: 23.05.2006 21:02
tskler
bey_tu Tarih: 22.05.2006 21:45
ellerine saglik tesekkürler
vampir4518 Tarih: 21.05.2006 12:50
saolasın kardes