USING ThoughtWorks.QRCode.Codec.*.
USING System.Drawing.*.
DEFINE VARIABLE oEncoder AS ThoughtWorks.QRCode.Codec.QRCodeEncoder NO-UNDO.
DEFINE VARIABLE oImage AS System.Drawing.Image NO-UNDO.
oEncoder = NEW QRCodeEncoder().
oEncoder:QRCodeVersion = 0.
oImage = oEncoder:Encode("Progress Talk has always an answer").
oImage:Save("c:\temp\qrProgressTalk.gif",System.Drawing.Imaging.ImageFormat:Gif).