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
 
    Public Delegate Sub ClickCapsuleClickEventHandler(sender As Object, e As _
      ClickCapsuleEventArgs)
 
    Public Class ClickCapsuleEventArgs
        Inherits System.EventArgs
        Public Property param As String
        Public Sub New(param As String)
            _param = param
        End Sub
    End Class
 
    Public Class ClickCapsule
        Public Event Click As ClickCapsuleClickEventHandler
        Private param As String
        Private button As Forms.CommandButton
        Public Sub New(button As Forms.CommandButton, param As String)
            Me.button = button
            Me.param = param
            AddHandler button.Click, AddressOf buttonClick
        End Sub
        Private Sub buttonClick()
            RaiseEvent Click(button, New ClickCapsuleEventArgs(param))
        End Sub
    End Class

________
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