,
         vscScroll.Width, picScrollBox.ScaleHeight - (hscScroll.Height *
         Abs(hscScroll.Visible))
    End If
End Sub

Private Sub vscScroll_Change()
    picImage.Top = -Screen.TwipsPerPixelY * vscScroll.Value
End Sub

Private Sub vscScroll_Scroll()
    vscScroll_Change
End Sub
</pre><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p></td><td class="rightbar" valign="top" bgcolor="#C2BEB1">
<!-- No right bar content currently defined -->
</td></tr><tr class="footer"><td><