当你装了office2000之后，就可以在VB中添加一个msbcode9.ocx的控件，其中有一个BarCodeCtrl控件可以生成条形码
Code-39 条形码符号
可以表示出英文数字和字母的条形码符号。从 FA（Factory Automation ，工厂自动化）开始，被广泛的应用在工业上。
由于 Code-39 条形码符号的长度可变，所以对数据的字节数并没有限制。Code-128 条形码符号
可以表示出英文数字和字母的条形码符号。可将包括数字、标点符号、英文字母（大写与小写）在内的所有 128 个 ASCII 字节加以编码。而且，在符号太长的时候还可以加以封装。
具体的使用方法很简单:
只需将控件的style设为6或7
6 - Code-39 表示出英文数字和字母的条形码符号。自 FA（Factory Automation ，工厂自动化）起，被广泛地应用在工业上。
7 - Code-128 将全部 ASCII 的 128 个字节编码的条形码控件。也有简短版。
然后将控件的Value设为你要的条码就会生成一个条码了。
Code-39 条形码符号
可以表示出英文数字和字母的条形码符号。从 FA（Factory Automation ，工厂自动化）开始，被广泛的应用在工业上。
由于 Code-39 条形码符号的长度可变，所以对数据的字节数并没有限制。Code-128 条形码符号
可以表示出英文数字和字母的条形码符号。可将包括数字、标点符号、英文字母（大写与小写）在内的所有 128 个 ASCII 字节加以编码。而且，在符号太长的时候还可以加以封装。
具体的使用方法很简单:
只需将控件的style设为6或7
6 - Code-39 表示出英文数字和字母的条形码符号。自 FA（Factory Automation ，工厂自动化）起，被广泛地应用在工业上。
7 - Code-128 将全部 ASCII 的 128 个字节编码的条形码控件。也有简短版。
然后将控件的Value设为你要的条码就会生成一个条码了。
补充一点：我原先用Office2k的这个控件时，发现只能显示，不能打印。
要打印该图象，除了PrintForm方法（不太好）之外，还可以用BitBlt方法，具体实现代码，请搜索我这三天之内回复的帖子（关键字BitBlt）,关于打印整个窗体图象的。你把区域定在该控件所在的区域即可。
如果要打印就直接下载BCODE的字体文件嘛