Class Akkorde
 
        Private _Items As List(Of Akkord)
        Private _Parent As Musikstück
 
        ReadOnly Property Parent As Musikstück
            Get
                Return _Parent
            End Get
        End Property
        Property Items As List(Of Akkord)
            Set(ByVal value As List(Of Akkord))
                _Items = value
            End Set
            Get
                Return _Items
            End Get
        End Property
 
        Sub New()
            _Items = New List(Of Akkord)
        End Sub
 
        Function AddAkkord() As Akkord
            Dim _tmpAkkord As New Akkord(_Parent)
            _Items.Add(_tmpAkkord)
            Return _tmpAkkord
        End Function
        Function AddAkkord(ByVal StartZeit As Time, ByVal EndZeit As Time) As _
          Akkord
            Dim _tmpAkkord As New Akkord(_Parent)
            _Items.Add(_tmpAkkord)
            Return _tmpAkkord
        End Function
 
        Sub InsertAkkord(ByVal Index As Integer)
            Dim _tmpAkkord As New Akkord(_Parent)
            _Items.Insert(Index, _tmpAkkord)
        End Sub
 
        Function RemoveAkkord(ByVal Akkord As Akkord)
            Dim blnTmp As Boolean = _Items.Remove(Akkord)
            Return blnTmp
        End Function
        Sub RemoveAkkordAt(ByVal Index As Integer)
            _Items.RemoveAt(Index)
        End Sub
 
    End Class
 
    Class Akkord
 
        Private _Parent As Musikstück
        Private _Tonlänge As Integer
        Private _Note_1 As Note
        Private _Note_2 As Note
        Private _Note_3 As Note
        Private _Note_4 As Note
        Private _Note_5 As Note
        Private _Note_6 As Note
        Private _Note_7 As Note
        Private _Note_8 As Note
        Private _Note_9 As Note
        Private _Note_10 As Note
 
        ReadOnly Property Parent As Stimme
            Get
                Return _Parent
            End Get
        End Property
        Property Tonlänge
            Set(ByVal value)
                _Tonlänge = value
            End Set
            Get
                Return _Tonlänge
            End Get
        End Property
        Property Note_1 As Note
            Set(ByVal value As Note)
                _Note_1 = value
            End Set
            Get
                Return _Note_1
            End Get
        End Property
        Property Note_2 As Note
            Set(ByVal value As Note)
                _Note_2 = value
            End Set
            Get
                Return _Note_2
            End Get
        End Property
        Property Note_3 As Note
            Set(ByVal value As Note)
                _Note_3 = value
            End Set
            Get
                Return _Note_3
            End Get
        End Property
        Property Note_4 As Note
            Set(ByVal value As Note)
                _Note_4 = value
            End Set
            Get
                Return _Note_4
            End Get
        End Property
        Property Note_5 As Note
            Set(ByVal value As Note)
                _Note_5 = value
            End Set
            Get
                Return _Note_5
            End Get
        End Property
        Property Note_6 As Note
            Set(ByVal value As Note)
                _Note_6 = value
            End Set
            Get
                Return _Note_6
            End Get
        End Property
        Property Note_7 As Note
            Set(ByVal value As Note)
                _Note_7 = value
            End Set
            Get
                Return _Note_7
            End Get
        End Property
        Property Note_8 As Note
            Set(ByVal value As Note)
                _Note_8 = value
            End Set
            Get
                Return _Note_8
            End Get
        End Property
        Property Note_9 As Note
            Set(ByVal value As Note)
                _Note_9 = value
            End Set
            Get
                Return _Note_9
            End Get
        End Property
        Property Note_10 As Note
            Set(ByVal value As Note)
                _Note_10 = value
            End Set
            Get
                Return _Note_10
            End Get
        End Property
 
        Sub New(ByVal Parent As Musikstück)
            _Parent = Parent
        End Sub
 
    End Class
 
End Namespace