Public Enum eAlignment
  Horizontal = 0
  Vertikal = 1
End Enum

Private m_Alignment As eAlignment
 
Public Property Get Alignment() As eAlignment
  Alignment = m_Alignment
End Property
 
Public Property Let Alignment(ByVal New_Alignment As eAlignment)
  m_Alignment = New_Alignment
End Property

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de