Private Sub Form_Load()
Picture1.ScaleMode = 1
OLE1.SizeMode = 2 '设定ole自动调整大小，建议在设计阶段就设好
OLE1.Refresh      '如此，这两行可以省下不用写
OLE1.Left = 0
OLE1.Top = 0
VScroll1.Max = OLE1.Height - Picture1.ScaleHeight
VScroll1.Min = 0
VScroll1.LargeChange = OLE1.Height \ 20
VScroll1.SmallChange = OLE1.Height \ 100

HScroll1.Max = OLE1.Width - Picture1.ScaleWidth
HScroll1.Min = 0
HScroll1.LargeChange = OLE1.Width \ 20
HScroll1.SmallChange = OLE1.Width \ 100
End Sub

Private Sub HScroll1_Change()
OLE1.Left = -1 * HScroll1.Value
End Sub

Private Sub VScroll1_Change()
OLE1.Top = -1 * VScroll1.Value
End Sub