Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim lb = New Label lb.BorderStyle = BorderStyle.Fixed3D lb.Text = "prova" TableLayoutPanel1.Controls.Add(lb, col, riga) End Sub