ight - 4 *
       Screen.TwipsPerPixelY
    End If
End Sub

Private Sub hscScroll_Change()
    picImage.Left = -Screen.TwipsPerPixelY * hscScroll.Value
End Sub

Private Sub hscScroll_Scroll()
    hscScroll_Change
End Sub

Private Sub m_cImage_Complete(ByVal lTimeMs As Long)
    mfrmMain.ShowProgress = False
    mfrmMain.SetStatus "Complete.  Time = " &amp; lTimeMs
End Sub

Private Sub m_cImage_InitProgress(ByVal lMax As Long)
    mfrmMain.ProgressMax = lMax
    mfrmMain.ProgressValue = 0
    mfrmMain.ShowPr