主题：如何不显示条码文本

老师：请问如何不显示条码下面的文本

If e.Book.TempLate = "冲压外箱条码生成" Then
    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\myfox3.gif",300)
End If

多谢！