SET PATH TO BARCODE\FoxBarcode\Source SET PROCEDURE TO FoxBarcode.prg ADDITIVE SET PROCEDURE TO gpImage2.prg ADDITIVE *-- Create object loFbc = CREATEOBJECT("FoxBarcode") *-- Set the properties WITH loFbc .cImageType = "PNG" .nBarcodeType = 110 && Code 128 .cSet128 = "C" && Set 128 C .nImageHeight = 100 .nFactor = 2 ENDWITH *-- Generate image lcImagen = loFbc.BarcodeImage("123456789012")