using DevExpress.XtraPrinting;
using DevExpress.XtraReports;
using DevExpress.XtraReports.UI;
using System.ComponentModel;
using System.Drawing;
using DevExpress.Utils.Serializing;
using DevExpress.XtraReports.Expressions;
// ...
    [ToolboxItem(true)]
    [DefaultBindableProperty("Position")]
    public class ProgressBar : XRControl {
        // Implement a static constructor as shown below to add the
        // "Position" property to the property grid's "Expressions" tab.
        static ProgressBar() {
            // Specify an array of events in which the property should be available.
            string[] eventNames = new string[] { "BeforePrint" };

            // Specify the property position in the property grid's "Expressions" tab.
            // 0 - first, 1000 - last.
            int position = 0;

            // Specify an array of the property's inner properties.
            string[] nestedBindableProperties = null;

            // Specify the property's category in the property grid's "Expressions" tab.
            // The empty string corresponds to the root category.
            string scopeName = "";

            // Create and set a description for the "Position" property.
            ExpressionBindingDescription description = new ExpressionBindingDescription(
                eventNames, position, nestedBindableProperties, scopeName
            );

            ExpressionBindingDescriptor.SetPropertyDescription(
                typeof(ProgressBar), nameof(Position), description
            );
        }

        private float position = 0;
        private float maxValue = 100;

        public ProgressBar() {
            this.ForeColor = SystemColors.Highlight;
        }

        [DefaultValue(100)]
        [Description("The maximum value of the bar position.")]
        [DisplayName("Max Value")]
        [Category("Parameters")]
        [XtraSerializableProperty]
        public float MaxValue {
            get { return this.maxValue; }
            set {
                if (value <= 0) return;
                this.maxValue = value;
            }
        }

        [DefaultValue(0)]
        [Description("The current bar position.")]
        [DisplayName("Position")]
        [Category("Parameters")]
        [XtraSerializableProperty]
        public float Position {
            get { return this.position; }
            set {
                if (value < 0 || value > maxValue)
                    return;
                this.position = value;
            }
        }

// ...
    }

Imports DevExpress.XtraPrinting
Imports DevExpress.XtraReports
Imports DevExpress.XtraReports.UI
Imports System.ComponentModel
Imports System.Drawing
Imports DevExpress.Utils.Serializing
Imports DevExpress.XtraReports.Expressions
' ...
    <ToolboxItem(True), DefaultBindableProperty("Position")>
    Public Class ProgressBar
        Inherits XRControl

        ' Implement a static constructor as shown below to add the
        ' "Position" property to the property grid's "Expressions" tab.
        Shared Sub New()
            ' Specify an array of events in which the property should be available.
            Dim eventNames() As String = { "BeforePrint" }

            ' Specify the property position in the property grid's "Expressions" tab.
            ' 0 - first, 1000 - last.

            Dim position_Renamed As Integer = 0

            ' Specify an array of the property's inner properties.
            Dim nestedBindableProperties() As String = Nothing

            ' Specify the property's category in the property grid's "Expressions" tab.
            ' The empty string corresponds to the root category.
            Dim scopeName As String = ""

            ' Create and set a description for the "Position" property.
            Dim description As New ExpressionBindingDescription(eventNames, position_Renamed, nestedBindableProperties, scopeName)

            ExpressionBindingDescriptor.SetPropertyDescription(GetType(ProgressBar), nameof(Position), description)
        End Sub

        Private position_Renamed As Single = 0

        Private maxValue_Renamed As Single = 100

        Public Sub New()
            Me.ForeColor = SystemColors.Highlight
        End Sub

        <DefaultValue(100), Description("The maximum value of the bar position."), DisplayName("Max Value"), Category("Parameters"), XtraSerializableProperty>
        Public Property MaxValue() As Single
            Get
                Return Me.maxValue_Renamed
            End Get
            Set(ByVal value As Single)
                If value <= 0 Then
                    Return
                End If
                Me.maxValue_Renamed = value
            End Set
        End Property

        <DefaultValue(0), Description("The current bar position."), DisplayName("Position"), Category("Parameters"), XtraSerializableProperty>
        Public Property Position() As Single
            Get
                Return Me.position_Renamed
            End Get
            Set(ByVal value As Single)
                If value < 0 OrElse value > maxValue_Renamed Then
                    Return
                End If
                Me.position_Renamed = value
            End Set
        End Property
' ...
    End Class

protected override VisualBrick CreateBrick(VisualBrick[] childrenBricks) {
    // Create and return a panel brick.
    return new PanelBrick(this);
}

Protected Overrides Function CreateBrick(ByVal childrenBricks() As VisualBrick) As VisualBrick
    ' Create and return a panel brick.
    Return New PanelBrick(Me)
End Function

