Dim brush As SolidColorBrush = TryCast(conv.ConvertFromString("Red"), SolidColorBrush)
For Each col As KnownColor In [Enum].GetValues(GetType(KnownColor)) Dim color As Color = color.FromKnownColor(col) Combo1.Items.Add(color.ToString) Next
Dim bCouleur As SolidBrush For Each col As KnownColor In [Enum].GetValues(GetType(KnownColor)) Dim color As Color = color.FromKnownColor(col) If Combo1.Text = color.ToString Then bCouleur = New SolidBrush(color) Exit For End If Next