Public Class BereichDef
  Private m_von As Byte
  Private m_bis As Byte
  Private m_Farbe As Color
 
  Public Property von() As Byte
    Get
      Return m_von
    End Get
    Set(value As Byte)
      m_von = value
    End Set
  End Property
 
  Public Property bis() As Byte
    Get
      Return m_bis
    End Get
    Set(value As Byte)
      m_bis = value
    End Set
  End Property
 
  Public Property farbe() As Color
    Get
      Return m_farbe
    End Get
    Set(value As Color)
      m_farbe = value
    End Set
  End Property
End Class

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de