93条码和CODE39一样，起始符和结束符都是*号，你做的条码扫描不出来的原因，估计和校验码有关。93条码规定在数据的最后有两个校验位C和K，如果你的数据里没有生成这两个校验位，那肯定是无法扫描的。
创新互联建站-专业网站定制、快速模板网站建设、高性价比河西网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式河西网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖河西地区。费用合理售后完善，10多年实体公司更值得信赖。
这个要看扫描枪的通讯接口和通讯协议，以及接口程序是否支持VB.NET等。
工具箱，然后随便选择一项，右键 选择项，在.com控件里，microsoft bar ctrol 9.0
很简单。只需要安装Code39字体，或者加载到系统中就可以。
报表设置该字体自然就表示成条形码了。
Code39字体从网上搜索能搜索到。
21×21mm。vb.netqrcode表示二维码的版本号，生成二维码尺寸大小为21×21mm。二维码又称二维条码，常见的二维码为QRCode，QR全称QuickResponse，是一种编码方式。
如果要生成条形码，
1、首先需要确定编码方式，一般企业用code128的编码
2、然后找到对应编码的字库并安装,code128有字库（在字库网下载，百度搜一下code128.ttf文件，其他的编码方式用其他的文件，如果没有，那就得自己0101的绘制黑白线了哦），下载字体文件后将其放入系统字体目录（一般是C:\window\font）
3、然后再有一个转换过程[PrintCodeStr = Convert(CodeStr)] 其中Codestr是要生成的条码字符串
4、然后直接调用条码字体（如code128）在图像组件上输出字符转PrintCodeStr。
5、所以问题的关键在于转换函数Convert，不同的编码可能实现不一样，有的可能不需要转换
code128的转换函数如下：(vs2010代码)
Public Shared Function StringToCode128(ByVal input As String) As String
Try
Dim endchar As Char
Dim total As Int64 = 104
Dim tmp As Integer
For i As Int16 = 1 To input.Length
tmp = Asc(input.Substring(i - 1, 1))
If tmp = 32 Then
total += (tmp - 32) * i
Else
total += (tmp + 64) * i
End If
Next
Dim endAsc = total Mod 103
If endAsc = 95 Then
Select Case endAsc
Case 95
endchar = "Ã"
Case 96
endchar = "Ä"
Case 97
endchar = "Å"
Case 98
endchar = "Æ"
Case 99
endchar = "Ç"
Case 100
endchar = "È"
Case 101
endchar = "É"
Case 102
endchar = "Ê"
End Select
Else
endAsc += 32
endchar = Chr(endAsc)
End If
Return "Ì" input endchar.ToString() "Î"
Catch ex As Exception
'WriteLog(ex.Message, ex.StackTrace)
Return String.Empty
Finally
End Try
End Function
绘制条码函数：
Public Shared Function DrawBarcode(ByVal Code As String) As Bitmap
Dim bm As New Bitmap(400, 100)
Dim g As Graphics = Graphics.FromImage(bm)
Dim f As New Font("Code 128", 12, FontStyle.Regular, GraphicsUnit.Millimeter, 0)
g.DrawString(StringToCode128(Code), f, Brushes.Black, -16, 0)
g.FillRectangle(Brushes.White, 0, 22, 400, 100)
f = New Font("Arial", 12, FontStyle.Bold, GraphicsUnit.Pixel, 0)
g.DrawString(Code, f, Brushes.Black, 0, 21)
Return bm
End Function