Class Musikstück
 
        Property Tonart As Tonart
            Set(ByVal value As Tonart)
                _Tonart = value
            End Set
            Get
                Return _Tonart
            End Get
        End Property
 
 
 
        Class Stimme
        ReadOnly Property myTonart As Tonart
            Get
                Parent.myTonart
            End Get
        End Property
 
        Class Akkord
        ReadOnly Property myTonart As Tonart
            Get
                Parent.myTonart
            End Get
        End Property
 
        Class Note
        ReadOnly Property myTonart As Tonart
            Get
                Parent.myTonart
            End Get
        End Property