Dim myColor As New Color'申明color对象
If myColor.UserAssignEx Then‘此功能用于弹出颜色选择界面，便于用户指定颜色值
If Not myColor.IsCMYK Then'判断是否是CMYK模式
myColor.ConvertToCMYK‘转化成CMYK
End If
RefreshColor mCtrl.Name, myColor‘存储cmyk值
myColor.ConvertToRGB‘控件背景色只接受RGB色值指定
mLab.BackColor = RGB(myColor.rgbRed, myColor.rgbGreen, myColor.rgbBlue)‘为lable控件指定背景色
End If
Set myColor = Nothing‘释放color对象