主题：GDI+如何绘制竖排文字？

Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
Dim fnt As New Font("宋体",16)
Dim msg As String = "我爱狐表"

 Dim fns As System.Drawing.StringFormat = New System.Drawing.StringFormat
 fns.FormatFlags = System.Drawing.StringFormatFlags.DirectionVertical

g.DrawString(msg,fnt,Brushes.Red,10,10,fns)
p.Repaint()