先ほども質問した者ですが、様々な方法をやっても出来なかったので、再度来てしまいました。
すみません
ピクチャーボックスに文字を描画するというのは.DrawStringメソッドを使って縦書きにしています。
縦書きの表示についてはこちらのサイトを参考にして行いました。
http://dobon.net/vb/dotnet/graphics/drawstring.html
この縦書きで表示されている文字の色つまりForeColorをカラーダイアログで選んだ色に変更したいのですが、変更ができません。
BackColorは変更が可能なのですが、なぜかForeColorは駄目なようです。

 Private Sub ColorH_Click(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

        Dim cd As New ColorDialog()

        Dim bcc As SolidBrush = New SolidBrush(cd.Color)

        cd.Color = bcc.Color

        bcc.Color = mozi.ForeColor

        cd.AnyColor = False '仮 

        cd.AllowFullOpen = True

        cd.SolidColorOnly = True

        cd.ShowHelp = False

        If cd.ShowDialog() = DialogResult.OK Then

            bcc.Color = cd.Color

            mozi.ForeColor = bcc.Color

        End If

    End Sub

moziというのはテキストボックスで入力した文字を描画したピクチャーボックスです。
 Dim mozi As PictureBox
 Me.mozi = New PictureBox()
２回目とずうずうしくてすみませんが、回答できる方がいましたらよろしくお願いします。