انتخاب رنگ از بین آیتم های یک ToolStripMenuItem

در این آموزش رنگ ها از کلاس Brush به آیتم های DropDown از یک ToolStripMenuItem اضافه می شه و رنگ هر Brush بصورت دایره ای برای هر آیتم ترسیم می شه و با انتخاب آیتم رمگ زمینه Form تغییر می کنه ....

https://aparat.com/v/U9j6V

        Dim Img As Image

        Dim B As Brush

        With Me.ChooseColorToolStripMenuItem

            For Each P As PropertyInfo In GetType(Brushes).GetProperties

                Img = New Bitmap(16, 16)

                Dim g As Graphics = Graphics.FromImage(Img)

                B = P.GetValue(P, New Object() {})

                g.FillEllipse(B, 0, 0, 16, 16)

                With .DropDownItems.Add(P.Name, Img)

                    .Tag = B

                End With

            Next

        End With