<code>Public Enum ButtonAlign
  Links = 0
  Rechts = 1
  Zentriert = 2
End Enum
 
Dim m_btnAlign As ButtonAlign
 
Public Property Get btnAlign() As ButtonAlign
  btnAlign = m_btnLook
End Property
 
Public Property Let btnAlign(ByVal vNewValue As ButtonAlign)
  If vNewValue <> m_btnAlign Then
    m_btnAlign = vNewValue
    PropertyChanged "btnAlign"
  End If
End Property</code>