QR코드 개체 이름ㄹ이 대소문자만 다른 형태로 되어있었음 (이것이 오류였어야 하는데; 기존 동작 방식을 모르겠다. C#이었다면 대소문자 구분으로 진행되었는데. 비베는 이것이 오류로 인지됨..

기존이름에서 1을 붙인걸로 변경했다.

CEpole.vbproj

@@ -67,10 +67,6 @@
     <Reference Include="System.Drawing" />
     <Reference Include="System.Windows.Forms" />
     <Reference Include="System.Xml" />
-    <Reference Include="ThoughtWorks.QRCode, Version=1.0.6592.41455, Culture=neutral, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\ThoughtWorks.QRCode\QRCodeLib\ThoughtWorks.QRCode.dll</HintPath>
-    </Reference>
   </ItemGroup>
   <ItemGroup>
     <Import Include="Microsoft.VisualBasic" />
@@ -237,13 +233,17 @@
     <Folder Include="코드백업\" />
   </ItemGroup>
   <ItemGroup>
+    <ProjectReference Include="..\ArinClassV2\ArinClassV2\ArinClassV2.vbproj">
+      <Project>{FC8D5F6B-9892-48A4-BD90-4FA6F427567C}</Project>
+      <Name>ArinClassV2</Name>
+    </ProjectReference>
     <ProjectReference Include="..\ArinNewFp5_Net4\ArinNewFp\ArinNewFp5Net4.vbproj">
       <Project>{3611D55B-71E3-4D92-9EFC-43F7D8BB8525}</Project>
       <Name>ArinNewFp5Net4</Name>
     </ProjectReference>
-    <ProjectReference Include="..\ArinClassV2\ArinClassV2\ArinClassV2.vbproj">
-      <Project>{FC8D5F6B-9892-48A4-BD90-4FA6F427567C}</Project>
-      <Name>ArinClassV2</Name>
+    <ProjectReference Include="..\QRCodeLib\QRCodeLib.csproj">
+      <Project>{e98126b2-af17-4783-96b9-856d6744dca3}</Project>
+      <Name>QRCodeLib</Name>
     </ProjectReference>
   </ItemGroup>
   <Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />

Defalut_PrintForm.vb

@@ -4,12 +4,6 @@ Imports System.IO
 Imports System.Drawing.Printing
 Imports CEpole.C_Epole
 
-Imports ThoughtWorks.QRCode.Codec '//QR코드
-Imports ThoughtWorks.QRCode.Codec.Util
-Imports ThoughtWorks.QRCode.Codec.Data
-
-
-
 Public Class Defalut_PrintForm
 
     Dim 행정도시 As String = ""
@@ -1706,14 +1700,14 @@ Public Class Defalut_PrintForm
                     Dim image As Image
                     Dim data As String = ""
                     ' Dim errorCorrect As String
-                    Dim qrCodeEncoder As New QRCodeEncoder()
+                    Dim qrCodeEncoder1 As New ThoughtWorks.QRCode.Codec.QRCodeEncoder()
                     ' Dim encoding As String
 
 
-                    qrCodeEncoder.QRCodeEncodeMode = CInt(Rect.Encoding)
-                    qrCodeEncoder.QRCodeErrorCorrect = CInt(Rect.CLeve)
-                    qrCodeEncoder.QRCodeVersion = Rect.Version
-                    qrCodeEncoder.QRCodeScale = Rect.Size
+                    qrCodeEncoder1.QRCodeEncodeMode = CInt(Rect.Encoding)
+                    qrCodeEncoder1.QRCodeErrorCorrect = CInt(Rect.CLeve)
+                    qrCodeEncoder1.QRCodeVersion = Rect.Version
+                    qrCodeEncoder1.QRCodeScale = Rect.Size
 
                     'encoding = "3"
                     'If encoding = "3" Then
@@ -1756,9 +1750,9 @@ Public Class Defalut_PrintForm
 
                         'Ga.DrawString(QRCODE, New Font("arial", 30), Brushes.Black, 100, 100)
 
-                        qrCodeEncoder.QRCodeBackgroundColor = Rect.bColor
-                        qrCodeEncoder.QRCodeForegroundColor = Rect.fColor
-                        image = qrCodeEncoder.Encode(PrintQRCODE, Ga.DpiX, Ga.DpiY)
+                        qrCodeEncoder1.QRCodeBackgroundColor = Rect.bColor
+                        qrCodeEncoder1.QRCodeForegroundColor = Rect.fColor
+                        image = qrCodeEncoder1.Encode(PrintQRCODE, Ga.DpiX, Ga.DpiY)
 
 
                         Dim NewSX As Single = Rect.X
@@ -1780,8 +1774,6 @@ Public Class Defalut_PrintForm
                             NewSY += +SetForm.MyProperty_Paper.출력여백Y
                         End If
 
-
-
                         If Rect.Width = 0 OrElse Rect.Height = 0 Then
                             Ga.DrawImage(image, NewSX, NewSY)
                         Else