Code pha mau

Private Sub VScroll1_Change(Index As Integer)
Dim A As String
With Picture1
.BackColor = RGB(VScroll1(0), VScroll1(1), VScroll1(2))
End With
A = "picture1.backcolor = RGB(" & VScroll1(0).Value & "," & VScroll1(1).Value & "," & VScroll1(2).Value & ","
Label1.Caption = A
End Sub