主题：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 = "我爱狐表"
g.DrawString(msg,fnt,Brushes.Red,10,10)
p.Repaint()

这段代码绘制的结果是：我爱狐表

如何达到竖向排列的结果：

我

爱

狐

表

谢谢！