主题：请问能咋qr代码里加入图片么？

Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.QRCode
    'Bar.BarRatio = 0.8
    'Bar.BarWidth = 1
    'Bar.BarHeight = 1
    Bar.QuietZoneWidth = 2
   
For Each r As DataRow In DataTables("案卷库").Select("文件件数> 0")   '从数据表中提取数据
        bar.Code = "(1)案卷题名:" & r("题名")
               Dim fn As String = ""
                       fn = r("档号")
        

想在上面黄色背景的代码里加入图片，不是图片链接，可以实现么？

                       '