程序代码：

Option Explicit

Private Sub Command1_Click()
    HScroll1.Value = HScroll1.Value + 10 '示例加10，可以做别的数值操作
End Sub

Private Sub Form_Load()
    HScroll1.Max = 100
    HScroll1.Min = 0
End Sub