Public Class DataGathererA ' Das gleiche nochmal mit DataGathererB
 
    Private pItems As New System.ComponentModel.BindingList(Of MyData)
 
    Public ReadOnly Property Items() As System.ComponentModel.BindingList(Of _
      MyData)
        Get
            Return pItems
        End Get
    End Property
 
    Public Sub Start()
        ' ...
    End Sub
 
End Class
 
Public Class DataBindingWrapper
 
    Private pGathererA As DataGathererA
    Private pGathererB As DataGathererB
    Private pItems As System.ComponentModel.BindingList(Of MyData)
 
    Public Sub New()
        pGathererA = New DataGathererA
        pGathererB = New DataGathererB
 
        AddHandler GathererA.Items.ListChanged, AddressOf Gatherer_ListChanged
        AddHandler GathererB.Items.ListChanged, AddressOf Gatherer_ListChanged
    End Sub
 
    Public ReadOnly Property GathererA() As DataGathererA
        Get
            Return pGathererA
        End Get
    End Property
 
    Public ReadOnly Property GathererB() As DataGathererB
        Get
            Return pGathererB
        End Get
    End Property
 
    Public ReadOnly Property Items() As System.ComponentModel.BindingList(Of _
      MyData)
        Get
            Return pItems
        End Get
    End Property
 
    Private Sub Gatherer_ListChanged(sender As System.Object, e As _
      System.ComponentModel.ListChangedEventArgs)
        If sender Is GathererA.Items Then
            Me.Items.Add(GathererA.Items(e.NewIndex))
 
        ElseIf sender Is GathererB.Items Then
            Me.Items.Add(GathererB.Items(e.NewIndex))
 
        End If
    End Sub
 
End Class