20230429備份

HX-PGS-UPDATE/HX-PGS-UPDATE.Designer.vb

@@ -72,12 +72,11 @@ Partial Class HX_PGS_UPDATE
         '
         '伺服器區域_cb
         '
-        Me.伺服器區域_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.伺服器區域_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.伺服器區域_cb.ForeColor = System.Drawing.Color.Blue
         Me.伺服器區域_cb.FormattingEnabled = True
         Me.伺服器區域_cb.Items.AddRange(New Object() {"印尼外網", "測試雲端", "公司雲端"})
-        Me.伺服器區域_cb.Location = New System.Drawing.Point(189, 82)
+        Me.伺服器區域_cb.Location = New System.Drawing.Point(425, 71)
         Me.伺服器區域_cb.Name = "伺服器區域_cb"
         Me.伺服器區域_cb.Size = New System.Drawing.Size(102, 24)
         Me.伺服器區域_cb.TabIndex = 631
@@ -141,7 +140,7 @@ Partial Class HX_PGS_UPDATE
         'CheckBox1
         '
         Me.CheckBox1.AutoSize = True
-        Me.CheckBox1.Location = New System.Drawing.Point(16, 57)
+        Me.CheckBox1.Location = New System.Drawing.Point(9, 51)
         Me.CheckBox1.Name = "CheckBox1"
         Me.CheckBox1.Size = New System.Drawing.Size(40, 20)
         Me.CheckBox1.TabIndex = 638
@@ -151,7 +150,7 @@ Partial Class HX_PGS_UPDATE
         'CheckBox2
         '
         Me.CheckBox2.AutoSize = True
-        Me.CheckBox2.Location = New System.Drawing.Point(62, 57)
+        Me.CheckBox2.Location = New System.Drawing.Point(57, 51)
         Me.CheckBox2.Name = "CheckBox2"
         Me.CheckBox2.Size = New System.Drawing.Size(40, 20)
         Me.CheckBox2.TabIndex = 639
@@ -161,7 +160,7 @@ Partial Class HX_PGS_UPDATE
         'CheckBox3
         '
         Me.CheckBox3.AutoSize = True
-        Me.CheckBox3.Location = New System.Drawing.Point(108, 57)
+        Me.CheckBox3.Location = New System.Drawing.Point(105, 51)
         Me.CheckBox3.Name = "CheckBox3"
         Me.CheckBox3.Size = New System.Drawing.Size(40, 20)
         Me.CheckBox3.TabIndex = 640
@@ -171,7 +170,7 @@ Partial Class HX_PGS_UPDATE
         'CheckBox4
         '
         Me.CheckBox4.AutoSize = True
-        Me.CheckBox4.Location = New System.Drawing.Point(154, 57)
+        Me.CheckBox4.Location = New System.Drawing.Point(153, 51)
         Me.CheckBox4.Name = "CheckBox4"
         Me.CheckBox4.Size = New System.Drawing.Size(40, 20)
         Me.CheckBox4.TabIndex = 641
@@ -181,7 +180,7 @@ Partial Class HX_PGS_UPDATE
         'CheckBox5
         '
         Me.CheckBox5.AutoSize = True
-        Me.CheckBox5.Location = New System.Drawing.Point(200, 57)
+        Me.CheckBox5.Location = New System.Drawing.Point(201, 51)
         Me.CheckBox5.Name = "CheckBox5"
         Me.CheckBox5.Size = New System.Drawing.Size(40, 20)
         Me.CheckBox5.TabIndex = 642
@@ -191,7 +190,7 @@ Partial Class HX_PGS_UPDATE
         'CheckBox6
         '
         Me.CheckBox6.AutoSize = True
-        Me.CheckBox6.Location = New System.Drawing.Point(246, 57)
+        Me.CheckBox6.Location = New System.Drawing.Point(249, 51)
         Me.CheckBox6.Name = "CheckBox6"
         Me.CheckBox6.Size = New System.Drawing.Size(40, 20)
         Me.CheckBox6.TabIndex = 643
@@ -201,7 +200,7 @@ Partial Class HX_PGS_UPDATE
         'CheckBox7
         '
         Me.CheckBox7.AutoSize = True
-        Me.CheckBox7.Location = New System.Drawing.Point(292, 57)
+        Me.CheckBox7.Location = New System.Drawing.Point(295, 51)
         Me.CheckBox7.Name = "CheckBox7"
         Me.CheckBox7.Size = New System.Drawing.Size(40, 20)
         Me.CheckBox7.TabIndex = 644
@@ -211,7 +210,7 @@ Partial Class HX_PGS_UPDATE
         'CheckBox8
         '
         Me.CheckBox8.AutoSize = True
-        Me.CheckBox8.Location = New System.Drawing.Point(338, 57)
+        Me.CheckBox8.Location = New System.Drawing.Point(342, 51)
         Me.CheckBox8.Name = "CheckBox8"
         Me.CheckBox8.Size = New System.Drawing.Size(40, 20)
         Me.CheckBox8.TabIndex = 645
@@ -221,7 +220,7 @@ Partial Class HX_PGS_UPDATE
         'CheckBox9
         '
         Me.CheckBox9.AutoSize = True
-        Me.CheckBox9.Location = New System.Drawing.Point(384, 57)
+        Me.CheckBox9.Location = New System.Drawing.Point(390, 51)
         Me.CheckBox9.Name = "CheckBox9"
         Me.CheckBox9.Size = New System.Drawing.Size(40, 20)
         Me.CheckBox9.TabIndex = 646
@@ -231,7 +230,7 @@ Partial Class HX_PGS_UPDATE
         'CheckBox10
         '
         Me.CheckBox10.AutoSize = True
-        Me.CheckBox10.Location = New System.Drawing.Point(430, 57)
+        Me.CheckBox10.Location = New System.Drawing.Point(438, 51)
         Me.CheckBox10.Name = "CheckBox10"
         Me.CheckBox10.Size = New System.Drawing.Size(47, 20)
         Me.CheckBox10.TabIndex = 647
@@ -241,7 +240,7 @@ Partial Class HX_PGS_UPDATE
         'CheckBox11
         '
         Me.CheckBox11.AutoSize = True
-        Me.CheckBox11.Location = New System.Drawing.Point(476, 57)
+        Me.CheckBox11.Location = New System.Drawing.Point(493, 51)
         Me.CheckBox11.Name = "CheckBox11"
         Me.CheckBox11.Size = New System.Drawing.Size(43, 20)
         Me.CheckBox11.TabIndex = 648
@@ -251,7 +250,7 @@ Partial Class HX_PGS_UPDATE
         '小更新_ch
         '
         Me.小更新_ch.AutoSize = True
-        Me.小更新_ch.Location = New System.Drawing.Point(16, 82)
+        Me.小更新_ch.Location = New System.Drawing.Point(4, 74)
         Me.小更新_ch.Name = "小更新_ch"
         Me.小更新_ch.Size = New System.Drawing.Size(62, 20)
         Me.小更新_ch.TabIndex = 649
@@ -261,7 +260,7 @@ Partial Class HX_PGS_UPDATE
         '中更新_ch
         '
         Me.中更新_ch.AutoSize = True
-        Me.中更新_ch.Location = New System.Drawing.Point(16, 108)
+        Me.中更新_ch.Location = New System.Drawing.Point(72, 74)
         Me.中更新_ch.Name = "中更新_ch"
         Me.中更新_ch.Size = New System.Drawing.Size(62, 20)
         Me.中更新_ch.TabIndex = 650
@@ -271,7 +270,7 @@ Partial Class HX_PGS_UPDATE
         '大更新_ch
         '
         Me.大更新_ch.AutoSize = True
-        Me.大更新_ch.Location = New System.Drawing.Point(16, 134)
+        Me.大更新_ch.Location = New System.Drawing.Point(140, 74)
         Me.大更新_ch.Name = "大更新_ch"
         Me.大更新_ch.Size = New System.Drawing.Size(62, 20)
         Me.大更新_ch.TabIndex = 651
