Private Sub hsbblue_Change()
hsbblue.Min = 0
hsbblue.Max = 255
hsbblue.SmallChange = 10

txtcolor.BackColor = RGB(hsbred.Value, hsbblue.Value, hsbgreen.Value)
這句是重點！！


End Sub

Private Sub hsbgreen_Change()
hsbgreen.Min = 0
hsbgreen.Max = 255
hsbgreen.SmallChange = 10
txtcolor.BackColor = RGB(hsbred.Value, hsbblue.Value, hsbgreen.Value)

End Sub

Private Sub hsbred_Change()
hsbred.Min = 0
hsbred.Max = 255
hsbred.SmallChange = 10
txtcolor.BackColor = RGB(hsbred.Value, hsbblue.Value, hsbgreen.Value)

End Sub