Public Class CDTimer
    Public Class CDTimerItems
 
        Private _Items As List(Of CDTimerItem)
 
        Public Default Property Item(ByVal index As Integer) As CDTimerItem
            Get
                Return _Items(index)
            End Get
            Set(ByVal value As CDTimerItem)
                _Items(index) = value
            End Set
        End Property
 
        Public Sub Add(ByVal item As CDTimerItem)
            _Items.Add(item)
        End Sub
 
        Public Function Add(ByVal Text As String, ByVal StopTime As DateTime, _
          ByVal TimeString As String) As CDTimerItem
            Dim tmpItem As New CDTimerItem(Text, StopTime, TimeString)
            _Items.Add(tmpItem)
            Return tmpItem
        End Function
 
        'Prozeduren für Remove usw. bitte selber erstellen
        '...
 
    End Class
 
    Public Class CDTimerItem
        Private _Text As String
        Private _StopTime As DateTime
        Private _TimeString As String
 
        Sub New()
            MyBase.new()
        End Sub
 
        Sub New(ByVal Text As String, ByVal StopTime As DateTime, ByVal _
          TimeString As String)
            Me.New()
            _Text = Text
            _StopTime = StopTime
            _TimeString = TimeString
        End Sub
 
        Public Property Text As String
            Set(ByVal value As String)
                _Text = value
            End Set
            Get
                Return _Text
            End Get
        End Property
 
        Public Property StopTime As String
            Set(ByVal value As String)
                _StopTime = value
            End Set
            Get
                Return _StopTime
            End Get
        End Property
 
        Public Property TimeString As String
            Set(ByVal value As String)
                _TimeString = value
            End Set
            Get
                Return _TimeString
            End Get
        End Property
    End Class
 
End Class