Private Sub uc_AKS_BTe_ControlAdded(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.ControlEventArgs) Handles Me.ControlAdded
        AddHandler e.Control.Click, AddressOf Control_Click
        AddHandler e.Control.MouseDown, AddressOf Control_Mouse_Down
    End Sub
 
    Private Sub Control_Click(ByVal Sender As Object, ByVal e As EventArgs)
        MessageBox.Show(CType(Sender, Control).Text & " wurde geklickt")
    End Sub
 
    Private Sub Control_Mouse_Down(ByVal Sender As Object, ByVal e As _
      MouseEventArgs)
        MessageBox.Show(CType(Sender, Control).Text & " wurde mit der " & _
        e.Button.ToString() & " geklickt")
    End Sub