★　カラーダイアログボックスを使っての色の設定
　
Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'ダイアログボックスを使ってテキストボックスのバックカラーを設定
    With ColorDialog1
        .AllowFullOpen = True
        '現在設定の色を選択（特に設定しなくてもよい）
        .Color = TextBox1.BackColor
        'ダイアログボックスを表示しOKボタンが押されたら
        If .ShowDialog = DialogResult.OK Then
            TextBox1.BackColor = .Color      'テキストボックスのバックカラーを設定
        End If
    End With
End Sub