怎样将fontdialog对话框返回的字体和颜色信息存放到注册表中并重新读出

比如颜色
我定义了一个函数
public function getfromreg() as color
...
end function
调用时语句
richtextbox1.selectioncolor=getfromreg()
但运行时说“指定的转换无效”
---------------------------------------------------------------

SaveSetting
GetSetting

---------------------------------------------------------------

呵呵，这样保存：
Dim MyColor As New Color
MyColor = Color.Red
SaveSetting("Test", "ColorSetting", "mycolor", MyColor.ToArgb().ToString) '保存为integer的格式

'Loading Setting
Dim mColor As New Color
mColor = Color.FromArgb(Integer.Parse(GetSetting("Test", "ColorSetting", "mycolor", "")))
Button2.ForeColor = mColor
---------------------------------------------------------------

color结构可以使用System.Drawing.ColorTranslator来进行HTML文本<->color的转换

font类实现了System.Runtime.Serialization.ISerializable接口，可以用System.Runtime.Serialization.Formatters.Binary.BinaryFormatter来实现font和字节数组之间的转换