参考答案

Private Sub Command1_Click()
    HScroll1.Min = 100
    HScroll1.Max = 1500
    HScroll1.LargeChange = 100
    HScroll1.SmallChange = 10
End Sub
Private Sub HScroll1_Change()
    Picture1.Width = HScroll1.Value
End Sub