How to Generate UPC-A in C# and VB.NET

using System;
using System.Drawing;
using System.Drawing.Imaging;
using PQScan.BarcodeCreator;

namespaceUPCAGeneratorInCSharp
{
    classProgram
    {
        staticvoid Main(string[] args)
        {
            //Create an instance of PQScan.BarcodeCreator.Barcode object.
            Barcode upca = new Barcode();
            //Set barcode date to encode
            upca.Data = "123456789012";
            //Set barcode type
            upca.BarType = BarCodeType.UPCA;
            //Set barcode image width
            upca.Width = 300;
            //Set barcode image height
            upca.Height = 100;
            //Set 1d barcode human-readable text to display
            upca.ShowText = true;
            //Set barcode image fore groud color
            upca.BarcodeColor = Color.Black;
            //Set barcode image back ground color
            upca.BackgroundColor = Color.White;
            //Set barcode image format
            upca.PictureFormat = ImageFormat.Png;
            //Save barcode image to file
            upca.CreateBarcode("upca-csharp.png");
        }
    }
}

Imports System.Drawing
Imports System.Drawing.Imaging
Imports PQScan.BarcodeCreator

Namespace UPCAGeneratorInVB
    Class Program
        Private Shared Sub Main(args As String())

            'Create an instance of PQScan.BarcodeCreator.Barcode object.
            Dim upca As New Barcode()
            'Set barcode date to encode
            upca.Data = "123456789012"
            'Set barcode type
            upca.BarType = BarCodeType.UPCA
            'Set barcode image width
            upca.Width = 300
            'Set barcode image height
            upca.Height = 100
            'Set 1d barcode human-readable text to display
            upca.ShowText = True
            'Set barcode image fore groud color
            upca.BarcodeColor = Color.Black
            'Set barcode image back ground color
            upca.BackgroundColor = Color.White
            'Set barcode image format
            upca.PictureFormat = ImageFormat.Png
            'Save barcode image to file
            upca.CreateBarcode("upca-vb.png")
        End Sub
    End Class
End Namespace