vb 编程 用三个滚动条控制红绿蓝色量,改变一个图片框的背景色 红绿蓝的色量值分别在上部的标签中显示

1个label1 1个picture1 3个 HScroll1 HScroll2 HScroll3

Private Sub Form_Load()
Picture1.BackColor = RGB(0, 0, 0)
HScroll1.Max = 255
HScroll2.Max = 255
HScroll3.Max = 255
Label1.AutoSize = True
Label1.Caption = ""
End Sub

Private Sub HScroll1_Change()
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label1.Caption = "红:" & HScroll1.Value & vbCrLf & "绿:" & HScroll2.Value & vbCrLf & "蓝:" & HScroll3.Value
End Sub
Private Sub HScroll2_Change()
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label1.Caption = "红:" & HScroll1.Value & vbCrLf & "绿:" & HScroll2.Value & vbCrLf & "蓝:" & HScroll3.Value
End Sub
Private Sub HScroll3_Change()
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label1.Caption = "红:" & HScroll1.Value & vbCrLf & "绿:" & HScroll2.Value & vbCrLf & "蓝:" & HScroll3.Value
End Sub