VB6对图片进行漫游浏览的完整代码

要用到这么个程序，在网上找了半天未果，于是动手编了一个，效果不错，有空再把缩放添加进去。编制环境：VB6 SP5、WINDOWS XP SP2

'本程序用以显示图片，并对图片进行漫游浏览
'本程序包含1窗体(form1、2图片框(picture1、picture2）、2滚动条（HScroll1、VScroll1）
'picture1用以显示图像，picture2用以存放图像，picture2不可见

'声明API之BitBlt，完成从picture2到picture1的图像复制
Private Declare Sub BitBlt Lib "gdi32" _
    (ByVal hDestDC As Long, ByVal X As Long, _
    ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, _
    ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, _
    ByVal dwRop As Long)

'声明变量储存窗体加载时picture1的宽和高
'在先浏览小图片，再浏览大图片时，如果无此变量，将出现问题，问题就是……
Pri