→→→文字を縦書きにする

Dim g As Graphics = PictureBox1.CreateGraphics
Dim gg As Graphics = PictureBox2.CreateGraphics
Dim myText As String = "文字を縦書きにする"
Dim font As New Font("MS明朝", 11, Fontstyle.Regular, GraphicsUnit.Point)

Dim pointF As New Point( 40, 10 )
Dim StringFormat As New StringFormat()
Dim solidBrush As New SolidBrush( Color.FromArgb(255,0,0,255))
StringFormat.FormatFlags = StringFormatFlags.DirectionVertical
g.DrawString( myText, font, solidBrush, pointF, stringFormat )
gg.DrawString( myText, font, solidBrush, pointF, stringFormat )