Add this Sub
Code:
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.