ogress = True
End Sub

Private Sub m_cImage_Progress(ByVal lPosition As Long)
    mfrmMain.ProgressValue = lPosition
End Sub

Private Sub picScrollBox_Resize()
    On Error Resume Next
    hscScroll.Visible = (picScrollBox.ScaleWidth - vscScroll.Width &lt;
     picImage.Width)
    vscScroll.Visible = (picScrollBox.ScaleHeight - hscScroll.Height &lt;
     picImage.Height)
    If (hscScroll.Visible) Then
        hscScroll.Max = (picImage.Width - picScrollBox.ScaleWidth +
         vscScroll.Width * Abs(vscScro