在VB中怎么写调色板程序设计？

PrivateSubForm_Load()

HScroll1.Max=255'设置HScroll1的最大昌孙行值不能超过255，因为三原色凯搜的单个色素耐哗最大值为255

HScroll2.Max=255

HScroll3.Max=255

Label4.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)'初始化

EndSubPrivateSubHScroll1_Change()

Label4.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)

EndSubPrivateSubHScroll2_Change()

Label4.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)

EndSubPrivateSubHScroll3_Change()

Label4.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)

EndSubPrivateSubCommand1_Click()

Label5.ForeColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)

EndSub

dim

clor

ActiveWorkbook.Colors(1)

=

oldcolor

If

Application.Dialogs(xlDialogEditColor).Show(1)

=

True

Then

clor

=

ActiveWorkbook.Colors(1)

End

If

ActiveWorkbook.Colors(1)

=

oldcolor

这个程序亩型可以调用侍备调色板，其中的ActiveWorkbook.Colors(1)就是取到的当前颜老耐毁色值

---