Public Class Form1
    Private WithEvents Liste As New ClassGehtNit
 
    Public Sub EventNeuerWert(ByVal value As String) Handles Liste.NeuerWert
 
    End Sub
End Class
 
Public Class ClassGehtNit
    Dim WithEvents items As System.Collections.Generic.List(Of ClassTest)
    Public Event NeuerWert(ByVal value As String)
 
    Public Sub ClassTest_Neuerwert(ByVal value As String) Handles _
      items.NeuerWert
        RaiseEvent NeuerWert(value)
    End Sub
End Class
 
Public Class ClassTest
    Inherits System.Collections.Generic.List(Of String)
 
    Public Event NeuerWert(ByVal value As String)
 
    Shadows Sub add(ByVal item As String)
        MyBase.Add(item)
        RaiseEvent NeuerWert(item)
    End Sub
End Class