Private Sub Command1_Click() Dim QR As clsQRCode Set QR = New clsQRCode
regasm /codebase QrCodeNet.dll