1.如何调用系统的颜色对话框？如下图

 
此主题相关图片如下：qq截图20150928113427.png

2.如何根据颜色名称返回为颜色，如：

Dim cd As new system.windows.forms.colorDialog
If cd.ShowDialog = 1 Then
    msgbox(cd.Color.name)
End If

返回结果为字符串Red，如何根据字符串Red定义一个新的颜色

dim cr as color = ???

1、无法调用。要么自己做 https://msdn.microsoft.com/zh-cn/library/vstudio/system.windows.systemcolors.aspx

2、保存数值，再还原

http://www.foxtable.com/help/topics/0496.htm

如果要用red，就用 Dim c As color = Color.FromName("red")