Public Sub Test()
        '...
        Dim button1 As Forms.CommandButton = ' Button anlegen
        Dim cc As New ClickCapsule(button1, "Some extra data")
        AddHandler cc.Click, AddressOf CC_Click
    End Sub
 
    ' Button-Click mit sender und Parameter
    Public Sub CC_Click(sender As Object, e As ClickCapsuleEventArgs)
        Dim fcb As Forms.CommandButton = CType(sender, Forms.CommandButton)
        '...
        MsgBox("Click param=" & e.param)
    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