g.DrawString(mText, mFont, mBrush, RectangleF.op_Implicit(Rect), mStringFormat)

''绘制矩形

Dim mPen As New Pen(Color.Black)

g.DrawRectangle(mPen, Rect)

End Sub

http://www.qqread.com/book/myvbnet/my0047.html

运行后，如下图四所示：

图四：绘制垂直的文本

DirectionVertical只是StringFormatFlags枚举值之一，我们还可以通过其它的枚举值来实现其它样式的文本。