prova questo
'**************************************
' Name: QR Codes with QRCodeLib.dll
' Description:Simple way to create QR Codes using QRCodeLib.dll. you can download the file at http://www.sait.com.mx/download/qrcodelib.dll. This code was posted by Juan Gilberto (thanks to him) and I want to share it here. Enjoy!
' By: Iwe
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=75606&lngWId=1'for details.'**************************************
Enum TQRCodeEncoding
ceALPHA
ceBYTE
ceNUMERIC
ceKANJI
ceAUTO
End Enum
Enum TQRCodeECLevel
LEVEL_L
LEVEL_M
LEVEL_Q
LEVEL_H
End Enum
Private Declare Sub FullQRCode Lib "QRCodeLib.dll" _
(ByVal autoConfigurate As Boolean, _
ByVal AutoFit As Boolean, _
ByVal backColor As Long, _
ByVal barColor As Long, _
ByVal Texto As String, _
ByVal correctionLevel As TQRCodeECLevel, _
ByVal encoding As TQRCodeEncoding, _
ByVal marginpixels As Integer, _
ByVal moduleWidth As Integer, _
ByVal Height As Integer, _
ByVal Width As Integer, _
ByVal FileName As String)
Private Declare Sub FastQRCode Lib "QRCodeLib.dll" _
(ByVal Texto As String, _
ByVal FileName As String)
Private Declare Function QRCodeLibVer Lib "QRCodeLib.dll" () As String
Private Sub Command1_Click()
Dim sFile As String
sFile = "C:\Tmp\QRCode.bmp"
FastQRCode Text1.Text, sFile
Set Picture1.Picture = LoadPicture(sFile)
End Sub