Sub ConvertColors(MyColor As String) As Int
MyColor=MyColor.SubString(MyColor.IndexOf(".")+1).ToUpperCase
Select MyColor
Case "BLACK"
' Return -16777216
Return Colors.Black
Case "BLUE"
Return Colors.Blue '-16776961
Case "WHITE"
Return Colors.White
Case "YELLOW"
Return Colors.Yellow '-256
Case "CYAN"
Return Colors.Cyan
Case "RED"
Return Colors.RGB(255,0,0) 'you can use Colors.Red
Case "MAGENTA"
Return Colors.Magenta
End Select
End Sub