public class DataBarGenerator :
    BarCodeGeneratorBase

Public Class DataBarGenerator
    Inherits BarCodeGeneratorBase

using System;
using System.Collections.Generic;
using System.Drawing.Printing;
using System.Windows.Forms;
using DevExpress.XtraPrinting.BarCode;
using DevExpress.XtraReports.UI;
// ...
public XRBarCode CreateDataBarGS1BarCode(string BarCodeText) {
    // Create a barcode control.
    XRBarCode barCode = new XRBarCode();

    // Set the barcode's type to GS1 DataBar.
    barCode.Symbology = new DataBarGenerator();

    // Adjust the barcode's main properties.
    barCode.Text = BarCodeText;
    barCode.Width = 250;
    barCode.Height = 160;

    // Adjust the properties specific to the barcode type.
    ((DataBarGenerator)barCode.Symbology).FNC1Substitute = "#";
    ((DataBarGenerator)barCode.Symbology).SegmentsInRow = 4;
    ((DataBarGenerator)barCode.Symbology).Type = DataBarType.ExpandedStacked;

    return barCode;
}

Imports System
Imports System.Collections.Generic
Imports System.Drawing.Printing
Imports System.Windows.Forms
Imports DevExpress.XtraPrinting.BarCode
Imports DevExpress.XtraReports.UI
' ...
Public Function CreateDataBarGS1BarCode(ByVal BarCodeText As String) As XRBarCode
    ' Create a barcode control.
    Dim barCode As New XRBarCode()

    ' Set the barcode's type to GS1 DataBar.
    barCode.Symbology = New DataBarGenerator()

    ' Adjust the barcode's main properties.
    barCode.Text = BarCodeText
    barCode.Width = 250
    barCode.Height = 160

    ' Adjust the properties specific to the barcode type.
    CType(barCode.Symbology, DataBarGenerator).FNC1Substitute = "#"
    CType(barCode.Symbology, DataBarGenerator).SegmentsInRow = 4
    CType(barCode.Symbology, DataBarGenerator).Type = DataBarType.ExpandedStacked

    Return barCode
End Function