@@ -294,7 +293,7 @@ Partial Class HX_PGS_UPDATE
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(542, 50)
+        Me.ClientSize = New System.Drawing.Size(542, 71)
         Me.ControlBox = False
         Me.Controls.Add(Me.大更新_ch)
         Me.Controls.Add(Me.中更新_ch)

HX-PGS-UPDATE/HX-PGS-UPDATE.vb

@@ -9,6 +9,7 @@ Public Class HX_PGS_UPDATE
     Dim myIPEndPoint As IPEndPoint
     Dim 內網線路, 開發線路, 刪除完成, OK1, OK2, OK3, OK4, OK5, OK6, OK7, OK8, OK9, OK10 As Boolean
     Dim Str As String = Application.StartupPath
+    Dim TF As String
     Private Sub Set_清單1()
         ftp清單_dgv.DataSource = Nothing : ds2.Clear()
         ftp清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -18,10 +19,6 @@ Public Class HX_PGS_UPDATE
         da.Fill(ds2) : ftp清單_dgv.DataSource = ds2.Tables(0) : conn.Close()
     End Sub
     Private Sub IP比對()
-        '-----------------------IP比對----------------------------------------------------------------------------------------------------------------------------------------------------
-        伺服器區域_cb.Text = "公司雲端"
-    End Sub
-    Private Sub 伺服器區域_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 伺服器區域_cb.SelectedIndexChanged
         '-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
         If SQL_連線狀態模組2.ConnectTest2("192.168.0.201,2433") = True Then
             登入人IP = "192.168.0.201,2433"
@@ -29,17 +26,17 @@ Public Class HX_PGS_UPDATE
             If SQL_連線狀態模組1.ConnectTest1("103.231.201.230,2433") = True Then
                 登入人IP = "103.231.201.230,2433"
             Else
-                登入人IP = "103.144.143.182,2433"
+                線路選擇.ShowDialog()
             End If
         End If
     End Sub
     Private Sub HX_PGS_UPDATE_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        IP比對() : 資料數 = 78
-        If Strings.Left(伺服器區域_cb.Text, 2) = "公司" Then : SQL_連線字串_正式() : Else : SQL_連線字串_測試() : End If
-        If 登入人IP = "192.168.0.201,2433" Then : Target = "ftp://192.168.0.201:2121/"
-        ElseIf 登入人IP = "103.231.201.230,2433" Then : Target = "ftp://103.231.201.230:2121/"
-        ElseIf 登入人IP = "103.144.143.182,2433" Then : Target = "ftp://103.144.143.182:2121/"
-        End If : FTP帳號 = "" : FTP密碼 = "" : FTP物理位置 = "C:\FTP\HXPGS\"
+        IP比對()
+        If 登入人IP = "192.168.0.201,2433" Then : Target = "ftp://192.168.0.201:2121/" : FTP物理位置 = "C:\FTP\HXPGS\" : TF = "192-SQL-"
+        ElseIf 登入人IP = "103.231.201.230,2433" Then : Target = "ftp://103.231.201.230:2121/" : FTP物理位置 = "C:\FTP\HXPGS\" : TF = "231-SQL-"
+        ElseIf 登入人IP = "103.144.143.182,2433" Then : Target = "ftp://103.144.143.182:2121/" : FTP物理位置 = "C:\FTP\HXPGS\" : TF = "144-SQL-"
+        ElseIf 登入人IP = "106.1.48.106,4567" Then : Target = "ftp://106.1.48.106:2121/HXPGS/" : FTP物理位置 = "D:\FTP\HXPGS\" : TF = "106-SQL-"
+        End If : FTP帳號 = "" : FTP密碼 = "" : SQL_連線字串_正式()
 
         '----------判斷是否有更新指定檔案-------------------------------------------------------------------------------------
         Dim strDirName As String : Dim Strs As String = Application.StartupPath
@@ -64,7 +61,7 @@ Public Class HX_PGS_UPDATE
             If ftp清單_dgv("指定", i).Value.ToString = "AA" & HH Then : AA(i) = ftp清單_dgv("資料夾名稱", i).Value.ToString : End If
         Next
         Target1 = Target & AA(0) & "/"
-        Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30)
+        Me.Text = "UPDATE " & TF
 
         '----------讀取更新指定檔案-------------------------------------------------------------------------------------
         Dim Str As String = Application.StartupPath
@@ -73,11 +70,11 @@ Public Class HX_PGS_UPDATE
             Dim Text As String = "" : Dim line As String = filereader.ReadLine()
             While Not (line Is Nothing) : Text = Text & line & vbCrLf : line = filereader.ReadLine() : End While : filereader.Close()
             If Strings.Left(Text, 1) = "1" Then
-                小更新_ch.Checked = True : 中更新_ch.Checked = False : 大更新_ch.Checked = False
+                小更新_ch.Checked = True : 中更新_ch.Checked = False : 大更新_ch.Checked = False : 資料數 = 4
             ElseIf Strings.Left(Text, 1) = "2" Then
-                小更新_ch.Checked = False : 中更新_ch.Checked = True : 大更新_ch.Checked = False
+                小更新_ch.Checked = False : 中更新_ch.Checked = True : 大更新_ch.Checked = False : 資料數 = 70
             ElseIf Strings.Left(Text, 1) = "3" Then
-                小更新_ch.Checked = False : 中更新_ch.Checked = False : 大更新_ch.Checked = True
+                小更新_ch.Checked = False : 中更新_ch.Checked = False : 大更新_ch.Checked = True : 資料數 = 226
             End If
         End If
     End Sub
@@ -127,22 +124,22 @@ Public Class HX_PGS_UPDATE
     End Sub
     Private Sub OK_Tick(sender As Object, e As EventArgs) Handles OK.Tick
         If OK1 = True And OK2 = True And OK3 = True And OK4 = True And OK5 = True And OK6 = True And OK7 = True And OK8 = True And OK9 = True And OK10 = True Then
