主题：二维码图片不能显示

Dim mg As String = ProjectPath & "Images\二维码.wmf" '约定的图片文件
Dim r As Row = Tables("收款明细表").Current
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = "债权人:" & r("债权人") & vbcrlf & "借款日期:" & r("借款日期")
bar.SaveImage(mg,300)
Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pic.Image = getimage(ProjectPath & "Images\二维码.wmf" )

pic.SizeMode = ImageSizeMode.Zoom

Dim DoC As PrintDoc = e.Form.Gernateprintdoc()

Doc.Print