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