[SRCategory(ReportStringId.CatAppearance)]
public virtual Color ForeColor { get; set; }

<SRCategory(ReportStringId.CatAppearance)>
Public Overridable Property ForeColor As Color

using System.Drawing;
using DevExpress.XtraReports.UI;
// ...

public XRLabel CreateHyperlink(){
    // Create a label for a hyperlink.
    XRLabel hyperlinkLabel = new XRLabel();

    // Set its main properties.
    hyperlinkLabel.Text = "DevExpress Inc.";
    hyperlinkLabel.Width = 200;
    hyperlinkLabel.ForeColor = Color.Blue;
    hyperlinkLabel.Font = new Font("Tahoma", 12, FontStyle.Underline);

    // Set its URL and target.
    hyperlinkLabel.NavigateUrl = "https://www.devexpress.com/";
    hyperlinkLabel.Target = "_blank";

    return hyperlinkLabel;
}

Imports System.Drawing
Imports DevExpress.XtraReports.UI
' ...

Public Function CreateHyperlink() As XRLabel
    ' Create a label for a hyperlink.
    Dim hyperlinkLabel As XRLabel = New XRLabel()

    ' Set its main properties.
    hyperlinkLabel.Text = "DevExpress Inc."
    hyperlinkLabel.Width = 200
    hyperlinkLabel.ForeColor = Color.Blue
    hyperlinkLabel.Font = New Font("Tahoma", 12, FontStyle.Underline)

    ' Set its URL and target.
    hyperlinkLabel.NavigateUrl = "https://www.devexpress.com/"
    hyperlinkLabel.Target = "_blank"

    Return hyperlinkLabel
End Function

using DevExpress.XtraReports.UI;
// ...

private void XtraReport1_BeforePrint(object sender, System.ComponentModel.EventArgs e) {
    // Create a new hyperlink and add it to the report's Detail Band.
    Bands.GetBandByType(typeof(DetailBand)).Controls.Add(CreateHyperlink());
}

Imports DevExpress.XtraReports.UI
' ...

Private Sub XtraReport1_BeforePrint(ByVal sender As Object, ByVal e As System.ComponentModel.EventArgs)
    Create a new hyperlink and add it to the report's Detail Band.
    Bands.GetBandByType(GetType(DetailBand)).Controls.Add(CreateHyperlink())
End Sub

shape.Height = 200;
shape.ForeColor = Color.Brown;
shape.FillColor = Color.Beige;

if (total < 100) {
    label.ForeColor = Color.White;
    label.BackColor = Color.Red;

((XRLabel)sender).BackColor = curColor;
    ((XRLabel)sender).ForeColor = curColor;
}

label.Font = new Font(label.Parent.Font, FontStyle.Bold);
label.ForeColor = Color.White;
label.TextAlignment = TextAlignment.MiddleRight;

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

shape.Height = 200
shape.ForeColor = Color.Brown
shape.FillColor = Color.Beige

If total < 100 Then
    label.ForeColor = Color.White
    label.BackColor = Color.Red

DirectCast(sender, XRLabel).BackColor = curColor
    DirectCast(sender, XRLabel).ForeColor = curColor
End Sub

label.Font = New Font(label.Parent.Font, FontStyle.Bold)
label.ForeColor = Color.White
label.TextAlignment = TextAlignment.MiddleRight

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