Lotus Domino, LotusScript - Barcodes in projects

Using the barcode control in a LotusScript agent

This is a script example to run under IBM's Lotus Domino as a LotusScript agent:

Option Public
Option Declare

Sub Initialize()
	Dim MyObject As variant
	Set MyObject = CreateObject("BARCODE.BarcodeCtrl.1")
	MyObject.text = "Example"
	MyObject.typename = "Code 128"
	MyObject.SaveAsBySize "c:\example.bmp", 400, 100
End Sub