End Property


Private Sub Form_Activate()
    mfrmMain.SetStatus , Me.FileTitle, picImage.Width \ Screen.TwipsPerPixelX &amp;
     " x " &amp; picImage.Height \ Screen.TwipsPerPixelY
End Sub

Private Sub Form_Load()
    '
    Set m_cImage = New cImageProcessDIB
End Sub


Private Sub Form_Resize()
    If Me.WindowState &lt;&gt; vbMinimized Then
      On Error Resume Next
      picScrollBox.Move 2 * Screen.TwipsPerPixelX, 2 * Screen.TwipsPerPixelY,
       Me.ScaleWidth - 4 * Screen.TwipsPerPixelX, Me.ScaleHe