GetRandomColor – Generating a random color
‘ Return a random color’ Example: Me.BackColor = GetRandomColor()Function GetRandomColor() As Color Dim rand As New Random Return Color.FromArgb(rand.Next(0, 256), rand.Next(0, 256), rand.Next(0, _ 256))End Function