ll.Visible)) \ Screen.TwipsPerPixelX
        hscScroll.SmallChange = 32
        hscScroll.Move 0, picScrollBox.ScaleHeight - hscScroll.Height,
         picScrollBox.ScaleWidth - (vscScroll.Width * Abs(vscScroll.Visible))
    End If
    If (vscScroll.Visible) Then
        vscScroll.Max = (picImage.Height - picScrollBox.ScaleHeight +
         hscScroll.Height * Abs(hscScroll.Visible)) \ Screen.TwipsPerPixelY
        vscScroll.SmallChange = 32
        vscScroll.Move picScrollBox.ScaleWidth - vscScroll.Width, 0