Public Class Test
 
    Public Sub New(btn as Button)
        AddHandler btn.Click, Addressof btn_Click
    End Sub
 
    Private Sub btn_Click(Sender as Object, e as Eventargs)
        MessageBox.Show(cType(Sender, Button).Name & "wurde geklickt")
    End Sub
End Class