vb.net问题！请大虾指导！
Private Sub Formmain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i = 0 To My.Computer.Ports.SerialPortNames.Count - 1
dim b as new button
b.text= My.Computer.Ports.SerialPortNames(i)
b.Name = TSMI.Text
select case b.name
case "COM1"
addhandler b.click,addressof com1
case "COM2"
addhandler b.click,addressof com2
next
me.controls.add(b)
Private Sub com1()
SPPLC.PortName = "COM1"
Try
If SPPLC.IsOpen = False Then
SPPLC.Open()
End If
Catch ex As Exception
MsgBox(ex.Message & ex.Source, MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "警告")
End Try
End Sub
Private Sub com2()
SPPLC.PortName = "COM2"
Try
If SPPLC.IsOpen = False Then
SPPLC.Open()
End If
Catch ex As Exception
MsgBox(ex.Message & ex.Source, MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "警告")
End Try
End Sub
以上是我的代码：主要是遍历计算机中可用的所有串口并动态的加入按钮来让用户操作并关联了相应的按钮事件；但是现在我有一个这样的问题假设我的计算机有20个甚至更多的可用串口，那我岂不是要加入20个或者更多的响应事件来关联相应的按钮，又如果我事前不知道有多少个可用的串口的话，那我加多了响应事件或者加少了，那又不对了。所以我想问有什么方法可以动态的生成控件对象，并且动态的生成该控件的响应事件呢？
