Private Sub btn1_Click(sender as Object, e as Eventargs) Handels btn1.Click
call Berechnen(ctype(sender,button))
End Sub
 
private sub berechnen(byval btn as button)
msgbox "Es ist Button " & btn.Name & " der gedrückt wurde"
end sub