Imports System.Collections.ObjectModel
 
Public Class TimePanel
 
    Inherits Panel
 
    Private m_TimeLine As TimeLine
    Private m_TimePeriod As Collection(Of TimePeriod)
 
    Public ReadOnly Property Line() As TimeLine
        Get
            Return m_TimeLine
        End Get
    End Property
 
    Public ReadOnly Property Period() As Collection(Of TimePeriod)
        Get
            Return m_TimePeriod
        End Get
    End Property
 
' usw...
 
End Class

    Private m_Enabled As Boolean = True
 
    Public Property Enabled() As Boolean
        Get
            Return m_Enabled
        End Get
        Set(ByVal SetEnabled As Boolean)
            m_Enabled = SetEnabled
            RaiseEvent PropertyChanged(Me)
        End Set
    End Property

    Public ReadOnly Property Line() As Collection(Of TimeLine)
        Get
            ' Fuschen für Fortgeschrittene
            Dim dummy As New Collection(Of TimeLine)
            dummy.Add(m_TimeLine)
            Return dummy
        End Get
    End Property