参考

Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = "123ABC你我他"
Dim img As image = bar.GetImage
Dim bmp As new bitmap( img.width+200, img.height)
Dim g = Graphics.FromImage(bmp)
g.DrawImage(img, 0, 0, img.width, img.height) \'在背景离顶部100像素,左边100像素的地方开始绘制第二张图
Dim fnt As New Font("宋体",16)
Dim msg As String = "I Like Foxtable"
g.DrawString(msg,fnt,Brushes.Red,img.width+5,10)
bmp.Save("d:\\test.wmf")
bmp.Dispose()
Dim proc As new Process
proc.file = "d:\\test.wmf"
proc.start