[C&P] Making your form change colors!

[CoderNever]

Add this Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim Colors() = {"RED", "BLUE", "ORANGE", "PINK", "GREEN", "YELLOW"}
        Dim Color
        Color = CInt(Int(6 * Rnd()))
        Colorgraber = CStr(Colors(Color))
        Color = Colorgraber
        If Colorgraber = "RED" Then
            Me.BackColor = Drawing.Color.Red
        ElseIf Colorgraber = "BLUE" Then
            Me.BackColor = Drawing.Color.Blue
        ElseIf Colorgraber = "ORANGE" Then
            Me.BackColor = Drawing.Color.Orange
        ElseIf Colorgraber = "PINK" Then
            Me.BackColor = Drawing.Color.Pink
        ElseIf Colorgraber = "GREEN" Then
            Me.BackColor = Drawing.Color.Green
        ElseIf Colorgraber = "YELLOW" Then
            Me.BackColor = Drawing.Color.Yellow
        End If
End Sub

Now add a Timer and depending what you set the interval to will make it go slower or faster. If you need help setting more colors just ask. If you don't have fun with it.

[Pixie]

So this will change automatically??
and what is C&P??

[CoderNever]

C&P = copy and paste
and yes it will change fastly to like your ready to party! lol

[Pixie]

C&P = copy and paste
and yes it will change fastly to like your ready to party! lol

Wow, this sure will blind some one

[CoderNever]

Lol I would not want to be at a party with you!

Pixiecorp : Can you turn the music down someone ears are going to get hurt!!!

[Stephen]

lolz........