Public Sub GetDelegateList(ByVal ctl As Control, ByVal EventName As String)
        Dim fiEvList As FieldInfo = GetType(Component).GetField("events", _
          BindingFlags.Instance Or BindingFlags.NonPublic)
        Dim evList As EventHandlerList = fiEvList.GetValue(ctl)
        Dim fiKey As FieldInfo = GetType(Control).GetField(EventName, _
          BindingFlags.Static Or BindingFlags.NonPublic)
        Dim key As Object = fiKey.GetValue(ctl)
        Dim del As System.Delegate = evlist(key)
        Dim handlers() As System.Delegate = del.GetInvocationList()
        For Each handler As System.Delegate In handlers
            ' was immer mit Delegate machen
        Next
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        GetDelegateList(Button1, "EventClick")
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist