Code - Vb6 Qr Code Generator Source

behind the QR code encoding process within that pure VB6 module?

Private Sub OverlayLogo(ByRef qrPic As PictureBox, ByVal logoPath As String) Dim logo As StdPicture Set logo = LoadPicture(logoPath) Dim x As Integer, y As Integer x = (qrPic.Width - logo.Width) / 2 y = (qrPic.Height - logo.Height) / 2 qrPic.PaintPicture logo, x, y End Sub vb6 qr code generator source code