动态增加控件后的事件处理
动态增加一组按钮，一共有N个，怎么才能在单击其中某一按钮时，引发事件，且该事件相同
如下
动态循环增加按钮
For i = 1 To 10
Dim bb As New Button
'确定位置
bb.Top = i * 15
bb.Left = 100
'按钮名称
bb.Name = i
'按钮文本
bb.Text = i
'引发事件代码
AddHandler bb.Click, AddressOf ancheck
Next
'增加按钮完毕
按钮事件
Sub ancheck(ByVal sender As Object, ByVal e As System.EventArgs)
'判断点击了哪个按钮
MsgBox( "引发事件 ")
'怎么才能确认是单击哪个按钮引发的事件，或者取到引发事件的按钮的某个值，如名称等
End Sub
‘===========================================================================================================
上面这段代码能实现增加按钮及引发事件，但单击所有的按钮均能引发该事件，不能确认是单击了哪个按钮，我想在按钮事件中取变量，比如取单击的按钮的名称，也就是要确实是单击哪个动态按钮引发的事件，然后再根据取得的变量执行其他步骤，代码怎么修改？谢谢
[解决办法]
C#的写法：((Control)(sender)).ID
试试
[解决办法]
Sub ancheck(ByVal sender As Object, ByVal e As System.EventArgs)
select case ctype(sender,button).text
case "0 "
case "1 "
case else
end select
End Sub
