LISTER LES COULEURS NOMMÉS

        'obtention du Type Color suivant une couleur au hazard
        Dim oT As Type = System.Drawing.Color.Beige.GetType
        'obtention des propriétés du type dans un tableau
        Dim oProperties() As System.Reflection.PropertyInfo = oT.GetProperties
        Dim oP As System.Reflection.PropertyInfo

        'itération
        Dim ColorCollection() As couleur
        For Each oP In oProperties
            If oP.CanRead Then
                Try
                    Dim Row As New TableRow

                    Dim Color As Color = CType(oP.GetValue(oT, Nothing), Color)

                    Dim CelluleCouleur As New TableCell
                    CelluleCouleur.BackColor = Color
                    CelluleCouleur.Width = Unit.Pixel(200)

                    Dim CelluleNom As New TableCell
                    CelluleNom.Text = Color.Name
                    CelluleNom.Width = Unit.Pixel(200)


                    Row.Cells.Add(CelluleCouleur)
                    Row.Cells.Add(CelluleNom)

                    Table1.Rows.Add(Row)

                Catch ex As Exception
                End Try
            End If
        Next