Function ColorInArray(ByVal Clr As Color) As Boolean
  Dim Found As Boolean = False
  Dim Num As Integer
  For Num = 1 To ColorCount
    If MyColors(Num).ToArgb() = Clr.ToArgb Then Found = True
  Next
  ColorInArray = Found
End Function 'ColorInArray