Yanıp sönen label
Son güncelleme: 29.07.2006 18:16
-
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
saol
- Yanıp sönen label Konusuna Benzer Konular
- mertokay Yanıp Sönen Nick İsteği 22.03.2009
- mkg08 Yanıp Sönen Nick İsteği 21.03.2009
- Droppix Recorder 1.7.2 / Droppix Label Maker Deluxe 2.0 12.03.2006
- Black-Editon yanıp sonen 29.09.2008
- Bütün ev yanıp Kül olurda içinde tek yanmayan ne kalır ? 21.08.2007
- Plastik Gıda Ambalajı 29.07.2006 18:16