โค้ดสแกน QR Code ช่วยทำให้เป็นภาษา VB 6.0 ให้ทีค่ะ มันใส่แล้วขึ้นตัวแดง ไม่รู้ต้องปรับยังไงให้เข้ากับ VB 6.0 ค่ะ

QRCodeEncoder qrCodeEncoder = new QRCodeEncoder();
           String encoding = cboEncoding.Text ;
           if (encoding == "Byte") {
               qrCodeEncoder.QRCodeEncodeMode = QRCodeEncoder.ENCODE_MODE.BYTE;
           } else if (encoding == "AlphaNumeric") {
               qrCodeEncoder.QRCodeEncodeMode = QRCodeEncoder.ENCODE_MODE.ALPHA_NUMERIC;            
           } else if (encoding == "Numeric") {
               qrCodeEncoder.QRCodeEncodeMode = QRCodeEncoder.ENCODE_MODE.NUMERIC;            
           }
           try {
               int scale = Convert.ToInt16(txtSize.Text);
               qrCodeEncoder.QRCodeScale = scale;
           } catch (Exception ex) {
               MessageBox.Show("Invalid size!");
               return;
           }
           try {
               int version = Convert.ToInt16(cboVersion.Text) ;
               qrCodeEncoder.QRCodeVersion = version;
           } catch (Exception ex) {
               MessageBox.Show("Invalid version !");
           }

           string errorCorrect = cboCorrectionLevel.Text;
           if (errorCorrect == "L")
               qrCodeEncoder.QRCodeErrorCorrect = QRCodeEncoder.ERROR_CORRECTION.L;
           else if (errorCorrect == "M")
               qrCodeEncoder.QRCodeErrorCorrect = QRCodeEncoder.ERROR_CORRECTION.M;
           else if (errorCorrect == "Q")
               qrCodeEncoder.QRCodeErrorCorrect = QRCodeEncoder.ERROR_CORRECTION.Q;
           else if (errorCorrect == "H")
               qrCodeEncoder.QRCodeErrorCorrect = QRCodeEncoder.ERROR_CORRECTION.H;

           Image image;
           String data = txtEncodeData.Text;
           image = qrCodeEncoder.Encode(data);                      
           picEncode.Image = image;