Private Sub FormX_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
      Dim myFLP As New FlowLayoutPanel
      myFLP.BorderStyle = BorderStyle.FixedSingle
      myFLP.Width = 400
      myFLP.Height = 100
      myFLP.Top = 20
      myFLP.Left = 20
 
      myFLP.AutoScroll = True
      myFLP.WrapContents = False
 
      Me.Controls.Add(myFLP)
 
      For i As Integer = 0 To 9
         Dim myPanel As New Panel
         myPanel.BorderStyle = BorderStyle.FixedSingle
         myPanel.Width = 70
         myPanel.Height = 70
         myPanel.Name = "Panel" & i.ToString
         myPanel.BackColor = Color.BlueViolet
 
         myFLP.Controls.Add(myPanel)
      Next
   End Sub