垂直的字体:
设置一个drawstring的format就可以了.
Dim ee As Graphics = Me.CreateGraphics
Dim ft As New Font("arial", 16, FontStyle.Bold)
Dim format1 As New System.Drawing.StringFormat
format1.FormatFlags = StringFormatFlags.DirectionVertical
ee.DrawString("asdfasdf", ft, New SolidBrush(Color.Red), 10, 10, format1)
Dim e1 As Graphics = Me.CreateGraphics
Dim i As Integer
For i = 1 To 360 Step 30
e1.RotateTransform(i)
e1.DrawString("asdfasdf", New Font("arial", 16, FontStyle.Bold), New SolidBrush(Color.Red), 30, 30)
Next i