<TypeConverter(GetType(ExpandableObjectConverter))> _
    Public ReadOnly Property Line() As TimeLine
        Get
            Return m_TimeLine
        End Get
    End Property

 
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

    Public Sub New()
        MyBase.New()
        InitializeComponent()
 
        m_TimeLine = New TimeLine
        m_TimePeriod = New Collection(Of TimePeriod)
 
        AddHandler m_TimeLine.PropertyChanged, AddressOf Handle_LineEvent
 
        If Not m_TimePeriod Is Nothing And m_TimePeriod.Count > 0 Then
            For Each TP As TimePeriod In m_TimePeriod
                AddHandler TP.PropertyChanged, AddressOf Handle_PeriodEvent
            Next
        End If
 
    End Sub