保存具体的数值
msgbox(e.Form.Controls("ColorPicker1").value.ToARGB)
还愿时,根据数值得到颜色
Dim clr As Color = Color.FromARGB(-16181)