Public Class frmZZZ
 
    'eine Klasse, von der mehrere Instanzen verwendet werden sollen
    Private Class xxx
 
        Public Event xxx_event(sender As Object, e As EventArgs)
 
        Public Sub eventraiser()
            RaiseEvent xxx_event(Me, EventArgs.Empty)
        End Sub
 
    End Class
 
    'Liste der Klasseninstanzen
    Dim lstXXX As New List(Of xxx)
 
 
    Private Sub frmZZZ_Load(sender As Object, _
        e As EventArgs) Handles MyBase.Load
 
        'Diverse Klasseninstanzen erstellen
        For i As Integer = 0 To 10
            Dim xxx_inst As New xxx
            'Handlerroutine einem Event der Instanz zuordnen
            AddHandler xxx_inst.xxx_event, AddressOf xxx_eventhandler
 
            'Neue Instanz in der Instanz-Liste hinzufügen
            lstXXX.Add(xxx_inst)
        Next i
 
        'Ein Event auslösen
        lstXXX(7).eventraiser()
    End Sub
 
    Public Sub xxx_eventhandler(sender As Object, e As EventArgs)
 
        'Im gemeinsamen Handler den Liste-Index der sendenden Instanz ermitteln
        Dim index As Integer
        For i As Integer = 0 To lstXXX.Count - 1
            If sender Is lstXXX(i) Then index = i
        Next i
    End Sub
End Class