-            OK.Enabled = False : CheckBox11.Checked = True
-            If File.Exists(Str + "\HXUPDATE.txt") Then : File.Delete(Str + "\HXUPDATE.txt") : End If
+            OK.Enabled = False : CheckBox11.Checked = True : Dim FS1 As String
+            FS1 = "HXUPDATE.txt" : If File.Exists(Str & "\" & FS1) Then : File.Delete(Str & "\" & FS1) : End If
             Shell(Str + "\HX-PGS-ERP-SYS.exe", vbNormalFocus) : Me.Close()
         End If
     End Sub
     Private Sub 主程式更新_Tick(sender As Object, e As EventArgs) Handles 主程式更新.Tick
-        Dim 已開啟 As Boolean = False
+        Dim 已開啟 As Boolean = False : Dim FS1 As String
         Dim Strs As String = Application.StartupPath
 
-        MyModule1.進度條() : If File.Exists(Str + "\LANGUAGE_FILE.csv") Then : File.Delete(Str + "\LANGUAGE_FILE.csv") : End If
-        My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "LANGUAGE_FILE.csv", Str + "\LANGUAGE_FILE.csv") : Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "LANGUAGE_FILE"
-        MyModule1.進度條() : If File.Exists(Str + "\TOKEN.pdf") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "TOKEN.pdf", Str + "\TOKEN.pdf") : Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "TOKEN"
-        End If
+        MyModule1.進度條() : FS1 = "LANGUAGE_FILE.csv" : If File.Exists(Str & "\" & FS1) Then : File.Delete(Str & "\" & FS1) : End If
+        My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS1, Str & "\" & FS1) : Me.Text = "UPDATE " & TF & FS1
+        MyModule1.進度條() : FS1 = "TOKEN.pdf" : If File.Exists(Str & "\" & FS1) Then
+        Else : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS1, Str & FS1) : Me.Text = "UPDATE " & TF & FS1 : End If
 
-        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\HX-PGS-ERP-SYS.exe") Then
+        FS1 = "HX-PGS-ERP-SYS.exe"
+        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\" & FS1) Then
             Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
             ' 判斷是否有符合的Process
             For Each process As Process In pro
@@ -152,11 +149,11 @@ Public Class HX_PGS_UPDATE
             Next
             If 已開啟 = False Then
                 主程式更新.Enabled = False
-                MyModule1.進度條() : If File.Exists(Str + "\HX-PGS-ERP-SYS.exe") Then : File.Delete(Str + "\HX-PGS-ERP-SYS.exe") : End If
-                My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "HX-PGS-ERP-SYS.exe", Str + "\HX-PGS-ERP-SYS.exe")
+                MyModule1.進度條() : If File.Exists(Str & "\" & FS1) Then : File.Delete(Str & "\" & FS1) : End If
+                My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS1, Str & "\" & FS1)
                 OK1 = True : CheckBox1.Checked = True
             End If
-        ElseIf File.Exists(Strs & "\HX-PGS-ERP-SYS.exe") Then
+        ElseIf File.Exists(Strs & "\" & FS1) Then
             Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
             ' 判斷是否有符合的Process
             For Each process As Process In pro
@@ -166,271 +163,338 @@ Public Class HX_PGS_UPDATE
             Next
             If 已開啟 = False Then
                 主程式更新.Enabled = False
-                MyModule1.進度條() : If File.Exists(Str + "\HX-PGS-ERP-SYS.exe") Then : File.Delete(Str + "\HX-PGS-ERP-SYS.exe") : End If
-                My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "HX-PGS-ERP-SYS.exe", Str + "\HX-PGS-ERP-SYS.exe")
+                MyModule1.進度條() : If File.Exists(Str & "\" & FS1) Then : File.Delete(Str & "\" & FS1) : End If
+                My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS1, Str & "\" & FS1)
                 OK1 = True : CheckBox1.Checked = True
             End If
         End If
     End Sub
     Private Sub 刪除在下載_Tick(sender As Object, e As EventArgs) Handles 刪除在下載.Tick
-        刪除在下載.Enabled = False
-        MyModule1.進度條() : If File.Exists(Str + "\HX01.docx") Then : File.Delete(Str + "\HX01.docx") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\PGS01.docx") Then : File.Delete(Str + "\PGS01.docx") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\LIN HSING HAO.txt") Then : File.Delete(Str + "\LIN HSING HAO.txt") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Interop.SHDocVw.dll") Then : File.Delete(Str + "\Interop.SHDocVw.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\AxInterop.SHDocVw.dll") Then : File.Delete(Str + "\AxInterop.SHDocVw.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\AxInterop.MSHTML.dll") Then : File.Delete(Str + "\\AxInterop.MSHTML.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\AxInterop.MSHTML.dll") Then : File.Delete(Str + "\\AxInterop.MSHTML.dll") : End If
-        My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "AxInterop.MSHTML.dll", Str + "\AxInterop.MSHTML.dll") : Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "AxInterop.MSHTML"
-        My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "AxInterop.SHDocVw.dll", Str + "\AxInterop.SHDocVw.dll") : Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "AxInterop.SHDocVw"
-        My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Interop.SHDocVw.dll", Str + "\Interop.SHDocVw.dll") : Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Interop.SHDocVw"
-        My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "LIN HSING HAO.txt", Str + "\LIN HSING HAO.txt") : Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "LIN HSING HAO"
+        刪除在下載.Enabled = False : Dim FS2 As String
+        FS2 = "Interop.SHDocVw.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS2) Then : File.Delete(Str & "\" & FS2) : End If
+        FS2 = "AxInterop.SHDocVw.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS2) Then : File.Delete(Str & "\" & FS2) : End If
+        FS2 = "AxInterop.MSHTML.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS2) Then : File.Delete(Str & "\" & FS2) : End If
+        FS2 = "AxInterop.MSHTML.dll" : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS2, Str & "\" & FS2) : Me.Text = "UPDATE " & TF & FS2
+        FS2 = "AxInterop.SHDocVw.dll" : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS2, Str & "\" & FS2) : Me.Text = "UPDATE " & TF & FS2
+        FS2 = "Interop.SHDocVw.dll" : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS2, Str & "\" & FS2) : Me.Text = "UPDATE " & TF & FS2
         OK2 = True : CheckBox2.Checked = True
     End Sub
-    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles 驗證存在1.Tick
-        驗證存在1.Enabled = False
+    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles 驗證存在1.Tick        '10
+        驗證存在1.Enabled = False : Dim FS3 As String
         MyModule1.進度條() : If Dir(Str + "\Theme", vbDirectory) <> "" Then : Else : MkDir(Str + "\Theme") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Theme\excel_chinese.xml") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "excel_chinese.xml", Str + "\Theme\excel_chinese.xml")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "excel_chinese" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Theme\excel_english.xml") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "excel_english.xml", Str + "\Theme\excel_english.xml")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "excel_english" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Theme\TelerikMetro_Chinese.tssp") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "TelerikMetro_Chinese.tssp", Str + "\Theme\TelerikMetro_Chinese.tssp")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "TelerikMetro_Chinese" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Theme\word_chinese.xml") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "word_chinese.xml", Str + "\Theme\word_chinese.xml")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "word_chinese" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Theme\word_english.xml") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "word_english.xml", Str + "\Theme\word_english.xml")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "word_english" : End If
