C#/VB カスタム色設定ダイアログボックスを表示する

    private void button1_Click(object sender, EventArgs e)
    {
        // ColorDialogコンポーネントを生成する
        ColorDialog cd = new ColorDialog();

        // カスタムカラーを定義できるようにする
        cd.AllowFullOpen = true;

        // 使用できるすべての色を基本色セットとして表示する
        cd.AnyColor = true;

        // ダイアログボックスを開いたとき、カスタムカラー作成用コントロールを表示する
        cd.FullOpen = true;

        // ヘルプボタンを表示する
        cd.ShowHelp = true;

        // 純色のみ選択可能にする
        cd.SolidColorOnly = true;

        // ColorDialogを表示する
        if (cd.ShowDialog() == DialogResult.OK)
        {
            // 選択された色を取得する
            Color color = cd.Color;

            // 選択された色をLabelコントロールに設定する
            label1.BackColor = color;
        }
    }

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    ' ColorDialogコンポーネントを生成する
    Dim cd As New ColorDialog()
    ' カスタムカラーを定義できるようにする
    cd.AllowFullOpen = True

    ' 使用できるすべての色を基本色セットとして表示する
    cd.AnyColor = True

    ' ダイアログボックスを開いたとき、カスタムカラー作成用コントロールを表示する
    cd.FullOpen = True

    ' ヘルプボタンを表示する
    cd.ShowHelp = True

    ' 純色のみ選択可能にする
    cd.SolidColorOnly = True

    ' ColorDialogを表示する
    If cd.ShowDialog() = DialogResult.OK Then
        ' 選択された色を取得する
        Dim color As Color = cd.Color

        ' 選択された色をLabelコントロールに設定する
        label1.BackColor = color
    End If

End Sub