An excellent idea!
There are ways you can convert things like color names into colors and then use them to make brushes, but it's a lot easier to just make an array of brushes. For example:
Dim bar_brushes() As Brush =
Then you can use one of the brushes directly as in: