如何批量给100个textbox 100个button 100个下拉框添加事件？

[baidu_19898039]

要给100个textbox的值改变事件 都添加 a()
要给100个button的单击事件 都添加b()
要给100个下拉框都添加索引改变事件 c()

 For Each T As Control In TabPage1.Controls
            Select Case T.GetType.ToString
                Case "System.Windows.Forms.TextBox", "System.Windows.Forms.Label", "System.Windows.Forms.ListBox"
                    AddHandler T.TextChanged, AddressOf dwstring
                Case "System.Windows.Forms.Button"
                    T()
                    AddHandler T.Click, AddressOf dwstring
            End Select
        Next

这是我瞎写的
textbox的 TextChanged ok了
button的click ok了
但是t没有selectindexchanged 事件
我怎么给listbox 批量添加 selectindexchanged 事件？

[threenewbee]

用CType转化成TextBox、Button等等类型

[IE11下面经常卡到爆]

判断是IListControl，转换类型后就有了