+        FS3 = "excel_chinese.xml" : MyModule1.進度條() : If File.Exists(Str & "\Theme\" & FS3) Then : Else
+            Me.Text = "UPDATE " & TF & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\Theme\" & FS3) : End If
+        FS3 = "excel_english.xml" : MyModule1.進度條() : If File.Exists(Str & "\Theme\" & FS3) Then : Else
+            Me.Text = "UPDATE " & TF & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\Theme\" & FS3) : End If
+        FS3 = "TelerikMetro_Chinese.tssp" : MyModule1.進度條() : If File.Exists(Str & "\Theme\" & FS3) Then : Else
+            Me.Text = "UPDATE " & TF & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\Theme\" & FS3) : End If
+        FS3 = "word_chinese.xml" : MyModule1.進度條() : If File.Exists(Str & "\Theme\" & FS3) Then : Else
+            Me.Text = "UPDATE " & TF & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\Theme\" & FS3) : End If
+        FS3 = "word_english.xml" : MyModule1.進度條() : If File.Exists(Str & "\Theme\" & FS3) Then : Else
+            Me.Text = "UPDATE " & TF & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\Theme\" & FS3) : End If
+        FS3 = "Telerik.WinControls.PdfViewer.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
+            Me.Text = "UPDATE " & TF & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
+        FS3 = "Telerik.WinControls.PdfViewer.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
+            Me.Text = "UPDATE " & TF & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
+        FS3 = "Telerik.Windows.Documents.Core.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
+            Me.Text = "UPDATE " & TF & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
+        FS3 = "Telerik.Windows.Documents.Core.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS3) Then : Else
+            Me.Text = "UPDATE " & TF & FS3 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS3, Str & "\" & FS3) : End If
         OK3 = True : CheckBox3.Checked = True
     End Sub
-    Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles 驗證存在2.Tick
-        驗證存在2.Enabled = False
-        MyModule1.進度條() : If File.Exists(Str + "\HX-PGS-Message.exe") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "HX-PGS-Message.exe", Str + "\HX-PGS-Message.exe")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "HX-PGS-Message" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Tran.exe") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Tran.exe", Str + "\Tran.exe")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Tran" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\HX-PGS-ERP-SYS.pdb") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "HX-PGS-ERP-SYS.pdb", Str + "\HX-PGS-ERP-SYS.pdb")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "HX-PGS-ERP-SYS" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\HX-PGS-ERP-SYS.xml") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "HX-PGS-ERP-SYS.xml", Str + "\HX-PGS-ERP-SYS.xml")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "HX-PGS-ERP-SYS" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\HX-PGS-ERP-SYS.exe.config") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "HX-PGS-ERP-SYS.exe.config", Str + "\HX-PGS-ERP-SYS.exe.config")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "HX-PGS-ERP-SYS.exe.config" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\A.txt") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "A.txt", Str + "\A.txt")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "A" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\C.txt") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "C.txt", Str + "\C.txt")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "C" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\ch.txt") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "ch.txt", Str + "\ch.txt")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "ch" : End If
+    Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles 驗證存在2.Tick        '10
+        驗證存在2.Enabled = False : Dim FS4 As String
+        FS4 = "HX-PGS-Message.exe" : MyModule1.進度條() : If File.Exists(Str & "\" & FS4) Then : Else
+            Me.Text = "UPDATE " & TF & FS4 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS4, Str & "\" & FS4) : End If
+        FS4 = "Tran.exe" : MyModule1.進度條() : If File.Exists(Str & "\" & FS4) Then : Else
+            Me.Text = "UPDATE " & TF & FS4 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS4, Str & "\" & FS4) : End If
+        FS4 = "HX-PGS-ERP-SYS.pdb" : MyModule1.進度條() : If File.Exists(Str & "\" & FS4) Then : Else
+            Me.Text = "UPDATE " & TF & FS4 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS4, Str & "\" & FS4) : End If
+        FS4 = "HX-PGS-ERP-SYS.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS4) Then : Else
+            Me.Text = "UPDATE " & TF & FS4 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS4, Str & "\" & FS4) : End If
+        FS4 = "HX-PGS-ERP-SYS.exe.config" : MyModule1.進度條() : If File.Exists(Str & "\" & FS4) Then : Else
+            Me.Text = "UPDATE " & TF & FS4 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS4, Str & "\" & FS4) : End If
+        FS4 = "A.txt" : MyModule1.進度條() : If File.Exists(Str & "\" & FS4) Then : Else
+            Me.Text = "UPDATE " & TF & FS4 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS4, Str & "\" & FS4) : End If
+        FS4 = "C.txt" : MyModule1.進度條() : If File.Exists(Str & "\" & FS4) Then : Else
+            Me.Text = "UPDATE " & TF & FS4 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS4, Str & "\" & FS4) : End If
+        FS4 = "ch.txt" : MyModule1.進度條() : If File.Exists(Str & "\" & FS4) Then : Else
+            Me.Text = "UPDATE " & TF & FS4 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS4, Str & "\" & FS4) : End If
+        FS4 = "py-tran-log.txt" : MyModule1.進度條() : If File.Exists(Str & "\" & FS4) Then : Else
+            Me.Text = "UPDATE " & TF & FS4 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS4, Str & "\" & FS4) : End If
+        FS4 = "System.Buffers.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS4) Then : Else
+            Me.Text = "UPDATE " & TF & FS4 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS4, Str & "\" & FS4) : End If
         OK4 = True : CheckBox4.Checked = True
     End Sub
-    Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles 驗證存在3.Tick
-        驗證存在3.Enabled = False
-        MyModule1.進度條() : If File.Exists(Str + "\DotNetBarcode.dll") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "DotNetBarcode.dll", Str + "\DotNetBarcode.dll")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "DotNetBarcode" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\en.txt") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "en.txt", Str + "\en.txt")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "en" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\IdentityModel.dll") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "IdentityModel.dll", Str + "\IdentityModel.dll")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "IdentityModel" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\IdentityModel.pdb") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "IdentityModel.pdb", Str + "\IdentityModel.pdb")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "IdentityModel" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\IdentityModel.xml") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "IdentityModel.xml", Str + "\IdentityModel.xml")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "IdentityModel" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\in.txt") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "in.txt", Str + "\in.txt")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "in" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Newtonsoft.Json.dll") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Newtonsoft.Json.dll", Str + "\Newtonsoft.Json.dll")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Newtonsoft.Json" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Newtonsoft.Json.xml") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Newtonsoft.Json.xml", Str + "\Newtonsoft.Json.xml")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Newtonsoft.Json" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\PInvoke.Windows.Core.dll") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "PInvoke.Windows.Core.dll", Str + "\PInvoke.Windows.Core.dll")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "PInvoke.Windows.Core" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\PInvoke.Windows.Core.xml") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "PInvoke.Windows.Core.xml", Str + "\PInvoke.Windows.Core.xml")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "PInvoke.Windows.Core" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\py-tran-log.txt") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "py-tran-log.txt", Str + "\py-tran-log.txt")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "py-tran-log" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\System.Buffers.dll") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "System.Buffers.dll", Str + "\System.Buffers.dll")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "System.Buffers" : End If
+    Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles 驗證存在3.Tick        '10
+        驗證存在3.Enabled = False : Dim FS5 As String
+        FS5 = "DotNetBarcode.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS5) Then : Else
+            Me.Text = "UPDATE " & TF & FS5 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS5, Str & "\" & FS5) : End If
+        FS5 = "en.txt" : MyModule1.進度條() : If File.Exists(Str & "\" & FS5) Then : Else
+            Me.Text = "UPDATE " & TF & FS5 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS5, Str & "\" & FS5) : End If
+        FS5 = "IdentityModel.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS5) Then : Else
+            Me.Text = "UPDATE " & TF & FS5 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS5, Str & "\" & FS5) : End If
+        FS5 = "IdentityModel.pdb" : MyModule1.進度條() : If File.Exists(Str & "\" & FS5) Then : Else
+            Me.Text = "UPDATE " & TF & FS5 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS5, Str & "\" & FS5) : End If
+        FS5 = "IdentityModel.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS5) Then : Else
+            Me.Text = "UPDATE " & TF & FS5 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS5, Str & "\" & FS5) : End If
+        FS5 = "in.txt" : MyModule1.進度條() : If File.Exists(Str & "\" & FS5) Then : Else
+            Me.Text = "UPDATE " & TF & FS5 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS5, Str & "\" & FS5) : End If
+        FS5 = "Newtonsoft.Json.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS5) Then : Else
+            Me.Text = "UPDATE " & TF & FS5 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS5, Str & "\" & FS5) : End If
+        FS5 = "Newtonsoft.Json.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS5) Then : Else
+            Me.Text = "UPDATE " & TF & FS5 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS5, Str & "\" & FS5) : End If
+        FS5 = "PInvoke.Windows.Core.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS5) Then : Else
+            Me.Text = "UPDATE " & TF & FS5 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS5, Str & "\" & FS5) : End If
+        FS5 = "PInvoke.Windows.Core.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS5) Then : Else
+            Me.Text = "UPDATE " & TF & FS5 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS5, Str & "\" & FS5) : End If
         OK5 = True : CheckBox5.Checked = True
     End Sub
-    Private Sub Timer6_Tick(sender As Object, e As EventArgs) Handles 驗證存在4.Tick
-        驗證存在4.Enabled = False
-        MyModule1.進度條() : If File.Exists(Str + "\System.Buffers.xml") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "System.Buffers.xml", Str + "\System.Buffers.xml")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "System.Buffers" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\System.Memory.dll") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "System.Memory.dll", Str + "\System.Memory.dll")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "System.Memory" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\System.Memory.xml") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "System.Memory.xml", Str + "\System.Memory.xml")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "System.Memory" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\System.Numerics.Vectors.dll") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "System.Numerics.Vectors.dll", Str + "\System.Numerics.Vectors.dll")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "System.Numerics.Vectors" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\System.Numerics.Vectors.xml") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "System.Numerics.Vectors.xml", Str + "\System.Numerics.Vectors.xml")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "System.Numerics.Vectors" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\System.Runtime.CompilerServices.Unsafe.dll") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "System.Runtime.CompilerServices.Unsafe.dll", Str + "\System.Runtime.CompilerServices.Unsafe.dll")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "System.Runtime.CompilerServices.Unsafe" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\System.Runtime.CompilerServices.Unsafe.xml") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "System.Runtime.CompilerServices.Unsafe.xml", Str + "\System.Runtime.CompilerServices.Unsafe.xml")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "System.Runtime.CompilerServices.Unsafe" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\System.Text.Encodings.Web.dll") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "System.Text.Encodings.Web.dll", Str + "\System.Text.Encodings.Web.dll")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "System.Text.Encodings.Web" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\System.Text.Encodings.Web.xml") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "System.Text.Encodings.Web.xml", Str + "\System.Text.Encodings.Web.xml")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "System.Text.Encodings.Web" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.SyntaxEditor.dll") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.WinControls.SyntaxEditor.dll", Str + "\Telerik.WinControls.SyntaxEditor.dll")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.WinControls.SyntaxEditor" : End If
+    Private Sub Timer6_Tick(sender As Object, e As EventArgs) Handles 驗證存在4.Tick        '10
+        驗證存在4.Enabled = False : Dim FS6 As String
+        FS6 = "System.Buffers.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS6) Then : Else
+            Me.Text = "UPDATE " & TF & FS6 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS6, Str & "\" & FS6) : End If
+        FS6 = "System.Memory.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS6) Then : Else
+            Me.Text = "UPDATE " & TF & FS6 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS6, Str & "\" & FS6) : End If
+        FS6 = "System.Memory.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS6) Then : Else
+            Me.Text = "UPDATE " & TF & FS6 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS6, Str & "\" & FS6) : End If
+        FS6 = "System.Numerics.Vectors.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS6) Then : Else
+            Me.Text = "UPDATE " & TF & FS6 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS6, Str & "\" & FS6) : End If
+        FS6 = "System.Numerics.Vectors.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS6) Then : Else
+            Me.Text = "UPDATE " & TF & FS6 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS6, Str & "\" & FS6) : End If
+        FS6 = "System.Runtime.CompilerServices.Unsafe.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS6) Then : Else
+            Me.Text = "UPDATE " & TF & FS6 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS6, Str & "\" & FS6) : End If
+        FS6 = "System.Runtime.CompilerServices.Unsafe.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS6) Then : Else
+            Me.Text = "UPDATE " & TF & FS6 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS6, Str & "\" & FS6) : End If
+        FS6 = "System.Text.Encodings.Web.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS6) Then : Else
+            Me.Text = "UPDATE " & TF & FS6 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS6, Str & "\" & FS6) : End If
+        FS6 = "System.Text.Encodings.Web.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS6) Then : Else
+            Me.Text = "UPDATE " & TF & FS6 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS6, Str & "\" & FS6) : End If
+        FS6 = "Telerik.WinControls.SyntaxEditor.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS6) Then : Else
+            Me.Text = "UPDATE " & TF & FS6 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS6, Str & "\" & FS6) : End If
         OK6 = True : CheckBox6.Checked = True
     End Sub
