for each con as control in me.Controls
    if con is Typeof Button then
        AddHandler ctype(con, Button).Click, Addressof MeinClick_Ereigniss()
    End if
Next
 
Private Sub MeinClick_Ereigniss(Sender as object, e as eventargs)
    Dim btn as Button = ctype(sender, Button)
end Sub