Public Class FormSceltaColori
    Dim ArrayColori As New ArrayList
    Private Sub FormSceltaColori_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Normal
        Me.Visible = False
        ArrayColori.Clear()
        RicavaColori()
        MostraColori()
    End Sub
    Private Sub RicavaColori()
        Dim colorNames As String() = [Enum].GetNames(GetType(KnownColor))
        For Each colorName As String In colorNames
            Dim knownColor As KnownColor = DirectCast([Enum].Parse(GetType(KnownColor), colorName), KnownColor)
            If knownColor > knownColor.Transparent Then
                ArrayColori.Add(colorName)
            End If
        Next
    End Sub
    Private Sub MostraColori()
        Dim g As Integer = 0
        Dim MaxY As Integer = 0
        Dim TT As New ToolTip
        For y As Integer = 1 To 750 Step 25
            For x As Integer = 1 To 600 Step 30
                If g <= ArrayColori.Count - 1 Then
                    Dim MyPic As New PictureBox
                    MyPic.Size = New Size(20, 20)
                    MyPic.Location = New Point(x, y)
                    MyPic.BackColor = Color.FromName(ArrayColori.Item(g).ToString)
                    MyPic.BorderStyle = BorderStyle.FixedSingle
                    TT.SetToolTip(MyPic, ArrayColori.Item(g).ToString)
                    Me.Controls.Add(MyPic)
                    g = g + 1
                    MaxY = y
                End If
            Next
        Next
        Me.Width = 610
        Me.Height = MaxY + 75
        Me.Visible = True
    End Sub
End Class