Public Enum Zustand
  Deaktiviert = 0
  Aktiviert = 1
  Automatisch = 2
End Enum
 
Private m_State As Zustand

Public Property Get State() As Zustand
  State = m_State
End Property
 
Public Property Let State(ByVal NewState As Zustand)
  m_State = NewState
  PropertyChanged "State"
End Property

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de