ساخت کنترل ها در زمان اجرا RunTime

[مجتبی کریمی]

سلام
من این راه به نظرم رسید احتمالا روش بهتری هم باشه

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim k As New Button
Static intLocation As Integer
Static intNumber As Integer
intNumber += 1
intLocation += 20
k.Top = intLocation
k.Left = intLocation
k.Name = "Button" & intNumber.ToString
k.Text = "Button" & intNumber.ToString
Me.Controls.Add(k)
k.Show()
AddHandler k.Click, AddressOf Clicked
End Sub

Private Sub Clicked(ByVal sender As System.Object, ByVal e As System.EventArgs)
MsgBox(sender.name)
End Sub