Public Class Test
    Private WithEvents pListe As New System.ComponentModel.BindingList(Of A)
 
    Public Delegate Sub ListChangedHandler()
    Public Event ListChanged As ListChangedHandler
 
    Public Property Liste() As System.ComponentModel.BindingList(Of A)
        Get
            Return pListe
        End Get
        Set(ByVal value As System.ComponentModel.BindingList(Of A))
            pListe = value
        End Set
    End Property
 
    Private Sub pListe_ListChanged() Handles pListe.ListChanged
        RaiseEvent ListChanged()
    End Sub
End Class
 
Public Class A
    Private pName As String
 
    Public Property Name() As String
        Get
            Return pName
        End Get
        Set(ByVal value As String)
            pName = value
        End Set
    End Property
End Class

Dim WithEvents myTest As New Test
myTest.Liste.Add(New A)
myTest.Liste(0).Name = "Inhalt 1"