Visual Basic Yanıp Sönen Label Kod Örneği

Merhaba arkadaşlar sitemi yavaş yavaş tamamlamaya koyuldum.Yakında Blogumun Kusursuz Sürümü çıkacaktır inşallah okul sürecinde olduğum için yazılarımda aksama olabiliyor bunun için üzgünüm ama tatilde dopdolu yazılar ile sizlerle olacağım..Fazla tutmadan konuya geçelim Bugün ilk içeriğimi Visual Basic kategorisine atıyorum ele alacağım örnek yanıp sönen label örneği bu kodu yapacağınız her uygulamada kullanabilirsiniz... Aşağıdaki kodları formunuzdaki gerekli yerlere yapıştırın ve sonucu görün ileride dökümanlı olarak kod düzenlemeyi anlatacağım Şimdilik benden bu kadar kodu kullanıcak olan arkadaşlarada kolay gelsin..
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