public class PDF417Generator :
    BarCode2DGenerator

Public Class PDF417Generator
    Inherits BarCode2DGenerator

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

    // Set the barcode's type to PDF417.
    barCode.Symbology = new PDF417Generator();

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

    // If the AutoModule property is set to false, uncomment the next line.
    barCode.AutoModule = true;
    //barcode.Module = 3;

    // Adjust the properties specific to the barcode type.
    ((PDF417Generator)barCode.Symbology).Columns = 1;
    ((PDF417Generator)barCode.Symbology).CompactionMode = PDF417CompactionMode.Text;
    ((PDF417Generator)barCode.Symbology).ErrorCorrectionLevel = ErrorCorrectionLevel.Level2;
    ((PDF417Generator)barCode.Symbology).Rows = 9;
    ((PDF417Generator)barCode.Symbology).TruncateSymbol = false;
    ((PDF417Generator)barCode.Symbology).YToXRatio = 3;

    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 CreatePDF417BarCode(ByVal BarCodeText As String) As XRBarCode
    ' Create a barcode control.
    Dim barCode As New XRBarCode()

    ' Set the barcode's type to PDF417.
    barCode.Symbology = New PDF417Generator()

    ' Adjust the barcode's main properties.
    barCode.Text = BarCodeText
    barCode.Width = 400
    barCode.Height = 150

    ' If the AutoModule property is set to false, uncomment the next line.
    barCode.AutoModule = True
    'barcode.Module = 3;

    ' Adjust the properties specific to the barcode type.
    CType(barCode.Symbology, PDF417Generator).Columns = 1
    CType(barCode.Symbology, PDF417Generator).CompactionMode = PDF417CompactionMode.Text
    CType(barCode.Symbology, PDF417Generator).ErrorCorrectionLevel = ErrorCorrectionLevel.Level2
    CType(barCode.Symbology, PDF417Generator).Rows = 9
    CType(barCode.Symbology, PDF417Generator).TruncateSymbol = False
    CType(barCode.Symbology, PDF417Generator).YToXRatio = 3

    Return barCode
End Function