三個滾動條設置：min:0；max:255；smallchange:5；largechange:20

text1---text3用來顯示你所選擇單原色，并在相應的label中顯示出數值。

Text4用來顯示混合以后的顏色。

第二步：編寫程序代碼如下：

PRivateSubVScroll1_Change()

Label1.Caption="紅色：" Str(VScroll1.Value)

Text1.BackColor=RGB(VScroll1.Value,0,0)

Text4.BackColor=RGB(VScroll1.Value,VScroll2.Value,VScroll3.Value)

EndSub

PrivateSubVScroll2_Change()

Label2.Caption="綠色：" Str(VScroll2.Value)

Text2.BackColor=RGB(0,VScroll2.Value,0)

Text4.BackColor=RGB(VScroll1.Value,VScroll2.Value,VScroll3.Value)

EndSub

PrivateSubVScroll3_Change()

Label3.Caption="蘭色：" Str(VScroll3.Value)

Text3.BackColor=RGB(0,0,VScroll3.Value)

Text4.BackColor=RGB(VScroll1.Value,VScroll2.Value,VScroll3.Value)

EndSub