Private Sub Form_Load()'记得图片框2应该在图片框中画，不要直接双击产生。
VScroll1.Max = Picture2.Height - Picture1.Height
HScroll1.Max = Picture2.Width - Picture1.Width
End Sub
Private Sub HScroll1_Change()
Picture2.Left = -HScroll1.Value
End Sub
Private Sub VScroll1_Change()
Picture2.Top = -VScroll1.Value
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024