Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
    Me.ColorDialog1.ShowDialog()
    ColorCount = ColorCount + 1
    ReDim Preserve MyColors(ColorCount)
    MyColors(ColorCount) = Me.ColorDialog1.Color
    DisplayColors()
End Sub 'btnAdd_Click