        ThrowError 1
               Exit Function
            End If
         End If
      Else
         ThrowError 1
         Exit Function
      End If
   End If
   
   If m_hDC &lt;&gt; 0 Then
      If m_hBmpOld &lt;&gt; 0 Then
         SelectObject m_hDC, m_hBmpOld
         m_hBmpOld = 0
      End If
      If m_hBmp &lt;&gt; 0 Then
         DeleteObject m_hBmp
         m_hBmp = 0
      End If
      If hBmp = 0 Then
         If m_bMono Then
            m_hBmp = CreateCompatibleBitmap(m_hDC, m_iSizeX, m_i