'Dim bar As BarCode128
Set bar = CreateObject("Keysystems.Barcodes.BarCode128")
bar.Text = "1234567890"
bar.PhysicalHeight = 10
bar.PhysicalWidth = 100
bar.SaveImage "C:\test.bmp", BarCodeImageFormat_Bmp