(Do not assume availability of a specific third-party product without checking licensing and support.)
Private Sub GenerateQRCode() Dim qrGenerator As New QRCode.QRCode Dim qrCode As New QRCode.QRCodeImage
Private Sub DrawTimingPattern(ByRef qr As QRMatrix) Dim i As Integer
It handles many different barcode types (not just QR) and offers extensive support for sizing, colors, and different output formats (PNG, EMF, etc.).