Question

I want to get all of the Brushes, this is basically pseudocode which will explain what I’m trying to do:

For Each B in Brushes
   'Something with Brushes
End For

Brushes is a type though so how would I be able to do that?

Answer 1

Not using reflection:

Dim brushes = [Enum].GetValues(GetType(KnownColor)) _
    .Cast(Of KnownColor)() _
    .Where(Function(k) k >= KnownColor.Transparent AndAlso k < KnownColor.ButtonFace) _ '//Exclude system colors
    .Select(Function(k) New SolidBrush(Color.FromKnownColor(k)))

Edit (from Thomas comment)

To get color names (used for brushes)

Dim brushColorNames = [Enum].GetValues(GetType(KnownColor)) _
    .Cast(Of KnownColor)() _
    .Where(Function(k) k >= KnownColor.Transparent AndAlso k < KnownColor.ButtonFace) _ '//Exclude system colors
    .Select(Function(k) k.ToString())