主题：求字符型转换为brush类型的代码

Dim s As String = "255,255,192,203"
Dim vs() As String = s.split(","c)
Dim br1 As Brush = New SolidBrush(Color.FromARGB(cint(vs(0)),cint(vs(1)),cint(vs(2)),cint(vs(3))))

或：

Dim c As Color
Dim converter As System.ComponentModel.TypeConverter =  System.ComponentModel.TypeDescriptor.GetConverter(c)
c = converter.ConvertFromString("Green")
Dim b As New SolidBrush(c)