Public Function IsEventDelegatePresent(ByVal ctl As Control, ByVal _
      MethodName As String, ByVal EventName As String, ByVal _
      EventNameControlType As Type) As Boolean
        Dim fiEvList As FieldInfo = GetType(Component).GetField("events", _
        BindingFlags.Instance Or BindingFlags.NonPublic)
        Dim evList As EventHandlerList = fiEvList.GetValue(ctl)
        Dim fiKey As FieldInfo = EventNameControlType.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
            If handler.Method.Name = MethodName Then Return True
        Next
        Return False
    End Function

If IsEventDelegatePresent(CheckBox1, "CheckBox1_CheckedChanged", _
  "EVENT_CHECKEDCHANGED", GetType(CheckBox)) Then

________
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