Public Enum vState
  Minimiert = 0
  Normal = 1
  Maximiert =2
End Enum
 
Private m_State As vState
 
Public Property Get State() As vState
  State = m_State
End Property
 
Public Property Let State(ByVal nState As vState)
  m_State = nState
  PropertyChanged "State"
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de