using DevExpress.XtraReports.UI;
using DevExpress.XtraPrinting.BarCode;
// ...

private void button1_Click(object sender, System.EventArgs e) {
    XtraReport1 report = new XtraReport1();

    // Create a barcode control.
    XRBarCode barcode = new XRBarCode();

    // Set the barcode's type to Code 39 Extended.
    barcode.Symbology = new Code39ExtendedGenerator();

    // Adjust the Code39Extended barcode's main properties.
    barcode.Text = "0123456789";
    barcode.Width = 400;
    barcode.Height = 100;

    // Adjust the Code39Extended barcode's specific properties.
    ((Code39ExtendedGenerator)barcode.Symbology).CalcCheckSum = false;
    ((Code39ExtendedGenerator)barcode.Symbology).WideNarrowRatio = 2.5F;

    report.Detail.Controls.Add(barcode);
    report.ShowPreview();
}

Imports DevExpress.XtraReports.UI
Imports DevExpress.XtraPrinting.BarCode
' ...

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles Button1.Click
    Dim report As New XtraReport1()

    ' Create a barcode control.
    Dim Barcode As New XRBarCode()

    ' Set the barcode's type to Code 39 Extended.
    Barcode.Symbology = New Code39ExtendedGenerator()

    ' Adjust the Code39Extended barcode's main properties.
    Barcode.Text = "0123456789"
    Barcode.Width = 400
    Barcode.Height = 100

    ' Adjust the Code39Extended barcode's specific properties.
    Dim Code39ExtendedSymbology As Code39ExtendedGenerator = Barcode.Symbology
    Code39ExtendedSymbology.CalcCheckSum = False
    Code39ExtendedSymbology.WideNarrowRatio = 2.5

    report.Detail.Controls.Add(Barcode)
    report.ShowPreview()
End Sub