C#

//
// MeasureItemMenuItemCopy
//
// Measure the rectangle size needed for the Copy Menu Option
private void MeasureItemMenuItemCopy(object obj,
                    MeasureItemEventArgs miea)
{
    MenuItem mi = (MenuItem)obj;

    // Get standard menu font so that the text in this
    // menu rectangle doesn't look funny with a
    // different font
    Font menuFont = SystemInformation.MenuFont;

    StringFormat strfmt = new StringFormat();

    SizeF sizef =
        miea.Graphics.MeasureString(mi.Text,
                                    menuFont,
                                    1000,
                                    strfmt);

    // Get image so size can be computed
    Bitmap bmMenuImage =
      new Bitmap(typeof(FormMenuImages),"COPY.BMP");

    // Add image height and width  to the text height and width when
    // drawn with selected font (got that from measurestring method)
    // to compute the total height and width needed for the rectangle
    miea.ItemWidth =
      (int)Math.Ceiling(sizef.Width) + bmMenuImage.Width;
    miea.ItemHeight =
      (int)Math.Ceiling(sizef.Height) + bmMenuImage.Height;
}

|---|------|---|
| L |  F   | R |
|___|______|___|

Private Function VerticalGenerate() As Bitmap
    Dim TopRect As Rectangle = _Style.Section1
    Dim BottomRect As Rectangle = _Style.Section2
    Dim TextArea As SizeF
    Dim g As Graphics = Graphics.FromImage(Style.SourceImage)
    'If Not _Text = "" Then
    'calculate text area
    Dim tb As New TextBuilder()
    TextArea = tb.GetTextArea(g, _Style.txtStyle, _Text, New StringFormat(StringFormatFlags.DirectionVertical))
    TextArea.Height = TextArea.Height * 1.4
    'End If
    'create target bmp
    Dim bmp As New Bitmap(TopRect.Width, Convert.ToInt32((_Style.Offset.Top + Style.Offset.Bottom) + (TextArea.Height)))
    g = Graphics.FromImage(bmp)
    g.DrawImage(Style.SourceImage, TopRect, TopRect, GraphicsUnit.Pixel)
    'calculate bottom position
    Dim temprect As Rectangle = BottomRect
    temprect.Offset(New Point(0, (bmp.Height - BottomRect.Height) - BottomRect.Top))
    'draw bottom
    g.DrawImage(Style.SourceImage, temprect, BottomRect, GraphicsUnit.Pixel)
    'do fill
    Dim temprect2 As Rectangle = New Rectangle(0, TopRect.Height, TopRect.Width, _Style.ImageSize.Height - (TopRect.Height + BottomRect.Height))
    FillArea(g, Style.SourceImage, temprect2, New Size(TopRect.Width, TextArea.Height), New Point(0, TopRect.Height), WrapMode.Tile)
    'bmp.Height - (TopRect.Height + BottomRect.Height)
    If Not _Text = "" Then
        Dim Sf As New StringFormat()
        Sf.FormatFlags = StringFormatFlags.DirectionVertical Or StringFormatFlags.NoWrap
        tb.RenderText(g, _Style.txtStyle, _Text, New RectangleF(0, TopRect.Height, TextArea.Width + 1, TextArea.Height), Sf)
        ' New RectangleF(0, TopRect.Height, TopRect.Width, bmp.Height - (TopRect.Height + BottomRect.Height))
        Sf.Dispose()
    End If
    Return bmp.Clone
    g.Dispose()
    bmp.Dispose()
End Function

Public Function GetTextArea(ByRef g As Graphics, ByRef Style As TextStyle, ByVal Text As String, ByVal strFormat As StringFormat) As SizeF
			Return g.MeasureString(Text, Style.FontFace, New SizeF(1000, 1000), strFormat)
		End Function

Public Sub RenderText(ByRef g As Graphics, ByRef Style As TextStyle, ByVal Text As String, ByVal TargetRect As RectangleF, ByRef Format As StringFormat)
			If Not Style.Texture Is Nothing Then
				g.DrawString(Text, Style.FontFace, Style.Texture, TargetRect, Format)
			ElseIf Not Style.Gradient Is Nothing Then
				g.DrawString(Text, Style.FontFace, Style.Gradient, TargetRect, Format)
			Else
				g.DrawString(Text, Style.FontFace, New SolidBrush(Style.ForeColour), TargetRect, Format)
			End If
		End Sub