Public Sub Test()
        '...
        Dim button1 As Forms.CommandButton = ' Button anlegen
        cc = New ClickCapsule(button1, "Some extra data")
    End Sub
 
    Private WithEvents cc As ClickCapsule
 
    ' Button-Click mit sender und Parameter
    Public Sub CC_Click(sender As Object, e As ClickCapsuleEventArgs) Handles _
      cc.Click
        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