public class IntelligentMailPackageGenerator :
    EAN128Generator

Public Class IntelligentMailPackageGenerator
    Inherits EAN128Generator

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

    // Set the barcode's type to Intelligent Mail Package.
    barCode.Symbology = new IntelligentMailPackageGenerator();

    // Adjust the barcode's main properties.
    barCode.Text = BarCodeText;
    barCode.ShowText = false;
    barCode.WidthF = 300;
    barCode.HeightF = 150f;

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

    // Adjust the property specific to the barcode type.
    // (Assigned below is the default value.)
    ((IntelligentMailPackageGenerator)barCode.Symbology).FNC1Substitute = "#";

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

    ' Set the barcode's type to Intelligent Mail Package.
    barCode.Symbology = New IntelligentMailPackageGenerator()

    ' Adjust the barcode's main properties.
    barCode.Text = BarCodeText
    barCode.ShowText = False
    barCode.WidthF = 300
    barCode.HeightF = 150F

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

    ' Adjust the property specific to the barcode type.
    ' (Assigned below is the default value.)
    CType(barCode.Symbology, IntelligentMailPackageGenerator).FNC1Substitute = "#"

    Return barCode
End Function