Private Sub Button1_Click(ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles Button1.Click
 
        If TypeOf sender Is Button Then
            Dim btn As Button = CType(sender, Button)
            MsgBox("Der Text des Button ist " & btn.Text)
            'MsgBox(btn.ToString)
        End If
    End Sub