ivate m_iSizeY As Long

Private m_bMono As Boolean

Private m_bInit As Boolean

Private Sub SetSize(ByVal x As Long, ByVal y As Long)
Dim bInit As Boolean
   If x &gt; m_iSizeX Or y &gt; m_iSizeY Then
      m_bInit = True
   End If
   m_iSizeX = x
   m_iSizeY = y
End Sub
Public Property Get Width() As Long
   Width = m_iSizeX
End Property
Public Property Get Height() As Long
   Height = m_iSizeY
End Property
Public Property Let Width(ByVal lWidth As Long)
   If m_iSizeX &lt; lWidth Then
      m_bInit = True