SizeY)
         Else
            m_hBmp = CreateCompatibleBitmap(hDCDisp, m_iSizeX, m_iSizeY)
         End If
      Else
         m_hBmp = hBmp
      End If
      If m_hBmp = 0 Then
         DeleteDC hDCDisp
         hDCDisp = 0
         ThrowError 1
      Else
         m_hBmpOld = SelectObject(m_hDC, m_hBmp)
         ' ok.
         Init = True
      End If
   Else
      DeleteDC hDCDisp
      hDCDisp = 0
      ThrowError 1
   End If
   
   If Not (hDCDisp = 0) Then
      DeleteDC hDCDisp
   End If
   
   
