
   End If
   m_iSizeX = lWidth
End Property
Public Property Let Height(ByVal lHeight As Long)
   If m_iSizeY &lt; lHeight Then
      m_bInit = True
   End If
   m_iSizeY = lHeight
End Property
Public Property Get hDC() As Long
   If m_bInit Then
      If Init Then
         m_bInit = False
      End If
   End If
   hDC = m_hDC
End Property
Public Property Get Mono() As Boolean
   Mono = m_bMono
End Property
Public Property Let Mono(ByVal bState As Boolean)
   If Not (m_bMono = bState) Then
      m_bInit = T