参考答案

Private Sub Command1_Click()
    VScroll1.Min = 100
    VScroll1.Max = 2400
    VScroll1.LargeChange = 200
    VScroll1.SmallChange = 20
End Sub
Private Sub VScroll1_Change()
    Picture1.Height = VScroll1.Value
End Sub