Private mWerteListe As New WerteListe
 
Public Property ListeWerte() As WerteListe
        Get
            Return mWerteListe
        End Get
        Set(ByVal Liste As WerteListe)
            mWerteListe = Liste
        End Set
End Property

Class WerteListe
        Implements IList, ICollection
 
        Private Liste As New ArrayList
 
        Public Function Add(ByVal value As Object) As Integer Implements _
          System.Collections.IList.Add
            Liste.Add(New Werte(123, "Werner"))
        End Function
        '[...] viele andere Funktionen
End Class

Public Sub fAdd(ByVal Wert As Werte)
    Liste.Add(Wert)
    Me.Add(Wert)
End Sub