Public Class TestKlasse
 
    Public Enum Tageszeit As Byte
        Morgen = 0
        Mittag = 1
        Nachmittag = 2
        Abend = 3
        Nacht = 4
    End Enum
 
 
    Private m_Tageszeit As Tageszeit
 
    Public Sub New(ByVal pTageszeit As Tageszeit)
        Me.m_Tageszeit = pTageszeit
    End Sub
 
    Public ReadOnly Property TageszeitMeinerKlasse() As Tageszeit
        Get
            Return Me.m_Tageszeit
        End Get
    End Property
 
End Class