-    Private Sub Timer7_Tick(sender As Object, e As EventArgs) Handles 驗證存在5.Tick
-        驗證存在5.Enabled = False
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.SyntaxEditor.xml") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.WinControls.SyntaxEditor.xml", Str + "\Telerik.WinControls.SyntaxEditor.xml")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.WinControls.SyntaxEditor" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.UI.dll") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.WinControls.UI.dll", Str + "\Telerik.WinControls.UI.dll")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.WinControls.UI" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.UI.xml") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.WinControls.UI.xml", Str + "\Telerik.WinControls.UI.xml")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.WinControls.UI" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.dll") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.WinControls.dll", Str + "\Telerik.WinControls.dll")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.WinControls" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Documents.Fixed.dll") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.Windows.Documents.Fixed.dll", Str + "\Telerik.Windows.Documents.Fixed.dll")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.Windows.Documents.Fixed" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Documents.Fixed.xml") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.Windows.Documents.Fixed.xml", Str + "\Telerik.Windows.Documents.Fixed.xml")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.Windows.Documents.Fixed" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Zip.dll") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.Windows.Zip.dll", Str + "\Telerik.Windows.Zip.dll")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.Windows.Zip" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Zip.xml") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.Windows.Zip.xml", Str + "\Telerik.Windows.Zip.xml")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.Windows.Zip" : End If
+    Private Sub Timer7_Tick(sender As Object, e As EventArgs) Handles 驗證存在5.Tick        '10
+        驗證存在5.Enabled = False : Dim FS7 As String
+        FS7 = "Telerik.WinControls.SyntaxEditor.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS7) Then : Else
+            Me.Text = "UPDATE " & TF & FS7 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS7, Str & "\" & FS7) : End If
+        FS7 = "Telerik.WinControls.UI.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS7) Then : Else
+            Me.Text = "UPDATE " & TF & FS7 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS7, Str & "\" & FS7) : End If
+        FS7 = "Telerik.WinControls.UI.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS7) Then : Else
+            Me.Text = "UPDATE " & TF & FS7 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS7, Str & "\" & FS7) : End If
+        FS7 = "Telerik.WinControls.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS7) Then : Else
+            Me.Text = "UPDATE " & TF & FS7 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS7, Str & "\" & FS7) : End If
+        FS7 = "Telerik.Windows.Documents.Fixed.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS7) Then : Else
+            Me.Text = "UPDATE " & TF & FS7 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS7, Str & "\" & FS7) : End If
+        FS7 = "Telerik.Windows.Documents.Fixed.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS7) Then : Else
+            Me.Text = "UPDATE " & TF & FS7 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS7, Str & "\" & FS7) : End If
+        FS7 = "Telerik.Windows.Zip.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS7) Then : Else
+            Me.Text = "UPDATE " & TF & FS7 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS7, Str & "\" & FS7) : End If
+        FS7 = "Telerik.Windows.Zip.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS7) Then : Else
+            Me.Text = "UPDATE " & TF & FS7 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS7, Str & "\" & FS7) : End If
+        FS7 = "TelerikCommon.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS7) Then : Else
+            Me.Text = "UPDATE " & TF & FS7 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS7, Str & "\" & FS7) : End If
+        FS7 = "SuperDataGrid.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS7) Then : Else
+            Me.Text = "UPDATE " & TF & FS7 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS7, Str & "\" & FS7) : End If
         OK7 = True : CheckBox7.Checked = True
     End Sub
