Динамическое добавление контролов на форму

[sotonic]

Мне надо на форму добавить n-е количество Label'ов или Command'ов
Как это сделать в ВБ6 я знаю, а в .NET не получается. Помогите плиз. Или хотя бы ссылочку киньте если такая тема уже была.

[Nord777]

Код: Выделить всё

Public Class Form1
    Private L(9) As Label
   
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim TmpLabel As Label

        Me.SuspendLayout()
        For i As Integer = 0 To 9
            TmpLabel = New Label
            TmpLabel.AutoSize = True
            TmpLabel.Location = New System.Drawing.Point(20, i * TmpLabel.Height)
            TmpLabel.Name = "Label" & (i+1).ToString
            TmpLabel.Size = New System.Drawing.Size(39, 13)
            TmpLabel.Text = "Метка" & (i+1).ToString
            AddHandler TmpLabel.Click, AddressOf Label_ClickHandler
            Me.Controls.Add(TmpLabel)
            L(i) = TmpLabel
        Next

        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub


    Private Sub Label_ClickHandler(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim Lbl As Label = CType(sender, Label)
        MsgBox(Lbl.Name)
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i As Integer = 1 To 9
            L(i).Text = "ДругаяМетка" & (i+1).ToString
        Next
    End Sub
End Class

[sotonic]

Nord777
Большое спасибо. Выручил