Private Sub DisplayColors()
  Dim MyBrush As New SolidBrush(Color.Red) 'any color
  Dim X, Y, N As Integer
  X = 0
  Y = 25 'below the button
  For N = 1 To ColorCount '0 is not used
     MyBrush.Color = MyColors(N)
     Me.CreateGraphics.FillEllipse(MyBrush, X, Y, 15, 15)
     X = X + 15
     If X > Me.Width - 15 Then 'move to next row
        X = 0 'back to beginning of row
        Y = Y + 15
     End If
   Next N
 End Sub 'DisplayColors