getting an object's label by using sender.text

[Psychotron]

This is the code i have, but it's not working. what i want is for the label of the object i'm clicking on to appear in the textbox:

Sub Generic()
        Dim Ctl As Control
        For Each Ctl In Controls
            AddHandler Ctl.Click, AddressOf GenericClick
        Next
    End Sub

    Sub GenericClick(ByVal sender As Object, ByVal e As System.EventArgs)
        CustSummaryTxt.Text = sender.text

    End Sub

on Form_Load i'm calling Generic(), but the code doesn't work. nothing is displayed in my textbox when i click on a control.