Visual Basic

Public Class VerticalLabel
    Inherits Label

    Public Sub New()
        Me.AutoSize = False
    End Sub
    Public Overrides Property AutoSize() As Boolean
        Get
            Return MyBase.AutoSize
        End Get
        Set(ByVal value As Boolean)
            MyBase.AutoSize = False
        End Set
    End Property

    Protected Overloads Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim graphics As Graphics = e.Graphics
        Dim text As String = Me.Text
        Dim width As Integer = 0
        Dim height As Integer = 0
        Dim textBrush As Brush = New SolidBrush(Me.ForeColor)
        For Each c As Char In text.ToCharArray()
            Dim sw As Single = graphics.MeasureString(c, Me.Font).Width
            If sw > width Then
                width = sw
            End If
            Dim sh As Single = graphics.MeasureString(c, Me.Font).Height
            height += sh
            graphics.DrawString(c, Me.Font, textBrush, 0, height - sh)
        Next
        Me.Width = width
        Me.Height = height + 2
    End Sub

    Private Sub VerticalLabel_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.TextChanged
        Me.Refresh()
    End Sub
End Class