bBuffer.Create m_cDib.Width, m_cDib.Height
   
   Dim bSkip As Boolean
   If Not mfrmMain.ActiveForm Is Nothing Then
      If mfrmMain.ActiveForm.WindowState = vbMaximized Then
         bSkip = True
      End If
   End If
   If Not bSkip Then
      Dim lLeft As Long, lTop As Long, lMaxWidth As Long, lMaxHeight As Long
      Dim lExtraX As Long, lExtraY As Long
      lExtraX = (Me.Width - Me.ScaleWidth + vscScroll.Width) \
       Screen.TwipsPerPixelX + 8
      lExtraY = (Me.Height - Me.ScaleHeight + hscScro