RadProgressBarElement in a grid column but with values between -100% and 100%

        public RadForm1()
        {
            InitializeComponent();
            new RadControlSpyForm().Show();
            ProgressBarColumn customColumn = new ProgressBarColumn("Progress column");
            this.radGridView1.Columns.Add(customColumn);

            this.radGridView1.AutoSizeColumnsMode = GridViewAutoSizeColumnsMode.Fill;

            this.radGridView1.Rows.Add(25);
            this.radGridView1.Rows.Add(76);
            this.radGridView1.Rows.Add(-25);
            this.radGridView1.Rows.Add(-45);
        }

        public class ProgressBarCellElement : GridDataCellElement
        { 
            public ProgressBarCellElement(GridViewColumn column, GridRowElement row) : base(column, row)
            {
            }
            
            private RadProgressBarElement radProgressBarElement;

            protected override void CreateChildElements()
            {
                base.CreateChildElements();

                radProgressBarElement = new RadProgressBarElement();
                radProgressBarElement.Minimum = 0;
                radProgressBarElement.Maximum = 100;
                this.Children.Add(radProgressBarElement);
            }
            
            protected override void SetContentCore(object value)
            {
                if (this.Value != null && this.Value != DBNull.Value)
                {
                    int progress = Convert.ToInt16(value);
                    this.radProgressBarElement.IndicatorElement1.GradientStyle = GradientStyles.Solid;
                    if (progress > 0)
                    {
                        this.radProgressBarElement.Value1 = progress;
                        this.radProgressBarElement.IndicatorElement1.BackColor = Color.Lime; 
                    }
                    else
                    { 
                      this.radProgressBarElement.Value1 = progress*-1;
                         this.radProgressBarElement.IndicatorElement1.BackColor = Color.Red;
                    }
                  
                    this.radProgressBarElement.Text = this.Value + "";
                }
            }
    
            protected override Type ThemeEffectiveType
            {
                get
                {
                    return typeof(GridDataCellElement);
                }
            }
            
            public override bool IsCompatible(GridViewColumn data, object context)
            {
                return data is ProgressBarColumn && context is GridDataRowElement;
            }
        }
        
        public class ProgressBarColumn : GridViewDataColumn
        {
            public ProgressBarColumn(string fieldName) : base(fieldName)
            {
            }

            public override Type GetCellType(GridViewRowInfo row)
            {
                if (row is GridViewDataRowInfo)
                {
                    return typeof(ProgressBarCellElement);
                }
                return base.GetCellType(row);
            }
        }

Private Sub grdContribution_CellPaint(sender As Object, e As GridViewCellPaintEventArgs) Handles grdContribution.CellPaint
    If (grdContribution.Columns("ProgressBarImage").Index.Equals(e.Cell.ColumnIndex) AndAlso e.Cell.RowIndex >= 0) Then
        Dim decValue As Decimal = e.Cell.RowElement.RowInfo.CellToDecimal("Weight")

        Dim brush As New SolidBrush(Color.Lime)
        Dim intMargin As Integer = 2
        Dim g As Graphics = e.Graphics
        Dim intX As Integer = e.Cell.Bounds.Width \ 2
        Dim intY As Integer = intMargin
        Dim intWidth As Integer = CInt(((e.Cell.Bounds.Width / 200) * decValue))
        Dim intHeight = e.Cell.Bounds.Height - (intMargin * 2)

        If decValue < 0 Then
            brush.Color = Color.Salmon
            intX = intX + intWidth
            intWidth = Math.Abs(intWidth)
        End If

        g.FillRectangle(brush, intX, intY, intWidth, intHeight)

        Dim drawBrush As New SolidBrush(Color.Black)
        Dim sf As New StringFormat()
        sf.LineAlignment = StringAlignment.Center
        sf.Alignment = StringAlignment.Center
        Dim rctBounds As New Rectangle
        If decValue = 0 Then
            rctBounds.X = e.Cell.Location.X
            rctBounds.Y = e.Cell.Location.Y
            rctBounds.Width = e.Cell.Size.Width
            rctBounds.Height = e.Cell.Size.Height
        ElseIf decValue < 0 Then
            rctBounds.X = e.Cell.Location.X
            rctBounds.Y = e.Cell.Location.Y
            rctBounds.Width = e.Cell.Size.Width \ 2
            rctBounds.Height = e.Cell.Size.Height
        Else
            rctBounds.X = e.Cell.Location.X + (e.Cell.Size.Width \ 2)
            rctBounds.Y = e.Cell.Location.Y
            rctBounds.Width = e.Cell.Size.Width \ 2
            rctBounds.Height = e.Cell.Size.Height
        End If
        e.Graphics.DrawString(decValue.ToString("#,##0.00") & "%", e.Cell.Font, drawBrush, rctBounds, sf)
    End If
End Sub