参考答案

Private Sub Command1_Click()
    VScroll1.Max = Form1.Height
    VScroll1.Min = 0
    VScroll1.LargeChange = 50
    VScroll1.SmallChange = 10
End Sub
Private Sub VScroll1_Change()
    Print Form1.VScroll1.Value
End Sub