'竖着绘制文字
Private Sub drawstringshu()
Dim g As Graphics = Me.CreateGraphics
Dim strformat As New StringFormat()
strformat.FormatFlags = StringFormatFlags.DirectionVertical
g.DrawString("我爱拉芳", New Font("Arial", 12), Brushes.Red, 20, 20, strformat)
g.Dispose()
End Sub