rue
   End If
   m_bMono = bState
End Property
Private Function Init(Optional ByVal hBmp As Long = 0) As Boolean
Dim hDCDisp As Long
Dim lWidth As Long, lHeight As Long
   
   If m_bMono Then
      If m_hDC = 0 Then
         m_hDC = CreateCompatibleDC(0)
      End If
   Else
      hDCDisp = CreateDCAsNull("DISPLAY", ByVal 0&amp;, ByVal 0&amp;, ByVal 0&amp;)
      
      If hDCDisp &lt;&gt; 0 Then
         If m_hDC = 0 Then
            m_hDC = CreateCompatibleDC(hDCDisp)
            If m_hDC = 0 Then
       