1、
Dim flg As new windows.forms.ColorDialog()Dim clr As ColorIf flg.showdialog = DialogResult.OK Then clr = flg.Color
End If
2、把对象的各个值保存下来,比如颜色,就需要保存各个分量的值 http://www.foxtable.com/help/topics/0496.htm