' Display in picture box Picture1.Picture = LoadPicture(App.Path & "\qrcode.bmp") End Sub Implementation Private Sub GenerateGoogleQR() Dim strURL As String Dim strData As String Dim http As Object ' URL encode the data strData = URLEncode(Text1.Text)
Need help with any specific method or troubleshooting? qr code in vb6
Private Sub DrawQRCode(qr As QRCodeMatrix, picBox As PictureBox, scale As Integer) Dim x As Integer, y As Integer ' Display in picture box Picture1