Set 2 Captions for Barcode | VBScriptByteScout Barcode SDK

Set 2 Captions for Barcode | VBScript

HelloWorld.vbs:

VB
Set bc = CreateObject("Bytescout.BarCode.Barcode")

' set symbology to Code39
bc.Symbology = 1 ' 1 = Code39 symbology type

' set barcode value to encode
bc.Value = "012345" 

bc.AdditionalCaption = "2nd caption"

bc.SaveImage "Code39.png"

' Open the output file in default app
Set shell = CreateObject("WScript.Shell")
shell.Run "code39.png", 1, false
Set shell = Nothing


Set bc = Nothing