public class BrickStringFormat :
    ICloneable

Public Class BrickStringFormat
    Implements ICloneable

using DevExpress.XtraPrinting;
// ...

    VisualBrick visBrick;
    BrickGraphics brickGraph = printingSystem1.Graph;
    string s = "Developer Express Inc.";

    // Specify the string format.
    StringFormat sFormat = new StringFormat(StringFormatFlags.DirectionVertical);
    sFormat.Alignment = StringAlignment.Center;
    sFormat.LineAlignment = StringAlignment.Center;

    // Create the BrickStringFormat object.
    BrickStringFormat brickSFormat = new BrickStringFormat(sFormat);

    // Measure the string according to the specified format
    SizeF sz = brickGraph.MeasureString(s, 30, sFormat);

    // Start the report generation.
    printingSystem1.Begin();

    // Set the brick string format
    brickGraph.StringFormat = brickSFormat;

    // Create a rectangle.
    RectangleF rect = new RectangleF(new PointF(0, 0), new SizeF(30, 150));
    // Specify a page area.
    brickGraph.Modifier = BrickModifier.Detail;
    // Add a brick to the report.
    visBrick = brickGraph.DrawString(s, Color.MidnightBlue, rect, BorderSide.All);

    // Finish the report generation.
    printingSystem1.End();

    // Preview the report.
    printingSystem1.PreviewFormEx.Show();

Imports DevExpress.XtraPrinting
' ...

    Dim visBrick As VisualBrick
    Dim brickGraph As BrickGraphics = printingSystem1.Graph
    Dim s As String = "Developer Express Inc."

    ' Specify the string format.
    Dim sFormat As StringFormat = New StringFormat(StringFormatFlags.DirectionVertical)
    sFormat.Alignment = StringAlignment.Center
    sFormat.LineAlignment = StringAlignment.Center

    ' Create the BrickStringFormat object.
    Dim brickSFormat As BrickStringFormat = New BrickStringFormat(sFormat)

    ' Measure the string according to the specified format
    Dim sz As SizeF = brickGraph.MeasureString(s, 30, sFormat)

    ' Start the report generation.
    printingSystem1.Begin()

    ' Set the brick string format
    brickGraph.StringFormat = brickSFormat

    ' Create a rectangle.
    Dim rect As RectangleF = New RectangleF(New PointF(0, 0), New SizeF(30, 150))
    ' Specify a page area.
    brickGraph.Modifier = BrickModifier.Detail
    ' Add a brick to the report.
    visBrick = brickGraph.DrawString(s, Color.MidnightBlue, rect, BorderSide.All)

    ' Finish the report generation.
    printingSystem1.End()

    ' Preview the report.
    printingSystem1.PreviewFormEx.Show()