关于vb小程序

Private Sub Command1_Click()
HS1.Value = HS1.Value + 10
End Sub
点击移动滚动框前九次都正常，但最后一击会出现实时错误“380”，显示无效属性值，这是为什么？
请把具体情况说明下，最好给出程序过程，谢谢~

一个关于vb的小程序 关于VB的一个小程序 关于用vb制作一个小程序 关于用VB写一个小程序 vb程序小程序 求VB小程序 求教：vb小程序 vb小程序 想做个VB小程序 vb 实用小程序