Task

Display a series of vertical color bars across the width of the display.

The color bars should either use:

   the system palette,   or 
   the sequence of colors: 
   black
   red
   green
   blue
   magenta
   cyan
   yellow
   white


Public Sub Form_Open()
Dim iColour As Integer[] = [Color.Black, Color.red, Color.Green, Color.Magenta, Color.Cyan, Color.Yellow, Color.white]
Dim hPanel As Panel
Dim siCount As Short
 
With Me
  .Arrangement = Arrange.Horizontal
  .Height = 300
  .Width = 400
End With
 
For siCount = 0 To 6
  hpanel = New Panel(Me)
  hpanel.Expand = True
  hpanel.H = 500
  HPanel.Background = iColour[siCount]
Next
 
End