Vertical Text

[Stephen Muecke]

I use the following code to draw vertical text in an ownerdrawn StatusBar
The text is drawn top to bottom. Is there a way to have the text drawn
bottom to top?

Stephen

Private Sub FormatClaimPermissions(ByVal sender As System.Object, _
ByVal sbdevent As System.Windows.Forms.StatusBarDrawItemEventArgs) _
Handles ClaimPermissionsHeaderStatusBar.DrawItem, _
ExtensionPermissionsHeaderStatusBar.DrawItem, _
VariationPermissionsHeaderStatusBar.DrawItem

'---------------------------------------------------------------------------
------
'Formats each permission DataGrid header (StatusBar) to display vertical
text

'---------------------------------------------------------------------------
------
With sbdevent
Dim text As String = .Panel.Text
Dim font As Font = .Font
Dim brush As New SolidBrush(.ForeColor)
Dim bounds As RectangleF = RectangleF.op_Implicit(.Bounds)
Dim format As New StringFormat(StringFormatFlags.DirectionVertical)
Graphics.DrawString(text, font, brush, bounds, format)
brush.Dispose()
End With
End Sub