Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
  Dim Pos As Integer
  Me.ColorDialog1.ShowDialog()
  Pos = FindColor(Me.ColorDialog1.Color)
  If ColorInArray(Me.ColorDialog1.Color) Then 'if duplicate
     MsgBox("That color is already in the list")
  Else 'add if not a duplicate
     ColorCount = ColorCount + 1
     ReDim Preserve MyColors(ColorCount)
     MyColors(ColorCount) = Me.ColorDialog1.Color
     DisplayColors()
  End If
End Sub 'btnAdd_Click