سلام به همه

این هم ی نمونه:

https://aparat.com/v/U3gxo

[VB]
    Dim Box As ColorBox
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load

        For Each Prop As PropertyInfo In GetType(Brushes).GetProperties()
            If Prop.GetValue(Prop, New Object() {}) Is Brushes.Transparent Then Continue For
            Box = New ColorBox
            Box.Color = Color.FromName(Prop.Name)
            AddHandler Box.ButtonClicked, AddressOf ButtonClicked
            Me.FlowLayoutPanel1.Controls.Add(Box)
        Next

    End Sub
[/VB]