[VB.NET]Flashing Labels

[Snarf]

Well, we all know how much you want to give your applications seizure-makers, so here is the source of one I just made. First you need to make a label and call it Label1. Next make a timer and set it to Enabled and make the inteval 50 for a good seizure. Now just copy-pasta this code:

Public Class Form1
    Public Function RandomNumber(ByVal low As Int32, ByVal high As Int32) As Integer
        Static RandomNumGen As New System.Random
        Return RandomNumGen.Next(low, high + 1)
    End Function
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim color1 As String
        Dim color2 As String
        Dim color3 As String
        color1 = RandomNumber(0, 255)
        color2 = RandomNumber(0, 255)
        color3 = RandomNumber(0, 255)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim color1 As String
        Dim color2 As String
        Dim color3 As String
        color1 = RandomNumber(0, 255)
        color2 = RandomNumber(0, 255)
        color3 = RandomNumber(0, 255)
        Label1.ForeColor = Color.FromArgb(color1, color2, color3)
    End Sub
End Class

And there you have it. Report any bugs, or make some improvements please.