Public Function GetBrushFromColorName(ByVal ColorName As String) As System.Drawing.Brush Dim t As Type = GetType(Color) Dim p As System.Reflection.PropertyInfo = t.GetProperty(ColorName) Dim c As Color = p.GetValue(Nothing, Nothing) Return New System.Drawing.SolidBrush(c) End Function