Data commit

Task/Colour-bars-Display/Gambas/colour-bars-display.gambas

@@ -0,0 +1,19 @@
+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