要求窗体上放Picture1 ，然后在 Picture1 放 Picture2 。Picture2 要求比 Picture1 大。
再放二个滚动条。

以下代码使用的是默认的名字，并且只写了竖滚动条。没有设置任何属性。

Option Explicit

Private Sub Form_Load()

With VScroll1
    .Min = -300             '上留空
    .Value = .Min
    .Max = Picture2.Height - Picture1.Height + 300      '加300 为下留空
    .LargeChange = (Picture1.Height / Picture2.Height) * Picture1.Height       '每次翻页翻不到一页
这里是随手写的，没仔细推敲公式
    .SmallChange = 15
End With
End Sub

Private Sub VScroll1_Change()
    Picture2.Top = -VScroll1.Value     '移动
End Sub