Private Sub PrüfEvent(ByVal sender As Object, ByVal e As  _
      EventArgs)
        If TypeOf sender Is TextBox Then 'Event stammt von Textbox
            Dim AbsenderTextbox As TextBox = CType(sender, TextBox)
            MsgBox(AbsenderTextbox.Name)
        End If
    End Sub