Color Randomizer

[sapator]

Just for fun.

This will pick random colors on an winforms app.

' cons
  Dim ColorNames As New List(Of String)

''use as
 '  ColorNames = colorrandomizerBegin()
'   Label1.ForeColor = colorrandomizer()


Private Function colorrandomizerBegin() As List(Of String)
        Dim ColorName As System.Type = GetType(System.Drawing.Color)
        Dim ColorPropInfo As System.Reflection.PropertyInfo() = ColorName.GetProperties()

        For Each CPI As System.Reflection.PropertyInfo In ColorPropInfo
            If CPI.PropertyType.Name = "Color" And CPI.Name.tolower() <> "transparent" Then
                ColorNames.Add(CPI.Name)
            End If
        Next
        Return ColorNames
    End Function

 Private Function colorrandomizer() As Color
        Dim randomx As New Random

        Dim s As Color
        s = Color.FromName(ColorNames(randomx.Next(0, ColorNames.Count)))

        Do While s = Me.ForeColor Or s = Me.BackColor
            s = Color.FromName(ColorNames(randomx.Next(0, ColorNames.Count)))
        Loop
        Return s

    End Function