Private Function myAssembledProperties() As PropertyDescriptorCollection
        Dim pp As New List(Of PropertyDescriptor)
 
        ' 2 Beschreibungen für die Properties Key und Value der Klasse wiItem  
        ' einfache Klasse mit den Properties und etwas -Implements 
        ' INotifyPropertyChanged-, damit auch das Refreshen klappt 
        pp.Add(New wiPropertyDescriptor(GetType(wiItem), "Key", GetType( _
          String), Function(p As Object) DirectCast(p, wiItem).Key, Nothing))
        pp.Add(New wiPropertyDescriptor(GetType(wiItem), "Value", GetType( _
        String), Function(p As Object) DirectCast(p, wiItem).Value, Nothing))
 
        ' so nun 2 zusätzliche, sie verweisen auch wieder auf Key und Value 
        ' -> nur zum Test, bin ja noch nicht fertig
        pp.Add(New wiPropertyDescriptor(GetType(wiItem), "Willi1", GetType( _
          [wiItem]), Function(p As Object) DirectCast(p, wiItem).Key, Sub(p As _
          Object, newPropVal As Object) DirectCast(p, wiItem).Key = newPropVal))
        pp.Add(New wiPropertyDescriptor(GetType(wiItem), "Willi2", GetType( _
        [wiItem]), Function(p As Object) DirectCast(p, wiItem).Value, Sub(p As _
        Object, newPropVal As Object) DirectCast(p, wiItem).Value = newPropVal))
 
        'kompliziert, aber ....?
        Dim propArray As PropertyDescriptor() = New PropertyDescriptor(pp.Count _
          - 1) {}
        pp.CopyTo(propArray)
        Return New PropertyDescriptorCollection(propArray)
    End Function