帮我看一下哪里出错了,谢谢

Private Sub hsbBlue_Change()
 PicPreview.BackColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value)
End Sub

估计你的_Change()括号里少了个参数

我把参数加上还是出错了```

不过谢谢你噢``

被百度抽风牺牲掉了几楼...

大家还是去这里吧:http://zhidao.baidu.com/question/31263197.html?quesup1

被选为最佳答案还可以得到20分的积分.谢谢

Private Sub form_Load()
 hsbRed.Value = 0
 hsbGreen.Value = 0
 hsbBlue.Value = 0
 PicPreview.BackColor = RGB(0, 0, 0)
End Sub


Private Sub hsbBlue_Change()
 PicPreview.BackColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value)
End Sub

Private Sub hsbGreen_Change()
 PicPreview.BackColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value)
End Sub

Private Sub hsbRed_Change()
 PicPreview.BackColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value)
End Sub