[highlight=vbnet]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim p As New Panel
'Set panel properties here...
p.BackColor = Color.Blue
FlowLayoutPanel1.Controls.Add(p)
End Sub[/highlight]