Public Function renkler() As Color
      Dim bellirenkler As New Random
      Dim renkdizisi(3) As Color
      renkdizisi(0) = Color.White
      renkdizisi(1) = Color.Green
      renkdizisi(2) = Color.Blue
      renkdizisi(3) = Color.Yellow
      Return renkdizisi(bellirenkler.Next(0, 4))
    End Function

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      Me.BackColor = renkler()
    End Sub
                                        Herkese Kolay Gelsin

Normalde Çalışması Lazım Ufak Bi Eksiklik Vardır
Bende Acemi Sayılırım

Neden Sorun Çıkartıyor Sizde Anlamıs Değilim Örneği Yükledim 



Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap