- Yasaklandı
- #1
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Arkadaşlar yanıp sönen label buyrun [/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Forma bitane Command button1[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Forma bitanede Label ekleyin[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]KODLAR : [/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif] x60[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Forma bitane Command button1[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Forma bitanede Label ekleyin[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]KODLAR : [/FONT]
PHP:
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[font='Open Sans', Tahoma, Verdana, Arial, sans-serif] x60[/FONT]