-    Private Sub Timer8_Tick(sender As Object, e As EventArgs) Handles 驗證存在6.Tick
-        驗證存在6.Enabled = False
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.xml") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.WinControls.xml", Str + "\Telerik.WinControls.xml")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.WinControls" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\TelerikCommon.dll") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "TelerikCommon.dll", Str + "\TelerikCommon.dll")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "TelerikCommon" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\SuperDataGrid.dll") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "SuperDataGrid.dll", Str + "\SuperDataGrid.dll")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "SuperDataGrid" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.PdfViewer.dll") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.WinControls.PdfViewer.dll", Str + "\Telerik.WinControls.PdfViewer.dll")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.WinControls.PdfViewer" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.PdfViewer.xml") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.WinControls.PdfViewer.xml", Str + "\Telerik.WinControls.PdfViewer.xml")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.WinControls.PdfViewer" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.RichTextEditor.dll") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.WinControls.RichTextEditor.dll", Str + "\Telerik.WinControls.RichTextEditor.dll")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.WinControls.RichTextEditor" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.RichTextEditor.xml") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.WinControls.RichTextEditor.xml", Str + "\Telerik.WinControls.RichTextEditor.xml")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.WinControls.RichTextEditor" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Documents.Core.dll") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.Windows.Documents.Core.dll", Str + "\Telerik.Windows.Documents.Core.dll")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.Windows.Documents.Core" : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Documents.Core.xml") Then : Else
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Telerik.Windows.Documents.Core.xml", Str + "\Telerik.Windows.Documents.Core.xml")
-            Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Telerik.Windows.Documents.Core" : End If
+    Private Sub Timer8_Tick(sender As Object, e As EventArgs) Handles 驗證存在6.Tick        '10
+        驗證存在6.Enabled = False : Dim FS8 As String
+        FS8 = "Telerik.WinControls.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS8) Then : Else
+            Me.Text = "UPDATE " & TF & FS8 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS8, Str & "\" & FS8) : End If
+        FS8 = "LIN HSING HAO.txt" : MyModule1.進度條() : If File.Exists(Str & "\" & FS8) Then : Else
+            Me.Text = "UPDATE " & TF & FS8 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS8, Str & "\" & FS8) : End If
+        FS8 = "HX01.docx" : MyModule1.進度條() : If File.Exists(Str & "\" & FS8) Then : Else
+            Me.Text = "UPDATE " & TF & FS8 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS8, Str & "\" & FS8) : End If
+        FS8 = "PGS01.docx" : MyModule1.進度條() : If File.Exists(Str & "\" & FS8) Then : Else
+            Me.Text = "UPDATE " & TF & FS8 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS8, Str & "\" & FS8) : End If
+        FS8 = "Microsoft.mshtml.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS8) Then : Else
+            Me.Text = "UPDATE " & TF & FS8 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS8, Str & "\" & FS8) : End If
+        FS8 = "Telerik.WinControls.RadDiagram.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS8) Then : Else
+            Me.Text = "UPDATE " & TF & FS8 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS8, Str & "\" & FS8) : End If
+        FS8 = "Telerik.WinControls.RadDiagram.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS8) Then : Else
+            Me.Text = "UPDATE " & TF & FS8 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS8, Str & "\" & FS8) : End If
+        FS8 = "Telerik.WinControls.RadDock.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS8) Then : Else
+            Me.Text = "UPDATE " & TF & FS8 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS8, Str & "\" & FS8) : End If
+        FS8 = "Telerik.WinControls.RadDock.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS8) Then : Else
+            Me.Text = "UPDATE " & TF & FS8 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS8, Str & "\" & FS8) : End If
+        FS8 = "Telerik.WinControls.RadMarkupEditor.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS8) Then : Else
+            Me.Text = "UPDATE " & TF & FS8 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS8, Str & "\" & FS8) : End If
         OK8 = True : CheckBox8.Checked = True
     End Sub
-    Private Sub Timer9_Tick(sender As Object, e As EventArgs) Handles 驗證存在7.Tick
-        驗證存在7.Enabled = False
+    Private Sub Timer9_Tick(sender As Object, e As EventArgs) Handles 驗證存在7.Tick        '3
+        驗證存在7.Enabled = False : Dim FS9 As String
+        FS9 = "Telerik.WinControls.RadMarkupEditor.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS9) Then : Else
+            Me.Text = "UPDATE " & TF & FS9 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS9, Str & "\" & FS9) : End If
+        FS9 = "Telerik.WinControls.RichTextEditor.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS9) Then : Else
+            Me.Text = "UPDATE " & TF & FS9 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS9, Str & "\" & FS9) : End If
+        FS9 = "Telerik.WinControls.RichTextEditor.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS9) Then : Else
+            Me.Text = "UPDATE " & TF & FS9 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS9, Str & "\" & FS9) : End If
         OK9 = True : CheckBox9.Checked = True
     End Sub
     Private Sub 刪除所有檔案_Tick(sender As Object, e As EventArgs) Handles 刪除所有檔案.Tick
-        刪除所有檔案.Enabled = False
-        MyModule1.進度條() : If File.Exists(Str + "\Theme\excel_chinese.xml") Then : File.Delete(Str + "\Theme\excel_chinese.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Theme\excel_english.xml") Then : File.Delete(Str + "\Theme\excel_english.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Theme\TelerikMetro_Chinese.tssp") Then : File.Delete(Str + "\Theme\TelerikMetro_Chinese.tssp") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Theme\word_chinese.xml") Then : File.Delete(Str + "\Theme\word_chinese.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Theme\word_english.xml") Then : File.Delete(Str + "\Theme\word_english.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\HX-PGS-ERP-SYS.pdb") Then : File.Delete(Str + "\HX-PGS-ERP-SYS.pdb") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\HX-PGS-ERP-SYS.xml") Then : File.Delete(Str + "\HX-PGS-ERP-SYS.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\HX-PGS-ERP-SYS.exe.config") Then : File.Delete(Str + "\HX-PGS-ERP-SYS.exe.config") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\DotNetBarcode.dll") Then : File.Delete(Str + "\DotNetBarcode.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\IdentityModel.dll") Then : File.Delete(Str + "\IdentityModel.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\IdentityModel.pdb") Then : File.Delete(Str + "\IdentityModel.pdb") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\IdentityModel.xml") Then : File.Delete(Str + "\IdentityModel.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Newtonsoft.Json.dll") Then : File.Delete(Str + "\Newtonsoft.Json.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Newtonsoft.Json.xml") Then : File.Delete(Str + "\Newtonsoft.Json.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\PInvoke.Windows.Core.dll") Then : File.Delete(Str + "\PInvoke.Windows.Core.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\PInvoke.Windows.Core.xml") Then : File.Delete(Str + "\PInvoke.Windows.Core.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\System.Buffers.dll") Then : File.Delete(Str + "\System.Buffers.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\System.Buffers.xml") Then : File.Delete(Str + "\System.Buffers.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\System.Memory.dll") Then : File.Delete(Str + "\System.Memory.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\System.Memory.xml") Then : File.Delete(Str + "\System.Memory.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\System.Numerics.Vectors.dll") Then : File.Delete(Str + "\System.Numerics.Vectors.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\System.Numerics.Vectors.xml") Then : File.Delete(Str + "\System.Numerics.Vectors.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\System.Runtime.CompilerServices.Unsafe.dll") Then : File.Delete(Str + "\System.Runtime.CompilerServices.Unsafe.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\System.Runtime.CompilerServices.Unsafe.xml") Then : File.Delete(Str + "\System.Runtime.CompilerServices.Unsafe.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\System.Text.Encodings.Web.dll") Then : File.Delete(Str + "\System.Text.Encodings.Web.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\System.Text.Encodings.Web.xml") Then : File.Delete(Str + "\System.Text.Encodings.Web.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.SyntaxEditor.dll") Then : File.Delete(Str + "\Telerik.WinControls.SyntaxEditor.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.SyntaxEditor.xml") Then : File.Delete(Str + "\Telerik.WinControls.SyntaxEditor.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.UI.dll") Then : File.Delete(Str + "\Telerik.WinControls.UI.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.UI.xml") Then : File.Delete(Str + "\Telerik.WinControls.UI.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.dll") Then : File.Delete(Str + "\Telerik.WinControls.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Documents.Fixed.dll") Then : File.Delete(Str + "\Telerik.Windows.Documents.Fixed.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Documents.Fixed.xml") Then : File.Delete(Str + "\Telerik.Windows.Documents.Fixed.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Zip.dll") Then : File.Delete(Str + "\Telerik.Windows.Zip.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Zip.xml") Then : File.Delete(Str + "\Telerik.Windows.Zip.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.xml") Then : File.Delete(Str + "\Telerik.WinControls.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\TelerikCommon.dll") Then : File.Delete(Str + "\TelerikCommon.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\SuperDataGrid.dll") Then : File.Delete(Str + "\SuperDataGrid.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.PdfViewer.dll") Then : File.Delete(Str + "\Telerik.WinControls.PdfViewer.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.PdfViewer.xml") Then : File.Delete(Str + "\Telerik.WinControls.PdfViewer.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.RichTextEditor.dll") Then : File.Delete(Str + "\Telerik.WinControls.RichTextEditor.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.RichTextEditor.xml") Then : File.Delete(Str + "\Telerik.WinControls.RichTextEditor.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Documents.Core.dll") Then : File.Delete(Str + "\Telerik.Windows.Documents.Core.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.Documents.Core.xml") Then : File.Delete(Str + "\Telerik.Windows.Documents.Core.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\MediaFoundation.dll") Then : File.Delete(Str + "\MediaFoundation.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Microsoft.Toolkit.Uwp.Notifications.dll") Then : File.Delete(Str + "\Microsoft.Toolkit.Uwp.Notifications.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.ChartView.dll") Then : File.Delete(Str + "\Telerik.WinControls.ChartView.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.ChartView.xml") Then : File.Delete(Str + "\Telerik.WinControls.ChartView.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.GridView.dll") Then : File.Delete(Str + "\Telerik.WinControls.GridView.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.GridView.xml") Then : File.Delete(Str + "\Telerik.WinControls.GridView.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.RadMap.dll") Then : File.Delete(Str + "\Telerik.WinControls.RadMap.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.RadMap.xml") Then : File.Delete(Str + "\Telerik.WinControls.RadMap.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.RadToastNotification.dll") Then : File.Delete(Str + "\Telerik.WinControls.RadToastNotification.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.RadToastNotification.xml") Then : File.Delete(Str + "\Telerik.WinControls.RadToastNotification.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.RadWebCam.dll") Then : File.Delete(Str + "\Telerik.WinControls.RadWebCam.dll") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.WinControls.RadWebCam.xml") Then : File.Delete(Str + "\Telerik.WinControls.RadWebCam.xml") : End If
-        MyModule1.進度條() : If File.Exists(Str + "\Telerik.Windows.MediaFoundation.dll") Then : File.Delete(Str + "\Telerik.Windows.MediaFoundation.dll") : End If
+        刪除所有檔案.Enabled = False : Dim FS10 As String
+        FS10 = "excel_chinese.xml" : MyModule1.進度條() : If File.Exists(Str & "\Theme\" & FS10) Then : File.Delete(Str & "\Theme\" & FS10) : End If
+        FS10 = "excel_english.xml" : MyModule1.進度條() : If File.Exists(Str & "\Theme\" & FS10) Then : File.Delete(Str & "\Theme\" & FS10) : End If
+        FS10 = "TelerikMetro_Chinese.tssp" : MyModule1.進度條() : If File.Exists(Str & "\Theme\" & FS10) Then : File.Delete(Str & "\Theme\" & FS10) : End If
+        FS10 = "word_chinese.xml" : MyModule1.進度條() : If File.Exists(Str & "\Theme\" & FS10) Then : File.Delete(Str & "\Theme\" & FS10) : End If
+        FS10 = "word_english.xml" : MyModule1.進度條() : If File.Exists(Str & "\Theme\" & FS10) Then : File.Delete(Str & "\Theme\" & FS10) : End If
+        FS10 = "HX-PGS-ERP-SYS.pdb" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.RadDiagram.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.RadDiagram.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.RadDock.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.RadDock.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.RadMarkupEditor.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.RadMarkupEditor.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "HX-PGS-ERP-SYS.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "HX-PGS-ERP-SYS.exe.config" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "DotNetBarcode.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "IdentityModel.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "IdentityModel.pdb" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "IdentityModel.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Newtonsoft.Json.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Newtonsoft.Json.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "PInvoke.Windows.Core.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "PInvoke.Windows.Core.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Buffers.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Buffers.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Memory.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Memory.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Numerics.Vectors.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Numerics.Vectors.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Runtime.CompilerServices.Unsafe.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Runtime.CompilerServices.Unsafe.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Text.Encodings.Web.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Text.Encodings.Web.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.SyntaxEditor.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.SyntaxEditor.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.UI.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.UI.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.Windows.Documents.Fixed.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.Windows.Documents.Fixed.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.Windows.Zip.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.Windows.Zip.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "TelerikCommon.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "SuperDataGrid.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.PdfViewer.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.PdfViewer.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.RichTextEditor.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.RichTextEditor.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.Windows.Documents.Core.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.Windows.Documents.Core.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "MediaFoundation.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Microsoft.Toolkit.Uwp.Notifications.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.ChartView.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.ChartView.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.GridView.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.GridView.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.RadMap.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.RadMap.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.RadToastNotification.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.RadToastNotification.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.RadWebCam.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.WinControls.RadWebCam.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Telerik.Windows.MediaFoundation.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Linq.Queryable.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Linq.Parallel.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Linq.Expressions.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Linq.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.IO.UnmanagedMemoryStream.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.IO.Pipes.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.IO.MemoryMappedFiles.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.IO.IsolatedStorage.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.IO.FileSystem.Watcher.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.IO.FileSystem.Primitives.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.IO.FileSystem.DriveInfo.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.IO.FileSystem.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.IO.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.IO.Compression.ZipFile.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.IO.Compression.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Globalization.Extensions.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Globalization.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Globalization.Calendars.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Dynamic.Runtime.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Drawing.Primitives.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Diagnostics.Tracing.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Diagnostics.TraceSource.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Diagnostics.Tools.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Diagnostics.TextWriterTraceListener.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "Microsoft.Win32.Primitives.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "netstandard.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.AppContext.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Collections.Concurrent.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Collections.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Collections.NonGeneric.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Collections.Specialized.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.ComponentModel.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.ComponentModel.EventBasedAsync.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.ComponentModel.Primitives.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.ComponentModel.TypeConverter.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Console.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Data.Common.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Diagnostics.Contracts.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Diagnostics.Debug.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Diagnostics.FileVersionInfo.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Diagnostics.Process.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Diagnostics.StackTrace.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Net.Http.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Net.NameResolution.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Net.NetworkInformation.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Net.Ping.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Net.Primitives.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Net.Requests.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Net.Security.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Net.Sockets.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Net.WebHeaderCollection.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Net.WebSockets.Client.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Net.WebSockets.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.ObjectModel.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Reflection.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Reflection.Extensions.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Reflection.Primitives.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Resources.Reader.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Resources.ResourceManager.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Resources.Writer.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Xml.XPath.XDocument.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Xml.XPath.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Xml.XmlSerializer.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Xml.XmlDocument.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Xml.XDocument.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Xml.ReaderWriter.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.ValueTuple.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Threading.Timer.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Threading.ThreadPool.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Threading.Thread.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Threading.Tasks.Parallel.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Threading.Tasks.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Threading.Overlapped.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Threading.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Text.RegularExpressions.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Text.Encodings.Web.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Text.Encodings.Web.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Text.Encoding.Extensions.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Text.Encoding.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Security.SecureString.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Security.Principal.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Security.Cryptography.X509Certificates.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Security.Cryptography.Primitives.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Security.Cryptography.Encoding.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Security.Cryptography.Csp.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Security.Cryptography.Algorithms.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Security.Claims.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Runtime.Serialization.Xml.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Runtime.Serialization.Primitives.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Runtime.Serialization.Json.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Runtime.Serialization.Formatters.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Runtime.Numerics.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Runtime.InteropServices.RuntimeInformation.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Runtime.InteropServices.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "ystem.Runtime.Handles.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Runtime.Extensions.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Runtime.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
+        FS10 = "System.Runtime.CompilerServices.VisualC.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS10) Then : File.Delete(Str & "\" & FS10) : End If
         OK10 = True : CheckBox10.Checked = True : 刪除完成 = True
     End Sub
 End Class

HX-PGS-UPDATE/HX-PGS-UPDATE.vbproj

@@ -106,6 +106,12 @@
     <Compile Include="SQL_連線狀態模組1.vb" />
     <Compile Include="SQL_連線狀態模組2.vb" />
     <Compile Include="全域變數.vb" />
+    <Compile Include="線路選擇.Designer.vb">
+      <DependentUpon>線路選擇.vb</DependentUpon>
+    </Compile>
+    <Compile Include="線路選擇.vb">
+      <SubType>Form</SubType>
+    </Compile>
   </ItemGroup>
   <ItemGroup>
     <EmbeddedResource Include="HX-PGS-UPDATE.resx">
@@ -117,6 +123,9 @@
       <CustomToolNamespace>My.Resources</CustomToolNamespace>
       <SubType>Designer</SubType>
     </EmbeddedResource>
+    <EmbeddedResource Include="線路選擇.resx">
+      <DependentUpon>線路選擇.vb</DependentUpon>
+    </EmbeddedResource>
   </ItemGroup>
   <ItemGroup>
     <None Include="app.manifest" />
@@ -133,6 +142,10 @@
   </ItemGroup>
   <ItemGroup>
     <Content Include="favicon-20190809022345261.ico" />
+    <None Include="Resources\62951168976601486.jpg" />
+    <None Include="Resources\test.png" />
+    <None Include="Resources\IMG_7137.png" />
+    <None Include="Resources\image1.png" />
   </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
 </Project>

HX-PGS-UPDATE/My Project/Resources.Designer.vb

@@ -59,5 +59,45 @@ Namespace My.Resources
                 resourceCulture = value
             End Set
         End Property
+        
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property _62951168976601486() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("62951168976601486", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property image1() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("image1", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property IMG_7137() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("IMG_7137", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property test() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("test", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
     End Module
 End Namespace

HX-PGS-UPDATE/My Project/Resources.resx

@@ -46,7 +46,7 @@
     
     mimetype: application/x-microsoft.net.object.binary.base64
     value   : The object must be serialized with 
-            : System.Serialization.Formatters.Binary.BinaryFormatter
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
             : and then encoded with base64 encoding.
     
     mimetype: application/x-microsoft.net.object.soap.base64
@@ -60,6 +60,7 @@
             : and then encoded with base64 encoding.
     -->
   <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
     <xsd:element name="root" msdata:IsDataSet="true">
       <xsd:complexType>
         <xsd:choice maxOccurs="unbounded">
@@ -68,9 +69,10 @@
               <xsd:sequence>
                 <xsd:element name="value" type="xsd:string" minOccurs="0" />
               </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" />
+              <xsd:attribute name="name" use="required" type="xsd:string" />
               <xsd:attribute name="type" type="xsd:string" />
               <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
             </xsd:complexType>
           </xsd:element>
           <xsd:element name="assembly">
@@ -85,9 +87,10 @@
                 <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
                 <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
               </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
               <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
               <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
             </xsd:complexType>
           </xsd:element>
           <xsd:element name="resheader">
@@ -109,9 +112,22 @@
     <value>2.0</value>
   </resheader>
   <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="image1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\image1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="IMG_7137" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\IMG_7137.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="test" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\test.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="62951168976601486" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\62951168976601486.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
 </root>

HX-PGS-UPDATE/bin/Debug/HX-PGS-UPDATE.xml

@@ -22,6 +22,26 @@ HX-PGS-UPDATE
   使用這個強類型資源類別的資源查閱。
 </summary>
 </member>
+<member name="P:HX_PGS_UPDATE.My.Resources.Resources._62951168976601486">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:HX_PGS_UPDATE.My.Resources.Resources.image1">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:HX_PGS_UPDATE.My.Resources.Resources.IMG_7137">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:HX_PGS_UPDATE.My.Resources.Resources.test">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="M:HX_PGS_UPDATE.SQL_連線狀態模組1.ConnectTest1(System.String,System.Decimal)">
  <summary>
  测试连接：True-连接成功，False-连接失败

HX-PGS-UPDATE/obj/Debug/HX-PGS-UPDATE.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-231a07a5592604eb8637faee73f247c58a810730
+88c64b0845ffc7e0918032d1b01b66ce5e5740c3

HX-PGS-UPDATE/obj/Debug/HX-PGS-UPDATE.vbproj.FileListAbsolute.txt

@@ -23,3 +23,4 @@ D:\工巧明\HX-PGS\HX-PGS-UPDATE\HX-PGS-UPDATE\obj\Debug\HX-PGS-UPDATE.xml
 D:\工巧明\HX-PGS\HX-PGS-UPDATE\HX-PGS-UPDATE\obj\Debug\HX-PGS-UPDATE.pdb
 D:\工巧明\HX-PGS\HX-PGS-UPDATE\HX-PGS-UPDATE\obj\Debug\HX-PGS-UPDATE.vbproj.AssemblyReference.cache
 D:\工巧明\HX-PGS\HX-PGS-UPDATE\HX-PGS-UPDATE\obj\Debug\HX-PGS-UPDATE.vbproj.SuggestedBindingRedirects.cache
+D:\工巧明\HX-PGS\HX-PGS-UPDATE\HX-PGS-UPDATE\obj\Debug\HX_PGS_UPDATE.線路選擇.resources

HX-PGS-UPDATE/obj/Debug/HX-PGS-UPDATE.xml

@@ -22,6 +22,26 @@ HX-PGS-UPDATE
   使用這個強類型資源類別的資源查閱。
 </summary>
 </member>
+<member name="P:HX_PGS_UPDATE.My.Resources.Resources._62951168976601486">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:HX_PGS_UPDATE.My.Resources.Resources.image1">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:HX_PGS_UPDATE.My.Resources.Resources.IMG_7137">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:HX_PGS_UPDATE.My.Resources.Resources.test">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="M:HX_PGS_UPDATE.SQL_連線狀態模組1.ConnectTest1(System.String,System.Decimal)">
  <summary>
  测试连接：True-连接成功，False-连接失败

HX-PGS-UPDATE/線路選擇.Designer.vb

@@ -0,0 +1,92 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 線路選擇
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.測試_pb = New System.Windows.Forms.PictureBox()
+        Me.工地_pb = New System.Windows.Forms.PictureBox()
+        Me.總部_pb = New System.Windows.Forms.PictureBox()
+        CType(Me.測試_pb, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.工地_pb, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.總部_pb, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '測試_pb
+        '
+        Me.測試_pb.BackColor = System.Drawing.Color.Transparent
+        Me.測試_pb.BackgroundImage = Global.HX_PGS_UPDATE.My.Resources.Resources.test
+        Me.測試_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.測試_pb.Location = New System.Drawing.Point(236, 4)
+        Me.測試_pb.Name = "測試_pb"
+        Me.測試_pb.Size = New System.Drawing.Size(100, 100)
+        Me.測試_pb.TabIndex = 2
+        Me.測試_pb.TabStop = False
+        '
+        '工地_pb
+        '
+        Me.工地_pb.BackColor = System.Drawing.Color.Transparent
+        Me.工地_pb.BackgroundImage = Global.HX_PGS_UPDATE.My.Resources.Resources.IMG_7137
+        Me.工地_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.工地_pb.Location = New System.Drawing.Point(120, 4)
+        Me.工地_pb.Name = "工地_pb"
+        Me.工地_pb.Size = New System.Drawing.Size(100, 100)
+        Me.工地_pb.TabIndex = 1
+        Me.工地_pb.TabStop = False
+        '
+        '總部_pb
+        '
+        Me.總部_pb.BackColor = System.Drawing.Color.Transparent
+        Me.總部_pb.BackgroundImage = Global.HX_PGS_UPDATE.My.Resources.Resources.image1
+        Me.總部_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.總部_pb.Location = New System.Drawing.Point(4, 4)
+        Me.總部_pb.Name = "總部_pb"
+        Me.總部_pb.Size = New System.Drawing.Size(100, 100)
+        Me.總部_pb.TabIndex = 0
+        Me.總部_pb.TabStop = False
+        '
+        '線路選擇
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackgroundImage = Global.HX_PGS_UPDATE.My.Resources.Resources._62951168976601486
+        Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.ClientSize = New System.Drawing.Size(343, 110)
+        Me.Controls.Add(Me.測試_pb)
+        Me.Controls.Add(Me.工地_pb)
+        Me.Controls.Add(Me.總部_pb)
+        Me.DoubleBuffered = True
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "線路選擇"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "線路選擇"
+        CType(Me.測試_pb, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.工地_pb, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.總部_pb, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents 總部_pb As PictureBox
+    Friend WithEvents 工地_pb As PictureBox
+    Friend WithEvents 測試_pb As PictureBox
+End Class

HX-PGS-UPDATE/線路選擇.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

HX-PGS-UPDATE/線路選擇.vb

@@ -0,0 +1,11 @@
+Public Class 線路選擇
+    Private Sub 總部_pb_Click(sender As Object, e As EventArgs) Handles 總部_pb.Click
+        登入人IP = "106.1.48.106,4567" : Me.Close()
+    End Sub
+    Private Sub 工地_pb_Click(sender As Object, e As EventArgs) Handles 工地_pb.Click
+        登入人IP = "106.1.48.106,4567" : Me.Close()
+    End Sub
+    Private Sub 測試_pb_Click(sender As Object, e As EventArgs) Handles 測試_pb.Click
+        登入人IP = "106.1.48.106,4567" : Me.Close()
+    End Sub
+End Class