如何使滚动条着色我的颜色选择器？

Question

我创建了一个RGB滚动条颜色选择器，但我还想添加一些颜色，以便它们可以使颜色更亮或更暗。我不确定如何继续这样做。谢谢:)

Private Sub bsbar_Change()
Me.cbtxt.Value = Me.bsbar.Value
End Sub

Private Sub cbtxt_Change()
Me.cpimg.BackColor = VBA.RGB(Me.crtxt.Value, Me.cgtxt.Value, Me.cbtxt.Value)
End Sub

Private Sub cgtxt_Change()
Me.cpimg.BackColor = VBA.RGB(Me.crtxt.Value, Me.cgtxt.Value, Me.cbtxt.Value)
End Sub

Private Sub cpassign_Click()

End Sub

Private Sub crtxt_Change()
Me.cpimg.BackColor = VBA.RGB(Me.crtxt.Value, Me.cgtxt.Value, Me.cbtxt.Value)
End Sub

Private Sub gsbar_Change()
Me.cgtxt.Value = Me.gsbar.Value
End Sub

Private Sub rsbar_Change()
Me.crtxt.Value = Me.rsbar.Value
End Sub

Private Sub ScrollBar1_Change()
'This is the tint scroll bar that I want to use to tint the cpimg.backcolor
End Sub

Private Sub UserForm_Activate()
Me.cpimg.BackColor = VBA.RGB(Me.crtxt.Value, Me.cgtxt.Value, Me.cbtxt.Value)
End Sub