protected override void PutStateToBrick(VisualBrick brick, PrintingSystemBase ps) {
    base.PutStateToBrick(brick, ps);

    // Cast the "brick" variable to the "PanelBrick" type (the type of a brick
    // created in the "CreateBrick" method). 
    PanelBrick panel = (PanelBrick)brick;

    // Create a new visual brick to represent a bar.
    VisualBrick progressBar = new VisualBrick(this);

    // Hide the brick's borders.
    progressBar.Sides = BorderSide.None;

    // Set the foreground color for the bar.
    progressBar.BackColor = panel.Style.ForeColor;

    // Calculate the width of the progress bar's filled area.
    float filledAreaWidth = panel.Rect.Width * (Position / MaxValue);

    // Create a rectangle to be filled by the foreground color.
    progressBar.Rect = new RectangleF(0, 0, filledAreaWidth, panel.Rect.Height);

    // Add the visual brick to the panel brick.
    panel.Bricks.Add(progressBar);
}

Protected Overrides Sub PutStateToBrick(ByVal brick As VisualBrick, ByVal ps As PrintingSystemBase)
        MyBase.PutStateToBrick(brick, ps)

        ' Cast the "brick" variable to the "PanelBrick" type (the type of a brick
        ' created in the "CreateBrick" method). 
        Dim panel As PanelBrick = CType(brick, PanelBrick)

        ' Create a new visual brick to represent a bar.
        Dim progressBar As New VisualBrick(Me)

        ' Hide the brick's borders.
        progressBar.Sides = BorderSide.None

        ' Set the foreground color for the bar.
        progressBar.BackColor = panel.Style.ForeColor

        ' Calculate the width of the progress bar's filled area.
        Dim filledAreaWidth As Single = panel.Rect.Width * (Position / MaxValue)

        ' Create a rectangle to be filled by the foreground color.
        progressBar.Rect = New RectangleF(0, 0, filledAreaWidth, panel.Rect.Height)

        ' Add the visual brick to the panel brick.
        panel.Bricks.Add(progressBar)
    End Sub
End Class

protected override void GetStateFromBrick(VisualBrick brick) {
    base.GetStateFromBrick(brick);

    // Copy the current brick state to the control.
    // ...
}

Protected Overrides Sub GetStateFromBrick(ByVal brick As VisualBrick)
    MyBase.GetStateFromBrick(brick)

    ' Copy the current brick state to the control.
    ' ...
End Sub

[XtraSerializableProperty(XtraSerializationVisibility.Collection)]
public List<CustomParameter> CustomParameters { get; set; }

using DevExpress.XtraPrinting;
using DevExpress.XtraPrinting.Native;
using CustomControls.RoundBordersControls;

namespace DevExpress.XtraReports.CustomControls {
    public static class RoundedCustomControl {
        public static void EnsureCustomBrick() {
            BrickFactory.BrickResolve += OnBrickResolve;
        }

        private static void OnBrickResolve(object sender, BrickResolveEventArgs args) {
            if(args.Brick != null)
                return;
            CreateBrick<RoundLabelBrick>(args);
            CreateBrick<RoundPanelBrick>(args);
        }

        static void CreateBrick<T>(DevExpress.XtraPrinting.BrickResolveEventArgs args) where T : class, new() {
            if(args.Name == typeof(T).Name) {
                args.Brick = new T() as Brick;
            }
        }
    }
}

designForm.DesignMdiController.DesignPanelLoaded +=
    // ...
}

void DesignMdiController_DesignPanelLoaded(object sender, DesignerLoadedEventArgs e) {
    // Get the Toolbox service from the Designer host.
    IToolboxService ts =
        (IToolboxService)e.DesignerHost.GetService(typeof(IToolboxService));

    // Add a new category to the Toolbox,
    // and place a custom control into it.
    ToolboxItem item = new ToolboxItem(typeof(ProgressBar));
    ts.AddToolboxItem(item, "New Category");
}

AddHandler designForm.DesignMdiController.DesignPanelLoaded, AddressOf DesignMdiController_DesignPanelLoaded
' ...
        Private Sub DesignMdiController_DesignPanelLoaded(ByVal sender As Object, ByVal e As DesignerLoadedEventArgs)
            ' Get the Toolbox service from the Designer host.
            Dim ts As IToolboxService = DirectCast(e.DesignerHost.GetService(GetType(IToolboxService)), IToolboxService)

            ' Add a new category to the Toolbox,
            ' and place a custom control into it.
            Dim item As New ToolboxItem(GetType(ProgressBar))
            ts.AddToolboxItem(item, "New Category")
        End Sub

using DevExpress.XtraReports;

[DefaultBindableProperty("Position")]
public class ProgressBar : XRControl {
    //...
}

Imports DevExpress.XtraReports

<DefaultBindableProperty("Position")>
Public Class ProgressBar
    Inherits XRControl

    '...
End Class