How to create and print Avery address labels with USPS OneCode 4-State Customer Barcode (4-CB) in Crystal Reports for .NET Windows Forms

Imports Neodynamic.WinControls.BarcodeProfessional 

using Neodynamic.WinControls.BarcodeProfessional; 

'Create a DataSet from the XML file
'REMEMBER to copy the XML file in the same location of the EXE Program
Dim xmlFile As String = System.IO.Directory.GetCurrentDirectory() & "\AdventureWorksEmployees.xml"
Dim ds As New DataSet
ds.ReadXml(xmlFile)
'The XML File with the data DOES NOT include
'the BarcodeImage "column" or element we've included
'in the XML Schema file.
'So, create the BarcodeImage column
'WARNING: you must name it as you did in the XML Schema
Dim dc As DataColumn = New DataColumn("BarcodeImage", GetType(Byte()))
'Add the BarcodeImage column to the DataTable
ds.Tables(0).Columns.Add(dc)
'Create a BarcodeProfessional object to fill
'the BarcodeImage column
Dim bc As BarcodeProfessional = New BarcodeProfessional
'Use USPS OneCode 4-State Customer Barcode Symbology
bc.Symbology = Symbology.UspsOneCode4CB
'Barcode Dimension Settings (specified in inches)
bc.Postal4StateTrackerBarWidth = 0.02 'a value ranging from 0.015 to 0.025
bc.Postal4StateTrackerBarHeight = 0.06 'a value ranging from 0.04 to 0.08
bc.Postal4StateBarsSpacing = 0.02 'a value ranging from 0.012 to 0.040
bc.QuietZoneWidth = 0
bc.DisplayCode = False
bc.Text = ""

'USPS OneCode tracking code
Dim trackingCode As String = "00123123456123456789" 'Fictitious (See comments at the beginning of this guide)

'Now, generate and fill barcode images
For Each dr As DataRow In ds.Tables(0).Rows
    'Compose USPS OneCode: tracking code + PostalCode column
    bc.Code = trackingCode + CType(dr("PostalCode"), String)
    dr("BarcodeImage") = bc.GetBarcodeImage(System.Drawing.Imaging.ImageFormat.Png)
Next
'Create an AveryMailLabels report object
'and set its data source with the DataSet
Dim report As AveryMailLabels = New AveryMailLabels
report.SetDataSource(ds)
'Show it!
CrystalReportViewer1.ReportSource = report

//Create a DataSet from the XML file
//REMEMBER to copy the XML file in the same location of the EXE Program
string xmlFile = System.IO.Directory.GetCurrentDirectory() + "\\AdventureWorksEmployees.xml";
DataSet ds = new DataSet();
ds.ReadXml(xmlFile);
//The XML File with the data DOES NOT include
//the BarcodeImage "column" or element we've included
//in the XML Schema file.
//So, create the BarcodeImage column
//WARNING: you must name it as you did in the XML Schema
DataColumn dc = new DataColumn("BarcodeImage", typeof(byte[]));
//Add the BarcodeImage column to the DataTable
ds.Tables[0].Columns.Add(dc);
//Create a BarcodeProfessional object to fill
//the BarcodeImage column
BarcodeProfessional bc = new BarcodeProfessional();
//Use USPS OneCode 4-State Customer Barcode Symbology
bc.Symbology = Symbology.UspsOneCode4CB;
//Barcode Dimension Settings (specified in inches)
bc.Postal4StateTrackerBarWidth = 0.02f; //a value ranging from 0.015 to 0.025
bc.Postal4StateTrackerBarHeight = 0.06f; //a value ranging from 0.04 to 0.08
bc.Postal4StateBarsSpacing = 0.02f; //a value ranging from 0.012 to 0.040
bc.QuietZoneWidth = 0;
bc.DisplayCode = false;
bc.Text = "";

//USPS OneCode tracking code
string trackingCode = "00123123456123456789"; //Fictitious (See comments at the beginning of this guide)

//Now, generate and fill barcode images
foreach (DataRow dr in ds.Tables[0].Rows)
{
    //Compose USPS OneCode: tracking code + PostalCode column
    bc.Code = trackingCode + (string)dr["PostalCode"];
    dr["BarcodeImage"] = bc.GetBarcodeImage(System.Drawing.Imaging.ImageFormat.Png);
}
//Create a AveryMailLabels report object
//and set its data source with the DataSet
AveryMailLabels report = new AveryMailLabels();
report.SetDataSource(ds);
//Show it!
crystalReportViewer1.ReportSource = report;