在VB（Visual Basic）中生成二维码可以通过以下几种方法实现：
方法一：使用第三方库
安装ZXing.Net库
通过NuGet包管理器安装ZXing.Net库。在Visual Studio中，右键单击项目 -> 选择“管理NuGet程序包” -> 搜索“ZXing.Net”并安装。
编写VB代码生成QR二维码
导入必要的命名空间：
```vb
Imports ZXingImports ZXing.CommonImports System.Drawing
```
创建一个函数来生成QR二维码：
```vb
Function GenerateQRCode（ByVal content As String, ByVal width As Integer, ByVal height As Integer） As Image
Dim qrCodeWriter As New BarcodeWriter（）
qrCodeWriter.Format = BarcodeFormat.QR_CODE
qrCodeWriter.Options = New QrCodeEncodingOptions With { .Width = width, .Height = height, .Margin = 1 }
Dim barcodeBitmap As Bitmap = qrCodeWriter.Write（content）
Return barcodeBitmap
End Function
```
调用该函数生成二维码并返回图片对象。
方法二：使用VB6和QRMaker控件
注册QRMaker控件
解压QRMaker.ocx文件，并在Visual Basic 6.0中注册该控件：
```
Regsvr32 "path\to\Qrmaker.ocx"
```
编写VB6代码生成二维码
示例代码如下：
```vb
' 引入QRMaker控件
Dim qrMaker As Object
Set qrMaker = CreateObject（"QRCodeLib.QRCode"）
' 设置二维码内容
qrMaker.Data = "你要生成的二维码内容"
' 设置二维码模块大小和编码格式
qrMaker.ModuleSize = 4
qrMaker.Encoding = qrEncoding.qrEncUTF8
' 生成二维码并保存为图片
Dim filePath As String
filePath = ThisWorkbook.Path & "\QR_" & Now.ToString（） & ".png"
qrMaker.SaveImage filePath
```
方法三：使用PDF417二维码库
引入PDF417库
需要引入MakePDF417.dll动态库，并声明相关函数。
编写VB代码生成PDF417二维码
示例代码如下：
```vb
' 引入MakePDF417库
Private Declare Sub SetColorDepth Lib "MakePDF417.dll" （ByRef nDepth As Integer）
Private Declare Sub GetColorDepth Lib "MakePDF417.dll" （）
Private Declare Sub MixText Lib "MakePDF417.dll" （ByRef bmp As Bitmap）
' 生成PDF417二维码
Function GeneratePDF417Code（ByVal text As String, ByVal outputPath As String） As Boolean
' 实现生成PDF417二维码的代码
' 返回True表示成功，False表示失败
End Function
```
建议
选择合适的方法：根据你的项目需求和熟悉程度选择合适的方法。如果需要生成简单的二维码，可以使用第三方库如ZXing.Net；如果需要更复杂的二维码生成功能，可以考虑使用PDF417库或VB6配合QRMaker控件。
处理错误和优化：在实际开发中，需要处理可能出现的错误，并优化用户界面和程序性能。
适应不同需求：考虑如何适应不同的打印机和纸张大小，以确保生成的二维码在不同场景下都能正常显示和使用。