主题：求助！如何使条形码生成的图片上面为数据内容下面位条形码，如附件示图

If e.Book.TempLate = "滤波器终检FQC检验清单" Then

    If e.region = "滤波器订单执行统计表" Then

        If e.DataRow Is Nothing OrElse e.DataRow.IsNull("晨信工单") Then '如果是空行或者Lot列为空

            Dim img As New System.Drawing.Bitmap(1,1) '生成一个空白图片

            img.Save(ProjectPath & "Images\BarCode3.gif")

        Else '否则生成条形码图片

            Dim Bar As New BarCodeBuilder

            Bar.Symbology = Barpro.Symbology.Code128

            Bar.Code = e.DataRow("晨信工单")

            Bar.BarRatio = 0.3

            Bar.BarHeight = 8

            bar.SaveImage(ProjectPath & "Images\BarCode3.gif",300)

        End If

    End If

End If

上面是原始报表事件中的内容！请问如何修改？