参考答案

Private Sub Command1_Click()
    HScroll1.Max = Form1.Width
    HScroll1.Min = 0
    HScroll1.LargeChange = 50
    HScroll1.SmallChange = 10
End Sub
Private Sub HScroll1_Change()
    Print Me.HScroll1.Value
End Sub