GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/06、業務管理系統/合約本文.vb

Option Strict Off
Imports Microsoft.Office.Interop.Word
Imports Microsoft.Office.Interop
Public Class 合約本文
    ReadOnly ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8, ds15 As New DataSet
    Dim EDR, YR As Integer
    Dim YY(3), X(35), Y(35) As Integer
    Dim 條件選擇 As String
    ReadOnly 本文數 As Integer = 757
    Dim 最終數1 As Integer
    Dim 自動移動, 放大, 簽回檔 As Boolean
    Const x0 As Integer = 70
    Const y0 As Integer = 350
    Const h As Integer = 10
    Const hd As Integer = 10
    Const cnt As Integer = 4

    Private Sub Set_合約範例()
        範例文本_dgv.DataSource = Nothing : ds7.Clear()
        範例文本_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        範例文本_dgv.ColumnHeadersHeight = 25 : 範例文本_dgv.AllowUserToAddRows = False
        SQL_合約清單_範本()
        da.Fill(ds7) : 範例文本_dgv.DataSource = ds7.Tables(0) : conn.Close()
        Dim OLY As Integer
        For no As Integer = 1 To 本文數
            Dim LBS As Label = CType(Me.Controls.Find("LB" + (no).ToString(), True)(0), Label)
            If 範例文本_dgv.Rows.Count < no Then : Else
                LBS.Text = 範例文本_dgv("內容", no - 1).Value : OLY = LBS.Location.Y : LBS.Location = New Drawing.Point(範例文本_dgv("座標X", no - 1).Value, OLY)
            End If
        Next
        自動移動 = True
        LB7_移動() : LB8_移動() : LB9_移動() : LB10_移動() : LB11_移動() : LB12_移動() : LB13_移動() : LB14_移動() : LB15_移動() : LB16_移動() : LB17_移動() : LB18_移動() : LB19_移動()
        LB20_移動() : LB31_移動() : LB32_移動() : LB35_移動() : LB36_移動() : LB37_移動() : LB38_移動() : LB86_移動() : LB87_移動() : LB88_移動() : LB89_移動() : LB90_移動()
        LB91_移動() : LB92_移動() : LB93_移動() : LB103_移動() : LB104_移動() : LB105_移動() : LB106_移動() : LB107_移動() : LB108_移動() : LB109_移動() : LB110_移動() : LB111_移動()
        LB112_移動() : LB113_移動() : LB114_移動() : LB115_移動() : LB116_移動() : LB117_移動() : LB118_移動() : LB119_移動() : LB120_移動() : LB121_移動() : LB122_移動() : LB123_移動()
        LB124_移動() : LB125_移動() : LB126_移動() : LB127_移動() : LB129_移動() : LB131_移動() : LB132_移動() : LB133_移動() : LB134_移動() : LB135_移動() : LB136_移動() : LB137_移動()
        LB138_移動() : LB140_移動() : LB141_移動() : LB142_移動() : LB143_移動() : LB144_移動() : LB145_移動() : LB147_移動() : LB149_移動() : LB150_移動() : LB152_移動() : LB159_移動()
        LB160_移動() : LB161_移動() : LB163_移動() : LB164_移動() : LB167_移動() : LB168_移動() : LB170_移動() : LB171_移動() : LB173_移動() : LB174_移動() : LB176_移動() : LB177_移動()
        LB179_移動() : LB180_移動() : LB182_移動() : LB183_移動() : LB191_移動() : LB192_移動() : LB194_移動() : LB195_移動() : LB197_移動() : LB198_移動() : LB200_移動() : LB201_移動()
        LB203_移動() : LB204_移動() : LB206_移動() : LB207_移動() : LB209_移動() : LB210_移動() : LB212_移動() : LB213_移動() : LB215_移動() : LB216_移動() : LB218_移動() : LB219_移動()
        LB221_移動() : LB222_移動() : LB224_移動() : LB235_移動() : LB236_移動() : LB238_移動() : LB239_移動() : LB241_移動() : LB242_移動() : LB244_移動() : LB245_移動() : LB247_移動()
        LB248_移動() : LB250_移動() : LB251_移動() : LB253_移動() : LB254_移動() : LB256_移動() : LB257_移動() : LB259_移動() : LB260_移動() : LB262_移動() : LB263_移動() : LB265_移動()
        LB277_移動() : LB278_移動() : LB280_移動() : LB281_移動() : LB283_移動() : LB284_移動() : LB286_移動() : LB287_移動() : LB289_移動() : LB290_移動() : LB292_移動() : LB293_移動()
        LB295_移動() : LB296_移動() : LB298_移動() : LB299_移動() : LB301_移動() : LB307_移動() : LB308_移動() : LB310_移動() : LB311_移動() : LB313_移動() : LB314_移動() : LB316_移動()
        LB317_移動() : LB319_移動() : LB320_移動() : LB322_移動() : LB323_移動() : LB325_移動() : LB326_移動() : LB328_移動() : LB331_移動() : LB332_移動() : LB334_移動() : LB335_移動()
        LB337_移動() : LB338_移動() : LB340_移動() : LB341_移動() : LB343_移動() : LB344_移動() : LB346_移動() : LB352_移動() : LB353_移動() : LB355_移動() : LB356_移動() : LB358_移動()
        LB359_移動() : LB361_移動() : LB362_移動() : LB364_移動() : LB365_移動() : LB367_移動() : LB368_移動() : LB370_移動() : LB371_移動() : LB373_移動() : LB374_移動() : LB376_移動()
        LB377_移動() : LB379_移動() : LB380_移動() : LB382_移動() : LB383_移動() : LB385_移動() : LB386_移動() : LB388_移動() : LB389_移動() : LB391_移動() : LB397_移動() : LB398_移動()
        LB400_移動() : LB401_移動() : LB403_移動() : LB404_移動() : LB406_移動() : LB407_移動() : LB409_移動() : LB410_移動() : LB412_移動() : LB413_移動() : LB415_移動() : LB416_移動()
        LB418_移動() : LB419_移動() : LB421_移動() : LB422_移動() : LB424_移動() : LB425_移動() : LB427_移動() : LB428_移動() : LB430_移動() : LB431_移動() : LB433_移動() : LB434_移動()
        LB436_移動() : LB442_移動() : LB443_移動() : LB445_移動() : LB446_移動() : LB448_移動() : LB449_移動() : LB451_移動() : LB452_移動() : LB454_移動() : LB455_移動() : LB457_移動()
        LB458_移動() : LB460_移動() : LB461_移動() : LB463_移動() : LB464_移動() : LB466_移動() : LB467_移動() : LB469_移動() : LB470_移動() : LB472_移動() : LB473_移動() : LB475_移動()
        LB476_移動() : LB478_移動() : LB479_移動() : LB481_移動() : LB489_移動() : LB490_移動() : LB492_移動() : LB493_移動() : LB495_移動() : LB496_移動() : LB498_移動() : LB499_移動()
        LB501_移動() : LB502_移動() : LB504_移動() : LB505_移動() : LB507_移動() : LB508_移動() : LB510_移動() : LB511_移動() : LB513_移動() : LB514_移動() : LB516_移動() : LB517_移動()
        LB519_移動() : LB520_移動() : LB522_移動() : LB529_移動() : LB530_移動() : LB532_移動() : LB533_移動() : LB535_移動() : LB536_移動() : LB538_移動() : LB539_移動() : LB541_移動()
        LB542_移動() : LB544_移動() : LB545_移動() : LB547_移動() : LB548_移動() : LB550_移動() : LB551_移動() : LB553_移動() : LB554_移動() : LB556_移動() : LB557_移動() : LB559_移動()
        LB560_移動() : LB562_移動() : LB563_移動() : LB565_移動() : LB577_移動() : LB578_移動() : LB580_移動() : LB581_移動() : LB583_移動() : LB584_移動() : LB586_移動() : LB587_移動()
        LB589_移動() : LB590_移動() : LB592_移動() : LB593_移動() : LB595_移動() : LB596_移動() : LB598_移動() : LB604_移動() : LB605_移動() : LB607_移動() : LB608_移動() : LB610_移動()
        LB611_移動() : LB613_移動() : LB614_移動() : LB616_移動() : LB617_移動() : LB619_移動() : LB620_移動() : LB622_移動() : LB623_移動() : LB625_移動() : LB626_移動() : LB628_移動()
        LB629_移動() : LB631_移動() : LB632_移動() : LB634_移動() : LB635_移動() : LB637_移動() : LB638_移動() : LB640_移動() : LB641_移動() : LB643_移動() : LB649_移動() : LB650_移動()
        LB652_移動() : LB653_移動() : LB655_移動() : LB656_移動() : LB658_移動() : LB659_移動() : LB661_移動() : LB662_移動() : LB664_移動() : LB665_移動() : LB667_移動() : LB668_移動()
        LB670_移動() : LB671_移動() : LB673_移動() : LB674_移動() : LB676_移動() : LB677_移動() : LB679_移動() : LB680_移動() : LB682_移動() : LB693_移動() : LB694_移動() : LB696_移動()
        LB697_移動() : LB699_移動() : LB700_移動() : LB702_移動() : LB703_移動() : LB705_移動() : LB706_移動() : LB708_移動() : LB709_移動() : LB711_移動() : LB712_移動() : LB714_移動()
        LB715_移動() : LB717_移動() : LB722_移動() : LB723_移動() : LB725_移動() : LB726_移動() : LB728_移動() : LB729_移動() : LB731_移動() : LB732_移動() : LB734_移動() : LB735_移動()
        LB737_移動() : LB738_移動() : LB740_移動() : LB750_移動() : LB751_移動() : LB753_移動() : LB754_移動() : LB756_移動()
        自動移動 = False
    End Sub
    Private Sub Set_存檔比較用()
        存檔比較_dgv.DataSource = Nothing : ds8.Clear()
        存檔比較_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        存檔比較_dgv.ColumnHeadersHeight = 25 : 存檔比較_dgv.AllowUserToAddRows = False
        SQL_合約本文清單()
        da.Fill(ds8) : 存檔比較_dgv.DataSource = ds8.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_合約清單()
        合約_dgv.DataSource = Nothing : ds6.Clear()
        合約_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        合約_dgv.ColumnHeadersHeight = 25 : 合約_dgv.AllowUserToAddRows = False
        PA46 = 合約編號1_cb.Text : PA47 = 工程期1_ch.Text
        SQL_合約清單_未語轉()
        da.Fill(ds6) : 合約_dgv.DataSource = ds6.Tables(0) : conn.Close()
        合約_dgv.Columns(0).FillWeight = 160 : 合約_dgv.Columns(1).Visible = False : 合約_dgv.Columns(2).Visible = False : 合約_dgv.Columns(3).Visible = False
        合約_dgv.Columns(4).Visible = False : 合約_dgv.Columns(5).Visible = False : 合約_dgv.Columns(6).Visible = False : 合約_dgv.Columns(7).Visible = False
        合約_dgv.Columns(8).Visible = False : 合約_dgv.Columns(9).Visible = False : 合約_dgv.Columns(10).Visible = False : 合約_dgv.Columns(11).Visible = False
        合約_dgv.Columns(12).Visible = False : 合約_dgv.Columns(13).Visible = False : 合約_dgv.Columns(14).Visible = False : 合約_dgv.Columns(15).Visible = False
        合約_dgv.Columns(16).Visible = False : 合約_dgv.Columns(17).Visible = False : 合約_dgv.Columns(18).Visible = False : 合約_dgv.Columns(19).Visible = False
        合約_dgv.Columns(20).Visible = False : 合約_dgv.Columns(21).Visible = False : 合約_dgv.Columns(22).Visible = False : 合約_dgv.Columns(23).Visible = False
        合約_dgv.Columns(24).FillWeight = 100 : 合約_dgv.Columns(25).Visible = False : 合約_dgv.Columns(26).Visible = False : 合約_dgv.Columns(27).Visible = False
        合約_dgv.Columns(28).Visible = False : 合約_dgv.Columns("工程名稱_中").FillWeight = 300 : 合約_dgv.Columns("簽回檔圖庫").Visible = False
        合約_dgv.Columns("簽回").FillWeight = 40
        合約_dgv.Columns(0).ReadOnly = True : 合約_dgv.Columns("工程名稱_中").ReadOnly = True
        If 放大 = True Then
            合約_dgv.Columns("工程名稱_中").Visible = True
        Else
            合約_dgv.Columns("工程名稱_中").Visible = False
        End If
        For no As Integer = 0 To 35 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (no + 50).ToString(), True)(0), Label) : LBS.Location = New Drawing.Point(X(no), Y(no)) : Next
        For i As Integer = 0 To 合約_dgv.Rows.Count - 1 : If IsDBNull(合約_dgv("簽回", i).Value) = True Then : 合約_dgv("簽回", i).Value = False : End If : Next
        PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text
        PA1 = "1" : Set_合約明細1() : PA1 = "2" : Set_合約明細2() : PA1 = "3" : Set_合約明細3() : PA1 = "4" : Set_合約明細4() : PA1 = "5" : Set_合約明細5()
    End Sub
    Private Sub Set_合約明細1()
        第1期_dgv.DataSource = Nothing : ds1.Clear()
        第1期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        第1期_dgv.ColumnHeadersHeight = 25 : 第1期_dgv.AllowUserToAddRows = False
        SQL_合約明細讀取()
        da.Fill(ds1) : 第1期_dgv.DataSource = ds1.Tables(0) : conn.Close()
        第1期_dgv.Columns(0).Visible = False : 第1期_dgv.Columns(1).Visible = False : 第1期_dgv.Columns(2).FillWeight = 20 : 第1期_dgv.Columns(3).FillWeight = 140
        第1期_dgv.Columns(4).FillWeight = 20 : 第1期_dgv.Columns(5).FillWeight = 50 : 第1期_dgv.Columns(2).ReadOnly = True : 第1期_dgv.Columns(5).ReadOnly = True
        第1期_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        第1期_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 第1期_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 第1期_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
        第1期_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        第1期_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        YY(0) = 0 : Dim NN1, NY As Integer
        For no As Integer = 1 To 40 : Dim NLBS As Label = CType(Me.Controls.Find("NLB" + no.ToString(), True)(0), Label) : NLBS.Visible = False : Next
        For I As Integer = 0 To 第1期_dgv.Rows.Count - 1
            YY(0) += YR
            For no As Integer = 0 To 35
                Dim LBS As Label = CType(Me.Controls.Find("LB" + (no + 50).ToString(), True)(0), Label) : LBS.Location = New Drawing.Point(X(no), Y(no) + YY(0))
            Next
        Next
        For I As Integer = 0 To 第1期_dgv.Rows.Count - 1
            Dim NLBS1 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 1).ToString(), True)(0), Label)
            Dim NLBS2 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 2).ToString(), True)(0), Label)
            Dim NLBS3 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 3).ToString(), True)(0), Label)
            Dim NLBS4 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 4).ToString(), True)(0), Label)
            NLBS1.Visible = True : NLBS2.Visible = True : NLBS3.Visible = True : NLBS4.Visible = True
            NLBS1.Location = New Drawing.Point(73, 149 + NY) : NLBS2.Location = New Drawing.Point(102, 149 + NY)
            NLBS3.Location = New Drawing.Point(529, 149 + NY) : NLBS4.Location = New Drawing.Point(610, 149 + NY)
            NLBS2.Text = 第1期_dgv("內容", I).Value.ToString : NLBS3.Text = Format(第1期_dgv("比例", I).Value, "#,##0.00") & " %"
            NLBS4.Text = Format(第1期_dgv("金額", I).Value, "#,##0") : NN1 += 3 : NY += 20
        Next
    End Sub
    Private Sub Set_合約明細2()
        第2期_dgv.DataSource = Nothing : ds2.Clear()
        第2期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        第2期_dgv.ColumnHeadersHeight = 25 : 第2期_dgv.AllowUserToAddRows = False
        SQL_合約明細讀取()
        da.Fill(ds2) : 第2期_dgv.DataSource = ds2.Tables(0) : conn.Close()
        第2期_dgv.Columns(0).Visible = False : 第2期_dgv.Columns(1).Visible = False : 第2期_dgv.Columns(2).FillWeight = 20 : 第2期_dgv.Columns(3).FillWeight = 140
        第2期_dgv.Columns(4).FillWeight = 20 : 第2期_dgv.Columns(5).FillWeight = 50 : 第2期_dgv.Columns(2).ReadOnly = True : 第2期_dgv.Columns(5).ReadOnly = True
        第2期_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        第2期_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 第2期_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 第2期_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
        第2期_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        第2期_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        YY(1) = 0 : Dim NN1, NY, OY As Integer
        For no As Integer = 41 To 80 : Dim NLBS As Label = CType(Me.Controls.Find("NLB" + no.ToString(), True)(0), Label) : NLBS.Visible = False : Next
        For I As Integer = 0 To 第2期_dgv.Rows.Count - 1
            YY(1) += YR
            For no As Integer = 0 To 26
                Dim LBS As Label = CType(Me.Controls.Find("LB" + (no + 59).ToString(), True)(0), Label) : LBS.Location = New Drawing.Point(X(no + 9), Y(no + 9) + YY(0) + YY(1))
            Next
        Next
        OY = LB52.Location.Y + 20 : NN1 = 40
        For I As Integer = 0 To 第2期_dgv.Rows.Count - 1
            Dim NLBS1 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 1).ToString(), True)(0), Label)
            Dim NLBS2 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 2).ToString(), True)(0), Label)
            Dim NLBS3 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 3).ToString(), True)(0), Label)
            Dim NLBS4 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 4).ToString(), True)(0), Label)
            NLBS1.Visible = True : NLBS2.Visible = True : NLBS3.Visible = True : NLBS4.Visible = True
            NLBS1.Location = New Drawing.Point(73, OY + NY) : NLBS2.Location = New Drawing.Point(102, OY + NY)
            NLBS3.Location = New Drawing.Point(529, OY + NY) : NLBS4.Location = New Drawing.Point(610, OY + NY)
            NLBS2.Text = 第2期_dgv("內容", I).Value.ToString : NLBS3.Text = Format(第2期_dgv("比例", I).Value, "#,##0.00") & " %"
            NLBS4.Text = Format(第2期_dgv("金額", I).Value, "#,##0") : NN1 += 3 : NY += 20
        Next
    End Sub
    Private Sub Set_合約明細3()
        第3期_dgv.DataSource = Nothing : ds3.Clear()
        第3期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        第3期_dgv.ColumnHeadersHeight = 25 : 第3期_dgv.AllowUserToAddRows = False
        SQL_合約明細讀取()
        da.Fill(ds3) : 第3期_dgv.DataSource = ds3.Tables(0) : conn.Close()
        第3期_dgv.Columns(0).Visible = False : 第3期_dgv.Columns(1).Visible = False : 第3期_dgv.Columns(2).FillWeight = 20 : 第3期_dgv.Columns(3).FillWeight = 140
        第3期_dgv.Columns(4).FillWeight = 20 : 第3期_dgv.Columns(5).FillWeight = 50 : 第3期_dgv.Columns(2).ReadOnly = True : 第3期_dgv.Columns(5).ReadOnly = True
        第3期_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        第3期_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 第3期_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 第3期_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
        第3期_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        第3期_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        YY(2) = 0 : Dim NN1, NY, OY As Integer
        For no As Integer = 81 To 120 : Dim NLBS As Label = CType(Me.Controls.Find("NLB" + no.ToString(), True)(0), Label) : NLBS.Visible = False : Next
        For I As Integer = 0 To 第3期_dgv.Rows.Count - 1
            YY(2) += YR
            For no As Integer = 0 To 17
                Dim LBS As Label = CType(Me.Controls.Find("LB" + (no + 68).ToString(), True)(0), Label) : LBS.Location = New Drawing.Point(X(no + 18), Y(no + 18) + YY(0) + YY(1) + YY(2))
            Next
        Next
        OY = LB61.Location.Y + 20 : NN1 = 80
        For I As Integer = 0 To 第3期_dgv.Rows.Count - 1
            Dim NLBS1 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 1).ToString(), True)(0), Label)
            Dim NLBS2 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 2).ToString(), True)(0), Label)
            Dim NLBS3 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 3).ToString(), True)(0), Label)
            Dim NLBS4 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 4).ToString(), True)(0), Label)
            NLBS1.Visible = True : NLBS2.Visible = True : NLBS3.Visible = True : NLBS4.Visible = True
            NLBS1.Location = New Drawing.Point(73, OY + NY) : NLBS2.Location = New Drawing.Point(102, OY + NY)
            NLBS3.Location = New Drawing.Point(529, OY + NY) : NLBS4.Location = New Drawing.Point(610, OY + NY)
            NLBS2.Text = 第3期_dgv("內容", I).Value.ToString : NLBS3.Text = Format(第3期_dgv("比例", I).Value, "#,##0.00") & " %"
            NLBS4.Text = Format(第3期_dgv("金額", I).Value, "#,##0") : NN1 += 3 : NY += 20
        Next
    End Sub
    Private Sub Set_合約明細4()
        第4期_dgv.DataSource = Nothing : ds4.Clear()
        第4期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        第4期_dgv.ColumnHeadersHeight = 25 : 第4期_dgv.AllowUserToAddRows = False
        SQL_合約明細讀取()
        da.Fill(ds4) : 第4期_dgv.DataSource = ds4.Tables(0) : conn.Close()
        第4期_dgv.Columns(0).Visible = False : 第4期_dgv.Columns(1).Visible = False : 第4期_dgv.Columns(2).FillWeight = 20 : 第4期_dgv.Columns(3).FillWeight = 140
        第4期_dgv.Columns(4).FillWeight = 20 : 第4期_dgv.Columns(5).FillWeight = 50 : 第4期_dgv.Columns(2).ReadOnly = True : 第4期_dgv.Columns(5).ReadOnly = True
        第4期_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        第4期_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 第4期_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 第4期_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
        第4期_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        第4期_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        YY(3) = 0 : Dim NN1, NY, OY As Integer
        For no As Integer = 121 To 160
            Dim NLBS As Label = CType(Me.Controls.Find("NLB" + no.ToString(), True)(0), Label) : NLBS.Visible = False
        Next
        For I As Integer = 0 To 第4期_dgv.Rows.Count - 1
            YY(3) += YR
            For no As Integer = 0 To 8
                Dim LBS As Label = CType(Me.Controls.Find("LB" + (no + 77).ToString(), True)(0), Label) : LBS.Location = New Drawing.Point(X(no + 27), Y(no + 27) + YY(0) + YY(1) + YY(2) + YY(3))
            Next
        Next
        OY = LB70.Location.Y + 20 : NN1 = 120
        For I As Integer = 0 To 第4期_dgv.Rows.Count - 1
            Dim NLBS1 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 1).ToString(), True)(0), Label)
            Dim NLBS2 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 2).ToString(), True)(0), Label)
            Dim NLBS3 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 3).ToString(), True)(0), Label)
            Dim NLBS4 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 4).ToString(), True)(0), Label)
            NLBS1.Visible = True : NLBS2.Visible = True : NLBS3.Visible = True : NLBS4.Visible = True
            NLBS1.Location = New Drawing.Point(73, OY + NY) : NLBS2.Location = New Drawing.Point(102, OY + NY)
            NLBS3.Location = New Drawing.Point(529, OY + NY) : NLBS4.Location = New Drawing.Point(610, OY + NY)
            NLBS2.Text = 第4期_dgv("內容", I).Value.ToString : NLBS3.Text = Format(第4期_dgv("比例", I).Value, "#,##0.00") & " %"
            NLBS4.Text = Format(第4期_dgv("金額", I).Value, "#,##0") : NN1 += 3 : NY += 20
        Next
    End Sub
    Private Sub Set_合約明細5()
        第5期_dgv.DataSource = Nothing : ds5.Clear()
        第5期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        第5期_dgv.ColumnHeadersHeight = 25 : 第5期_dgv.AllowUserToAddRows = False
        SQL_合約明細讀取()
        da.Fill(ds5) : 第5期_dgv.DataSource = ds5.Tables(0) : conn.Close()
        第5期_dgv.Columns(0).Visible = False : 第5期_dgv.Columns(1).Visible = False : 第5期_dgv.Columns(2).FillWeight = 20 : 第5期_dgv.Columns(3).FillWeight = 140
        第5期_dgv.Columns(4).FillWeight = 20 : 第5期_dgv.Columns(5).FillWeight = 50 : 第5期_dgv.Columns(2).ReadOnly = True : 第5期_dgv.Columns(5).ReadOnly = True
        第5期_dgv.Columns(2).DefaultCellStyle.Format = "#,##0" : 第5期_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 第5期_dgv.Columns(5).DefaultCellStyle.Format = "#,##0"
        第5期_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        第5期_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        Dim NN1, NY, OY As Integer
        For no As Integer = 161 To 200
            Dim NLBS As Label = CType(Me.Controls.Find("NLB" + no.ToString(), True)(0), Label) : NLBS.Visible = False
        Next
        OY = LB79.Location.Y + 20 : NN1 = 160
        For I As Integer = 0 To 第5期_dgv.Rows.Count - 1
            Dim NLBS1 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 1).ToString(), True)(0), Label)
            Dim NLBS2 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 2).ToString(), True)(0), Label)
            Dim NLBS3 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 3).ToString(), True)(0), Label)
            Dim NLBS4 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 4).ToString(), True)(0), Label)
            NLBS1.Visible = True : NLBS2.Visible = True : NLBS3.Visible = True : NLBS4.Visible = True
            NLBS1.Location = New Drawing.Point(73, OY + NY) : NLBS2.Location = New Drawing.Point(102, OY + NY)
            NLBS3.Location = New Drawing.Point(529, OY + NY) : NLBS4.Location = New Drawing.Point(610, OY + NY)
            NLBS2.Text = 第5期_dgv("內容", I).Value.ToString : NLBS3.Text = Format(第5期_dgv("比例", I).Value, "#,##0.00") & " %"
            NLBS4.Text = Format(第5期_dgv("金額", I).Value, "#,##0") : NN1 += 3 : NY += 20
        Next
    End Sub
    Private Sub Set_合約報價總表()
        報價總表_dgv.DataSource = Nothing : ds15.Clear()
        報價總表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        報價總表_dgv.ColumnHeadersHeight = 40 : 報價總表_dgv.AllowUserToAddRows = False : 報價總表_dgv.RowTemplate.Height = 45
        報價總表_dgv.RowsDefaultCellStyle.WrapMode = DataGridViewTriState.True
        SQL_合約報價總表()
        da.Fill(ds15) : 報價總表_dgv.DataSource = ds15.Tables(0) : conn.Close()
        報價總表_dgv.Columns(0).Visible = False : 報價總表_dgv.Columns(8).Visible = False : 報價總表_dgv.Columns(9).Visible = False
        報價總表_dgv.Columns(0).FillWeight = 50 : 報價總表_dgv.Columns(1).FillWeight = 50 : 報價總表_dgv.Columns(2).FillWeight = 210
        報價總表_dgv.Columns(3).FillWeight = 50 : 報價總表_dgv.Columns(4).FillWeight = 50 : 報價總表_dgv.Columns(5).FillWeight = 80
        報價總表_dgv.Columns(6).FillWeight = 80 : 報價總表_dgv.Columns(7).FillWeight = 90

        For i As Integer = 4 To 6 : 報價總表_dgv.Columns(i).DefaultCellStyle.Format = "#,##0" : Next
        For i As Integer = 4 To 6 : 報價總表_dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : Next
        For i As Integer = 0 To 7 : 報價總表_dgv.Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : Next
        報價總表_dgv.Columns(1).ReadOnly = True : 報價總表_dgv.Columns(2).ReadOnly = True : 報價總表_dgv.Columns(6).ReadOnly = True
        報價總表_dgv.EditMode = DataGridViewEditMode.EditOnEnter
    End Sub
    Private Sub 合約種類下拉清單讀取()
        SQL_合約種類讀取() : 合約種類_cb.Items.Clear() : While (dr.Read()) : 合約種類_cb.Items.Add(dr("中")) : End While : conn.Close()
    End Sub
    Private Sub 客戶名稱下拉清單讀取()
        SQL_客戶名稱讀取() : 客戶名稱_tb.Items.Clear() : While (dr.Read()) : 客戶名稱_tb.Items.Add(dr("客戶名稱")) : End While : conn.Close()
    End Sub
    Private Sub 我司負責人下拉清單讀取()
        SQL負責人B讀取() : 負責人_B_cb.Items.Clear() : While (dr.Read()) : 負責人_B_cb.Items.Add(dr("負責人B")) : End While : conn.Close()
    End Sub
    Private Sub 合約編號()
        合約編號中_lb.Text = "合約編號 : " & 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text
        合約編號英_lb.Text = "Contract Number : " & 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text
    End Sub
    Private Sub 甲方條件下拉清單讀取()
        SQL合約條件讀取() : 合約編號1_cb.Items.Clear() : 合約編號1_cb.Items.Add("") : While (dr.Read()) : 合約編號1_cb.Items.Add(dr("約號甲方")) : End While : conn.Close()
    End Sub
    Private Sub 浮水印()
        If 合約編號_cb.Text = "HX" Then : 選擇公司_cb.Text = "PT HONG XHE INDUSTRIAL"
            For I As Integer = 1 To Val(最末頁_cb.Text)
                Dim PanelS As Panel = CType(Me.Controls.Find("Panel" + (I).ToString(), True)(0), Panel) : PanelS.BackgroundImage = My.Resources.黑白hx
            Next
        Else : 選擇公司_cb.Text = "PT PUNCAK GEMILANG SEMESTA" : Panel1.BackgroundImage = My.Resources.黑白hx
            For I As Integer = 1 To Val(最末頁_cb.Text)
                Dim PanelS As Panel = CType(Me.Controls.Find("Panel" + (I).ToString(), True)(0), Panel) : PanelS.BackgroundImage = My.Resources.黑白pgs
            Next
        End If
    End Sub
    Private Sub 預設資料()
        合約種類_cb.Text = "" : 合約種類_tb.Text = "" : 客戶名稱_tb.Text = "" : 負責人_A_cb.Text = ""
        工程地點_tb.Text = "" : 客戶地址_tb.Text = "" : 工程名稱_中_tb.Text = "" : 工程名稱_英_tb.Text = "" : 負責人_B_cb.Text = "" : CH2.Checked = True : 立約日期_dtp.Value = Today()
        我司地址_tb.Text = "Kawasan Industri Terpadu Indonesia China ( KITIC ) Kav. 42 Lantai 4 Desa Nagasari Kec. Serang Baru Kab. Bekasi – Jawa Barat" : 廠區_中文_tb.Text = ""
        NUD3.Value = 0 : 工程款1_nud.Value = 30 : 工程款2_nud.Value = 40 : 工程款3_nud.Value = 20 : 工程款4_nud.Value = 5 : 工程款5_nud.Value = 5 : 工期_nud.Value = 180
        b中01_lb.Text = " (以下稱為B方)" : b英01_lb.Text = " (hereafter will be referred as Party B)" : A中09_lb.Text = "0" : A中10_lb.Text = "0" : A英10_lb.Text = "0"
        SLB21.Text = "" : SLB9.Text = "" : SLB18.Text = "" : 最末頁_cb.Text = "16" : 最高扣款_英_bt.Text = "5 (five)%." : 逾期_bt.Text = "0.0005% (萬分之五)"
        最高扣款_bt.Text = "5% (百分之五)" : 逾期_英_bt.Text = "0.0005% (null point null null null five percent)" : 頁數_bt.Text = "16"
        Set_合約清單() : 合約種類下拉清單讀取() : 客戶名稱下拉清單讀取() : 我司負責人下拉清單讀取() : 合約種類_cb.SelectedIndex = 0
        第1期_dgv.DataSource = Nothing : ds1.Clear() : 第2期_dgv.DataSource = Nothing : ds2.Clear() : 第3期_dgv.DataSource = Nothing : ds3.Clear()
        第4期_dgv.DataSource = Nothing : ds4.Clear() : 第5期_dgv.DataSource = Nothing : ds5.Clear()
    End Sub
    Private Sub 預設資料1()
        工程地點_tb.Text = "" : 工程名稱_中_tb.Text = "" : 工程名稱_英_tb.Text = "" : 負責人_B_cb.Text = "" : CH2.Checked = True : 立約日期_dtp.Value = Today()
        我司地址_tb.Text = "Kawasan Industri Terpadu Indonesia China ( KITIC ) Kav. 42 Lantai 4 Desa Nagasari Kec. Serang Baru Kab. Bekasi – Jawa Barat" : 廠區_中文_tb.Text = ""
        NUD3.Value = 0 : 工程款1_nud.Value = 30 : 工程款2_nud.Value = 40 : 工程款3_nud.Value = 20 : 工程款4_nud.Value = 5 : 工程款5_nud.Value = 5 : 工期_nud.Value = 180
        b中01_lb.Text = " (以下稱為B方)" : b英01_lb.Text = " (hereafter will be referred as Party B)" : A中09_lb.Text = "0" : A中10_lb.Text = "0" : A英10_lb.Text = "0"
        SLB21.Text = "" : SLB9.Text = "" : SLB18.Text = "" : 最末頁_cb.Text = "16" : 最高扣款_英_bt.Text = "5 (five)%." : 逾期_bt.Text = "0.0005% (萬分之五)"
        最高扣款_bt.Text = "5% (百分之五)" : 逾期_英_bt.Text = "0.0005% (null point null null null five percent)" : 頁數_bt.Text = "16"
        Set_合約清單() : 合約種類下拉清單讀取() : 客戶名稱下拉清單讀取() : 我司負責人下拉清單讀取() : 合約種類_cb.SelectedIndex = 0
        第1期_dgv.DataSource = Nothing : ds1.Clear() : 第2期_dgv.DataSource = Nothing : ds2.Clear() : 第3期_dgv.DataSource = Nothing : ds3.Clear()
        第4期_dgv.DataSource = Nothing : ds4.Clear() : 第5期_dgv.DataSource = Nothing : ds5.Clear()
    End Sub
    Private Sub 合約管理系統_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        HX_PGS_ERP_SYS.WindowState = 2 : Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        If CInt(登入人級別) <= 3 Then : 刪除合約_bt.Enabled = True : Else : 刪除合約_bt.Enabled = False : End If
        合約編號2_tb.Enabled = False : 合約編號3_tb.Enabled = False : CH1.Checked = False : CH2.Checked = True : NUD1.Enabled = False : NUD3.Enabled = True
        列印_bt.Enabled = False : Me.PrintPreviewControl1.Visible = False : Me.PrintPreviewControl1.SendToBack() : Panel1.BringToFront()
    End Sub
    Private Sub 合約管理系統_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        甲方條件下拉清單讀取() : PA = "範本" : Set_合約範例() : YR = 20
        For no As Integer = 0 To 35
            Dim LBS As Label = CType(Me.Controls.Find("LB" + (no + 50).ToString(), True)(0), Label) : X(no) = LBS.Location.X : Y(no) = LBS.Location.Y
        Next
        預設資料()
        '----------合約範本設定-CC101--------------------------------------------------------------------------------------------------------------------------
        讀取合約範本_bt.Enabled = CC(101) : 合約範本存檔_bt.Enabled = CC(101)
        '----------合約修改權限-CC102--------------------------------------------------------------------------------------------------------------------------
        最末頁_cb.Enabled = CC(102) : 去除_bt.Enabled = CC(102) : 新增_bt.Enabled = CC(102) : 自動讀取_bt.Enabled = CC(102) : 手動輸入_bt.Enabled = CC(102)
        新增資料_bt.Enabled = CC(102) : 刪除資料_bt.Enabled = CC(102) : 刪除合約_bt.Enabled = CC(102) : 存檔_tb.Enabled = CC(102)
        '----------合約列印權限-CC103--------------------------------------------------------------------------------------------------------------------------
        預覽_bt.Enabled = CC(103) : 上一頁_bt.Enabled = CC(103) : 下一頁_bt.Enabled = CC(103)

        合約_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
    End Sub
    Private Sub 合約管理系統_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        HX_PGS_ERP_SYS.WindowState = 0 : MyModule1.虛擬桌面開啟()
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 合約_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            If 放大 = True Then : 縮放2_bt.PerformClick() : End If
            合約種類下拉清單讀取() : 客戶名稱下拉清單讀取() : 我司負責人下拉清單讀取()
            If Strings.Left(合約_dgv("合約編號", e.RowIndex).Value.ToString, 2) = "HX" Then : 合約編號_cb.Text = "HX" : Else : 合約編號_cb.Text = "PGS" : End If
            合約編號1_tb.Text = 合約_dgv("約號甲方", e.RowIndex).Value.ToString : 合約編號2_tb.Text = 合約_dgv("約號排序", e.RowIndex).Value.ToString
            合約編號3_tb.Text = 合約_dgv("約號尾序", e.RowIndex).Value.ToString

            For no As Integer = 0 To 35 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (no + 50).ToString(), True)(0), Label) : LBS.Location = New Drawing.Point(X(no), Y(no)) : Next
            PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text
            PA1 = "1" : Set_合約明細1() : PA1 = "2" : Set_合約明細2() : PA1 = "3" : Set_合約明細3() : PA1 = "4" : Set_合約明細4() : PA1 = "5" : Set_合約明細5()
            Set_合約報價總表() : Set_合約範例()

            客戶名稱_tb.Text = 合約_dgv("客戶名稱", e.RowIndex).Value.ToString : 負責人_A_cb.Text = 合約_dgv("負責人A", e.RowIndex).Value.ToString
            工程地點_tb.Text = 合約_dgv("工程地點", e.RowIndex).Value.ToString : 客戶地址_tb.Text = 合約_dgv("客戶地址", e.RowIndex).Value.ToString
            工程名稱_中_tb.Text = 合約_dgv("工程名稱_中", e.RowIndex).Value.ToString : 工程名稱_英_tb.Text = 合約_dgv("工程名稱_英", e.RowIndex).Value.ToString
            負責人_B_cb.Text = 合約_dgv("負責人B", e.RowIndex).Value.ToString : 我司地址_tb.Text = 合約_dgv("我司地址", e.RowIndex).Value.ToString
            CH2.Checked = True : NUD3.Value = 合約_dgv("工程總價", e.RowIndex).Value : 工程款1_nud.Value = 合約_dgv("第一期比例", e.RowIndex).Value
            工程款2_nud.Value = 合約_dgv("第二期比例", e.RowIndex).Value : 工程款3_nud.Value = 合約_dgv("第三期比例", e.RowIndex).Value
            工程款4_nud.Value = 合約_dgv("第四期比例", e.RowIndex).Value : 工程款5_nud.Value = 合約_dgv("第五期比例", e.RowIndex).Value
            工期_nud.Value = 合約_dgv("工期", e.RowIndex).Value : 逾期_bt.Text = 合約_dgv("逾期_中", e.RowIndex).Value.ToString
            最高扣款_bt.Text = 合約_dgv("最高扣罰_中", e.RowIndex).Value.ToString : 逾期_英_bt.Text = 合約_dgv("逾期_英", e.RowIndex).Value.ToString
            最高扣款_英_bt.Text = 合約_dgv("最高扣罰_英", e.RowIndex).Value.ToString : 減價_bt.Text = 合約_dgv("減價", e.RowIndex).Value.ToString
            廠區_中文_tb.Text = 合約_dgv("工程廠區", e.RowIndex).Value.ToString : 最末頁_cb.Text = 合約_dgv("頁數", e.RowIndex).Value.ToString
            立約日期_dtp.Value = 合約_dgv("立約日期", e.RowIndex).Value : 合約種類_cb.Text = 合約_dgv("合約種類", e.RowIndex).Value.ToString

            合約編號_tb.Text = 合約_dgv("合約編號", e.RowIndex).Value.ToString
            圖片庫 = 合約_dgv("簽回檔圖庫", e.RowIndex).Value.ToString : 簽回檔 = 合約_dgv("簽回", e.RowIndex).Value

            For i As Integer = 0 To 報價總表_dgv.Rows.Count - 1
                If 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "稅金 10% Tax" Then
                    稅額顯示_lb.Text = "PPN 10%稅額 = Rp. " : LB25.Text = "PPN 10%稅額 = Rp. " : LB26.Text = "Value added Tax 10% = Rp. "
                    LB29.Text = "上述d.工程總價包括PPN 10%稅額，詳情載於報價中。"
                    LB30.Text = "Point d at above Total Price of the Project is included 10% of Value added Tax, detail is in the quotation. "
                ElseIf 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "稅金 11% Tax" Then
                    稅額顯示_lb.Text = "PPN 11%稅額 = Rp. " : LB25.Text = "PPN 11%稅額 = Rp. " : LB26.Text = "Value added Tax 11% = Rp. "
                    LB29.Text = "上述d.工程總價包括PPN 11%稅額，詳情載於報價中。"
                    LB30.Text = "Point d at above Total Price of the Project is included 11% of Value added Tax, detail is in the quotation. "
                End If
                If 報價總表_dgv.Rows(i).Cells("DESCRIPTION").Value.ToString = "總計 Grand Total" Then : NUD3.Value = 報價總表_dgv.Rows(i).Cells("AMOUNT (RP)").Value : End If
            Next
        End If
    End Sub
    Private Sub 第1期_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 第1期_dgv.CellEnter
        If Not IsNumeric(第1期_dgv.Rows(e.RowIndex).Cells("比例").Value) Then
            If 系統語言 = "繁體中文" Then : MsgBox("欄位輸入必須為數值!!") : Else : MsgBox("Input bidang harus numerik!!") : End If
            第1期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第1期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"
        Else
            Dim nn As Integer : Dim NN1 As Integer = 0
            For i As Integer = 0 To 第1期_dgv.Rows.Count - 1 : nn += 第1期_dgv.Rows(i).Cells("比例").Value : Next
            If nn > 工程款1_nud.Value Then
                Dim SS As String
                If 系統語言 = "繁體中文" Then : SS = "第一期的細項比例不可大於 " : Else : SS = "Proporsi detail fase pertama tidak boleh lebih dari " : End If
                MsgBox(SS & Format(工程款1_nud.Value, "#,##0.00") & " % !!")
                第1期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第1期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"
            Else
                For i As Integer = 0 To 第1期_dgv.Rows.Count - 1
                    第1期_dgv.Rows(i).Cells("金額").Value = 第1期_dgv.Rows(i).Cells("比例").Value * 金額1_und.Value / 工程款1_nud.Value
                Next i
            End If
            For I As Integer = 0 To 第1期_dgv.Rows.Count - 1
                Dim NLBS1 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 1).ToString(), True)(0), Label)
                Dim NLBS2 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 2).ToString(), True)(0), Label)
                Dim NLBS3 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 3).ToString(), True)(0), Label)
                Dim NLBS4 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 4).ToString(), True)(0), Label)
                NLBS2.Text = 第1期_dgv("內容", I).Value.ToString : NLBS3.Text = Format(第1期_dgv("比例", I).Value, "#,##0.00") & " %"
                NLBS4.Text = Format(第1期_dgv("金額", I).Value, "#,##0") : NN1 += 3
            Next
        End If
    End Sub
    Private Sub 第2期_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 第2期_dgv.CellEnter
        If Not IsNumeric(第2期_dgv.Rows(e.RowIndex).Cells("比例").Value) Then
            If 系統語言 = "繁體中文" Then : MsgBox("欄位輸入必須為數值!!") : Else : MsgBox("Input bidang harus numerik!!") : End If
            第2期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第2期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"
        Else
            Dim nn As Integer : Dim NN1 As Integer = 40
            For i As Integer = 0 To 第2期_dgv.Rows.Count - 1 : nn += 第2期_dgv.Rows(i).Cells("比例").Value : Next
            If nn > 工程款2_nud.Value Then
                Dim SS As String
                If 系統語言 = "繁體中文" Then : SS = "第二期的細項比例不可大於 " : Else : SS = "Proporsi detail fase kedua tidak boleh lebih besar dari " : End If
                MsgBox(SS & Format(工程款2_nud.Value, "#,##0.00") & " % !!")
                第2期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第2期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"
            Else
                For i As Integer = 0 To 第2期_dgv.Rows.Count - 1
                    第2期_dgv.Rows(i).Cells("金額").Value = 第2期_dgv.Rows(i).Cells("比例").Value * 金額2_und.Value / 工程款2_nud.Value
                Next i
            End If
            For I As Integer = 0 To 第2期_dgv.Rows.Count - 1
                Dim NLBS1 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 1).ToString(), True)(0), Label)
                Dim NLBS2 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 2).ToString(), True)(0), Label)
                Dim NLBS3 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 3).ToString(), True)(0), Label)
                Dim NLBS4 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 4).ToString(), True)(0), Label)
                NLBS2.Text = 第2期_dgv("內容", I).Value.ToString : NLBS3.Text = Format(第2期_dgv("比例", I).Value, "#,##0.00") & " %"
                NLBS4.Text = Format(第2期_dgv("金額", I).Value, "#,##0") : NN1 += 3
            Next
        End If
    End Sub
    Private Sub 第3期_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 第3期_dgv.CellEnter
        If Not IsNumeric(第3期_dgv.Rows(e.RowIndex).Cells("比例").Value) Then
            If 系統語言 = "繁體中文" Then : MsgBox("欄位輸入必須為數值!!") : Else : MsgBox("Input bidang harus numerik!!") : End If
            第3期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第3期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"
        Else
            Dim nn As Integer : Dim NN1 As Integer = 80
            For i As Integer = 0 To 第3期_dgv.Rows.Count - 1 : nn += 第3期_dgv.Rows(i).Cells("比例").Value : Next
            If nn > 工程款3_nud.Value Then
                Dim SS As String
                If 系統語言 = "繁體中文" Then : SS = "第三期的細項比例不可大於 " : Else : SS = "Proporsi rincian periode ketiga tidak boleh lebih besar dari " : End If
                MsgBox(SS & Format(工程款3_nud.Value, "#,##0.00") & " % !!")
                第3期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第3期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"
            Else
                For i As Integer = 0 To 第3期_dgv.Rows.Count - 1
                    第3期_dgv.Rows(i).Cells("金額").Value = 第3期_dgv.Rows(i).Cells("比例").Value * 金額3_und.Value / 工程款3_nud.Value
                Next i
            End If
            For I As Integer = 0 To 第3期_dgv.Rows.Count - 1
                Dim NLBS1 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 1).ToString(), True)(0), Label)
                Dim NLBS2 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 2).ToString(), True)(0), Label)
                Dim NLBS3 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 3).ToString(), True)(0), Label)
                Dim NLBS4 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 4).ToString(), True)(0), Label)
                NLBS2.Text = 第3期_dgv("內容", I).Value.ToString : NLBS3.Text = Format(第3期_dgv("比例", I).Value, "#,##0.00") & " %"
                NLBS4.Text = Format(第3期_dgv("金額", I).Value, "#,##0") : NN1 += 3
            Next
        End If
    End Sub
    Private Sub 第4期_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 第4期_dgv.CellEnter
        If Not IsNumeric(第4期_dgv.Rows(e.RowIndex).Cells("比例").Value) Then
            If 系統語言 = "繁體中文" Then : MsgBox("欄位輸入必須為數值!!") : Else : MsgBox("Input bidang harus numerik!!") : End If
            第4期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第4期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"
        Else
            Dim nn As Integer : Dim NN1 As Integer = 120
            For i As Integer = 0 To 第4期_dgv.Rows.Count - 1 : nn += 第4期_dgv.Rows(i).Cells("比例").Value : Next
            If nn > 工程款4_nud.Value Then
                Dim SS As String
                If 系統語言 = "繁體中文" Then : SS = "第四期的細項比例不可大於 " : Else : SS = "Proporsi rincian periode ke-4 tidak boleh lebih besar dari " : End If
                MsgBox(SS & Format(工程款4_nud.Value, "#,##0.00") & " % !!")
                第4期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第4期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"
            Else
                For i As Integer = 0 To 第4期_dgv.Rows.Count - 1
                    第4期_dgv.Rows(i).Cells("金額").Value = 第4期_dgv.Rows(i).Cells("比例").Value * 金額4_und.Value / 工程款4_nud.Value
                Next i
            End If
            For I As Integer = 0 To 第4期_dgv.Rows.Count - 1
                Dim NLBS1 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 1).ToString(), True)(0), Label)
                Dim NLBS2 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 2).ToString(), True)(0), Label)
                Dim NLBS3 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 3).ToString(), True)(0), Label)
                Dim NLBS4 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 4).ToString(), True)(0), Label)
                NLBS2.Text = 第4期_dgv("內容", I).Value.ToString : NLBS3.Text = Format(第4期_dgv("比例", I).Value, "#,##0.00") & " %"
                NLBS4.Text = Format(第4期_dgv("金額", I).Value, "#,##0") : NN1 += 3
            Next
        End If
    End Sub
    Private Sub 第5期_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 第5期_dgv.CellEnter
        If Not IsNumeric(第5期_dgv.Rows(e.RowIndex).Cells("比例").Value) Then
            If 系統語言 = "繁體中文" Then : MsgBox("欄位輸入必須為數值!!") : Else : MsgBox("Input bidang harus numerik!!") : End If
            第5期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第5期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"
        Else
            Dim nn As Integer : Dim NN1 As Integer = 160
            For i As Integer = 0 To 第5期_dgv.Rows.Count - 1 : nn += 第5期_dgv.Rows(i).Cells("比例").Value : Next
            If nn > 工程款5_nud.Value Then
                Dim SS As String
                If 系統語言 = "繁體中文" Then : SS = "第五期的細項比例不可大於 " : Else : SS = "Proporsi rincian periode kelima tidak boleh lebih besar dari " : End If
                MsgBox(SS & Format(工程款5_nud.Value, "#,##0.00") & " % !!")
                第5期_dgv.Rows(e.RowIndex).Cells("比例").Value = "0" : 第5期_dgv.Rows(e.RowIndex).Cells("金額").Value = "0"
            Else
                For i As Integer = 0 To 第5期_dgv.Rows.Count - 1
                    第5期_dgv.Rows(i).Cells("金額").Value = 第5期_dgv.Rows(i).Cells("比例").Value * 金額5_und.Value / 工程款5_nud.Value
                Next i
            End If
            For I As Integer = 0 To 第5期_dgv.Rows.Count - 1
                Dim NLBS1 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 1).ToString(), True)(0), Label)
                Dim NLBS2 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 2).ToString(), True)(0), Label)
                Dim NLBS3 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 3).ToString(), True)(0), Label)
                Dim NLBS4 As Label = CType(Me.Controls.Find("NLB" + (I + NN1 + 4).ToString(), True)(0), Label)
                NLBS2.Text = 第5期_dgv("內容", I).Value.ToString : NLBS3.Text = Format(第5期_dgv("比例", I).Value, "#,##0.00") & " %"
                NLBS4.Text = Format(第5期_dgv("金額", I).Value, "#,##0") : NN1 += 3
            Next
        End If
    End Sub
    Private Sub 第1期_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 第1期_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 明細選項_bt.Text = 第1期_dgv("細項", e.RowIndex).Value.ToString : 明細選項_bt.Text = Format(Val(明細選項_bt.Text), "#,##0") : End If
    End Sub
    Private Sub 第2期_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 第2期_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 明細選項_bt.Text = 第2期_dgv("細項", e.RowIndex).Value.ToString : 明細選項_bt.Text = Format(Val(明細選項_bt.Text), "#,##0") : End If
    End Sub
    Private Sub 第3期_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 第3期_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 明細選項_bt.Text = 第3期_dgv("細項", e.RowIndex).Value.ToString : 明細選項_bt.Text = Format(Val(明細選項_bt.Text), "#,##0") : End If
    End Sub
    Private Sub 第4期_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 第4期_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 明細選項_bt.Text = 第4期_dgv("細項", e.RowIndex).Value.ToString : 明細選項_bt.Text = Format(Val(明細選項_bt.Text), "#,##0") : End If
    End Sub
    Private Sub 第5期_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 第5期_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 明細選項_bt.Text = 第5期_dgv("細項", e.RowIndex).Value.ToString : 明細選項_bt.Text = Format(Val(明細選項_bt.Text), "#,##0") : End If
    End Sub
    Private Sub 選擇公司_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 選擇公司_cb.SelectedIndexChanged
        If 選擇公司_cb.Text = "PT HONG XHE INDUSTRIAL" Then : 合約編號_cb.Text = "HX" : Else : 合約編號_cb.Text = "PGS" : End If
        b中01_lb.Text = 選擇公司_cb.Text & vbCrLf &
                        " (以下稱為B方)"
        b英01_lb.Text = 選擇公司_cb.Text & vbCrLf &
                        " (hereafter will be referred as Party B)"
        SLB18.Text = 選擇公司_cb.Text
    End Sub
    Private Sub 合約編號_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號_cb.SelectedIndexChanged
        浮水印() : 合約編號()
    End Sub
    Private Sub 合約編號1_tb_TextChanged(sender As Object, e As EventArgs) Handles 合約編號1_tb.TextChanged
        合約編號() : PA30 = 合約編號1_tb.Text : SQL_客戶資料讀取()
        If dr.Read() Then : 客戶名稱_tb.Text = dr("客戶名稱").ToString : 負責人_A_cb.Text = dr("負責人").ToString : 客戶地址_tb.Text = dr("地址").ToString : End If : conn.Close()
    End Sub
    Private Sub 合約編號2_tb_TextChanged(sender As Object, e As EventArgs) Handles 合約編號2_tb.TextChanged
        合約編號()
    End Sub
    Private Sub 合約編號3_tb_TextChanged(sender As Object, e As EventArgs) Handles 合約編號3_tb.TextChanged
        合約編號()
    End Sub
    Private Sub 查閱文件_bt_Click(sender As Object, e As EventArgs) Handles 查閱文件_bt.Click
        If 合約編號_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("請先選擇合約!!") : Else : MsgBox("Silakan pilih kontrak terlebih dahulu!!") : End If : Else
            If 簽回檔 = False Then : If 系統語言 = "繁體中文" Then : MsgBox("該合約還沒有建立簽回文件!!") : Else : MsgBox("Kontrak belum membuat file sign-back!!") : End If : Else
                PA1 = 合約編號_tb.Text : PA2 = "合約" : 文件查閱視窗.ShowDialog()
            End If
        End If
    End Sub
    Private Sub 自動讀取_bt_Click(sender As Object, e As EventArgs) Handles 自動讀取_bt.Click
        If 客戶名稱_tb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("請先選擇客戶名稱!!") : Else : MsgBox("Silakan pilih nama pelanggan terlebih dahulu!!") : End If : Else
            If 系統語言 = "繁體中文" Then : MsgBox("進入編輯狀態，合約清單已鎖定不可選擇，鎖定狀態在合約存檔後解除!!")
            Else : MsgBox("Masuk ke status edit, daftar kontrak sudah terkunci dan tidak bisa dipilih, status terkunci akan dilepas setelah kontrak diarsipkan!!") : End If
            合約_dgv.Enabled = False
            PA30 = 合約編號1_tb.Text : SQL_客戶資料讀取() : If dr.Read() Then : 合約編號1_tb.Text = dr("簡稱") : End If : conn.Close()
            If 合約編號_cb.Text = "" Or 合約編號1_tb.Text = "" Then
                If 系統語言 = "繁體中文" Then : MsgBox("資訊不夠，無法生成合約編號!!") : Else : MsgBox("Informasi tidak cukup untuk menghasilkan nomor kontrak!!") : End If
            Else
                合約編號2_tb.Enabled = False : 合約編號3_tb.Enabled = False
                PA = Strings.Mid(Format(Today(), "yyyy/MM/dd"), 3, 2) & Strings.Mid(Format(Today(), "yyyy/MM/dd"), 6, 2) & Strings.Right(Format(Today(), "yyyy/MM/dd"), 2)
                SQL_合約流水號_最後一筆資料()
                If dr.Read() Then
                    If Val(Strings.Right(dr("合約編號").ToString, 2)) > 9 Then : EDR = Strings.Right(dr("合約編號").ToString, 2) : Else : EDR = Strings.Right(dr("合約編號").ToString, 1) : End If
                End If : conn.Close() : EDR += 1 : 合約編號2_tb.Text = PA : 合約編號3_tb.Text = EDR : 預設資料1()
            End If
        End If
    End Sub
    Private Sub 手動輸入_bt_Click(sender As Object, e As EventArgs) Handles 手動輸入_bt.Click
        If 系統語言 = "繁體中文" Then : MsgBox("進入編輯狀態，合約清單已鎖定不可選擇，鎖定狀態在合約存檔後解除!!")
        Else : MsgBox("Masuk ke status edit, daftar kontrak sudah terkunci dan tidak bisa dipilih, status terkunci akan dilepas setelah kontrak diarsipkan!!") : End If
        合約_dgv.Enabled = False : 合約編號2_tb.Enabled = True : 合約編號3_tb.Enabled = True : 預設資料1()
    End Sub
    Private Sub 合約種類_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約種類_cb.TextChanged
        A中01_lb.Text = 合約種類_cb.Text : Dim X1, Y1, X2 As Integer : Y1 = A中01_lb.Location.Y : X2 = A中01_lb.Size.Width : X1 = (930 - X2) / 2 : A中01_lb.Location = New Drawing.Point(X1, Y1)
    End Sub
    Private Sub 合約種類_cb_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles 合約種類_cb.SelectedIndexChanged
        PA10 = 合約種類_cb.Text : SQL_合約種類英文讀取() : If dr.Read() Then : 合約種類_tb.Text = dr("英") : End If : conn.Close()
    End Sub
    Private Sub 合約種類_tb_TextChanged(sender As Object, e As EventArgs) Handles 合約種類_tb.TextChanged
        A英01_lb.Text = 合約種類_tb.Text : Dim X1, Y1, X2 As Integer : Y1 = A英01_lb.Location.Y : X2 = A英01_lb.Size.Width : X1 = (930 - X2) / 2 : A英01_lb.Location = New Drawing.Point(X1, Y1)
    End Sub
    Private Sub 客戶名稱_tb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 客戶名稱_tb.TextChanged
        A中02_lb.Text = 客戶名稱_tb.Text : A英02_lb.Text = 客戶名稱_tb.Text
        A中03_lb.Text = 客戶名稱_tb.Text & vbCrLf & " (以下稱為A方)"
        A英03_lb.Text = 客戶名稱_tb.Text & vbCrLf & " (hereafter will be referred as Party A)"
        A中05_lb.Text = 客戶名稱_tb.Text & " " & 工程名稱_中_tb.Text
        A英05_lb.Text = 工程名稱_英_tb.Text & " of " & vbCrLf & 客戶名稱_tb.Text
        A02_lb.Text = 客戶名稱_tb.Text & " - " & 工程名稱_中_tb.Text
        A04_lb.Text = 工程名稱_英_tb.Text & " of " & vbCrLf & 客戶名稱_tb.Text
        LB159.Text = 客戶名稱_tb.Text : LB164.Text = 客戶名稱_tb.Text : SLB6.Text = 客戶名稱_tb.Text
        Dim X1, Y1, X2 As Integer
        Y1 = A中02_lb.Location.Y : X2 = A中02_lb.Size.Width : X1 = (930 - X2) / 2 : A中02_lb.Location = New Drawing.Point(X1, Y1)
        Y1 = A英02_lb.Location.Y : X2 = A英02_lb.Size.Width : X1 = (930 - X2) / 2 : A英02_lb.Location = New Drawing.Point(X1, Y1)
    End Sub
    Private Sub 工程名稱_中_tb_TextChanged(sender As Object, e As EventArgs) Handles 工程名稱_中_tb.TextChanged
        A中04_lb.Text = 工程名稱_中_tb.Text : A中05_lb.Text = 客戶名稱_tb.Text & " " & 工程名稱_中_tb.Text
        A02_lb.Text = 客戶名稱_tb.Text & " - " & 工程名稱_中_tb.Text : LB161.Text = 工程名稱_中_tb.Text
        Dim X1, Y1, X2 As Integer : Y1 = A中04_lb.Location.Y : X2 = A中04_lb.Size.Width : X1 = (930 - X2) / 2 : A中04_lb.Location = New Drawing.Point(X1, Y1)
    End Sub
    Private Sub 工程名稱_英_tb_TextChanged(sender As Object, e As EventArgs) Handles 工程名稱_英_tb.TextChanged
        A英04_lb.Text = 工程名稱_英_tb.Text & " of "
        A英05_lb.Text = 工程名稱_英_tb.Text & " of " & vbCrLf & 客戶名稱_tb.Text
        A04_lb.Text = 工程名稱_英_tb.Text & " of " & vbCrLf & 客戶名稱_tb.Text
        LB163.Text = 工程名稱_英_tb.Text
        Dim X1, Y1, X2 As Integer : Y1 = A英04_lb.Location.Y : X2 = A英04_lb.Size.Width : X1 = (930 - X2) / 2 : A英04_lb.Location = New Drawing.Point(X1, Y1)
    End Sub
    Private Sub 工程地點_tb_TextChanged(sender As Object, e As EventArgs) Handles 工程地點_tb.TextChanged
        A中06_lb.Text = 工程地點_tb.Text : A英06_lb.Text = 工程地點_tb.Text
    End Sub
    Private Sub 客戶地址_tb_TextChanged(sender As Object, e As EventArgs) Handles 客戶地址_tb.TextChanged
        A中07_lb.Text = 客戶地址_tb.Text : A英07_lb.Text = 客戶地址_tb.Text : A01_lb.Text = 客戶地址_tb.Text : A03_lb.Text = 客戶地址_tb.Text : SLB12.Text = 客戶地址_tb.Text
    End Sub
    Private Sub 我司地址_tb_TextChanged(sender As Object, e As EventArgs) Handles 我司地址_tb.TextChanged
        A13_lb.Text = 我司地址_tb.Text : A14_lb.Text = 我司地址_tb.Text : SLB24.Text = 我司地址_tb.Text
    End Sub
    Private Sub 廠區_中文_tb_TextChanged(sender As Object, e As EventArgs) Handles 廠區_中文_tb.TextChanged
        LB160.Text = 廠區_中文_tb.Text
    End Sub
    Private Sub 負責人_A_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 負責人_A_cb.TextChanged
        SLB9.Text = 負責人_A_cb.Text
    End Sub
    Private Sub 負責人_B_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 負責人_B_cb.TextChanged
        SLB21.Text = 負責人_B_cb.Text
    End Sub
    Private Sub NUD3_ValueChanged(sender As Object, e As EventArgs) Handles NUD3.ValueChanged
        If CH2.Checked = True Then
            If 稅額顯示_lb.Text = "PPN 10%稅額 = Rp. " Then : NUD2.Value = NUD3.Value / 110 * 10 : Else : NUD2.Value = NUD3.Value / 111 * 11 : End If
            NUD1.Value = NUD3.Value - NUD2.Value
            金額1_und.Value = NUD3.Value / 100 * 工程款1_nud.Value : 金額2_und.Value = NUD3.Value / 100 * 工程款2_nud.Value
            金額3_und.Value = NUD3.Value / 100 * 工程款3_nud.Value : 金額4_und.Value = NUD3.Value / 100 * 工程款4_nud.Value
            金額5_und.Value = NUD3.Value / 100 * 工程款5_nud.Value
            金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value

            A中08_lb.Text = Format(NUD1.Value, "#,##0") : A英08_lb.Text = Format(NUD1.Value, "#,##0") : A中09_lb.Text = Format(NUD2.Value, "#,##0")
            A英09_lb.Text = Format(NUD2.Value, "#,##0") : A中10_lb.Text = Format(NUD3.Value, "#,##0") : A英10_lb.Text = Format(NUD3.Value, "#,##0")
            LB47.Text = Format(金額1_und.Value, "#,##0") : LB49.Text = Format(金額1_und.Value, "#,##0") : LB58.Text = Format(金額2_und.Value, "#,##0")
            LB56.Text = Format(金額2_und.Value, "#,##0") : LB67.Text = Format(金額3_und.Value, "#,##0") : LB65.Text = Format(金額3_und.Value, "#,##0")
            LB76.Text = Format(金額4_und.Value, "#,##0") : LB74.Text = Format(金額4_und.Value, "#,##0") : LB83.Text = Format(金額5_und.Value, "#,##0")
            LB85.Text = Format(金額5_und.Value, "#,##0")
        End If
    End Sub
    Private Sub NUD1_ValueChanged(sender As Object, e As EventArgs) Handles NUD1.ValueChanged
        If CH1.Checked = True Then
            NUD2.Value = NUD1.Value / 100 * 10 : NUD3.Value = NUD1.Value + NUD2.Value

            金額1_und.Value = NUD3.Value / 100 * 工程款1_nud.Value : 金額2_und.Value = NUD3.Value / 100 * 工程款2_nud.Value
            金額3_und.Value = NUD3.Value / 100 * 工程款3_nud.Value : 金額4_und.Value = NUD3.Value / 100 * 工程款4_nud.Value
            金額5_und.Value = NUD3.Value / 100 * 工程款5_nud.Value
            金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value

            A中08_lb.Text = Format(NUD1.Value, "#,##0") : A英08_lb.Text = Format(NUD1.Value, "#,##0") : A中09_lb.Text = Format(NUD2.Value, "#,##0")
            A英09_lb.Text = Format(NUD2.Value, "#,##0") : A中10_lb.Text = Format(NUD3.Value, "#,##0") : A英10_lb.Text = Format(NUD3.Value, "#,##0")
            LB47.Text = Format(金額1_und.Value, "#,##0") : LB49.Text = Format(金額1_und.Value, "#,##0") : LB58.Text = Format(金額2_und.Value, "#,##0")
            LB56.Text = Format(金額2_und.Value, "#,##0") : LB67.Text = Format(金額3_und.Value, "#,##0") : LB65.Text = Format(金額3_und.Value, "#,##0")
            LB76.Text = Format(金額4_und.Value, "#,##0") : LB74.Text = Format(金額4_und.Value, "#,##0") : LB83.Text = Format(金額5_und.Value, "#,##0")
            LB85.Text = Format(金額5_und.Value, "#,##0")
        End If
    End Sub
    Private Sub CH1_CheckedChanged(sender As Object, e As EventArgs) Handles CH1.Click
        CH1.Checked = True : CH2.Checked = False : NUD1.Enabled = True : NUD3.Enabled = False
    End Sub
    Private Sub CH2_CheckedChanged(sender As Object, e As EventArgs) Handles CH2.Click
        CH1.Checked = False : CH2.Checked = True : NUD1.Enabled = False : NUD3.Enabled = True
    End Sub
    Private Sub 頁數_bt_TextChanged(sender As Object, e As EventArgs) Handles 頁數_bt.TextChanged
        LB165.Text = 頁數_bt.Text : LB162.Text = 頁數_bt.Text
    End Sub
    Private Sub 減價_bt_TextChanged(sender As Object, e As EventArgs) Handles 減價_bt.TextChanged
        LB274.Text = 減價_bt.Text : LB275.Text = 減價_bt.Text
    End Sub
    Private Sub 工期_nud_ValueChanged(sender As Object, e As EventArgs) Handles 工期_nud.ValueChanged
        A19_lb.Text = Format(工期_nud.Value, "#,##0") : A20_lb.Text = Format(工期_nud.Value, "#,##0")
    End Sub
    Private Sub 逾期_bt_TextChanged(sender As Object, e As EventArgs) Handles 逾期_bt.TextChanged
        A21_lb.Text = 逾期_bt.Text
    End Sub
    Private Sub 最高扣款_bt_TextChanged(sender As Object, e As EventArgs) Handles 最高扣款_bt.TextChanged
        A22_lb.Text = 最高扣款_bt.Text
    End Sub
    Private Sub 逾期_英_bt_TextChanged(sender As Object, e As EventArgs) Handles 逾期_英_bt.TextChanged
        A23_lb.Text = 逾期_英_bt.Text
    End Sub
    Private Sub 最高扣款_英_bt_TextChanged(sender As Object, e As EventArgs) Handles 最高扣款_英_bt.TextChanged
        A24_lb.Text = 最高扣款_英_bt.Text
    End Sub
    Private Sub 工程款1_nud_ValueChanged(sender As Object, e As EventArgs) Handles 工程款1_nud.ValueChanged
        工程款6_nud.Value = 工程款1_nud.Value + 工程款2_nud.Value + 工程款3_nud.Value + 工程款4_nud.Value + 工程款5_nud.Value : 金額1_und.Value = NUD3.Value / 100 * 工程款1_nud.Value
        金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value
        If 工程款1_nud.Value = 0 Then : LB46.Text = "" : LB48.Text = "" : Else : LB46.Text = Format(工程款1_nud.Value, "#,##0") & "%" : LB48.Text = Format(工程款1_nud.Value, "#,##0") & "%" : End If
        If 金額1_und.Value = 0 Then : LB47.Text = "" : LB49.Text = "" : Else : LB47.Text = 金額1_und.Text : LB49.Text = 金額1_und.Text : End If
    End Sub
    Private Sub 工程款2_nud_ValueChanged(sender As Object, e As EventArgs) Handles 工程款2_nud.ValueChanged
        工程款6_nud.Value = 工程款1_nud.Value + 工程款2_nud.Value + 工程款3_nud.Value + 工程款4_nud.Value + 工程款5_nud.Value : 金額2_und.Value = NUD3.Value / 100 * 工程款2_nud.Value
        金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value
        If 工程款2_nud.Value = 0 Then : LB55.Text = "" : LB57.Text = "" : Else : LB55.Text = Format(工程款2_nud.Value, "#,##0") & "%" : LB57.Text = Format(工程款2_nud.Value, "#,##0") & "%" : End If
        If 金額2_und.Value = 0 Then : LB58.Text = "" : LB56.Text = "" : Else : LB58.Text = 金額2_und.Text : LB56.Text = 金額2_und.Text : End If
    End Sub
    Private Sub 工程款3_nud_ValueChanged(sender As Object, e As EventArgs) Handles 工程款3_nud.ValueChanged
        工程款6_nud.Value = 工程款1_nud.Value + 工程款2_nud.Value + 工程款3_nud.Value + 工程款4_nud.Value + 工程款5_nud.Value : 金額3_und.Value = NUD3.Value / 100 * 工程款3_nud.Value
        金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value
        If 工程款3_nud.Value = 0 Then : LB64.Text = "" : LB66.Text = "" : Else : LB64.Text = Format(工程款3_nud.Value, "#,##0") & "%" : LB66.Text = Format(工程款3_nud.Value, "#,##0") & "%" : End If
        If 金額3_und.Value = 0 Then : LB67.Text = "" : LB65.Text = "" : Else : LB67.Text = 金額3_und.Text : LB65.Text = 金額3_und.Text : End If
    End Sub
    Private Sub 工程款4_nud_ValueChanged(sender As Object, e As EventArgs) Handles 工程款4_nud.ValueChanged
        工程款6_nud.Value = 工程款1_nud.Value + 工程款2_nud.Value + 工程款3_nud.Value + 工程款4_nud.Value + 工程款5_nud.Value : 金額4_und.Value = NUD3.Value / 100 * 工程款4_nud.Value
        金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value
        If 工程款4_nud.Value = 0 Then : LB73.Text = "" : LB75.Text = "" : Else : LB73.Text = Format(工程款4_nud.Value, "#,##0") & "%" : LB75.Text = Format(工程款4_nud.Value, "#,##0") & "%" : End If
        If 金額4_und.Value = 0 Then : LB76.Text = "" : LB74.Text = "" : Else : LB76.Text = 金額4_und.Text : LB74.Text = 金額4_und.Text : End If
    End Sub
    Private Sub 工程款5_nud_ValueChanged(sender As Object, e As EventArgs) Handles 工程款5_nud.ValueChanged
        工程款6_nud.Value = 工程款1_nud.Value + 工程款2_nud.Value + 工程款3_nud.Value + 工程款4_nud.Value + 工程款5_nud.Value : 金額5_und.Value = NUD3.Value / 100 * 工程款5_nud.Value
        金額6_und.Value = 金額1_und.Value + 金額2_und.Value + 金額3_und.Value + 金額4_und.Value + 金額5_und.Value
        If 工程款5_nud.Value = 0 Then : LB82.Text = "" : LB84.Text = "" : Else : LB82.Text = Format(工程款5_nud.Value, "#,##0") & "%" : LB84.Text = Format(工程款5_nud.Value, "#,##0") & "%" : End If
        If 金額5_und.Value = 0 Then : LB83.Text = "" : LB85.Text = "" : Else : LB83.Text = 金額5_und.Text : LB85.Text = 金額5_und.Text : End If
    End Sub
    Private Sub 立約日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 立約日期_dtp.ValueChanged
        SLB15.Text = 立約日期_dtp.Text : SLB27.Text = 立約日期_dtp.Text
    End Sub
    Private Sub 縮放2_bt_Click(sender As Object, e As EventArgs) Handles 縮放2_bt.Click
        Dim NX, NY As Integer : NX = 合約_dgv.Size.Width : NY = 合約_dgv.Size.Height
        If 放大 = True Then
            合約_dgv.Size = New System.Drawing.Point(NX - 400, NY) : 放大 = False : 合約_dgv.Columns("工程名稱_中").Visible = False
        Else
            合約_dgv.Size = New System.Drawing.Point(NX + 400, NY) : 放大 = True : 合約_dgv.Columns("工程名稱_中").Visible = True
        End If
    End Sub
    Private Sub 刪除合約_bt_Click(sender As Object, e As EventArgs) Handles 刪除合約_bt.Click
        Dim SS As String
        If 系統語言 = "繁體中文" Then : SS = "是否要刪除這筆資料?" : Else : SS = "Apakah Anda ingin menghapus data ini?" : End If
        Dim aa As MsgBoxResult = MsgBox(SS, MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            Dim SS1 As String
            If 系統語言 = "繁體中文" Then : SS1 = "確定刪除資料請輸入 [YES] !!" : Else : SS1 = "Silakan masukkan [YES] untuk mengonfirmasi penghapusan data!!" : End If
            Dim SSA As String = InputBox(SS1)
            If SSA = "YES" Then
                PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text
                SQL_合約刪除() : SQL_合約本文刪除_依合約() : SQL_合約明細刪除_全部() : SQL_合約試算分表刪除() : SQL_合約試算控制表刪除() : SQL_合約試算明細表刪除()
                If 系統語言 = "繁體中文" Then : MsgBox("刪除完成!!") : Else : MsgBox("Hapus selesai!!") : End If
                Set_合約清單() : 預設資料()
            End If
        End If
    End Sub
    Private Sub 存檔_tb_Click(sender As Object, e As EventArgs) Handles 存檔_tb.Click
        Dim 合約編號條件 As Boolean = True
        If 合約編號_cb.Text = "" Then : If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇我方公司!!") : Else : MsgBox("Silakan pilih perusahaan kami!!") : End If : 合約編號條件 = False : End If
        If 合約編號1_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : MsgBox("沒有甲方公司英文縮寫!!") : Else : MsgBox("Silakan masukkan singkatan dari perusahaan Pihak A!!") : End If : 合約編號條件 = False : Else
            Dim d As Int32
            For index = 0 To 合約編號1_tb.Text.Length - 1
                d = Asc(合約編號1_tb.Text(index)) : Dim 可能不行 As Boolean = False
                If (d < 65 Or d > 90) Then : 可能不行 = True : End If   'c變數若在65~90是大寫的英文字母
                If 可能不行 = True Then
                    If (d < 97 Or d > 122) Then : 可能不行 = True : Else : 可能不行 = False : End If       'c變數若在97~122是小寫的英文字母
                    If 可能不行 = True Then   '然後查表， c變數若在48~57， 表示它是數字，
                        If (d < 48 Or d > 57) Then
                            If 系統語言 = "繁體中文" Then : MsgBox("甲方公司簡稱需要英文或是數字，不可以是中文或其他符號!!")
                            Else : MsgBox("Singkatan dari perusahaan Pihak A harus dalam bahasa Inggris atau angka, bukan dalam bahasa Cina atau simbol lainnya!!") : End If
                            合約編號條件 = False : Exit For
                        End If
                    End If
                End If
            Next
        End If
        If 合約編號2_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : MsgBox("沒有立約日期!!") : Else : MsgBox("Tidak ada tanggal kontrak!!") : End If : 合約編號條件 = False : End If
        Dim c As Int32   '然後查表， c變數若在48~57， 表示它是數字，
        For index = 0 To 合約編號2_tb.Text.Length - 1
            c = Asc(合約編號2_tb.Text(index))
            If c < 48 Or c > 57 Then
                If 系統語言 = "繁體中文" Then : MsgBox("立約日期只能是數字!!") : Else : MsgBox("Tanggal perjanjian hanya bisa berupa angka!!") : End If
                合約編號條件 = False : Exit For : Else
                If Len(合約編號2_tb.Text) <> 6 Then
                    If 系統語言 = "繁體中文" Then : MsgBox("立約日期的格式為YYMMDD (年兩位，月兩位，日兩位)，數字規格不符!!")
                    Else : MsgBox("Format tanggal kontrak adalah YYMMDD (dua digit untuk tahun, dua digit untuk bulan, dan dua digit untuk hari), dan spesifikasi numerik tidak cocok!!") : End If
                    合約編號條件 = False : Exit For
                End If
            End If
        Next
        If 合約編號3_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : MsgBox("沒有合約序號!!") : Else : MsgBox("Tidak ada nomor kontrak!!") : End If : 合約編號條件 = False
        ElseIf IsNumeric(合約編號3_tb.Text) = False Then
            If 系統語言 = "繁體中文" Then : MsgBox("序號只能是數字!!") : Else : MsgBox("Nomor seri hanya bisa berupa angka!!") : End If : 合約編號條件 = False
        End If

        If 合約編號條件 = False Then : Else
            If 工程款6_nud.Value <> 100 Then
                If 系統語言 = "繁體中文" Then : MsgBox("工程款估驗 不等於 100%!!") : Else : MsgBox("Penilaian biaya proyek tidak sama dengan 100%!!") : End If
            Else
                Dim AN1, AN2, AN3, AN4, AN5 As Integer
                Dim STST1 As String = "" : Dim STST2 As String = "" : Dim STST3 As String = "" : Dim STST4 As String = "" : Dim STST5 As String = ""
                Dim SS1, SS2, SS3, SS4, SS5 As String
                If 系統語言 = "繁體中文" Then
                    SS1 = "第一期工程款細項不吻合!!" : SS2 = "第二期工程款細項不吻合!!" : SS3 = "第三期工程款細項不吻合!!" : SS4 = "第四期工程款細項不吻合!!" : SS5 = "第五期工程款細項不吻合!!"
                Else
                    SS1 = "Detail proyek fase 1 tidak cocok!!" : SS2 = "Detail proyek fase 2 tidak cocok!!" : SS3 = "Detail proyek fase 3 tidak cocok!!"
                    SS4 = "Detail proyek fase 4 tidak cocok!!" : SS5 = "Detail proyek fase 5 tidak cocok!!"
                End If
                For I As Integer = 0 To 第1期_dgv.Rows.Count - 1 : AN1 += 第1期_dgv.Rows(I).Cells("比例").Value : Next
                For I As Integer = 0 To 第2期_dgv.Rows.Count - 1 : AN2 += 第2期_dgv.Rows(I).Cells("比例").Value : Next
                For I As Integer = 0 To 第3期_dgv.Rows.Count - 1 : AN3 += 第3期_dgv.Rows(I).Cells("比例").Value : Next
                For I As Integer = 0 To 第4期_dgv.Rows.Count - 1 : AN4 += 第4期_dgv.Rows(I).Cells("比例").Value : Next
                For I As Integer = 0 To 第5期_dgv.Rows.Count - 1 : AN5 += 第5期_dgv.Rows(I).Cells("比例").Value : Next
                If AN1 <> 工程款1_nud.Value And 第1期_dgv.Rows.Count > 0 Then : STST1 = SS1 : End If
                If AN2 <> 工程款2_nud.Value And 第2期_dgv.Rows.Count > 0 Then : STST2 = SS2 : End If
                If AN3 <> 工程款3_nud.Value And 第3期_dgv.Rows.Count > 0 Then : STST3 = SS3 : End If
                If AN4 <> 工程款4_nud.Value And 第4期_dgv.Rows.Count > 0 Then : STST4 = SS4 : End If
                If AN5 <> 工程款5_nud.Value And 第5期_dgv.Rows.Count > 0 Then : STST5 = SS5 : End If
                If STST1 <> "" Or STST2 <> "" Or STST3 <> "" Or STST4 <> "" Or STST5 <> "" Then
                    MsgBox(STST1 & vbCrLf &
                           STST2 & vbCrLf &
                           STST3 & vbCrLf &
                           STST4 & vbCrLf &
                           STST5)
                Else
                    PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text
                    SQL_合約查詢()
                    If dr.Read() Then
                        Dim SS As String
                        If 系統語言 = "繁體中文" Then : SS = "系統內已有相同單號，請問是否存檔(會覆蓋舊資料)?"
                        Else : SS = "Nomor pelacakan yang sama sudah ada di sistem, apakah Anda ingin mengarsipkannya (data lama akan ditimpa)?" : End If
                        Dim aa As MsgBoxResult = MsgBox(SS, MsgBoxStyle.OkCancel)
                        If aa = MsgBoxResult.Ok Then : 合約存檔() : End If
                    Else : 合約存檔() : End If : 甲方條件下拉清單讀取() : 合約編號1_cb.Text = 條件選擇
                End If
            End If
        End If
    End Sub
    Private Sub 合約存檔()
        PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text
        SQL_合約查詢()
        If dr.Read() Then
            '-----判斷是否新增客戶資料----------------------------------------------------------------------------------
            PA30 = 合約編號1_tb.Text : Dim 供應商編號 As String : SQL_客戶資料讀取()
            If dr.Read() Then
                If 負責人_A_cb.Text <> dr("負責人").ToString And 負責人_A_cb.Text <> "" And dr("負責人").ToString <> "" Then
                    Dim SS As String
                    If 系統語言 = "繁體中文" Then : SS = "合約上的負責人與系統中的資料不吻合，是否要更新系統中的負責人資料?"
                    Else : SS = "Penanggung jawab kontrak tidak sesuai dengan informasi dalam sistem. Apakah Anda ingin memperbarui penanggung jawab dalam sistem?" : End If
                    Dim aa As MsgBoxResult = MsgBox(SS, MsgBoxStyle.OkCancel)
                    If aa = MsgBoxResult.Ok Then : PA43 = 負責人_A_cb.Text : PA42 = 客戶名稱_tb.Text : conn.Close() : SQL_客戶資料表_修改負責人() : End If
                ElseIf 負責人_A_cb.Text <> "" And dr("負責人").ToString = "" Then
                    PA43 = 負責人_A_cb.Text : PA42 = 客戶名稱_tb.Text : conn.Close() : SQL_客戶資料表_修改負責人()
                End If
            Else
                conn.Close() : SQL_客戶資料表_最後一筆資料() : If dr.Read() Then : 供應商編號 = dr("流水號").ToString : Else : 供應商編號 = "CL000" : End If : conn.Close()
                Dim NUM1 As Integer
                NUM1 = Double.Parse(Strings.Right(供應商編號, 3)) + 1
                If NUM1 < 10 Then : 供應商編號 = "CL" & "00" & NUM1
                ElseIf NUM1 > 9 And NUM1 < 100 Then : 供應商編號 = "CL" & "0" & NUM1
                ElseIf NUM1 > 99 Then : 供應商編號 = "CL" & NUM1 : End If
                PA29 = 供應商編號 : PA41 = 合約編號1_tb.Text : PA40 = 客戶名稱_tb.Text : PA39 = 客戶地址_tb.Text : PA38 = 負責人_A_cb.Text : SQL_合約系統中新增客戶資料() : conn.Close()
            End If : conn.Close()
            PA37 = 合約種類_cb.Text : PA36 = 合約種類_tb.Text
            SQL_合約種類查詢() : If dr.Read() Then : Else : SQL_合約種類新增() : conn.Close() : End If : conn.Close()
            PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text

            PA36 = 客戶名稱_tb.Text : PA35 = 負責人_A_cb.Text : PA34 = 工程地點_tb.Text : PA33 = 客戶地址_tb.Text : PA32 = 工程名稱_中_tb.Text : PA31 = 工程名稱_英_tb.Text
            PA30 = 選擇公司_cb.Text : PA29 = 負責人_B_cb.Text : PA28 = 我司地址_tb.Text : PA27 = NUD3.Value : PA26 = 工程款1_nud.Value : PA25 = 工程款2_nud.Value
            PA24 = 工程款3_nud.Value : PA23 = 工程款4_nud.Value : PA22 = 工程款5_nud.Value : PA21 = 工期_nud.Value : PA20 = 逾期_bt.Text : PA19 = 最高扣款_bt.Text
            PA18 = 逾期_英_bt.Text : PA17 = 最高扣款_英_bt.Text : PA16 = 減價_bt.Text : PA15 = 廠區_中文_tb.Text : PA14 = 頁數_bt.Text : PA12 = 合約種類_cb.Text
            PA13 = Format(立約日期_dtp.Value, "yyyy/MM/dd") : PA44 = 合約編號2_tb.Text : PA45 = 合約編號3_tb.Text : PA46 = 合約編號1_tb.Text : PA47 = 工程期_ch.Text
            SQL_合約修改() : 合約明細存檔()

            PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text : Set_存檔比較用()
            For no As Integer = 1 To 本文數
                資料數 = 本文數 : MyModule1.進度條()
                Dim LBS As Label = CType(Me.Controls.Find("LB" + no.ToString(), True)(0), Label) : PA1 = LBS.Name : PA2 = LBS.Text : PA3 = LBS.Location.X
                If 存檔比較_dgv.Rows.Count = 0 Then
                    SQL_合約本文新增()
                Else
                    For I As Integer = 0 To 存檔比較_dgv.Rows.Count - 1
                        資料數 = 存檔比較_dgv.Rows.Count : 進度條1()
                        If 存檔比較_dgv("控件", I).Value = PA1 And 存檔比較_dgv("內容", I).Value = PA2 And 存檔比較_dgv("座標X", I).Value = PA3 Then
                        ElseIf 存檔比較_dgv("控件", I).Value = PA1 And (存檔比較_dgv("內容", I).Value <> PA2 Or 存檔比較_dgv("座標X", I).Value <> PA3) Then : SQL_合約本文修改() : End If
                    Next : ProgressBar1.Value = 0 : 最終數1 = 0
                End If
            Next : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
            If 系統語言 = "繁體中文" Then : MsgBox("存檔完成，合約清單鎖定解除!!") : Else : MsgBox("Arsip selesai, dan kunci daftar kontrak dilepaskan!!") : End If
            Set_合約清單() : 合約_dgv.Enabled = True
        Else
            If 系統語言 = "繁體中文" Then : MsgBox("請先建立合約報價單，才能製作合約本文!!")
            Else : MsgBox("Harap buat kutipan kontrak terlebih dahulu sebelum membuat teks kontrak!!") : End If
        End If
    End Sub
    Private Sub 進度條1()
        平均數 = 10000 / 資料數 : 最終數1 += 平均數 : If 最終數1 > 10000 Then : 最終數1 = 10000 : End If : ProgressBar1.Value = 最終數1
    End Sub
    Private Sub 合約範本存檔_bt_Click(sender As Object, e As EventArgs) Handles 合約範本存檔_bt.Click
        SQL_合約本文刪除() : PA = "範本" : Dim QQ As Integer = 本文數
        For no As Integer = 1 To QQ
            資料數 = QQ : MyModule1.進度條() : Dim LBS As Label = CType(Me.Controls.Find("LB" + no.ToString(), True)(0), Label)
            PA1 = LBS.Name : PA2 = LBS.Text : PA3 = LBS.Location.X : SQL_合約本文新增()
        Next : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 : If 系統語言 = "繁體中文" Then : MsgBox("存檔完成!!") : Else : MsgBox("Arsip selesai!!") : End If
    End Sub
    Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
        明細選項_bt.Text = ""
    End Sub
    Private Sub 新增資料_bt_Click(sender As Object, e As EventArgs) Handles 新增資料_bt.Click
        If 合約編號_cb.Text = "" Or 合約編號1_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : MsgBox("資訊不夠，無法生成明細!!") : Else : MsgBox("Tidak cukup informasi untuk menghasilkan detail!!") : End If : Else
            If 工程款6_nud.Value <> 100 Then
                If 系統語言 = "繁體中文" Then : MsgBox("工程款估驗 不等於 100%!!") : Else : MsgBox("Penilaian biaya proyek tidak sama dengan 100%!!") : End If : Else
                PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text : 合約明細存檔()
                Dim SS As String
                If 系統語言 = "繁體中文" Then : SS = "合約工期款項細分不可大於10筆!!" : Else : SS = "Pembagian pembayaran durasi kontrak tidak boleh lebih dari 10 !!" : End If
                If TabControl1.SelectedIndex = 0 Then
                    If 第1期_dgv.Rows.Count = 10 Then : MsgBox(SS) : Else : PA1 = "1" : PA2 = 第1期_dgv.Rows.Count + 1 : SQL_合約明細新增() : End If
                ElseIf TabControl1.SelectedIndex = 1 Then
                    If 第2期_dgv.Rows.Count = 10 Then : MsgBox(SS) : Else : PA1 = "2" : PA2 = 第2期_dgv.Rows.Count + 1 : SQL_合約明細新增() : End If
                ElseIf TabControl1.SelectedIndex = 2 Then
                    If 第3期_dgv.Rows.Count = 10 Then : MsgBox(SS) : Else : PA1 = "3" : PA2 = 第3期_dgv.Rows.Count + 1 : SQL_合約明細新增() : End If
                ElseIf TabControl1.SelectedIndex = 3 Then
                    If 第4期_dgv.Rows.Count = 10 Then : MsgBox(SS) : Else : PA1 = "4" : PA2 = 第4期_dgv.Rows.Count + 1 : SQL_合約明細新增() : End If
                ElseIf TabControl1.SelectedIndex = 4 Then
                    If 第5期_dgv.Rows.Count = 10 Then : MsgBox(SS) : Else : PA1 = "5" : PA2 = 第5期_dgv.Rows.Count + 1 : SQL_合約明細新增() : End If
                End If
                PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text
                PA1 = "1" : Set_合約明細1() : PA1 = "2" : Set_合約明細2() : PA1 = "3" : Set_合約明細3() : PA1 = "4" : Set_合約明細4() : PA1 = "5" : Set_合約明細5()
                If 系統語言 = "繁體中文" Then : MsgBox("新增完成!!") : Else : MsgBox("Tambahkan selesai!!") : End If
            End If
        End If
    End Sub
    Private Sub 刪除資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除資料_bt.Click
        If 合約編號_cb.Text = "" Or 合約編號1_tb.Text = "" Or 明細選項_bt.Text = "" Then
            If 系統語言 = "繁體中文" Then : MsgBox("資訊不夠，無法生成明細!!") : Else : MsgBox("Tidak cukup informasi untuk menghasilkan detail!!") : End If : Else
            If 工程款6_nud.Value <> 100 Then
                If 系統語言 = "繁體中文" Then : MsgBox("工程款估驗 不等於 100%!!") : Else : MsgBox("Penilaian biaya proyek tidak sama dengan 100%!!") : End If : Else
                PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text : 合約明細存檔()
                If TabControl1.SelectedIndex = 0 Then : PA1 = "1" : PA2 = 明細選項_bt.Text : SQL_合約明細刪除()
                ElseIf TabControl1.SelectedIndex = 1 Then : PA1 = "2" : PA2 = 明細選項_bt.Text : SQL_合約明細刪除()
                ElseIf TabControl1.SelectedIndex = 2 Then : PA1 = "3" : PA2 = 明細選項_bt.Text : SQL_合約明細刪除()
                ElseIf TabControl1.SelectedIndex = 3 Then : PA1 = "4" : PA2 = 明細選項_bt.Text : SQL_合約明細刪除()
                ElseIf TabControl1.SelectedIndex = 4 Then : PA1 = "5" : PA2 = 明細選項_bt.Text : SQL_合約明細刪除()
                End If
                PA = 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text
                PA1 = "1" : Set_合約明細1() : PA1 = "2" : Set_合約明細2() : PA1 = "3" : Set_合約明細3() : PA1 = "4" : Set_合約明細4() : PA1 = "5" : Set_合約明細5()
                If 系統語言 = "繁體中文" Then : MsgBox("刪除完成!!") : Else : MsgBox("Hapus selesai!!") : End If
            End If
        End If
    End Sub
    Private Sub 合約編號1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號1_cb.SelectedIndexChanged
        條件選擇 = 合約編號1_cb.Text : Set_合約清單()
    End Sub
    Private Sub 讀取合約範本_bt_Click(sender As Object, e As EventArgs) Handles 讀取合約範本_bt.Click
        PA = "範本" : Set_合約範例()
    End Sub
    Private Sub 合約明細存檔()
        For i As Integer = 0 To 第1期_dgv.Rows.Count - 1
            PA1 = "1" : PA2 = 第1期_dgv.Rows(i).Cells("細項").Value : PA3 = 第1期_dgv.Rows(i).Cells("內容").Value
            NU1 = 第1期_dgv.Rows(i).Cells("比例").Value : NU2 = 第1期_dgv.Rows(i).Cells("金額").Value : SQL_合約明細修改()
        Next
        For i As Integer = 0 To 第2期_dgv.Rows.Count - 1
            PA1 = "2" : PA2 = 第2期_dgv.Rows(i).Cells("細項").Value : PA3 = 第2期_dgv.Rows(i).Cells("內容").Value
            NU1 = 第2期_dgv.Rows(i).Cells("比例").Value : NU2 = 第2期_dgv.Rows(i).Cells("金額").Value : SQL_合約明細修改()
        Next
        For i As Integer = 0 To 第3期_dgv.Rows.Count - 1
            PA1 = "3" : PA2 = 第3期_dgv.Rows(i).Cells("細項").Value : PA3 = 第3期_dgv.Rows(i).Cells("內容").Value
            NU1 = 第3期_dgv.Rows(i).Cells("比例").Value : NU2 = 第3期_dgv.Rows(i).Cells("金額").Value : SQL_合約明細修改()
        Next
        For i As Integer = 0 To 第4期_dgv.Rows.Count - 1
            PA1 = "4" : PA2 = 第4期_dgv.Rows(i).Cells("細項").Value : PA3 = 第4期_dgv.Rows(i).Cells("內容").Value
            NU1 = 第4期_dgv.Rows(i).Cells("比例").Value : NU2 = 第4期_dgv.Rows(i).Cells("金額").Value : SQL_合約明細修改()
        Next
        For i As Integer = 0 To 第5期_dgv.Rows.Count - 1
            PA1 = "5" : PA2 = 第5期_dgv.Rows(i).Cells("細項").Value : PA3 = 第5期_dgv.Rows(i).Cells("內容").Value
            NU1 = 第5期_dgv.Rows(i).Cells("比例").Value : NU2 = 第5期_dgv.Rows(i).Cells("金額").Value : SQL_合約明細修改()
        Next
    End Sub
    Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        Dim SS As String
        If 系統語言 = "繁體中文" Then : SS = "本頁空白條文最多新增到第14條!!" : Else : SS = "Klausa kosong di halaman ini hanya dapat ditambahkan ke klausa 14 !!" : End If
        If 翻頁_nud.Value = Val(最末頁_cb.Text) Then
            '---------------------------------------最末頁-------------------------------------------------------------------------------------
            If 系統語言 = "繁體中文" Then : MsgBox("最末頁無法新增空白條文!!") : Else : MsgBox("Tidak dapat menambahkan klausa kosong di halaman terakhir!!") : End If
        ElseIf 翻頁_nud.Value = Val(最末頁_cb.Text) - 1 Then
            '---------------------------------------第十一章-------------------------------------------------------------------------------------
            If LB166.Text = "" Then : LB166.Text = "X、" : LB167.Text = "XXXXX。" : LB168.Text = "XXXXX."
            ElseIf LB169.Text = "" Then : LB169.Text = "X、" : LB170.Text = "XXXXX。" : LB171.Text = "XXXXX."
            ElseIf LB172.Text = "" Then : LB172.Text = "X、" : LB173.Text = "XXXXX。" : LB174.Text = "XXXXX."
            ElseIf LB175.Text = "" Then : LB175.Text = "X、" : LB176.Text = "XXXXX。" : LB177.Text = "XXXXX."
            ElseIf LB178.Text = "" Then : LB178.Text = "X、" : LB179.Text = "XXXXX。" : LB180.Text = "XXXXX."
            ElseIf LB181.Text = "" Then : LB181.Text = "X、" : LB182.Text = "XXXXX。" : LB183.Text = "XXXXX."
            ElseIf LB184.Text = "" Then : LB184.Text = "X、" : LB185.Text = "XXXXX。" : LB186.Text = "XXXXX."
            Else : MsgBox(SS)
            End If
        ElseIf 翻頁_nud.Value = Val(最末頁_cb.Text) - 2 Then
            '---------------------------------------第十章-------------------------------------------------------------------------------------
            If LB187.Text = "" Then : LB187.Text = "第X條、XXXX" : LB188.Text = "Article X (XXX) XXXXXXXXXX"
                LB189.Text = "__________________________________________________________________________________________________________________________________________________________________________________"
            ElseIf LB226.Text = "" Then : LB226.Text = "X、" : LB137.Text = "XXXXX。" : LB138.Text = "XXXXX."
            ElseIf LB227.Text = "" Then : LB227.Text = "X、" : LB139.Text = "XXXXX。" : LB140.Text = "XXXXX."
            ElseIf LB190.Text = "" Then : LB190.Text = "X、" : LB191.Text = "XXXXX。" : LB192.Text = "XXXXX."
            ElseIf LB193.Text = "" Then : LB193.Text = "X、" : LB194.Text = "XXXXX。" : LB195.Text = "XXXXX."
            ElseIf LB196.Text = "" Then : LB196.Text = "X、" : LB197.Text = "XXXXX。" : LB198.Text = "XXXXX."
            ElseIf LB199.Text = "" Then : LB199.Text = "X、" : LB200.Text = "XXXXX。" : LB201.Text = "XXXXX."
            ElseIf LB202.Text = "" Then : LB202.Text = "X、" : LB203.Text = "XXXXX。" : LB204.Text = "XXXXX."
            ElseIf LB205.Text = "" Then : LB205.Text = "X、" : LB206.Text = "XXXXX。" : LB207.Text = "XXXXX."
            ElseIf LB208.Text = "" Then : LB208.Text = "X、" : LB209.Text = "XXXXX。" : LB210.Text = "XXXXX."
            ElseIf LB211.Text = "" Then : LB211.Text = "X、" : LB212.Text = "XXXXX。" : LB213.Text = "XXXXX."
            ElseIf LB214.Text = "" Then : LB214.Text = "X、" : LB215.Text = "XXXXX。" : LB216.Text = "XXXXX."
            ElseIf LB217.Text = "" Then : LB217.Text = "X、" : LB218.Text = "XXXXX。" : LB219.Text = "XXXXX."
            ElseIf LB220.Text = "" Then : LB220.Text = "X、" : LB221.Text = "XXXXX。" : LB222.Text = "XXXXX."
            ElseIf LB223.Text = "" Then : LB223.Text = "X、" : LB224.Text = "XXXXX。" : LB225.Text = "XXXXX."
            Else : MsgBox(SS)
            End If
        ElseIf 翻頁_nud.Value = Val(最末頁_cb.Text) - 3 Then
            '---------------------------------------第九章-------------------------------------------------------------------------------------
            If LB228.Text = "" Then : LB228.Text = "第X條、XXXX" : LB229.Text = "Article X (XXX) XXXXXXXXXX"
                LB230.Text = "__________________________________________________________________________________________________________________________________________________________________________________"
            ElseIf LB231.Text = "" Then : LB231.Text = "X、" : LB131.Text = "XXXXX。" : LB132.Text = "XXXXX."
            ElseIf LB232.Text = "" Then : LB232.Text = "X、" : LB133.Text = "XXXXX。" : LB134.Text = "XXXXX."
            ElseIf LB233.Text = "" Then : LB233.Text = "X、" : LB135.Text = "XXXXX。" : LB136.Text = "XXXXX."
            ElseIf LB234.Text = "" Then : LB234.Text = "X、" : LB235.Text = "XXXXX。" : LB236.Text = "XXXXX."
            ElseIf LB237.Text = "" Then : LB237.Text = "X、" : LB238.Text = "XXXXX。" : LB239.Text = "XXXXX."
            ElseIf LB240.Text = "" Then : LB240.Text = "X、" : LB241.Text = "XXXXX。" : LB242.Text = "XXXXX."
            ElseIf LB243.Text = "" Then : LB243.Text = "X、" : LB244.Text = "XXXXX。" : LB245.Text = "XXXXX."
            ElseIf LB246.Text = "" Then : LB246.Text = "X、" : LB247.Text = "XXXXX。" : LB248.Text = "XXXXX."
            ElseIf LB249.Text = "" Then : LB249.Text = "X、" : LB250.Text = "XXXXX。" : LB251.Text = "XXXXX."
            ElseIf LB252.Text = "" Then : LB252.Text = "X、" : LB253.Text = "XXXXX。" : LB254.Text = "XXXXX."
            ElseIf LB255.Text = "" Then : LB255.Text = "X、" : LB256.Text = "XXXXX。" : LB257.Text = "XXXXX."
            ElseIf LB258.Text = "" Then : LB258.Text = "X、" : LB259.Text = "XXXXX。" : LB260.Text = "XXXXX."
            ElseIf LB261.Text = "" Then : LB261.Text = "X、" : LB262.Text = "XXXXX。" : LB263.Text = "XXXXX."
            ElseIf LB264.Text = "" Then : LB264.Text = "X、" : LB265.Text = "XXXXX。" : LB266.Text = "XXXXX."
            Else : MsgBox(SS)
            End If
        ElseIf 翻頁_nud.Value = Val(最末頁_cb.Text) - 4 Then
            '---------------------------------------第八章-------------------------------------------------------------------------------------
            If LB276.Text = "" Then : LB276.Text = "X、" : LB277.Text = "XXXXX。" : LB278.Text = "XXX."
            ElseIf LB279.Text = "" Then : LB279.Text = "X、" : LB280.Text = "XXXXX。" : LB281.Text = "XXXXX."
            ElseIf LB282.Text = "" Then : LB282.Text = "X、" : LB283.Text = "XXXXX。" : LB284.Text = "XXXXX."
            ElseIf LB285.Text = "" Then : LB285.Text = "X、" : LB286.Text = "XXXXX。" : LB287.Text = "XXXXX."
            ElseIf LB288.Text = "" Then : LB288.Text = "X、" : LB289.Text = "XXXXX。" : LB290.Text = "XXXXX."
            ElseIf LB291.Text = "" Then : LB291.Text = "X、" : LB292.Text = "XXXXX。" : LB293.Text = "XXXXX."
            ElseIf LB294.Text = "" Then : LB294.Text = "X、" : LB295.Text = "XXXXX。" : LB296.Text = "XXXXX."
            ElseIf LB297.Text = "" Then : LB297.Text = "X、" : LB298.Text = "XXXXX。" : LB299.Text = "XXXXX."
            ElseIf LB300.Text = "" Then : LB300.Text = "X、" : LB301.Text = "XXXXX。" : LB302.Text = "XXXXX."
            Else : MsgBox(SS)
            End If
        ElseIf Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15 Then
            '---------------------------------------第15頁-------------------------------------------------------------------------------------
            If LB303.Text = "" Then : LB303.Text = "第X條、XXXX" : LB304.Text = "Article X (XXX) XXXXXXXXXX"
                LB305.Text = "__________________________________________________________________________________________________________________________________________________________________________________"
            ElseIf LB306.Text = "" Then : LB306.Text = "X、" : LB307.Text = "XXXXX。" : LB308.Text = "XXXXX."
            ElseIf LB309.Text = "" Then : LB309.Text = "X、" : LB310.Text = "XXXXX。" : LB311.Text = "XXXXX."
            ElseIf LB312.Text = "" Then : LB312.Text = "X、" : LB313.Text = "XXXXX。" : LB314.Text = "XXXXX."
            ElseIf LB315.Text = "" Then : LB315.Text = "X、" : LB316.Text = "XXXXX。" : LB317.Text = "XXXXX."
            ElseIf LB318.Text = "" Then : LB318.Text = "X、" : LB319.Text = "XXXXX。" : LB320.Text = "XXXXX."
            ElseIf LB321.Text = "" Then : LB321.Text = "X、" : LB322.Text = "XXXXX。" : LB323.Text = "XXXXX."
            ElseIf LB324.Text = "" Then : LB324.Text = "X、" : LB325.Text = "XXXXX。" : LB326.Text = "XXXXX."
            ElseIf LB327.Text = "" Then : LB327.Text = "X、" : LB328.Text = "XXXXX。" : LB329.Text = "XXXXX."
            ElseIf LB330.Text = "" Then : LB330.Text = "X、" : LB331.Text = "XXXXX。" : LB332.Text = "XXXXX."
            ElseIf LB333.Text = "" Then : LB333.Text = "X、" : LB334.Text = "XXXXX。" : LB335.Text = "XXXXX."
            ElseIf LB336.Text = "" Then : LB336.Text = "X、" : LB337.Text = "XXXXX。" : LB338.Text = "XXXXX."
            ElseIf LB339.Text = "" Then : LB339.Text = "X、" : LB340.Text = "XXXXX。" : LB341.Text = "XXXXX."
            ElseIf LB342.Text = "" Then : LB342.Text = "X、" : LB343.Text = "XXXXX。" : LB344.Text = "XXXXX."
            ElseIf LB345.Text = "" Then : LB345.Text = "X、" : LB346.Text = "XXXXX。" : LB347.Text = "XXXXX."
            Else : MsgBox(SS)
            End If
        ElseIf (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then
            '---------------------------------------第14頁-------------------------------------------------------------------------------------
            If LB348.Text = "" Then : LB348.Text = "第X條、XXXX" : LB349.Text = "Article X (XXX) XXXXXXXXXX"
                LB350.Text = "__________________________________________________________________________________________________________________________________________________________________________________"
            ElseIf LB351.Text = "" Then : LB351.Text = "X、" : LB352.Text = "XXXXX。" : LB353.Text = "XXXXX."
            ElseIf LB354.Text = "" Then : LB354.Text = "X、" : LB355.Text = "XXXXX。" : LB356.Text = "XXXXX."
            ElseIf LB357.Text = "" Then : LB357.Text = "X、" : LB358.Text = "XXXXX。" : LB359.Text = "XXXXX."
            ElseIf LB360.Text = "" Then : LB360.Text = "X、" : LB361.Text = "XXXXX。" : LB362.Text = "XXXXX."
            ElseIf LB363.Text = "" Then : LB363.Text = "X、" : LB364.Text = "XXXXX。" : LB365.Text = "XXXXX."
            ElseIf LB366.Text = "" Then : LB366.Text = "X、" : LB367.Text = "XXXXX。" : LB368.Text = "XXXXX."
            ElseIf LB369.Text = "" Then : LB369.Text = "X、" : LB370.Text = "XXXXX。" : LB371.Text = "XXXXX."
            ElseIf LB372.Text = "" Then : LB372.Text = "X、" : LB373.Text = "XXXXX。" : LB374.Text = "XXXXX."
            ElseIf LB375.Text = "" Then : LB375.Text = "X、" : LB376.Text = "XXXXX。" : LB377.Text = "XXXXX."
            ElseIf LB378.Text = "" Then : LB378.Text = "X、" : LB379.Text = "XXXXX。" : LB380.Text = "XXXXX."
            ElseIf LB381.Text = "" Then : LB381.Text = "X、" : LB382.Text = "XXXXX。" : LB383.Text = "XXXXX."
            ElseIf LB384.Text = "" Then : LB384.Text = "X、" : LB385.Text = "XXXXX。" : LB386.Text = "XXXXX."
            ElseIf LB387.Text = "" Then : LB387.Text = "X、" : LB388.Text = "XXXXX。" : LB389.Text = "XXXXX."
            ElseIf LB390.Text = "" Then : LB390.Text = "X、" : LB391.Text = "XXXXX。" : LB392.Text = "XXXXX."
            Else : MsgBox(SS)
            End If
        ElseIf Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13 Then
            '---------------------------------------第13頁-------------------------------------------------------------------------------------
            If LB393.Text = "" Then : LB393.Text = "第X條、XXXX" : LB394.Text = "Article X (XXX) XXXXXXXXXX"
                LB395.Text = "__________________________________________________________________________________________________________________________________________________________________________________"
            ElseIf LB396.Text = "" Then : LB396.Text = "X、" : LB397.Text = "XXXXX。" : LB398.Text = "XXXXX."
            ElseIf LB399.Text = "" Then : LB399.Text = "X、" : LB400.Text = "XXXXX。" : LB401.Text = "XXXXX."
            ElseIf LB402.Text = "" Then : LB402.Text = "X、" : LB403.Text = "XXXXX。" : LB404.Text = "XXXXX."
            ElseIf LB405.Text = "" Then : LB405.Text = "X、" : LB406.Text = "XXXXX。" : LB407.Text = "XXXXX."
            ElseIf LB408.Text = "" Then : LB408.Text = "X、" : LB409.Text = "XXXXX。" : LB410.Text = "XXXXX."
            ElseIf LB411.Text = "" Then : LB411.Text = "X、" : LB412.Text = "XXXXX。" : LB413.Text = "XXXXX."
            ElseIf LB414.Text = "" Then : LB414.Text = "X、" : LB415.Text = "XXXXX。" : LB416.Text = "XXXXX."
            ElseIf LB417.Text = "" Then : LB417.Text = "X、" : LB418.Text = "XXXXX。" : LB419.Text = "XXXXX."
            ElseIf LB420.Text = "" Then : LB420.Text = "X、" : LB421.Text = "XXXXX。" : LB422.Text = "XXXXX."
            ElseIf LB423.Text = "" Then : LB423.Text = "X、" : LB424.Text = "XXXXX。" : LB425.Text = "XXXXX."
            ElseIf LB426.Text = "" Then : LB426.Text = "X、" : LB427.Text = "XXXXX。" : LB428.Text = "XXXXX."
            ElseIf LB429.Text = "" Then : LB429.Text = "X、" : LB430.Text = "XXXXX。" : LB431.Text = "XXXXX."
            ElseIf LB432.Text = "" Then : LB432.Text = "X、" : LB433.Text = "XXXXX。" : LB434.Text = "XXXXX."
            ElseIf LB435.Text = "" Then : LB435.Text = "X、" : LB436.Text = "XXXXX。" : LB437.Text = "XXXXX."
            Else : MsgBox(SS)
            End If
        ElseIf Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12 Then
            '---------------------------------------第12頁-------------------------------------------------------------------------------------
            If LB438.Text = "" Then : LB438.Text = "第X條、XXXX" : LB439.Text = "Article X (XXX) XXXXXXXXXX"
                LB440.Text = "__________________________________________________________________________________________________________________________________________________________________________________"
            ElseIf LB441.Text = "" Then : LB441.Text = "X、" : LB442.Text = "XXXXX。" : LB443.Text = "XXXXX."
            ElseIf LB444.Text = "" Then : LB444.Text = "X、" : LB445.Text = "XXXXX。" : LB446.Text = "XXXXX."
            ElseIf LB447.Text = "" Then : LB447.Text = "X、" : LB448.Text = "XXXXX。" : LB449.Text = "XXXXX."
            ElseIf LB450.Text = "" Then : LB450.Text = "X、" : LB451.Text = "XXXXX。" : LB452.Text = "XXXXX."
            ElseIf LB453.Text = "" Then : LB453.Text = "X、" : LB454.Text = "XXXXX。" : LB455.Text = "XXXXX."
            ElseIf LB456.Text = "" Then : LB456.Text = "X、" : LB457.Text = "XXXXX。" : LB458.Text = "XXXXX."
            ElseIf LB459.Text = "" Then : LB459.Text = "X、" : LB460.Text = "XXXXX。" : LB461.Text = "XXXXX."
            ElseIf LB462.Text = "" Then : LB462.Text = "X、" : LB463.Text = "XXXXX。" : LB464.Text = "XXXXX."
            ElseIf LB465.Text = "" Then : LB465.Text = "X、" : LB466.Text = "XXXXX。" : LB467.Text = "XXXXX."
            ElseIf LB468.Text = "" Then : LB468.Text = "X、" : LB469.Text = "XXXXX。" : LB470.Text = "XXXXX."
            ElseIf LB471.Text = "" Then : LB471.Text = "X、" : LB472.Text = "XXXXX。" : LB473.Text = "XXXXX."
            ElseIf LB474.Text = "" Then : LB474.Text = "X、" : LB475.Text = "XXXXX。" : LB476.Text = "XXXXX."
            ElseIf LB477.Text = "" Then : LB477.Text = "X、" : LB478.Text = "XXXXX。" : LB479.Text = "XXXXX."
            ElseIf LB480.Text = "" Then : LB480.Text = "X、" : LB481.Text = "XXXXX。" : LB482.Text = "XXXXX."
            Else : MsgBox(SS)
            End If
        ElseIf 翻頁_nud.Value = 11 Then
            '---------------------------------------第11頁-------------------------------------------------------------------------------------
            If LB483.Text = "" Then : LB483.Text = "第X條、XXXX" : LB484.Text = "Article X (XXX) XXXXXXXXXX"
                LB485.Text = "__________________________________________________________________________________________________________________________________________________________________________________"
            ElseIf LB486.Text = "" Then : LB486.Text = "X、" : LB117.Text = "XXXXX。" : LB118.Text = "XXXXX."
            ElseIf LB487.Text = "" Then : LB487.Text = "X、" : LB119.Text = "XXXXX。" : LB120.Text = "XXXXX."
            ElseIf LB488.Text = "" Then : LB488.Text = "X、" : LB489.Text = "XXXXX。" : LB490.Text = "XXXXX."
            ElseIf LB491.Text = "" Then : LB491.Text = "X、" : LB492.Text = "XXXXX。" : LB493.Text = "XXXXX."
            ElseIf LB494.Text = "" Then : LB494.Text = "X、" : LB495.Text = "XXXXX。" : LB496.Text = "XXXXX."
            ElseIf LB497.Text = "" Then : LB497.Text = "X、" : LB498.Text = "XXXXX。" : LB499.Text = "XXXXX."
            ElseIf LB500.Text = "" Then : LB500.Text = "X、" : LB501.Text = "XXXXX。" : LB502.Text = "XXXXX."
            ElseIf LB503.Text = "" Then : LB503.Text = "X、" : LB504.Text = "XXXXX。" : LB505.Text = "XXXXX."
            ElseIf LB506.Text = "" Then : LB506.Text = "X、" : LB507.Text = "XXXXX。" : LB508.Text = "XXXXX."
            ElseIf LB509.Text = "" Then : LB509.Text = "X、" : LB510.Text = "XXXXX。" : LB511.Text = "XXXXX."
            ElseIf LB512.Text = "" Then : LB512.Text = "X、" : LB513.Text = "XXXXX。" : LB514.Text = "XXXXX."
            ElseIf LB515.Text = "" Then : LB515.Text = "X、" : LB516.Text = "XXXXX。" : LB517.Text = "XXXXX."
            ElseIf LB518.Text = "" Then : LB518.Text = "X、" : LB519.Text = "XXXXX。" : LB520.Text = "XXXXX."
            ElseIf LB521.Text = "" Then : LB521.Text = "X、" : LB522.Text = "XXXXX。" : LB523.Text = "XXXXX."
            Else : MsgBox(SS)
            End If
        ElseIf 翻頁_nud.Value = 10 Then
            '---------------------------------------第10頁-------------------------------------------------------------------------------------
            If LB524.Text = "" Then : LB524.Text = "第X條、XXXX" : LB525.Text = "Article X (XXX) XXXXXXXXXX"
                LB526.Text = "__________________________________________________________________________________________________________________________________________________________________________________"
            ElseIf LB527.Text = "" Then : LB527.Text = "X、" : LB115.Text = "XXXXX。" : LB116.Text = "XXXXX."
            ElseIf LB528.Text = "" Then : LB528.Text = "X、" : LB529.Text = "XXXXX。" : LB530.Text = "XXXXX."
            ElseIf LB531.Text = "" Then : LB531.Text = "X、" : LB532.Text = "XXXXX。" : LB533.Text = "XXXXX."
            ElseIf LB534.Text = "" Then : LB534.Text = "X、" : LB535.Text = "XXXXX。" : LB536.Text = "XXXXX."
            ElseIf LB537.Text = "" Then : LB537.Text = "X、" : LB538.Text = "XXXXX。" : LB539.Text = "XXXXX."
            ElseIf LB540.Text = "" Then : LB540.Text = "X、" : LB541.Text = "XXXXX。" : LB542.Text = "XXXXX."
            ElseIf LB543.Text = "" Then : LB543.Text = "X、" : LB544.Text = "XXXXX。" : LB545.Text = "XXXXX."
            ElseIf LB546.Text = "" Then : LB546.Text = "X、" : LB547.Text = "XXXXX。" : LB548.Text = "XXXXX."
            ElseIf LB549.Text = "" Then : LB549.Text = "X、" : LB550.Text = "XXXXX。" : LB551.Text = "XXXXX."
            ElseIf LB552.Text = "" Then : LB552.Text = "X、" : LB553.Text = "XXXXX。" : LB554.Text = "XXXXX."
            ElseIf LB555.Text = "" Then : LB555.Text = "X、" : LB556.Text = "XXXXX。" : LB557.Text = "XXXXX."
            ElseIf LB558.Text = "" Then : LB558.Text = "X、" : LB559.Text = "XXXXX。" : LB560.Text = "XXXXX."
            ElseIf LB561.Text = "" Then : LB561.Text = "X、" : LB562.Text = "XXXXX。" : LB563.Text = "XXXXX."
            ElseIf LB564.Text = "" Then : LB564.Text = "X、" : LB565.Text = "XXXXX。" : LB566.Text = "XXXXX."
            Else : MsgBox(SS)
            End If
        ElseIf 翻頁_nud.Value = 9 Then
            '---------------------------------------第9頁-------------------------------------------------------------------------------------
            If LB567.Text = "" Then : LB567.Text = "第X條、XXXX" : LB568.Text = "Article X (XXX) XXXXXXXXXX"
                LB569.Text = "__________________________________________________________________________________________________________________________________________________________________________________"
            ElseIf LB570.Text = "" Then : LB570.Text = "X、" : LB103.Text = "XXXXX。" : LB104.Text = "XXXXX."
            ElseIf LB571.Text = "" Then : LB571.Text = "X、" : LB105.Text = "XXXXX。" : LB106.Text = "XXXXX."
            ElseIf LB572.Text = "" Then : LB572.Text = "X、" : LB107.Text = "XXXXX。" : LB108.Text = "XXXXX."
            ElseIf LB573.Text = "" Then : LB573.Text = "X、" : LB109.Text = "XXXXX。" : LB110.Text = "XXXXX."
            ElseIf LB574.Text = "" Then : LB574.Text = "X、" : LB111.Text = "XXXXX。" : LB112.Text = "XXXXX."
            ElseIf LB575.Text = "" Then : LB575.Text = "X、" : LB113.Text = "XXXXX。" : LB114.Text = "XXXXX."
            ElseIf LB576.Text = "" Then : LB576.Text = "X、" : LB577.Text = "XXXXX。" : LB578.Text = "XXXXX."
            ElseIf LB579.Text = "" Then : LB579.Text = "X、" : LB580.Text = "XXXXX。" : LB581.Text = "XXXXX."
            ElseIf LB582.Text = "" Then : LB582.Text = "X、" : LB583.Text = "XXXXX。" : LB584.Text = "XXXXX."
            ElseIf LB585.Text = "" Then : LB585.Text = "X、" : LB586.Text = "XXXXX。" : LB587.Text = "XXXXX."
            ElseIf LB588.Text = "" Then : LB588.Text = "X、" : LB589.Text = "XXXXX。" : LB590.Text = "XXXXX."
            ElseIf LB591.Text = "" Then : LB591.Text = "X、" : LB592.Text = "XXXXX。" : LB593.Text = "XXXXX."
            ElseIf LB594.Text = "" Then : LB594.Text = "X、" : LB595.Text = "XXXXX。" : LB596.Text = "XXXXX."
            ElseIf LB597.Text = "" Then : LB597.Text = "X、" : LB598.Text = "XXXXX。" : LB599.Text = "XXXXX."
            Else : MsgBox(SS)
            End If
        ElseIf 翻頁_nud.Value = 8 Then
            '---------------------------------------第8頁-------------------------------------------------------------------------------------
            If LB600.Text = "" Then : LB600.Text = "第X條、XXXX" : LB601.Text = "Article X (XXX) XXXXXXXXXX"
                LB602.Text = "__________________________________________________________________________________________________________________________________________________________________________________"
            ElseIf LB603.Text = "" Then : LB603.Text = "X、" : LB604.Text = "XXXXX。" : LB605.Text = "XXXXX."
            ElseIf LB606.Text = "" Then : LB606.Text = "X、" : LB607.Text = "XXXXX。" : LB608.Text = "XXXXX."
            ElseIf LB609.Text = "" Then : LB609.Text = "X、" : LB610.Text = "XXXXX。" : LB611.Text = "XXXXX."
            ElseIf LB612.Text = "" Then : LB612.Text = "X、" : LB613.Text = "XXXXX。" : LB614.Text = "XXXXX."
            ElseIf LB615.Text = "" Then : LB615.Text = "X、" : LB616.Text = "XXXXX。" : LB617.Text = "XXXXX."
            ElseIf LB618.Text = "" Then : LB618.Text = "X、" : LB619.Text = "XXXXX。" : LB620.Text = "XXXXX."
            ElseIf LB621.Text = "" Then : LB621.Text = "X、" : LB622.Text = "XXXXX。" : LB623.Text = "XXXXX."
            ElseIf LB624.Text = "" Then : LB624.Text = "X、" : LB625.Text = "XXXXX。" : LB626.Text = "XXXXX."
            ElseIf LB627.Text = "" Then : LB627.Text = "X、" : LB628.Text = "XXXXX。" : LB629.Text = "XXXXX."
            ElseIf LB630.Text = "" Then : LB630.Text = "X、" : LB631.Text = "XXXXX。" : LB632.Text = "XXXXX."
            ElseIf LB633.Text = "" Then : LB633.Text = "X、" : LB634.Text = "XXXXX。" : LB635.Text = "XXXXX."
            ElseIf LB636.Text = "" Then : LB636.Text = "X、" : LB637.Text = "XXXXX。" : LB638.Text = "XXXXX."
            ElseIf LB639.Text = "" Then : LB639.Text = "X、" : LB640.Text = "XXXXX。" : LB641.Text = "XXXXX."
            ElseIf LB642.Text = "" Then : LB642.Text = "X、" : LB643.Text = "XXXXX。" : LB644.Text = "XXXXX."
            Else : MsgBox(SS)
            End If
        ElseIf 翻頁_nud.Value = 7 Then
            '---------------------------------------第7頁-------------------------------------------------------------------------------------
            If LB648.Text = "" Then : LB648.Text = "X、" : LB649.Text = "XXXXX。" : LB650.Text = "XXXXX."
            ElseIf LB651.Text = "" Then : LB651.Text = "X、" : LB652.Text = "XXXXX。" : LB653.Text = "XXXXX."
            ElseIf LB654.Text = "" Then : LB654.Text = "X、" : LB655.Text = "XXXXX。" : LB656.Text = "XXXXX."
            ElseIf LB657.Text = "" Then : LB657.Text = "X、" : LB658.Text = "XXXXX。" : LB659.Text = "XXXXX."
            ElseIf LB660.Text = "" Then : LB660.Text = "X、" : LB661.Text = "XXXXX。" : LB662.Text = "XXXXX."
            ElseIf LB663.Text = "" Then : LB663.Text = "X、" : LB664.Text = "XXXXX。" : LB665.Text = "XXXXX."
            ElseIf LB666.Text = "" Then : LB666.Text = "X、" : LB667.Text = "XXXXX。" : LB668.Text = "XXXXX."
            ElseIf LB669.Text = "" Then : LB669.Text = "X、" : LB670.Text = "XXXXX。" : LB671.Text = "XXXXX."
            ElseIf LB672.Text = "" Then : LB672.Text = "X、" : LB673.Text = "XXXXX。" : LB674.Text = "XXXXX."
            ElseIf LB675.Text = "" Then : LB675.Text = "X、" : LB676.Text = "XXXXX。" : LB677.Text = "XXXXX."
            ElseIf LB678.Text = "" Then : LB678.Text = "X、" : LB679.Text = "XXXXX。" : LB680.Text = "XXXXX."
            ElseIf LB681.Text = "" Then : LB681.Text = "X、" : LB682.Text = "XXXXX。" : LB683.Text = "XXXXX."
            Else : MsgBox(SS)
            End If
        ElseIf 翻頁_nud.Value = 6 Then
            '---------------------------------------第6頁-------------------------------------------------------------------------------------
            If LB684.Text = "" Then : LB684.Text = "第X條、XXXX" : LB685.Text = "Article X (XXX) XXXXXXXXXX"
                LB686.Text = "__________________________________________________________________________________________________________________________________________________________________________________"
            ElseIf LB687.Text = "" Then : LB687.Text = "X、" : LB37.Text = "XXXXX。" : LB38.Text = "XXXXX."
            ElseIf LB688.Text = "" Then : LB688.Text = "X、" : LB86.Text = "XXXXX。" : LB87.Text = "XXXXX."
            ElseIf LB689.Text = "" Then : LB689.Text = "X、" : LB88.Text = "XXXXX。" : LB89.Text = "XXXXX."
            ElseIf LB690.Text = "" Then : LB690.Text = "X、" : LB90.Text = "XXXXX。" : LB91.Text = "XXXXX."
            ElseIf LB691.Text = "" Then : LB691.Text = "X、" : LB92.Text = "XXXXX。" : LB93.Text = "XXXXX."
            ElseIf LB692.Text = "" Then : LB692.Text = "X、" : LB693.Text = "XXXXX。" : LB694.Text = "XXXXX."
            ElseIf LB695.Text = "" Then : LB695.Text = "X、" : LB696.Text = "XXXXX。" : LB697.Text = "XXXXX."
            ElseIf LB698.Text = "" Then : LB698.Text = "X、" : LB699.Text = "XXXXX。" : LB700.Text = "XXXXX."
            ElseIf LB701.Text = "" Then : LB701.Text = "X、" : LB702.Text = "XXXXX。" : LB703.Text = "XXXXX."
            ElseIf LB704.Text = "" Then : LB704.Text = "X、" : LB705.Text = "XXXXX。" : LB706.Text = "XXXXX."
            ElseIf LB707.Text = "" Then : LB707.Text = "X、" : LB708.Text = "XXXXX。" : LB709.Text = "XXXXX."
            ElseIf LB710.Text = "" Then : LB710.Text = "X、" : LB711.Text = "XXXXX。" : LB712.Text = "XXXXX."
            ElseIf LB713.Text = "" Then : LB713.Text = "X、" : LB714.Text = "XXXXX。" : LB715.Text = "XXXXX."
            ElseIf LB716.Text = "" Then : LB716.Text = "X、" : LB717.Text = "XXXXX。" : LB718.Text = "XXXXX."
            Else : MsgBox(SS)
            End If
        ElseIf 翻頁_nud.Value = 4 Then
            '---------------------------------------第4頁-------------------------------------------------------------------------------------
            If LB719.Text = "" Then : LB719.Text = "X、" : LB31.Text = "XXXXX。" : LB32.Text = "XXXXX."
            ElseIf LB720.Text = "" Then : LB720.Text = "X、" : LB35.Text = "XXXXX。" : LB36.Text = "XXXXX."
            ElseIf LB721.Text = "" Then : LB721.Text = "X、" : LB722.Text = "XXXXX。" : LB723.Text = "XXXXX."
            ElseIf LB724.Text = "" Then : LB724.Text = "X、" : LB725.Text = "XXXXX。" : LB726.Text = "XXXXX."
            ElseIf LB727.Text = "" Then : LB727.Text = "X、" : LB728.Text = "XXXXX。" : LB729.Text = "XXXXX."
            ElseIf LB730.Text = "" Then : LB730.Text = "X、" : LB731.Text = "XXXXX。" : LB732.Text = "XXXXX."
            ElseIf LB733.Text = "" Then : LB733.Text = "X、" : LB734.Text = "XXXXX。" : LB735.Text = "XXXXX."
            ElseIf LB736.Text = "" Then : LB736.Text = "X、" : LB737.Text = "XXXXX。" : LB738.Text = "XXXXX."
            ElseIf LB739.Text = "" Then : LB739.Text = "X、" : LB740.Text = "XXXXX。" : LB741.Text = "XXXXX."
            Else : MsgBox(SS)
            End If
        ElseIf 翻頁_nud.Value = 3 Then
            '---------------------------------------第3頁-------------------------------------------------------------------------------------
            If LB742.Text = "" Then : LB742.Text = "X、" : LB7.Text = "XXXXX。" : LB8.Text = "XXXXX."
            ElseIf LB743.Text = "" Then : LB743.Text = "X、" : LB9.Text = "XXXXX。" : LB10.Text = "XXXXX."
            ElseIf LB744.Text = "" Then : LB744.Text = "X、" : LB11.Text = "XXXXX。" : LB12.Text = "XXXXX."
            ElseIf LB745.Text = "" Then : LB745.Text = "X、" : LB13.Text = "XXXXX。" : LB14.Text = "XXXXX."
            ElseIf LB746.Text = "" Then : LB746.Text = "X、" : LB15.Text = "XXXXX。" : LB16.Text = "XXXXX."
            ElseIf LB747.Text = "" Then : LB747.Text = "X、" : LB17.Text = "XXXXX。" : LB18.Text = "XXXXX."
            ElseIf LB748.Text = "" Then : LB748.Text = "X、" : LB19.Text = "XXXXX。" : LB20.Text = "XXXXX."
            ElseIf LB749.Text = "" Then : LB749.Text = "X、" : LB750.Text = "XXXXX。" : LB751.Text = "XXXXX."
            ElseIf LB752.Text = "" Then : LB752.Text = "X、" : LB753.Text = "XXXXX。" : LB754.Text = "XXXXX."
            ElseIf LB755.Text = "" Then : LB755.Text = "X、" : LB756.Text = "XXXXX。" : LB757.Text = "XXXXX."
            Else : MsgBox(SS)
            End If
        End If
    End Sub
    Private Sub 去除_bt_Click(sender As Object, e As EventArgs) Handles 去除_bt.Click
        Dim SS As String
        If 系統語言 = "繁體中文" Then : SS = "整頁都空白了!!" : Else : SS = "Seluruh halaman kosong!!" : End If
        If 翻頁_nud.Value = Val(最末頁_cb.Text) Then
            '---------------------------------------最末頁-------------------------------------------------------------------------------------
            If 系統語言 = "繁體中文" Then : MsgBox("最末頁無法去除空白條文!!") : Else : MsgBox("Tidak dapat menghapus coretan kosong di halaman terakhir!!") : End If
        ElseIf 翻頁_nud.Value = Val(最末頁_cb.Text) - 1 Then
            '---------------------------------------第十一章-------------------------------------------------------------------------------------
            If LB184.Text <> "" Then : LB186.Text = "" : LB185.Text = "" : LB184.Text = "" : ElseIf LB181.Text <> "" Then : LB183.Text = "" : LB182.Text = "" : LB181.Text = ""
            ElseIf LB178.Text <> "" Then : LB178.Text = "" : LB179.Text = "" : LB180.Text = "" : ElseIf LB175.Text <> "" Then : LB175.Text = "" : LB176.Text = "" : LB177.Text = ""
            ElseIf LB172.Text <> "" Then : LB172.Text = "" : LB173.Text = "" : LB174.Text = "" : ElseIf LB169.Text <> "" Then : LB169.Text = "" : LB170.Text = "" : LB171.Text = ""
            ElseIf LB166.Text <> "" Then : LB166.Text = "" : LB167.Text = "" : LB168.Text = "" : Else
                If 系統語言 = "繁體中文" Then : MsgBox("本頁空白條文最多去除到第4條!!") : Else : MsgBox("Penghapusan klausa kosong pada halaman ini hanya dapat mencapai klausa 4 !!") : End If
            End If
        ElseIf 翻頁_nud.Value = Val(最末頁_cb.Text) - 2 Then
            '---------------------------------------第十章-------------------------------------------------------------------------------------
            If LB223.Text <> "" Then : LB223.Text = "" : LB224.Text = "" : LB225.Text = "" : ElseIf LB220.Text <> "" Then : LB220.Text = "" : LB221.Text = "" : LB222.Text = ""
            ElseIf LB217.Text <> "" Then : LB217.Text = "" : LB218.Text = "" : LB219.Text = "" : ElseIf LB214.Text <> "" Then : LB214.Text = "" : LB215.Text = "" : LB216.Text = ""
            ElseIf LB211.Text <> "" Then : LB211.Text = "" : LB212.Text = "" : LB213.Text = "" : ElseIf LB208.Text <> "" Then : LB208.Text = "" : LB209.Text = "" : LB210.Text = ""
            ElseIf LB205.Text <> "" Then : LB205.Text = "" : LB206.Text = "" : LB207.Text = "" : ElseIf LB202.Text <> "" Then : LB202.Text = "" : LB203.Text = "" : LB204.Text = ""
            ElseIf LB199.Text <> "" Then : LB199.Text = "" : LB200.Text = "" : LB201.Text = "" : ElseIf LB196.Text <> "" Then : LB196.Text = "" : LB197.Text = "" : LB198.Text = ""
            ElseIf LB193.Text <> "" Then : LB193.Text = "" : LB194.Text = "" : LB195.Text = "" : ElseIf LB190.Text <> "" Then : LB190.Text = "" : LB191.Text = "" : LB192.Text = ""
            ElseIf LB227.Text <> "" Then : LB227.Text = "" : LB139.Text = "" : LB140.Text = "" : ElseIf LB226.Text <> "" Then : LB226.Text = "" : LB137.Text = "" : LB138.Text = ""
            ElseIf LB187.Text <> "" Then : LB187.Text = "" : LB188.Text = "" : LB189.Text = "" : Else : MsgBox(SS) : End If
        ElseIf 翻頁_nud.Value = Val(最末頁_cb.Text) - 3 Then
            '---------------------------------------第九章-------------------------------------------------------------------------------------
            If LB264.Text <> "" Then : LB264.Text = "" : LB265.Text = "" : LB266.Text = "" : ElseIf LB261.Text <> "" Then : LB261.Text = "" : LB262.Text = "" : LB263.Text = ""
            ElseIf LB258.Text <> "" Then : LB258.Text = "" : LB259.Text = "" : LB260.Text = "" : ElseIf LB255.Text <> "" Then : LB255.Text = "" : LB256.Text = "" : LB257.Text = ""
            ElseIf LB252.Text <> "" Then : LB252.Text = "" : LB253.Text = "" : LB254.Text = "" : ElseIf LB249.Text <> "" Then : LB249.Text = "" : LB250.Text = "" : LB251.Text = ""
            ElseIf LB246.Text <> "" Then : LB246.Text = "" : LB247.Text = "" : LB248.Text = "" : ElseIf LB243.Text <> "" Then : LB243.Text = "" : LB244.Text = "" : LB245.Text = ""
            ElseIf LB240.Text <> "" Then : LB240.Text = "" : LB241.Text = "" : LB242.Text = "" : ElseIf LB237.Text <> "" Then : LB237.Text = "" : LB238.Text = "" : LB239.Text = ""
            ElseIf LB234.Text <> "" Then : LB234.Text = "" : LB235.Text = "" : LB236.Text = "" : ElseIf LB233.Text <> "" Then : LB233.Text = "" : LB135.Text = "" : LB136.Text = ""
            ElseIf LB232.Text <> "" Then : LB232.Text = "" : LB133.Text = "" : LB134.Text = "" : ElseIf LB231.Text <> "" Then : LB231.Text = "" : LB131.Text = "" : LB132.Text = ""
            ElseIf LB228.Text <> "" Then : LB228.Text = "" : LB229.Text = "" : LB230.Text = "" : Else : MsgBox(SS) : End If
        ElseIf 翻頁_nud.Value = Val(最末頁_cb.Text) - 4 Then
            '---------------------------------------第八章-------------------------------------------------------------------------------------
            If LB300.Text <> "" Then : LB300.Text = "" : LB301.Text = "" : LB302.Text = "" : ElseIf LB297.Text <> "" Then : LB297.Text = "" : LB298.Text = "" : LB299.Text = ""
            ElseIf LB294.Text <> "" Then : LB294.Text = "" : LB295.Text = "" : LB296.Text = "" : ElseIf LB291.Text <> "" Then : LB291.Text = "" : LB292.Text = "" : LB293.Text = ""
            ElseIf LB288.Text <> "" Then : LB288.Text = "" : LB289.Text = "" : LB290.Text = "" : ElseIf LB285.Text <> "" Then : LB285.Text = "" : LB286.Text = "" : LB287.Text = ""
            ElseIf LB282.Text <> "" Then : LB282.Text = "" : LB283.Text = "" : LB284.Text = "" : ElseIf LB279.Text <> "" Then : LB279.Text = "" : LB280.Text = "" : LB281.Text = ""
            ElseIf LB276.Text <> "" Then : LB276.Text = "" : LB277.Text = "" : LB278.Text = "" : Else
                If 系統語言 = "繁體中文" Then : MsgBox("本頁空白條文最多去除到第2條!!") : Else : MsgBox("Penghapusan klausa kosong pada halaman ini hanya dapat mencapai klausa 2 !!") : End If
            End If
        ElseIf Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15 Then
            '---------------------------------------第15頁-------------------------------------------------------------------------------------
            If LB345.Text <> "" Then : LB345.Text = "" : LB346.Text = "" : LB347.Text = "" : ElseIf LB342.Text <> "" Then : LB342.Text = "" : LB343.Text = "" : LB344.Text = ""
            ElseIf LB339.Text <> "" Then : LB339.Text = "" : LB340.Text = "" : LB341.Text = "" : ElseIf LB336.Text <> "" Then : LB336.Text = "" : LB337.Text = "" : LB338.Text = ""
            ElseIf LB333.Text <> "" Then : LB333.Text = "" : LB334.Text = "" : LB335.Text = "" : ElseIf LB330.Text <> "" Then : LB330.Text = "" : LB331.Text = "" : LB332.Text = ""
            ElseIf LB327.Text <> "" Then : LB327.Text = "" : LB328.Text = "" : LB329.Text = "" : ElseIf LB324.Text <> "" Then : LB324.Text = "" : LB325.Text = "" : LB326.Text = ""
            ElseIf LB321.Text <> "" Then : LB321.Text = "" : LB322.Text = "" : LB323.Text = "" : ElseIf LB318.Text <> "" Then : LB318.Text = "" : LB319.Text = "" : LB320.Text = ""
            ElseIf LB315.Text <> "" Then : LB315.Text = "" : LB316.Text = "" : LB317.Text = "" : ElseIf LB312.Text <> "" Then : LB312.Text = "" : LB313.Text = "" : LB314.Text = ""
            ElseIf LB309.Text <> "" Then : LB309.Text = "" : LB310.Text = "" : LB311.Text = "" : ElseIf LB306.Text <> "" Then : LB306.Text = "" : LB307.Text = "" : LB308.Text = ""
            ElseIf LB303.Text <> "" Then : LB303.Text = "" : LB304.Text = "" : LB305.Text = "" : Else : MsgBox(SS) : End If
        ElseIf Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14 Then
            '---------------------------------------第14頁-------------------------------------------------------------------------------------
            If LB390.Text <> "" Then : LB390.Text = "" : LB391.Text = "" : LB392.Text = "" : ElseIf LB387.Text <> "" Then : LB387.Text = "" : LB388.Text = "" : LB389.Text = ""
            ElseIf LB384.Text <> "" Then : LB384.Text = "" : LB385.Text = "" : LB386.Text = "" : ElseIf LB381.Text <> "" Then : LB381.Text = "" : LB382.Text = "" : LB383.Text = ""
            ElseIf LB378.Text <> "" Then : LB378.Text = "" : LB379.Text = "" : LB380.Text = "" : ElseIf LB375.Text <> "" Then : LB375.Text = "" : LB376.Text = "" : LB377.Text = ""
            ElseIf LB372.Text <> "" Then : LB372.Text = "" : LB373.Text = "" : LB374.Text = "" : ElseIf LB369.Text <> "" Then : LB369.Text = "" : LB370.Text = "" : LB371.Text = ""
            ElseIf LB366.Text <> "" Then : LB366.Text = "" : LB367.Text = "" : LB368.Text = "" : ElseIf LB363.Text <> "" Then : LB363.Text = "" : LB364.Text = "" : LB365.Text = ""
            ElseIf LB360.Text <> "" Then : LB360.Text = "" : LB361.Text = "" : LB362.Text = "" : ElseIf LB357.Text <> "" Then : LB357.Text = "" : LB358.Text = "" : LB359.Text = ""
            ElseIf LB354.Text <> "" Then : LB354.Text = "" : LB355.Text = "" : LB356.Text = "" : ElseIf LB351.Text <> "" Then : LB351.Text = "" : LB352.Text = "" : LB353.Text = ""
            ElseIf LB348.Text <> "" Then : LB348.Text = "" : LB349.Text = "" : LB350.Text = "" : Else : MsgBox(SS) : End If
        ElseIf Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13 Then
            '---------------------------------------第13頁-------------------------------------------------------------------------------------
            If LB435.Text <> "" Then : LB435.Text = "" : LB436.Text = "" : LB437.Text = "" : ElseIf LB432.Text <> "" Then : LB432.Text = "" : LB433.Text = "" : LB434.Text = ""
            ElseIf LB429.Text <> "" Then : LB429.Text = "" : LB430.Text = "" : LB431.Text = "" : ElseIf LB426.Text <> "" Then : LB426.Text = "" : LB427.Text = "" : LB428.Text = ""
            ElseIf LB423.Text <> "" Then : LB423.Text = "" : LB424.Text = "" : LB425.Text = "" : ElseIf LB420.Text <> "" Then : LB420.Text = "" : LB421.Text = "" : LB422.Text = ""
            ElseIf LB417.Text <> "" Then : LB417.Text = "" : LB418.Text = "" : LB419.Text = "" : ElseIf LB414.Text <> "" Then : LB414.Text = "" : LB415.Text = "" : LB416.Text = ""
            ElseIf LB411.Text <> "" Then : LB411.Text = "" : LB412.Text = "" : LB413.Text = "" : ElseIf LB408.Text <> "" Then : LB408.Text = "" : LB409.Text = "" : LB410.Text = ""
            ElseIf LB405.Text <> "" Then : LB405.Text = "" : LB406.Text = "" : LB407.Text = "" : ElseIf LB402.Text <> "" Then : LB402.Text = "" : LB403.Text = "" : LB404.Text = ""
            ElseIf LB399.Text <> "" Then : LB399.Text = "" : LB400.Text = "" : LB401.Text = "" : ElseIf LB396.Text <> "" Then : LB396.Text = "" : LB397.Text = "" : LB398.Text = ""
            ElseIf LB393.Text <> "" Then : LB393.Text = "" : LB394.Text = "" : LB395.Text = "" : Else : MsgBox(SS) : End If
        ElseIf Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12 Then
            '---------------------------------------第12頁-------------------------------------------------------------------------------------
            If LB480.Text <> "" Then : LB480.Text = "" : LB481.Text = "" : LB482.Text = "" : ElseIf LB477.Text <> "" Then : LB477.Text = "" : LB478.Text = "" : LB479.Text = ""
            ElseIf LB474.Text <> "" Then : LB474.Text = "" : LB475.Text = "" : LB476.Text = "" : ElseIf LB471.Text <> "" Then : LB471.Text = "" : LB472.Text = "" : LB473.Text = ""
            ElseIf LB468.Text <> "" Then : LB468.Text = "" : LB469.Text = "" : LB470.Text = "" : ElseIf LB465.Text <> "" Then : LB465.Text = "" : LB466.Text = "" : LB467.Text = ""
            ElseIf LB462.Text <> "" Then : LB462.Text = "" : LB463.Text = "" : LB464.Text = "" : ElseIf LB459.Text <> "" Then : LB459.Text = "" : LB460.Text = "" : LB461.Text = ""
            ElseIf LB456.Text <> "" Then : LB456.Text = "" : LB457.Text = "" : LB458.Text = "" : ElseIf LB453.Text <> "" Then : LB453.Text = "" : LB454.Text = "" : LB455.Text = ""
            ElseIf LB450.Text <> "" Then : LB450.Text = "" : LB451.Text = "" : LB452.Text = "" : ElseIf LB447.Text <> "" Then : LB447.Text = "" : LB448.Text = "" : LB449.Text = ""
            ElseIf LB444.Text <> "" Then : LB444.Text = "" : LB445.Text = "" : LB446.Text = "" : ElseIf LB441.Text <> "" Then : LB441.Text = "" : LB442.Text = "" : LB443.Text = ""
            ElseIf LB438.Text <> "" Then : LB438.Text = "" : LB439.Text = "" : LB440.Text = "" : Else : MsgBox(SS) : End If
        ElseIf 翻頁_nud.Value = 11 Then
            '---------------------------------------第11頁-------------------------------------------------------------------------------------
            If LB521.Text <> "" Then : LB521.Text = "" : LB522.Text = "" : LB523.Text = "" : ElseIf LB518.Text <> "" Then : LB518.Text = "" : LB519.Text = "" : LB520.Text = ""
            ElseIf LB515.Text <> "" Then : LB515.Text = "" : LB516.Text = "" : LB517.Text = "" : ElseIf LB512.Text <> "" Then : LB512.Text = "" : LB513.Text = "" : LB514.Text = ""
            ElseIf LB509.Text <> "" Then : LB509.Text = "" : LB510.Text = "" : LB511.Text = "" : ElseIf LB506.Text <> "" Then : LB506.Text = "" : LB507.Text = "" : LB508.Text = ""
            ElseIf LB503.Text <> "" Then : LB503.Text = "" : LB504.Text = "" : LB505.Text = "" : ElseIf LB500.Text <> "" Then : LB500.Text = "" : LB501.Text = "" : LB502.Text = ""
            ElseIf LB497.Text <> "" Then : LB497.Text = "" : LB498.Text = "" : LB499.Text = "" : ElseIf LB494.Text <> "" Then : LB494.Text = "" : LB495.Text = "" : LB496.Text = ""
            ElseIf LB491.Text <> "" Then : LB491.Text = "" : LB492.Text = "" : LB493.Text = "" : ElseIf LB488.Text <> "" Then : LB488.Text = "" : LB489.Text = "" : LB490.Text = ""
            ElseIf LB487.Text <> "" Then : LB487.Text = "" : LB119.Text = "" : LB120.Text = "" : ElseIf LB486.Text <> "" Then : LB486.Text = "" : LB117.Text = "" : LB118.Text = ""
            ElseIf LB483.Text <> "" Then : LB483.Text = "" : LB484.Text = "" : LB485.Text = "" : Else : MsgBox(SS) : End If
        ElseIf 翻頁_nud.Value = 10 Then
            '---------------------------------------第10頁-------------------------------------------------------------------------------------
            If LB564.Text <> "" Then : LB564.Text = "" : LB565.Text = "" : LB566.Text = "" : ElseIf LB561.Text <> "" Then : LB561.Text = "" : LB562.Text = "" : LB563.Text = ""
            ElseIf LB558.Text <> "" Then : LB558.Text = "" : LB559.Text = "" : LB560.Text = "" : ElseIf LB555.Text <> "" Then : LB555.Text = "" : LB556.Text = "" : LB557.Text = ""
            ElseIf LB552.Text <> "" Then : LB552.Text = "" : LB553.Text = "" : LB554.Text = "" : ElseIf LB549.Text <> "" Then : LB549.Text = "" : LB550.Text = "" : LB551.Text = ""
            ElseIf LB546.Text <> "" Then : LB546.Text = "" : LB547.Text = "" : LB548.Text = "" : ElseIf LB543.Text <> "" Then : LB543.Text = "" : LB544.Text = "" : LB545.Text = ""
            ElseIf LB540.Text <> "" Then : LB540.Text = "" : LB541.Text = "" : LB542.Text = "" : ElseIf LB537.Text <> "" Then : LB537.Text = "" : LB538.Text = "" : LB539.Text = ""
            ElseIf LB534.Text <> "" Then : LB534.Text = "" : LB535.Text = "" : LB536.Text = "" : ElseIf LB531.Text <> "" Then : LB531.Text = "" : LB532.Text = "" : LB533.Text = ""
            ElseIf LB528.Text <> "" Then : LB528.Text = "" : LB529.Text = "" : LB530.Text = "" : ElseIf LB527.Text <> "" Then : LB527.Text = "" : LB115.Text = "" : LB116.Text = ""
            ElseIf LB524.Text <> "" Then : LB524.Text = "" : LB525.Text = "" : LB526.Text = "" : Else : MsgBox(SS) : End If
        ElseIf 翻頁_nud.Value = 9 Then
            '---------------------------------------第9頁-------------------------------------------------------------------------------------
            If LB597.Text <> "" Then : LB597.Text = "" : LB598.Text = "" : LB599.Text = "" : ElseIf LB594.Text <> "" Then : LB594.Text = "" : LB595.Text = "" : LB596.Text = ""
            ElseIf LB591.Text <> "" Then : LB591.Text = "" : LB592.Text = "" : LB593.Text = "" : ElseIf LB588.Text <> "" Then : LB588.Text = "" : LB589.Text = "" : LB590.Text = ""
            ElseIf LB585.Text <> "" Then : LB585.Text = "" : LB586.Text = "" : LB587.Text = "" : ElseIf LB582.Text <> "" Then : LB582.Text = "" : LB583.Text = "" : LB584.Text = ""
            ElseIf LB579.Text <> "" Then : LB579.Text = "" : LB580.Text = "" : LB581.Text = "" : ElseIf LB576.Text <> "" Then : LB576.Text = "" : LB577.Text = "" : LB578.Text = ""
            ElseIf LB575.Text <> "" Then : LB575.Text = "" : LB113.Text = "" : LB114.Text = "" : ElseIf LB574.Text <> "" Then : LB574.Text = "" : LB111.Text = "" : LB112.Text = ""
            ElseIf LB573.Text <> "" Then : LB573.Text = "" : LB109.Text = "" : LB110.Text = "" : ElseIf LB572.Text <> "" Then : LB572.Text = "" : LB107.Text = "" : LB108.Text = ""
            ElseIf LB571.Text <> "" Then : LB571.Text = "" : LB105.Text = "" : LB106.Text = "" : ElseIf LB570.Text <> "" Then : LB570.Text = "" : LB103.Text = "" : LB104.Text = ""
            ElseIf LB567.Text <> "" Then : LB567.Text = "" : LB568.Text = "" : LB569.Text = "" : Else : MsgBox(SS) : End If
        ElseIf 翻頁_nud.Value = 8 Then
            '---------------------------------------第8頁-------------------------------------------------------------------------------------
            If LB642.Text <> "" Then : LB642.Text = "" : LB643.Text = "" : LB644.Text = "" : ElseIf LB639.Text <> "" Then : LB639.Text = "" : LB640.Text = "" : LB641.Text = ""
            ElseIf LB636.Text <> "" Then : LB636.Text = "" : LB637.Text = "" : LB638.Text = "" : ElseIf LB633.Text <> "" Then : LB633.Text = "" : LB634.Text = "" : LB635.Text = ""
            ElseIf LB630.Text <> "" Then : LB630.Text = "" : LB631.Text = "" : LB632.Text = "" : ElseIf LB627.Text <> "" Then : LB627.Text = "" : LB628.Text = "" : LB629.Text = ""
            ElseIf LB624.Text <> "" Then : LB624.Text = "" : LB625.Text = "" : LB626.Text = "" : ElseIf LB621.Text <> "" Then : LB621.Text = "" : LB622.Text = "" : LB623.Text = ""
            ElseIf LB618.Text <> "" Then : LB618.Text = "" : LB619.Text = "" : LB620.Text = "" : ElseIf LB615.Text <> "" Then : LB615.Text = "" : LB616.Text = "" : LB617.Text = ""
            ElseIf LB612.Text <> "" Then : LB612.Text = "" : LB613.Text = "" : LB614.Text = "" : ElseIf LB609.Text <> "" Then : LB609.Text = "" : LB610.Text = "" : LB611.Text = ""
            ElseIf LB606.Text <> "" Then : LB606.Text = "" : LB607.Text = "" : LB608.Text = "" : ElseIf LB603.Text <> "" Then : LB603.Text = "" : LB604.Text = "" : LB605.Text = ""
            ElseIf LB600.Text <> "" Then : LB600.Text = "" : LB601.Text = "" : LB602.Text = "" : Else : MsgBox(SS) : End If
        ElseIf 翻頁_nud.Value = 7 Then
            '---------------------------------------第7頁-------------------------------------------------------------------------------------
            If LB681.Text <> "" Then : LB681.Text = "" : LB682.Text = "" : LB683.Text = "" : ElseIf LB678.Text <> "" Then : LB678.Text = "" : LB679.Text = "" : LB680.Text = ""
            ElseIf LB675.Text <> "" Then : LB675.Text = "" : LB676.Text = "" : LB677.Text = "" : ElseIf LB672.Text <> "" Then : LB672.Text = "" : LB673.Text = "" : LB674.Text = ""
            ElseIf LB669.Text <> "" Then : LB669.Text = "" : LB670.Text = "" : LB671.Text = "" : ElseIf LB666.Text <> "" Then : LB666.Text = "" : LB667.Text = "" : LB668.Text = ""
            ElseIf LB663.Text <> "" Then : LB663.Text = "" : LB664.Text = "" : LB665.Text = "" : ElseIf LB660.Text <> "" Then : LB660.Text = "" : LB661.Text = "" : LB662.Text = ""
            ElseIf LB657.Text <> "" Then : LB657.Text = "" : LB658.Text = "" : LB659.Text = "" : ElseIf LB654.Text <> "" Then : LB654.Text = "" : LB655.Text = "" : LB656.Text = ""
            ElseIf LB651.Text <> "" Then : LB651.Text = "" : LB652.Text = "" : LB653.Text = "" : ElseIf LB648.Text <> "" Then : LB648.Text = "" : LB649.Text = "" : LB650.Text = ""
            Else
                If 系統語言 = "繁體中文" Then : MsgBox("本頁空白條文最多去除到第3條!!") : Else : MsgBox("Penghapusan klausa kosong pada halaman ini hanya dapat mencapai klausa 3 !!") : End If
            End If
        ElseIf 翻頁_nud.Value = 6 Then
            '---------------------------------------第6頁-------------------------------------------------------------------------------------
            If LB716.Text <> "" Then : LB716.Text = "" : LB717.Text = "" : LB718.Text = "" : ElseIf LB713.Text <> "" Then : LB713.Text = "" : LB714.Text = "" : LB715.Text = ""
            ElseIf LB710.Text <> "" Then : LB710.Text = "" : LB711.Text = "" : LB712.Text = "" : ElseIf LB707.Text <> "" Then : LB707.Text = "" : LB708.Text = "" : LB709.Text = ""
            ElseIf LB704.Text <> "" Then : LB704.Text = "" : LB705.Text = "" : LB706.Text = "" : ElseIf LB701.Text <> "" Then : LB701.Text = "" : LB702.Text = "" : LB703.Text = ""
            ElseIf LB698.Text <> "" Then : LB698.Text = "" : LB699.Text = "" : LB700.Text = "" : ElseIf LB695.Text <> "" Then : LB695.Text = "" : LB696.Text = "" : LB697.Text = ""
            ElseIf LB692.Text <> "" Then : LB692.Text = "" : LB693.Text = "" : LB694.Text = "" : ElseIf LB691.Text <> "" Then : LB691.Text = "" : LB92.Text = "" : LB93.Text = ""
            ElseIf LB690.Text <> "" Then : LB690.Text = "" : LB90.Text = "" : LB91.Text = "" : ElseIf LB689.Text <> "" Then : LB689.Text = "" : LB88.Text = "" : LB89.Text = ""
            ElseIf LB688.Text <> "" Then : LB688.Text = "" : LB86.Text = "" : LB87.Text = "" : ElseIf LB687.Text <> "" Then : LB687.Text = "" : LB37.Text = "" : LB38.Text = ""
            ElseIf LB684.Text <> "" Then : LB684.Text = "" : LB685.Text = "" : LB686.Text = "" : Else : MsgBox(SS) : End If
        ElseIf 翻頁_nud.Value = 4 Then
            '---------------------------------------第4頁-------------------------------------------------------------------------------------
            If LB739.Text <> "" Then : LB739.Text = "" : LB740.Text = "" : LB741.Text = "" : ElseIf LB736.Text <> "" Then : LB736.Text = "" : LB737.Text = "" : LB738.Text = ""
            ElseIf LB733.Text <> "" Then : LB733.Text = "" : LB734.Text = "" : LB735.Text = "" : ElseIf LB730.Text <> "" Then : LB730.Text = "" : LB731.Text = "" : LB732.Text = ""
            ElseIf LB727.Text <> "" Then : LB727.Text = "" : LB728.Text = "" : LB729.Text = "" : ElseIf LB724.Text <> "" Then : LB724.Text = "" : LB725.Text = "" : LB726.Text = ""
            ElseIf LB721.Text <> "" Then : LB721.Text = "" : LB722.Text = "" : LB723.Text = "" : ElseIf LB720.Text <> "" Then : LB720.Text = "" : LB35.Text = "" : LB36.Text = ""
            ElseIf LB719.Text <> "" Then : LB719.Text = "" : LB31.Text = "" : LB32.Text = "" : Else
                If 系統語言 = "繁體中文" Then : MsgBox("本頁空白條文最多去除到第6條!!") : Else : MsgBox("Penghapusan klausa kosong pada halaman ini hanya dapat mencapai klausa 6 !!") : End If
            End If
        ElseIf 翻頁_nud.Value = 3 Then
            '---------------------------------------第3頁-------------------------------------------------------------------------------------
            If LB755.Text <> "" Then : LB755.Text = "" : LB756.Text = "" : LB757.Text = "" : ElseIf LB752.Text <> "" Then : LB752.Text = "" : LB753.Text = "" : LB754.Text = ""
            ElseIf LB749.Text <> "" Then : LB749.Text = "" : LB750.Text = "" : LB751.Text = "" : ElseIf LB748.Text <> "" Then : LB748.Text = "" : LB19.Text = "" : LB20.Text = ""
            ElseIf LB747.Text <> "" Then : LB747.Text = "" : LB17.Text = "" : LB18.Text = "" : ElseIf LB746.Text <> "" Then : LB746.Text = "" : LB15.Text = "" : LB16.Text = ""
            ElseIf LB745.Text <> "" Then : LB745.Text = "" : LB13.Text = "" : LB14.Text = "" : ElseIf LB744.Text <> "" Then : LB744.Text = "" : LB11.Text = "" : LB12.Text = ""
            ElseIf LB743.Text <> "" Then : LB743.Text = "" : LB9.Text = "" : LB10.Text = "" : ElseIf LB742.Text <> "" Then : LB742.Text = "" : LB7.Text = "" : LB8.Text = ""
            Else
                If 系統語言 = "繁體中文" Then : MsgBox("本頁空白條文最多去除到第5條!!") : Else : MsgBox("Penghapusan klausa kosong pada halaman ini hanya dapat mencapai klausa 5 !!") : End If
            End If
        End If
    End Sub
    Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        PA = 關鍵字搜尋_tb.Text : Set_合約清單()
    End Sub

    Private Declare Function BitBlt Lib "gdi32.dll" Alias "BitBlt" (ByVal hdcDest As IntPtr, ByVal nXDest As Integer, ByVal nYDest As _
    Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hdcSrc As IntPtr, ByVal nXSrc As Integer, ByVal nYSrc As Integer,
    ByVal dwRop As System.Int32) As Long
    Dim memoryImage1, memoryImage2, memoryImage3, memoryImage4, memoryImage5, memoryImage6, memoryImage7, memoryImage8, memoryImage9, memoryImage10, memoryImage11,
        memoryImage12, memoryImage13, memoryImage14, memoryImage15, memoryImage16, memoryImage17, memoryImage18, memoryImage19, memoryImage20 As Bitmap
    Private pageNum As Integer
    Private Sub CaptureScreen1()
        Dim mygraphics As Graphics = Panel1.CreateGraphics() : Dim s As Size = Me.Size : memoryImage1 = New Bitmap(Panel1.Width, Panel1.Height, mygraphics)
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage1) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc
        BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2)
    End Sub
    Private Sub CaptureScreen2()
        Dim mygraphics As Graphics = Panel2.CreateGraphics() : Dim s As Size = Me.Size : memoryImage2 = New Bitmap(Panel2.Width, Panel2.Height, mygraphics)
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage2) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc
        BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2)
    End Sub
    Private Sub CaptureScreen3()
        Dim mygraphics As Graphics = Panel3.CreateGraphics() : Dim s As Size = Me.Size : memoryImage3 = New Bitmap(Panel3.Width, Panel3.Height, mygraphics)
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage3) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc
        BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2)
    End Sub
    Private Sub CaptureScreen4()
        Dim mygraphics As Graphics = Panel4.CreateGraphics() : Dim s As Size = Me.Size : memoryImage4 = New Bitmap(Panel4.Width, Panel4.Height, mygraphics)
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage4) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc
        BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2)
    End Sub
    Private Sub CaptureScreen5()
        Dim mygraphics As Graphics = Panel5.CreateGraphics() : Dim s As Size = Me.Size : memoryImage5 = New Bitmap(Panel5.Width, Panel5.Height, mygraphics)
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage5) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc
        BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2)
    End Sub
    Private Sub CaptureScreen6()
        Dim mygraphics As Graphics = Panel6.CreateGraphics() : Dim s As Size = Me.Size : memoryImage6 = New Bitmap(Panel6.Width, Panel6.Height, mygraphics)
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage6) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc
        BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2)
    End Sub
    Private Sub CaptureScreen7()
        Dim mygraphics As Graphics = Panel7.CreateGraphics() : Dim s As Size = Me.Size : memoryImage7 = New Bitmap(Panel7.Width, Panel7.Height, mygraphics)
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage7) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc
        BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2)
    End Sub
    Private Sub CaptureScreen8()
        Dim mygraphics As Graphics = Panel8.CreateGraphics() : Dim s As Size = Me.Size : memoryImage8 = New Bitmap(Panel8.Width, Panel8.Height, mygraphics)
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage8) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc
        BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2)
    End Sub
    Private Sub CaptureScreen9()
        Dim mygraphics As Graphics = Panel9.CreateGraphics() : Dim s As Size = Me.Size : memoryImage9 = New Bitmap(Panel9.Width, Panel9.Height, mygraphics)
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage9) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc
        BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2)
    End Sub
    Private Sub CaptureScreen10()
        Dim mygraphics As Graphics = Panel10.CreateGraphics() : Dim s As Size = Me.Size : memoryImage10 = New Bitmap(Panel10.Width, Panel10.Height, mygraphics)
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage10) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc
        BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2)
    End Sub
    Private Sub CaptureScreen11()
        Dim mygraphics As Graphics = Panel11.CreateGraphics() : Dim s As Size = Me.Size : memoryImage11 = New Bitmap(Panel11.Width, Panel11.Height, mygraphics)
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage11) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc
        BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2)
    End Sub
    Private Sub CaptureScreen12()
        Dim mygraphics As Graphics = Panel12.CreateGraphics() : Dim s As Size = Me.Size : memoryImage12 = New Bitmap(Panel12.Width, Panel12.Height, mygraphics)
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage12) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc
        BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2)
    End Sub
    Private Sub CaptureScreen13()
        Dim mygraphics As Graphics = Panel13.CreateGraphics() : Dim s As Size = Me.Size : memoryImage13 = New Bitmap(Panel13.Width, Panel13.Height, mygraphics)
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage13) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc
        BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2)
    End Sub
    Private Sub CaptureScreen14()
        Dim mygraphics As Graphics = Panel14.CreateGraphics() : Dim s As Size = Me.Size : memoryImage14 = New Bitmap(Panel14.Width, Panel14.Height, mygraphics)
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage14) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc
        BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2)
    End Sub
    Private Sub CaptureScreen15()
        Dim mygraphics As Graphics = Panel15.CreateGraphics() : Dim s As Size = Me.Size : memoryImage15 = New Bitmap(Panel15.Width, Panel15.Height, mygraphics)
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage15) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc
        BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2)
    End Sub
    Private Sub CaptureScreen16()
        Dim mygraphics As Graphics = Panel16.CreateGraphics() : Dim s As Size = Me.Size : memoryImage16 = New Bitmap(Panel16.Width, Panel16.Height, mygraphics)
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage16) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc
        BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2)
    End Sub
    Private Sub CaptureScreen17()
        Dim mygraphics As Graphics = Panel17.CreateGraphics() : Dim s As Size = Me.Size : memoryImage17 = New Bitmap(Panel17.Width, Panel17.Height, mygraphics)
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage17) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc
        BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2)
    End Sub
    Private Sub CaptureScreen18()
        Dim mygraphics As Graphics = Panel18.CreateGraphics() : Dim s As Size = Me.Size : memoryImage18 = New Bitmap(Panel18.Width, Panel18.Height, mygraphics)
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage18) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc
        BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2)
    End Sub
    Private Sub CaptureScreen19()
        Dim mygraphics As Graphics = Panel19.CreateGraphics() : Dim s As Size = Me.Size : memoryImage19 = New Bitmap(Panel19.Width, Panel19.Height, mygraphics)
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage19) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc
        BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2)
    End Sub
    Private Sub CaptureScreen20()
        Dim mygraphics As Graphics = Panel20.CreateGraphics() : Dim s As Size = Me.Size : memoryImage20 = New Bitmap(Panel20.Width, Panel20.Height, mygraphics)
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage20) : Dim dc1 As IntPtr = mygraphics.GetHdc : Dim dc2 As IntPtr = memoryGraphics.GetHdc
        BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376) : mygraphics.ReleaseHdc(dc1) : memoryGraphics.ReleaseHdc(dc2)
    End Sub
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        If pageNum = 1 Then : e.Graphics.DrawImage(memoryImage1, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1
        ElseIf pageNum = 2 Then : e.Graphics.DrawImage(memoryImage2, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1
        ElseIf pageNum = 3 Then : e.Graphics.DrawImage(memoryImage3, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1
        ElseIf pageNum = 4 Then : e.Graphics.DrawImage(memoryImage4, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1
        ElseIf pageNum = 5 Then : e.Graphics.DrawImage(memoryImage5, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1
        ElseIf pageNum = 6 Then : e.Graphics.DrawImage(memoryImage6, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1
        ElseIf pageNum = 7 Then : e.Graphics.DrawImage(memoryImage7, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1
        ElseIf pageNum = 8 Then : e.Graphics.DrawImage(memoryImage8, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1
        ElseIf pageNum = 9 Then : e.Graphics.DrawImage(memoryImage9, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1
        ElseIf pageNum = 10 Then : e.Graphics.DrawImage(memoryImage10, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1
        ElseIf pageNum = 11 Then : e.Graphics.DrawImage(memoryImage11, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1
        ElseIf pageNum = 12 Then : e.Graphics.DrawImage(memoryImage12, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1
        ElseIf pageNum = 13 Then : e.Graphics.DrawImage(memoryImage13, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1
        ElseIf pageNum = 14 Then : e.Graphics.DrawImage(memoryImage14, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1
        ElseIf pageNum = 15 Then : e.Graphics.DrawImage(memoryImage15, 1, 1, 680, 962) : e.HasMorePages = True : pageNum += 1
        ElseIf pageNum = 16 Then : e.Graphics.DrawImage(memoryImage16, 1, 1, 680, 962) : e.HasMorePages = True
            If Val(最末頁_cb.Text) = 16 Then : e.HasMorePages = False : ElseIf Val(最末頁_cb.Text) > 16 Then : pageNum += 1 : End If
        ElseIf pageNum = 17 And Val(最末頁_cb.Text) >= 17 Then : e.Graphics.DrawImage(memoryImage17, 1, 1, 680, 962) : e.HasMorePages = True
            If Val(最末頁_cb.Text) = 17 Then : e.HasMorePages = False : ElseIf Val(最末頁_cb.Text) > 17 Then : pageNum += 1 : End If
        ElseIf pageNum = 18 And Val(最末頁_cb.Text) >= 18 Then : e.Graphics.DrawImage(memoryImage18, 1, 1, 680, 962) : e.HasMorePages = True
            If Val(最末頁_cb.Text) = 18 Then : e.HasMorePages = False : ElseIf Val(最末頁_cb.Text) > 18 Then : pageNum += 1 : End If
        ElseIf pageNum = 19 And Val(最末頁_cb.Text) >= 19 Then : e.Graphics.DrawImage(memoryImage19, 1, 1, 680, 962) : e.HasMorePages = True
            If Val(最末頁_cb.Text) = 19 Then : e.HasMorePages = False : ElseIf Val(最末頁_cb.Text) > 19 Then : pageNum += 1 : End If
        ElseIf pageNum = 20 And Val(最末頁_cb.Text) >= 20 Then : e.Graphics.DrawImage(memoryImage20, 1, 1, 680, 962) : End If
    End Sub
    Public Sub Delay(ByRef Interval As Double)  'Interval单位为毫秒
        Dim time As DateTime = DateTime.Now : Dim Span As Double = Interval * 1234 : While ((DateTime.Now.Ticks - time.Ticks) < Span) : System.Windows.Forms.Application.DoEvents() : End While
    End Sub
    Private Sub 列印_bt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 列印_bt.Click
        PrintDialog1.Document = PrintDocument1
        PrintDialog1.PrinterSettings = PrintDocument1.PrinterSettings
        PrintDialog1.AllowSomePages = True
        PrintDialog1.Document.DocumentName = 工程名稱_中_tb.Text & ".pdf"
        If PrintDialog1.ShowDialog = DialogResult.OK Then
            pageNum = 1
            PrintPreviewControl1.Visible = False : PrintPreviewControl1.SendToBack() : Delay(50)
            Panel1.BringToFront() : Delay(50) : CaptureScreen1() : Panel2.BringToFront() : Delay(50) : CaptureScreen2() : Panel3.BringToFront() : Delay(50) : CaptureScreen3()
            Panel4.BringToFront() : Delay(50) : CaptureScreen4() : Panel5.BringToFront() : Delay(50) : CaptureScreen5() : Panel6.BringToFront() : Delay(50) : CaptureScreen6()
            Panel7.BringToFront() : Delay(50) : CaptureScreen7() : Panel8.BringToFront() : Delay(50) : CaptureScreen8() : Panel9.BringToFront() : Delay(50) : CaptureScreen9()
            Panel10.BringToFront() : Delay(50) : CaptureScreen10() : Panel11.BringToFront() : Delay(50) : CaptureScreen11() : Panel12.BringToFront() : Delay(50) : CaptureScreen12()
            Panel13.BringToFront() : Delay(50) : CaptureScreen13() : Panel14.BringToFront() : Delay(50) : CaptureScreen14() : Panel15.BringToFront() : Delay(50) : CaptureScreen15()
            Panel16.BringToFront() : Delay(50) : CaptureScreen16()
            If Val(最末頁_cb.Text) >= 17 Then : Panel17.BringToFront() : Delay(50) : CaptureScreen17() : End If
            If Val(最末頁_cb.Text) >= 18 Then : Panel18.BringToFront() : Delay(50) : CaptureScreen18() : End If
            If Val(最末頁_cb.Text) >= 19 Then : Panel19.BringToFront() : Delay(50) : CaptureScreen19() : End If
            If Val(最末頁_cb.Text) >= 20 Then : Panel20.BringToFront() : Delay(50) : CaptureScreen20() : End If
            PrintDocument1.DocumentName = 工程名稱_中_tb.Text & ".pdf" : PrintDocument1.Print()
        End If
    End Sub
    Private Sub 預覽_bt_Click(sender As Object, e As EventArgs) Handles 預覽_bt.Click
        關閉預覽_tb.Enabled = True : 預覽_bt.Enabled = False : 列印_bt.Enabled = True : 預覽_nud.Value = 1.4
        pageNum = 1
        Panel1.BringToFront() : Delay(50) : CaptureScreen1() : Panel2.BringToFront() : Delay(50) : CaptureScreen2() : Panel3.BringToFront() : Delay(50) : CaptureScreen3()
        Panel4.BringToFront() : Delay(50) : CaptureScreen4() : Panel5.BringToFront() : Delay(50) : CaptureScreen5() : Panel6.BringToFront() : Delay(50) : CaptureScreen6()
        Panel7.BringToFront() : Delay(50) : CaptureScreen7() : Panel8.BringToFront() : Delay(50) : CaptureScreen8() : Panel9.BringToFront() : Delay(50) : CaptureScreen9()
        Panel10.BringToFront() : Delay(50) : CaptureScreen10() : Panel11.BringToFront() : Delay(50) : CaptureScreen11() : Panel12.BringToFront() : Delay(50) : CaptureScreen12()
        Panel13.BringToFront() : Delay(50) : CaptureScreen13() : Panel14.BringToFront() : Delay(50) : CaptureScreen14() : Panel15.BringToFront() : Delay(50) : CaptureScreen15()
        Panel16.BringToFront() : Delay(50) : CaptureScreen16()
        If Val(最末頁_cb.Text) >= 17 Then : Panel17.BringToFront() : Delay(50) : CaptureScreen17() : End If
        If Val(最末頁_cb.Text) >= 18 Then : Panel18.BringToFront() : Delay(50) : CaptureScreen18() : End If
        If Val(最末頁_cb.Text) >= 19 Then : Panel19.BringToFront() : Delay(50) : CaptureScreen19() : End If
        If Val(最末頁_cb.Text) >= 20 Then : Panel20.BringToFront() : Delay(50) : CaptureScreen20() : End If
        PrintPreviewControl1.Visible = True : PrintPreviewControl1.BringToFront() : PrintPreviewControl1.Document = PrintDocument1
    End Sub
    Private Sub 關閉預覽_tb_Click(sender As Object, e As EventArgs) Handles 關閉預覽_tb.Click
        關閉預覽_tb.Enabled = False : 預覽_bt.Enabled = True : 列印_bt.Enabled = False : PrintPreviewControl1.Visible = False : PrintPreviewControl1.SendToBack()
    End Sub
    Private Sub 上一頁_bt_Click(sender As Object, e As EventArgs) Handles 上一頁_bt.Click
        If (PrintPreviewControl1.StartPage > 0) Then PrintPreviewControl1.StartPage -= 1
    End Sub
    Private Sub 下一頁_bt_Click(sender As Object, e As EventArgs) Handles 下一頁_bt.Click
        PrintPreviewControl1.StartPage += 1
    End Sub
    Private Sub 上1頁_bt_Click(sender As Object, e As EventArgs) Handles 上1頁_bt.Click
        翻頁_nud.Value -= 1 : 轉跳_cb.Text = 翻頁_nud.Value
    End Sub
    Private Sub 下1頁_bt_Click(sender As Object, e As EventArgs) Handles 下1頁_bt.Click
        翻頁_nud.Value += 1 : 轉跳_cb.Text = 翻頁_nud.Value
    End Sub
    Private Sub 轉跳_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 轉跳_cb.SelectedIndexChanged
        翻頁_nud.Value = 轉跳_cb.Text
    End Sub
    Private Sub 最末頁_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 最末頁_cb.SelectedIndexChanged
        轉跳_cb.Items.Clear() : For I As Integer = 1 To 最末頁_cb.SelectedItem : 轉跳_cb.Items.Add(I) : Next : 頁數_bt.Text = 最末頁_cb.Text
        For I As Integer = 1 To Val(最末頁_cb.Text)
            Dim PanelS As Panel = CType(Me.Controls.Find("Panel" + (I).ToString(), True)(0), Panel)
            '---------------------------------------第八章-------------------------------------------------------------------------------------
            If Val(最末頁_cb.Text) - 4 = I Then
                For ii As Integer = 121 To 130 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (ii).ToString(), True)(0), Label) : LBS.Parent = PanelS : Next
                For ii As Integer = 267 To 302 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (ii).ToString(), True)(0), Label) : LBS.Parent = PanelS : Next
            End If
            '---------------------------------------第九章-------------------------------------------------------------------------------------
            If Val(最末頁_cb.Text) - 3 = I Then
                For ii As Integer = 131 To 136 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (ii).ToString(), True)(0), Label) : LBS.Parent = PanelS : Next
                For ii As Integer = 228 To 266 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (ii).ToString(), True)(0), Label) : LBS.Parent = PanelS : Next
            End If
            '---------------------------------------第十章-------------------------------------------------------------------------------------
            If Val(最末頁_cb.Text) - 2 = I Then
                For ii As Integer = 137 To 140 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (ii).ToString(), True)(0), Label) : LBS.Parent = PanelS : Next
                For ii As Integer = 187 To 227 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (ii).ToString(), True)(0), Label) : LBS.Parent = PanelS : Next
            End If
            '---------------------------------------第十一章-------------------------------------------------------------------------------------
            If Val(最末頁_cb.Text) - 1 = I Then
                For ii As Integer = 141 To 186 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (ii).ToString(), True)(0), Label) : LBS.Parent = PanelS : Next
            End If
            '---------------------------------------最末頁-------------------------------------------------------------------------------------
            If Val(最末頁_cb.Text) = I Then
                For ii As Integer = 1 To 28 : Dim SLBS As Label = CType(Me.Controls.Find("SLB" + (ii).ToString(), True)(0), Label) : SLBS.Parent = PanelS : Next
            End If
        Next
        If Val(最末頁_cb.Text) = 16 Then
            For ii As Integer = 303 To 482 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (ii).ToString(), True)(0), Label) : LBS.Text = "" : Next
        ElseIf Val(最末頁_cb.Text) = 17 Then
            For ii As Integer = 303 To 437 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (ii).ToString(), True)(0), Label) : LBS.Text = "" : Next
            整頁呈現12()
        ElseIf Val(最末頁_cb.Text) = 18 Then
            For ii As Integer = 303 To 392 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (ii).ToString(), True)(0), Label) : LBS.Text = "" : Next
            整頁呈現13() : 整頁呈現12()
        ElseIf Val(最末頁_cb.Text) = 19 Then
            For ii As Integer = 348 To 392 : Dim LBS As Label = CType(Me.Controls.Find("LB" + (ii).ToString(), True)(0), Label) : LBS.Text = "" : Next
            整頁呈現14() : 整頁呈現13() : 整頁呈現12()
        ElseIf Val(最末頁_cb.Text) = 20 Then
            整頁呈現15() : 整頁呈現14() : 整頁呈現13() : 整頁呈現12()
        End If : 浮水印()
    End Sub
    Private Sub 整頁呈現12()
        LB438.Text = "第X條、XXXX" : LB439.Text = "Article X (XXX) XXXXXXXXXX"
        LB440.Text = "__________________________________________________________________________________________________________________________________________________________________________________"
        LB441.Text = "X、" : LB442.Text = "XXXXX。" : LB443.Text = "XXXXX." : LB444.Text = "X、" : LB445.Text = "XXXXX。" : LB446.Text = "XXXXX."
        LB447.Text = "X、" : LB448.Text = "XXXXX。" : LB449.Text = "XXXXX." : LB450.Text = "X、" : LB451.Text = "XXXXX。" : LB452.Text = "XXXXX."
        LB453.Text = "X、" : LB454.Text = "XXXXX。" : LB455.Text = "XXXXX." : LB456.Text = "X、" : LB457.Text = "XXXXX。" : LB458.Text = "XXXXX."
        LB459.Text = "X、" : LB460.Text = "XXXXX。" : LB461.Text = "XXXXX." : LB462.Text = "X、" : LB463.Text = "XXXXX。" : LB464.Text = "XXXXX."
        LB465.Text = "X、" : LB466.Text = "XXXXX。" : LB467.Text = "XXXXX." : LB468.Text = "X、" : LB469.Text = "XXXXX。" : LB470.Text = "XXXXX."
        LB471.Text = "X、" : LB472.Text = "XXXXX。" : LB473.Text = "XXXXX." : LB474.Text = "X、" : LB475.Text = "XXXXX。" : LB476.Text = "XXXXX."
        LB477.Text = "X、" : LB478.Text = "XXXXX。" : LB479.Text = "XXXXX." : LB480.Text = "X、" : LB481.Text = "XXXXX。" : LB482.Text = "XXXXX."
    End Sub
    Private Sub 整頁呈現13()
        LB393.Text = "第X條、XXXX" : LB394.Text = "Article X (XXX) XXXXXXXXXX"
        LB395.Text = "__________________________________________________________________________________________________________________________________________________________________________________"
        LB396.Text = "X、" : LB397.Text = "XXXXX。" : LB398.Text = "XXXXX." : LB399.Text = "X、" : LB400.Text = "XXXXX。" : LB401.Text = "XXXXX."
        LB402.Text = "X、" : LB403.Text = "XXXXX。" : LB404.Text = "XXXXX." : LB405.Text = "X、" : LB406.Text = "XXXXX。" : LB407.Text = "XXXXX."
        LB408.Text = "X、" : LB409.Text = "XXXXX。" : LB410.Text = "XXXXX." : LB411.Text = "X、" : LB412.Text = "XXXXX。" : LB413.Text = "XXXXX."
        LB414.Text = "X、" : LB415.Text = "XXXXX。" : LB416.Text = "XXXXX." : LB417.Text = "X、" : LB418.Text = "XXXXX。" : LB419.Text = "XXXXX."
        LB420.Text = "X、" : LB421.Text = "XXXXX。" : LB422.Text = "XXXXX." : LB423.Text = "X、" : LB424.Text = "XXXXX。" : LB425.Text = "XXXXX."
        LB426.Text = "X、" : LB427.Text = "XXXXX。" : LB428.Text = "XXXXX." : LB429.Text = "X、" : LB430.Text = "XXXXX。" : LB431.Text = "XXXXX."
        LB432.Text = "X、" : LB433.Text = "XXXXX。" : LB434.Text = "XXXXX." : LB435.Text = "X、" : LB436.Text = "XXXXX。" : LB437.Text = "XXXXX."
    End Sub
    Private Sub 整頁呈現14()
        LB348.Text = "第X條、XXXX" : LB349.Text = "Article X (XXX) XXXXXXXXXX"
        LB350.Text = "__________________________________________________________________________________________________________________________________________________________________________________"
        LB351.Text = "X、" : LB352.Text = "XXXXX。" : LB353.Text = "XXXXX." : LB354.Text = "X、" : LB355.Text = "XXXXX。" : LB356.Text = "XXXXX."
        LB357.Text = "X、" : LB358.Text = "XXXXX。" : LB359.Text = "XXXXX." : LB360.Text = "X、" : LB361.Text = "XXXXX。" : LB362.Text = "XXXXX."
        LB363.Text = "X、" : LB364.Text = "XXXXX。" : LB365.Text = "XXXXX." : LB366.Text = "X、" : LB367.Text = "XXXXX。" : LB368.Text = "XXXXX."
        LB369.Text = "X、" : LB370.Text = "XXXXX。" : LB371.Text = "XXXXX." : LB372.Text = "X、" : LB373.Text = "XXXXX。" : LB374.Text = "XXXXX."
        LB375.Text = "X、" : LB376.Text = "XXXXX。" : LB377.Text = "XXXXX." : LB378.Text = "X、" : LB379.Text = "XXXXX。" : LB380.Text = "XXXXX."
        LB381.Text = "X、" : LB382.Text = "XXXXX。" : LB383.Text = "XXXXX." : LB384.Text = "X、" : LB385.Text = "XXXXX。" : LB386.Text = "XXXXX."
        LB387.Text = "X、" : LB388.Text = "XXXXX。" : LB389.Text = "XXXXX." : LB390.Text = "X、" : LB391.Text = "XXXXX。" : LB392.Text = "XXXXX."
    End Sub
    Private Sub 整頁呈現15()
        LB303.Text = "第X條、XXXX" : LB304.Text = "Article X (XXX) XXXXXXXXXX"
        LB305.Text = "__________________________________________________________________________________________________________________________________________________________________________________"
        LB306.Text = "X、" : LB307.Text = "XXXXX。" : LB308.Text = "XXXXX." : LB309.Text = "X、" : LB310.Text = "XXXXX。" : LB311.Text = "XXXXX."
        LB312.Text = "X、" : LB313.Text = "XXXXX。" : LB314.Text = "XXXXX." : LB315.Text = "X、" : LB316.Text = "XXXXX。" : LB317.Text = "XXXXX."
        LB318.Text = "X、" : LB319.Text = "XXXXX。" : LB320.Text = "XXXXX." : LB321.Text = "X、" : LB322.Text = "XXXXX。" : LB323.Text = "XXXXX."
        LB324.Text = "X、" : LB325.Text = "XXXXX。" : LB326.Text = "XXXXX." : LB327.Text = "X、" : LB328.Text = "XXXXX。" : LB329.Text = "XXXXX."
        LB330.Text = "X、" : LB331.Text = "XXXXX。" : LB332.Text = "XXXXX." : LB333.Text = "X、" : LB334.Text = "XXXXX。" : LB335.Text = "XXXXX."
        LB336.Text = "X、" : LB337.Text = "XXXXX。" : LB338.Text = "XXXXX." : LB339.Text = "X、" : LB340.Text = "XXXXX。" : LB341.Text = "XXXXX."
        LB342.Text = "X、" : LB343.Text = "XXXXX。" : LB344.Text = "XXXXX." : LB345.Text = "X、" : LB346.Text = "XXXXX。" : LB347.Text = "XXXXX."
    End Sub
    Private Sub 翻頁_nud_ValueChanged(sender As Object, e As EventArgs) Handles 翻頁_nud.ValueChanged
        If 翻頁_nud.Value = 1 Then : 上1頁_bt.Enabled = False : 下1頁_bt.Enabled = True
        ElseIf 翻頁_nud.Value = 20 Or Val(最末頁_cb.Text) = 翻頁_nud.Value Then : 上1頁_bt.Enabled = True : 下1頁_bt.Enabled = False
        ElseIf 翻頁_nud.Value < 20 And 翻頁_nud.Value > 1 And Val(最末頁_cb.Text) = 翻頁_nud.Value Then : 上1頁_bt.Enabled = True : 下1頁_bt.Enabled = False
        ElseIf 翻頁_nud.Value < 20 And 翻頁_nud.Value > 1 And Val(最末頁_cb.Text) > 翻頁_nud.Value Then : 上1頁_bt.Enabled = True : 下1頁_bt.Enabled = True : End If
        For I As Integer = 1 To Val(最末頁_cb.Text)
            Dim PanelS As Panel = CType(Me.Controls.Find("Panel" + (I).ToString(), True)(0), Panel) : If 翻頁_nud.Value = I Then : PanelS.BringToFront() : End If
        Next
    End Sub
    Private Sub PrintPreviewControl1_Click(ByVal sender As Object, ByVal e As MouseEventArgs) Handles PrintPreviewControl1.MouseWheel
        If e.Delta > 0 And 預覽_nud.Value < 1.5 Then : 預覽_nud.Value += 0.1 : ElseIf e.Delta < 0 And 預覽_nud.Value > 0 Then : 預覽_nud.Value -= 0.1 : End If
    End Sub
    Private Sub 預覽_nud_ValueChanged(sender As Object, e As EventArgs) Handles 預覽_nud.ValueChanged
        PrintPreviewControl1.Zoom = 預覽_nud.Value
    End Sub
    Private Sub LB1_Click(sender As Object, e As EventArgs) Handles LB1.Click
        PA = LB1.Text : 合約內文修改視窗.ShowDialog() : LB1.Text = PA
    End Sub
    Private Sub LB2_Click(sender As Object, e As EventArgs) Handles LB2.Click
        PA = LB2.Text : 合約內文修改視窗.ShowDialog() : LB2.Text = PA
    End Sub
    Private Sub LB3_Click(sender As Object, e As EventArgs) Handles LB3.Click
        PA = LB3.Text : 合約內文修改視窗.ShowDialog() : LB3.Text = PA
    End Sub
    Private Sub LB4_Click(sender As Object, e As EventArgs) Handles LB4.Click
        PA = LB4.Text : 合約內文修改視窗.ShowDialog() : LB4.Text = PA
    End Sub
    Private Sub LB5_Click(sender As Object, e As EventArgs) Handles LB5.Click
        PA = LB5.Text : 合約內文修改視窗.ShowDialog() : LB5.Text = PA
    End Sub
    Private Sub LB6_Click(sender As Object, e As EventArgs) Handles LB6.Click
        PA = LB6.Text : 合約內文修改視窗.ShowDialog() : LB6.Text = PA
    End Sub
    Private Sub LB21_Click(sender As Object, e As EventArgs) Handles LB21.Click
        PA = LB21.Text : 合約內文修改視窗.ShowDialog() : LB21.Text = PA
    End Sub
    Private Sub LB22_Click(sender As Object, e As EventArgs) Handles LB22.Click
        PA = LB22.Text : 合約內文修改視窗.ShowDialog() : LB22.Text = PA
    End Sub
    Private Sub LB23_Click(sender As Object, e As EventArgs) Handles LB23.Click
        PA = LB23.Text : 合約內文修改視窗.ShowDialog() : LB23.Text = PA
    End Sub
    Private Sub LB24_Click(sender As Object, e As EventArgs) Handles LB24.Click
        PA = LB24.Text : 合約內文修改視窗.ShowDialog() : LB24.Text = PA
    End Sub
    Private Sub LB25_Click(sender As Object, e As EventArgs) Handles LB25.Click
        PA = LB25.Text : 合約內文修改視窗.ShowDialog() : LB25.Text = PA
    End Sub
    Private Sub LB26_Click(sender As Object, e As EventArgs) Handles LB26.Click
        PA = LB26.Text : 合約內文修改視窗.ShowDialog() : LB26.Text = PA
    End Sub
    Private Sub LB27_Click(sender As Object, e As EventArgs) Handles LB27.Click
        PA = LB27.Text : 合約內文修改視窗.ShowDialog() : LB27.Text = PA
    End Sub
    Private Sub LB28_Click(sender As Object, e As EventArgs) Handles LB28.Click
        PA = LB28.Text : 合約內文修改視窗.ShowDialog() : LB28.Text = PA
    End Sub
    Private Sub LB29_Click(sender As Object, e As EventArgs) Handles LB29.Click
        PA = LB29.Text : 合約內文修改視窗.ShowDialog() : LB29.Text = PA
    End Sub
    Private Sub LB30_Click(sender As Object, e As EventArgs) Handles LB30.Click
        PA = LB30.Text : 合約內文修改視窗.ShowDialog() : LB30.Text = PA
    End Sub
    Private Sub LB33_Click(sender As Object, e As EventArgs) Handles LB33.Click
        PA = LB33.Text : 合約內文修改視窗.ShowDialog() : LB33.Text = PA
    End Sub
    Private Sub LB34_Click(sender As Object, e As EventArgs) Handles LB34.Click
        PA = LB34.Text : 合約內文修改視窗.ShowDialog() : LB34.Text = PA
    End Sub
    Private Sub LB39_Click(sender As Object, e As EventArgs) Handles LB39.Click
        PA = LB39.Text : 合約內文修改視窗.ShowDialog() : LB39.Text = PA
    End Sub
    Private Sub LB40_Click(sender As Object, e As EventArgs) Handles LB40.Click
        PA = LB40.Text : 合約內文修改視窗.ShowDialog() : LB40.Text = PA
    End Sub
    Private Sub LB41_Click(sender As Object, e As EventArgs) Handles LB41.Click
        PA = LB41.Text : 合約內文修改視窗.ShowDialog() : LB41.Text = PA
    End Sub
    Private Sub LB42_Click(sender As Object, e As EventArgs) Handles LB42.Click
        PA = LB42.Text : 合約內文修改視窗.ShowDialog() : LB42.Text = PA
    End Sub
    Private Sub LB43_Click(sender As Object, e As EventArgs) Handles LB43.Click
        PA = LB43.Text : 合約內文修改視窗.ShowDialog() : LB43.Text = PA
    End Sub
    Private Sub LB44_Click(sender As Object, e As EventArgs) Handles LB44.Click
        PA = LB44.Text : 合約內文修改視窗.ShowDialog() : LB44.Text = PA
    End Sub
    Private Sub LB50_Click(sender As Object, e As EventArgs) Handles LB50.Click
        PA = LB50.Text : 合約內文修改視窗.ShowDialog() : LB50.Text = PA
    End Sub
    Private Sub LB51_Click(sender As Object, e As EventArgs) Handles LB51.Click
        PA = LB51.Text : 合約內文修改視窗.ShowDialog() : LB51.Text = PA
    End Sub
    Private Sub LB52_Click(sender As Object, e As EventArgs) Handles LB52.Click
        PA = LB52.Text : 合約內文修改視窗.ShowDialog() : LB52.Text = PA
    End Sub
    Private Sub LB53_Click(sender As Object, e As EventArgs) Handles LB53.Click
        PA = LB53.Text : 合約內文修改視窗.ShowDialog() : LB53.Text = PA
    End Sub
    Private Sub LB56_Click(sender As Object, e As EventArgs) Handles LB56.Click
        PA = LB56.Text : 合約內文修改視窗.ShowDialog() : LB56.Text = PA
    End Sub
    Private Sub LB57_Click(sender As Object, e As EventArgs) Handles LB57.Click
        PA = LB57.Text : 合約內文修改視窗.ShowDialog() : LB57.Text = PA
    End Sub
    Private Sub LB58_Click(sender As Object, e As EventArgs) Handles LB58.Click
        PA = LB58.Text : 合約內文修改視窗.ShowDialog() : LB58.Text = PA
    End Sub
    Private Sub LB59_Click(sender As Object, e As EventArgs) Handles LB59.Click
        PA = LB59.Text : 合約內文修改視窗.ShowDialog() : LB59.Text = PA
    End Sub
    Private Sub LB60_Click(sender As Object, e As EventArgs) Handles LB60.Click
        PA = LB60.Text : 合約內文修改視窗.ShowDialog() : LB60.Text = PA
    End Sub
    Private Sub LB61_Click(sender As Object, e As EventArgs) Handles LB61.Click
        PA = LB61.Text : 合約內文修改視窗.ShowDialog() : LB61.Text = PA
    End Sub
    Private Sub LB62_Click(sender As Object, e As EventArgs) Handles LB62.Click
        PA = LB62.Text : 合約內文修改視窗.ShowDialog() : LB62.Text = PA
    End Sub
    Private Sub LB68_Click(sender As Object, e As EventArgs) Handles LB68.Click
        PA = LB68.Text : 合約內文修改視窗.ShowDialog() : LB68.Text = PA
    End Sub
    Private Sub LB69_Click(sender As Object, e As EventArgs) Handles LB69.Click
        PA = LB69.Text : 合約內文修改視窗.ShowDialog() : LB69.Text = PA
    End Sub
    Private Sub LB70_Click(sender As Object, e As EventArgs) Handles LB70.Click
        PA = LB70.Text : 合約內文修改視窗.ShowDialog() : LB70.Text = PA
    End Sub
    Private Sub LB71_Click(sender As Object, e As EventArgs) Handles LB71.Click
        PA = LB71.Text : 合約內文修改視窗.ShowDialog() : LB71.Text = PA
    End Sub
    Private Sub LB77_Click(sender As Object, e As EventArgs) Handles LB77.Click
        PA = LB77.Text : 合約內文修改視窗.ShowDialog() : LB77.Text = PA
    End Sub
    Private Sub LB78_Click(sender As Object, e As EventArgs) Handles LB78.Click
        PA = LB78.Text : 合約內文修改視窗.ShowDialog() : LB78.Text = PA
    End Sub
    Private Sub LB79_Click(sender As Object, e As EventArgs) Handles LB79.Click
        PA = LB79.Text : 合約內文修改視窗.ShowDialog() : LB79.Text = PA
    End Sub
    Private Sub LB80_Click(sender As Object, e As EventArgs) Handles LB80.Click
        PA = LB80.Text : 合約內文修改視窗.ShowDialog() : LB80.Text = PA
    End Sub
    Private Sub LB81_Click(sender As Object, e As EventArgs) Handles LB81.Click
        PA = LB81.Text : 合約內文修改視窗.ShowDialog() : LB81.Text = PA
    End Sub
    Private Sub LB94_Click(sender As Object, e As EventArgs) Handles LB94.Click
        PA = LB94.Text : 合約內文修改視窗.ShowDialog() : LB94.Text = PA
    End Sub
    Private Sub LB95_Click(sender As Object, e As EventArgs) Handles LB95.Click
        PA = LB95.Text : 合約內文修改視窗.ShowDialog() : LB95.Text = PA
    End Sub
    Private Sub LB96_Click(sender As Object, e As EventArgs) Handles LB96.Click
        PA = LB96.Text : 合約內文修改視窗.ShowDialog() : LB96.Text = PA
    End Sub
    Private Sub LB97_Click(sender As Object, e As EventArgs) Handles LB97.Click
        PA = LB97.Text : 合約內文修改視窗.ShowDialog() : LB97.Text = PA
    End Sub
    Private Sub LB98_Click(sender As Object, e As EventArgs) Handles LB98.Click
        PA = LB98.Text : 合約內文修改視窗.ShowDialog() : LB98.Text = PA
    End Sub
    Private Sub LB99_Click(sender As Object, e As EventArgs) Handles LB99.Click
        PA = LB99.Text : 合約內文修改視窗.ShowDialog() : LB99.Text = PA
    End Sub
    Private Sub LB100_Click(sender As Object, e As EventArgs) Handles LB100.Click
        PA = LB100.Text : 合約內文修改視窗.ShowDialog() : LB100.Text = PA
    End Sub
    Private Sub LB101_Click(sender As Object, e As EventArgs) Handles LB101.Click
        PA = LB101.Text : 合約內文修改視窗.ShowDialog() : LB101.Text = PA
    End Sub
    Private Sub LB102_Click(sender As Object, e As EventArgs) Handles LB102.Click
        PA = LB102.Text : 合約內文修改視窗.ShowDialog() : LB102.Text = PA
    End Sub
    '---------------------------第十一章----------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub LB141_移動()
        Dim sx, sxx As Integer : sx = LB141.Size.Height : sxx = LB141.Location.Y : LB142.Location = New Drawing.Point(40, sxx + sx + 10)
    End Sub
    Private Sub LB141_Click(sender As Object, e As EventArgs) Handles LB141.Click
        PA = LB141.Text : 合約內文修改視窗.ShowDialog() : LB141.Text = PA : LB141_移動()
    End Sub
    Private Sub LB141_LocationChanged(sender As Object, e As EventArgs) Handles LB141.LocationChanged
        LB141_移動()
    End Sub
    Private Sub LB141_TextChanged(sender As Object, e As EventArgs) Handles LB141.TextChanged
        LB141_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB142_移動()
        Dim sx, sxx As Integer : sx = LB142.Size.Height : sxx = LB142.Location.Y : LB157.Location = New Drawing.Point(6, sxx + sx + 10) : LB143.Location = New Drawing.Point(40, sxx + sx + 10)
    End Sub
    Private Sub LB142_Click(sender As Object, e As EventArgs) Handles LB142.Click
        PA = LB142.Text : 合約內文修改視窗.ShowDialog() : LB142.Text = PA : LB142_移動()
    End Sub
    Private Sub LB142_LocationChanged(sender As Object, e As EventArgs) Handles LB142.LocationChanged
        LB142_移動()
    End Sub
    Private Sub LB142_TextChanged(sender As Object, e As EventArgs) Handles LB142.TextChanged
        LB142_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB143_移動()
        Dim sx, sxx As Integer : sx = LB143.Size.Height : sxx = LB143.Location.Y : LB144.Location = New Drawing.Point(40, sxx + sx + 10)
    End Sub
    Private Sub LB143_Click(sender As Object, e As EventArgs) Handles LB143.Click
        PA = LB143.Text : 合約內文修改視窗.ShowDialog() : LB143.Text = PA : LB143_移動()
    End Sub
    Private Sub LB143_LocationChanged(sender As Object, e As EventArgs) Handles LB143.LocationChanged
        LB143_移動()
    End Sub
    Private Sub LB143_TextChanged(sender As Object, e As EventArgs) Handles LB143.TextChanged
        LB143_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB144_移動()
        Dim sx, sxx As Integer : sx = LB144.Size.Height : sxx = LB144.Location.Y : LB158.Location = New Drawing.Point(6, sxx + sx + 10) : LB159.Location = New Drawing.Point(40, sxx + sx + 10)
    End Sub
    Private Sub LB144_Click(sender As Object, e As EventArgs) Handles LB144.Click
        PA = LB144.Text : 合約內文修改視窗.ShowDialog() : LB144.Text = PA : LB144_移動()
    End Sub
    Private Sub LB144_LocationChanged(sender As Object, e As EventArgs) Handles LB144.LocationChanged
        LB144_移動()
    End Sub
    Private Sub LB144_TextChanged(sender As Object, e As EventArgs) Handles LB144.TextChanged
        LB144_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB145_移動()
        Dim sx, sxx As Integer : sx = LB145.Size.Height : sxx = LB145.Location.Y : LB147.Location = New Drawing.Point(40, sxx + sx)
    End Sub
    Private Sub LB145_Click(sender As Object, e As EventArgs) Handles LB145.Click
        PA = LB145.Text : 合約內文修改視窗.ShowDialog() : LB145.Text = PA : LB145_移動()
    End Sub
    Private Sub LB145_LocationChanged(sender As Object, e As EventArgs) Handles LB145.LocationChanged
        LB145_移動()
    End Sub
    Private Sub LB145_TextChanged(sender As Object, e As EventArgs) Handles LB145.TextChanged
        LB145_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB146_Click(sender As Object, e As EventArgs) Handles LB146.Click
        PA = LB146.Text : 合約內文修改視窗.ShowDialog() : LB146.Text = PA
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB147_移動()
        Dim sx, sxx As Integer : sx = LB147.Size.Height : sxx = LB147.Location.Y : LB148.Location = New Drawing.Point(40, sxx + sx) : LB163.Location = New Drawing.Point(164, sxx + sx)
    End Sub
    Private Sub LB147_Click(sender As Object, e As EventArgs) Handles LB147.Click
        PA = LB147.Text : 合約內文修改視窗.ShowDialog() : LB147.Text = PA : LB147_移動()
    End Sub
    Private Sub LB147_LocationChanged(sender As Object, e As EventArgs) Handles LB147.LocationChanged
        LB147_移動()
    End Sub
    Private Sub LB147_TextChanged(sender As Object, e As EventArgs) Handles LB147.TextChanged
        LB147_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB148_Click(sender As Object, e As EventArgs) Handles LB148.Click
        PA = LB148.Text : 合約內文修改視窗.ShowDialog() : LB148.Text = PA
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB149_移動()
        Dim sx, sxx As Integer : sx = LB149.Size.Height : sxx = LB149.Location.Y
        LB150.Location = New Drawing.Point(40, sxx + sx) : LB165.Location = New Drawing.Point(498, sxx + sx) : LB151.Location = New Drawing.Point(576, sxx + sx)
    End Sub
    Private Sub LB149_Click(sender As Object, e As EventArgs) Handles LB149.Click
        PA = LB149.Text : 合約內文修改視窗.ShowDialog() : LB149.Text = PA : LB149_移動()
    End Sub
    Private Sub LB149_LocationChanged(sender As Object, e As EventArgs) Handles LB149.LocationChanged
        LB149_移動()
    End Sub
    Private Sub LB149_TextChanged(sender As Object, e As EventArgs) Handles LB149.TextChanged
        LB149_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB150_移動()
        Dim sx, sxx As Integer : sx = LB150.Size.Height : sxx = LB150.Location.Y : LB152.Location = New Drawing.Point(40, sxx + sx)
    End Sub
    Private Sub LB150_Click(sender As Object, e As EventArgs) Handles LB150.Click
        PA = LB150.Text : 合約內文修改視窗.ShowDialog() : LB150.Text = PA : LB150_移動()
    End Sub
    Private Sub LB150_LocationChanged(sender As Object, e As EventArgs) Handles LB150.LocationChanged
        LB150_移動()
    End Sub
    Private Sub LB150_TextChanged(sender As Object, e As EventArgs) Handles LB150.TextChanged
        LB150_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB151_Click(sender As Object, e As EventArgs) Handles LB151.Click
        PA = LB151.Text : 合約內文修改視窗.ShowDialog() : LB151.Text = PA
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB152_移動()
        Dim sx, sxx As Integer : sx = LB152.Size.Height : sxx = LB152.Location.Y : LB166.Location = New Drawing.Point(6, sxx + sx + 10) : LB167.Location = New Drawing.Point(40, sxx + sx + 10)
    End Sub
    Private Sub LB152_Click(sender As Object, e As EventArgs) Handles LB152.Click
        PA = LB152.Text : 合約內文修改視窗.ShowDialog() : LB152.Text = PA : LB152_移動()
    End Sub
    Private Sub LB152_LocationChanged(sender As Object, e As EventArgs) Handles LB152.LocationChanged
        LB152_移動()
    End Sub
    Private Sub LB152_TextChanged(sender As Object, e As EventArgs) Handles LB152.TextChanged
        LB152_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB153_Click(sender As Object, e As EventArgs) Handles LB153.Click
        PA = LB153.Text : 合約內文修改視窗.ShowDialog() : LB153.Text = PA
    End Sub
    Private Sub LB154_Click(sender As Object, e As EventArgs) Handles LB154.Click
        PA = LB154.Text : 合約內文修改視窗.ShowDialog() : LB154.Text = PA
    End Sub
    Private Sub LB155_Click(sender As Object, e As EventArgs) Handles LB155.Click
        PA = LB155.Text : 合約內文修改視窗.ShowDialog() : LB155.Text = PA
    End Sub
    Private Sub LB156_Click(sender As Object, e As EventArgs) Handles LB156.Click
        PA = LB156.Text : 合約內文修改視窗.ShowDialog() : LB156.Text = PA
    End Sub
    Private Sub LB157_Click(sender As Object, e As EventArgs) Handles LB157.Click
        PA = LB157.Text : 合約內文修改視窗.ShowDialog() : LB157.Text = PA
    End Sub
    Private Sub LB158_Click(sender As Object, e As EventArgs) Handles LB158.Click
        PA = LB158.Text : 合約內文修改視窗.ShowDialog() : LB158.Text = PA
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB159_移動()
        Dim sx, sxx As Integer : sx = LB159.Size.Height : sxx = LB159.Location.Y : LB160.Location = New Drawing.Point(40, sxx + sx)
    End Sub
    Private Sub LB159_Click(sender As Object, e As EventArgs) Handles LB159.Click
        PA = LB159.Text : 合約內文修改視窗.ShowDialog() : LB159.Text = PA : LB159_移動()
    End Sub
    Private Sub LB159_LocationChanged(sender As Object, e As EventArgs) Handles LB159.LocationChanged
        LB159_移動()
    End Sub
    Private Sub LB159_TextChanged(sender As Object, e As EventArgs) Handles LB159.TextChanged
        LB159_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB160_移動()
        Dim sx, sxx As Integer : sx = LB160.Size.Height : sxx = LB160.Location.Y : LB161.Location = New Drawing.Point(40, sxx + sx)
    End Sub
    Private Sub LB160_Click(sender As Object, e As EventArgs) Handles LB160.Click
        PA = LB160.Text : 合約內文修改視窗.ShowDialog() : LB160.Text = PA : LB160_移動()
    End Sub
    Private Sub LB160_LocationChanged(sender As Object, e As EventArgs) Handles LB160.LocationChanged
        LB160_移動()
    End Sub
    Private Sub LB160_TextChanged(sender As Object, e As EventArgs) Handles LB160.TextChanged
        LB160_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB161_移動()
        Dim sx, sxx As Integer : sx = LB161.Size.Height : sxx = LB161.Location.Y
        LB145.Location = New Drawing.Point(40, sxx + sx) : LB162.Location = New Drawing.Point(251, sxx + sx) : LB146.Location = New Drawing.Point(332, sxx + sx)
    End Sub
    Private Sub LB161_Click(sender As Object, e As EventArgs) Handles LB161.Click
        PA = LB161.Text : 合約內文修改視窗.ShowDialog() : LB161.Text = PA : LB161_移動()
    End Sub
    Private Sub LB161_LocationChanged(sender As Object, e As EventArgs) Handles LB161.LocationChanged
        LB161_移動()
    End Sub
    Private Sub LB161_TextChanged(sender As Object, e As EventArgs) Handles LB161.TextChanged
        LB161_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB162_Click(sender As Object, e As EventArgs) Handles LB162.Click
        PA = LB162.Text : 合約內文修改視窗.ShowDialog() : LB162.Text = PA
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB163_移動()
        Dim sx, sxx As Integer : sx = LB163.Size.Height : sxx = LB163.Location.Y : LB149.Location = New Drawing.Point(40, sxx + sx) : LB164.Location = New Drawing.Point(88, sxx + sx)
    End Sub
    Private Sub LB163_Click(sender As Object, e As EventArgs) Handles LB163.Click
        PA = LB163.Text : 合約內文修改視窗.ShowDialog() : LB163.Text = PA : LB163_移動()
    End Sub
    Private Sub LB163_LocationChanged(sender As Object, e As EventArgs) Handles LB163.LocationChanged
        LB163_移動()
    End Sub
    Private Sub LB163_TextChanged(sender As Object, e As EventArgs) Handles LB163.TextChanged
        LB163_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB164_移動()
        Dim sx, sxx As Integer : sx = LB164.Size.Height : sxx = LB164.Location.Y
        LB150.Location = New Drawing.Point(40, sxx + sx) : LB165.Location = New Drawing.Point(498, sxx + sx) : LB151.Location = New Drawing.Point(576, sxx + sx)
    End Sub
    Private Sub LB164_Click(sender As Object, e As EventArgs) Handles LB164.Click
        PA = LB164.Text : 合約內文修改視窗.ShowDialog() : LB164.Text = PA : LB164_移動()
    End Sub
    Private Sub LB164_LocationChanged(sender As Object, e As EventArgs) Handles LB164.LocationChanged
        LB164_移動()
    End Sub
    Private Sub LB164_TextChanged(sender As Object, e As EventArgs) Handles LB164.TextChanged
        LB164_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB165_Click(sender As Object, e As EventArgs) Handles LB165.Click
        PA = LB165.Text : 合約內文修改視窗.ShowDialog() : LB165.Text = PA
    End Sub
    Private Sub LB166_Click(sender As Object, e As EventArgs) Handles LB166.Click
        NU5 = LB166.Location.X : BL1 = True : PA = LB166.Text : 合約內文修改視窗.ShowDialog() : LB166.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB166.Location.Y : LB166.Location = New Drawing.Point(syy1, sxx)
        sxx = LB167.Location.Y : LB167.Location = New Drawing.Point(syy2, sxx) : sxx = LB168.Location.Y : LB168.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB167_移動()
        Dim sx, sxx As Integer : sx = LB167.Size.Height : sxx = LB167.Location.Y : NU4 = LB168.Location.X : LB168.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB167_Click(sender As Object, e As EventArgs) Handles LB167.Click
        PA = LB167.Text : 合約內文修改視窗.ShowDialog() : LB167.Text = PA : LB167_移動()
    End Sub
    Private Sub LB167_LocationChanged(sender As Object, e As EventArgs) Handles LB167.LocationChanged
        LB167_移動()
    End Sub
    Private Sub LB167_TextChanged(sender As Object, e As EventArgs) Handles LB167.TextChanged
        LB167_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB168_移動()
        Dim sx, sxx As Integer : sx = LB168.Size.Height : sxx = LB168.Location.Y : NU3 = LB169.Location.X : NU4 = LB170.Location.X
        LB169.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB170.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB168_Click(sender As Object, e As EventArgs) Handles LB168.Click
        PA = LB168.Text : 合約內文修改視窗.ShowDialog() : LB168.Text = PA : LB168_移動()
    End Sub
    Private Sub LB168_LocationChanged(sender As Object, e As EventArgs) Handles LB168.LocationChanged
        LB168_移動()
    End Sub
    Private Sub LB168_TextChanged(sender As Object, e As EventArgs) Handles LB168.TextChanged
        LB168_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB169_Click(sender As Object, e As EventArgs) Handles LB169.Click
        NU5 = LB169.Location.X : BL1 = True : PA = LB169.Text : 合約內文修改視窗.ShowDialog() : LB169.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB169.Location.Y : LB169.Location = New Drawing.Point(syy1, sxx)
        sxx = LB170.Location.Y : LB170.Location = New Drawing.Point(syy2, sxx) : sxx = LB171.Location.Y : LB171.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB170_移動()
        Dim sx, sxx As Integer : sx = LB170.Size.Height : sxx = LB170.Location.Y : NU4 = LB171.Location.X : LB171.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB170_Click(sender As Object, e As EventArgs) Handles LB170.Click
        PA = LB170.Text : 合約內文修改視窗.ShowDialog() : LB170.Text = PA : LB170_移動()
    End Sub
    Private Sub LB170_LocationChanged(sender As Object, e As EventArgs) Handles LB170.LocationChanged
        LB170_移動()
    End Sub
    Private Sub LB170_TextChanged(sender As Object, e As EventArgs) Handles LB170.TextChanged
        LB170_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB171_移動()
        Dim sx, sxx As Integer : sx = LB171.Size.Height : sxx = LB171.Location.Y : NU3 = LB172.Location.X : NU4 = LB173.Location.X
        LB172.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB173.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB171_Click(sender As Object, e As EventArgs) Handles LB171.Click
        PA = LB171.Text : 合約內文修改視窗.ShowDialog() : LB171.Text = PA : LB171_移動()
    End Sub
    Private Sub LB171_LocationChanged(sender As Object, e As EventArgs) Handles LB171.LocationChanged
        LB171_移動()
    End Sub
    Private Sub LB171_TextChanged(sender As Object, e As EventArgs) Handles LB171.TextChanged
        LB171_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB172_Click(sender As Object, e As EventArgs) Handles LB172.Click
        NU5 = LB172.Location.X : BL1 = True : PA = LB172.Text : 合約內文修改視窗.ShowDialog() : LB172.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB172.Location.Y : LB172.Location = New Drawing.Point(syy1, sxx)
        sxx = LB173.Location.Y : LB173.Location = New Drawing.Point(syy2, sxx) : sxx = LB174.Location.Y : LB174.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB173_移動()
        Dim sx, sxx As Integer : sx = LB173.Size.Height : sxx = LB173.Location.Y : NU4 = LB174.Location.X : LB174.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB173_Click(sender As Object, e As EventArgs) Handles LB173.Click
        PA = LB173.Text : 合約內文修改視窗.ShowDialog() : LB173.Text = PA : LB173_移動()
    End Sub
    Private Sub LB173_LocationChanged(sender As Object, e As EventArgs) Handles LB173.LocationChanged
        LB173_移動()
    End Sub
    Private Sub LB173_TextChanged(sender As Object, e As EventArgs) Handles LB173.TextChanged
        LB173_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB174_移動()
        Dim sx, sxx As Integer : sx = LB174.Size.Height : sxx = LB174.Location.Y : NU3 = LB175.Location.X : NU4 = LB176.Location.X
        LB175.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB176.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB174_Click(sender As Object, e As EventArgs) Handles LB174.Click
        PA = LB174.Text : 合約內文修改視窗.ShowDialog() : LB174.Text = PA : LB174_移動()
    End Sub
    Private Sub LB174_LocationChanged(sender As Object, e As EventArgs) Handles LB174.LocationChanged
        LB174_移動()
    End Sub
    Private Sub LB174_TextChanged(sender As Object, e As EventArgs) Handles LB174.TextChanged
        LB174_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB175_Click(sender As Object, e As EventArgs) Handles LB175.Click
        NU5 = LB175.Location.X : BL1 = True : PA = LB175.Text : 合約內文修改視窗.ShowDialog() : LB175.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB175.Location.Y : LB175.Location = New Drawing.Point(syy1, sxx)
        sxx = LB176.Location.Y : LB176.Location = New Drawing.Point(syy2, sxx) : sxx = LB177.Location.Y : LB177.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB176_移動()
        Dim sx, sxx As Integer : sx = LB176.Size.Height : sxx = LB176.Location.Y : NU4 = LB177.Location.X : LB177.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB176_Click(sender As Object, e As EventArgs) Handles LB176.Click
        PA = LB176.Text : 合約內文修改視窗.ShowDialog() : LB176.Text = PA : LB176_移動()
    End Sub
    Private Sub LB176_LocationChanged(sender As Object, e As EventArgs) Handles LB176.LocationChanged
        LB176_移動()
    End Sub
    Private Sub LB176_TextChanged(sender As Object, e As EventArgs) Handles LB176.TextChanged
        LB176_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB177_移動()
        Dim sx, sxx As Integer : sx = LB177.Size.Height : sxx = LB177.Location.Y : NU3 = LB178.Location.X : NU4 = LB179.Location.X
        LB178.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB179.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB177_Click(sender As Object, e As EventArgs) Handles LB177.Click
        PA = LB177.Text : 合約內文修改視窗.ShowDialog() : LB177.Text = PA : LB177_移動()
    End Sub
    Private Sub LB177_LocationChanged(sender As Object, e As EventArgs) Handles LB177.LocationChanged
        LB177_移動()
    End Sub
    Private Sub LB177_TextChanged(sender As Object, e As EventArgs) Handles LB177.TextChanged
        LB177_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB178_Click(sender As Object, e As EventArgs) Handles LB178.Click
        NU5 = LB178.Location.X : BL1 = True : PA = LB178.Text : 合約內文修改視窗.ShowDialog() : LB178.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB178.Location.Y : LB178.Location = New Drawing.Point(syy1, sxx)
        sxx = LB179.Location.Y : LB179.Location = New Drawing.Point(syy2, sxx) : sxx = LB180.Location.Y : LB180.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB179_移動()
        Dim sx, sxx As Integer : sx = LB179.Size.Height : sxx = LB179.Location.Y : NU4 = LB180.Location.X : LB180.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB179_Click(sender As Object, e As EventArgs) Handles LB179.Click
        PA = LB179.Text : 合約內文修改視窗.ShowDialog() : LB179.Text = PA
    End Sub
    Private Sub LB179_LocationChanged(sender As Object, e As EventArgs) Handles LB179.LocationChanged
        LB179_移動()
    End Sub
    Private Sub LB179_TextChanged(sender As Object, e As EventArgs) Handles LB179.TextChanged
        LB179_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB180_移動()
        Dim sx, sxx As Integer : sx = LB180.Size.Height : sxx = LB180.Location.Y : NU3 = LB181.Location.X : NU4 = LB182.Location.X
        LB181.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB182.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB180_Click(sender As Object, e As EventArgs) Handles LB180.Click
        PA = LB180.Text : 合約內文修改視窗.ShowDialog() : LB180.Text = PA : LB180_移動()
    End Sub
    Private Sub LB180_LocationChanged(sender As Object, e As EventArgs) Handles LB180.LocationChanged
        LB180_移動()
    End Sub
    Private Sub LB180_TextChanged(sender As Object, e As EventArgs) Handles LB180.TextChanged
        LB180_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB181_Click(sender As Object, e As EventArgs) Handles LB181.Click
        NU5 = LB178.Location.X : BL1 = True : PA = LB181.Text : 合約內文修改視窗.ShowDialog() : LB181.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB181.Location.Y : LB181.Location = New Drawing.Point(syy1, sxx)
        sxx = LB182.Location.Y : LB182.Location = New Drawing.Point(syy2, sxx) : sxx = LB183.Location.Y : LB183.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB182_移動()
        Dim sx, sxx As Integer : sx = LB182.Size.Height : sxx = LB182.Location.Y : NU4 = LB183.Location.X : LB183.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB182_Click(sender As Object, e As EventArgs) Handles LB182.Click
        PA = LB182.Text : 合約內文修改視窗.ShowDialog() : LB182.Text = PA : LB182_移動()
    End Sub
    Private Sub LB182_LocationChanged(sender As Object, e As EventArgs) Handles LB182.LocationChanged
        LB182_移動()
    End Sub
    Private Sub LB182_TextChanged(sender As Object, e As EventArgs) Handles LB182.TextChanged
        LB182_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB183_移動()
        Dim sx, sxx As Integer : sx = LB183.Size.Height : sxx = LB183.Location.Y : NU3 = LB184.Location.X : NU4 = LB185.Location.X
        LB184.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB185.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB183_Click(sender As Object, e As EventArgs) Handles LB183.Click
        PA = LB183.Text : 合約內文修改視窗.ShowDialog() : LB183.Text = PA : LB183_移動()
    End Sub
    Private Sub LB183_LocationChanged(sender As Object, e As EventArgs) Handles LB183.LocationChanged
        LB183_移動()
    End Sub
    Private Sub LB183_TextChanged(sender As Object, e As EventArgs) Handles LB183.TextChanged
        LB183_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB184_Click(sender As Object, e As EventArgs) Handles LB184.Click
        NU5 = LB178.Location.X : BL1 = True : PA = LB184.Text : 合約內文修改視窗.ShowDialog() : LB184.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB184.Location.Y : LB184.Location = New Drawing.Point(syy1, sxx)
        sxx = LB185.Location.Y : LB185.Location = New Drawing.Point(syy2, sxx) : sxx = LB186.Location.Y : LB186.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB185_移動()
        Dim sx, sxx As Integer : sx = LB185.Size.Height : sxx = LB185.Location.Y : NU4 = LB186.Location.X : LB186.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB185_Click(sender As Object, e As EventArgs) Handles LB185.Click
        PA = LB185.Text : 合約內文修改視窗.ShowDialog() : LB185.Text = PA : LB185_移動()
    End Sub
    Private Sub LB185_LocationChanged(sender As Object, e As EventArgs) Handles LB185.LocationChanged
        LB185_移動()
    End Sub
    Private Sub LB185_TextChanged(sender As Object, e As EventArgs) Handles LB185.TextChanged
        LB185_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB186_Click(sender As Object, e As EventArgs) Handles LB186.Click
        PA = LB186.Text : 合約內文修改視窗.ShowDialog() : LB186.Text = PA
    End Sub
    '---------------------------第十章----------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub LB187_Click(sender As Object, e As EventArgs) Handles LB187.Click
        PA = LB187.Text : 合約內文修改視窗.ShowDialog() : LB187.Text = PA
    End Sub
    Private Sub LB188_Click(sender As Object, e As EventArgs) Handles LB188.Click
        PA = LB188.Text : 合約內文修改視窗.ShowDialog() : LB188.Text = PA
    End Sub
    Private Sub LB189_Click(sender As Object, e As EventArgs) Handles LB189.Click
        PA = LB189.Text : 合約內文修改視窗.ShowDialog() : LB189.Text = PA
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB226_Click(sender As Object, e As EventArgs) Handles LB226.Click
        NU5 = LB226.Location.X : BL1 = True : PA = LB226.Text : 合約內文修改視窗.ShowDialog() : LB226.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB226.Location.Y : LB226.Location = New Drawing.Point(syy1, sxx)
        sxx = LB137.Location.Y : LB137.Location = New Drawing.Point(syy2, sxx) : sxx = LB138.Location.Y : LB138.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB137_移動()
        Dim sx, sxx As Integer : sx = LB137.Size.Height : sxx = LB137.Location.Y : NU4 = LB138.Location.X : LB138.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB137_Click(sender As Object, e As EventArgs) Handles LB137.Click
        PA = LB137.Text : 合約內文修改視窗.ShowDialog() : LB137.Text = PA : LB137_移動()
    End Sub
    Private Sub LB137_LocationChanged(sender As Object, e As EventArgs) Handles LB137.LocationChanged
        LB137_移動()
    End Sub
    Private Sub LB137_TextChanged(sender As Object, e As EventArgs) Handles LB137.TextChanged
        LB137_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB138_移動()
        Dim sx, sxx As Integer : sx = LB138.Size.Height : sxx = LB138.Location.Y : NU3 = LB227.Location.X : NU4 = LB139.Location.X
        LB227.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB139.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB138_Click(sender As Object, e As EventArgs) Handles LB138.Click
        PA = LB138.Text : 合約內文修改視窗.ShowDialog() : LB138.Text = PA : LB138_移動()
    End Sub
    Private Sub LB138_LocationChanged(sender As Object, e As EventArgs) Handles LB138.LocationChanged
        LB138_移動()
    End Sub
    Private Sub LB138_TextChanged(sender As Object, e As EventArgs) Handles LB138.TextChanged
        LB138_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB227_Click(sender As Object, e As EventArgs) Handles LB227.Click
        NU5 = LB227.Location.X : BL1 = True : PA = LB227.Text : 合約內文修改視窗.ShowDialog() : LB227.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB227.Location.Y : LB227.Location = New Drawing.Point(syy1, sxx)
        sxx = LB139.Location.Y : LB139.Location = New Drawing.Point(syy2, sxx) : sxx = LB140.Location.Y : LB140.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB139_移動()
        Dim sx, sxx As Integer : sx = LB139.Size.Height : sxx = LB139.Location.Y : NU4 = LB140.Location.X : LB140.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB139_Click(sender As Object, e As EventArgs) Handles LB139.Click
        PA = LB139.Text : 合約內文修改視窗.ShowDialog() : LB139.Text = PA : LB139_移動()
    End Sub
    Private Sub LB139_LocationChanged(sender As Object, e As EventArgs) Handles LB139.LocationChanged
        LB139_移動()
    End Sub
    Private Sub LB139_TextChanged(sender As Object, e As EventArgs) Handles LB139.TextChanged
        LB139_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB140_移動()
        Dim sx, sxx As Integer : sx = LB140.Size.Height : sxx = LB140.Location.Y : NU3 = LB190.Location.X : NU4 = LB191.Location.X
        LB190.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB191.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB140_Click(sender As Object, e As EventArgs) Handles LB140.Click
        PA = LB140.Text : 合約內文修改視窗.ShowDialog() : LB140.Text = PA : LB140_移動()
    End Sub
    Private Sub LB140_LocationChanged(sender As Object, e As EventArgs) Handles LB140.LocationChanged
        LB140_移動()
    End Sub
    Private Sub LB140_TextChanged(sender As Object, e As EventArgs) Handles LB140.TextChanged
        LB140_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB190_Click(sender As Object, e As EventArgs) Handles LB190.Click
        NU5 = LB190.Location.X : BL1 = True : PA = LB190.Text : 合約內文修改視窗.ShowDialog() : LB190.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB190.Location.Y : LB190.Location = New Drawing.Point(syy1, sxx)
        sxx = LB191.Location.Y : LB191.Location = New Drawing.Point(syy2, sxx) : sxx = LB192.Location.Y : LB192.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB191_移動()
        Dim sx, sxx As Integer : sx = LB191.Size.Height : sxx = LB191.Location.Y : NU4 = LB192.Location.X : LB192.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB191_Click(sender As Object, e As EventArgs) Handles LB191.Click
        PA = LB191.Text : 合約內文修改視窗.ShowDialog() : LB191.Text = PA : LB191_移動()
    End Sub
    Private Sub LB191_LocationChanged(sender As Object, e As EventArgs) Handles LB191.LocationChanged
        LB191_移動()
    End Sub
    Private Sub LB191_TextChanged(sender As Object, e As EventArgs) Handles LB191.TextChanged
        LB191_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB192_移動()
        Dim sx, sxx As Integer : sx = LB192.Size.Height : sxx = LB192.Location.Y : NU3 = LB193.Location.X : NU4 = LB194.Location.X
        LB193.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB194.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB192_Click(sender As Object, e As EventArgs) Handles LB192.Click
        PA = LB192.Text : 合約內文修改視窗.ShowDialog() : LB192.Text = PA : LB192_移動()
    End Sub
    Private Sub LB192_LocationChanged(sender As Object, e As EventArgs) Handles LB192.LocationChanged
        LB192_移動()
    End Sub
    Private Sub LB192_TextChanged(sender As Object, e As EventArgs) Handles LB192.TextChanged
        LB192_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB193_Click(sender As Object, e As EventArgs) Handles LB193.Click
        NU5 = LB193.Location.X : BL1 = True : PA = LB193.Text : 合約內文修改視窗.ShowDialog() : LB193.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB193.Location.Y : LB193.Location = New Drawing.Point(syy1, sxx)
        sxx = LB194.Location.Y : LB194.Location = New Drawing.Point(syy2, sxx) : sxx = LB195.Location.Y : LB195.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB194_移動()
        Dim sx, sxx As Integer : sx = LB194.Size.Height : sxx = LB194.Location.Y : NU4 = LB195.Location.X : LB195.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB194_Click(sender As Object, e As EventArgs) Handles LB194.Click
        PA = LB194.Text : 合約內文修改視窗.ShowDialog() : LB194.Text = PA : LB194_移動()
    End Sub
    Private Sub LB194_LocationChanged(sender As Object, e As EventArgs) Handles LB194.LocationChanged
        LB194_移動()
    End Sub
    Private Sub LB194_TextChanged(sender As Object, e As EventArgs) Handles LB194.TextChanged
        LB194_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB195_移動()
        Dim sx, sxx As Integer : sx = LB195.Size.Height : sxx = LB195.Location.Y : NU3 = LB196.Location.X : NU4 = LB197.Location.X
        LB196.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB197.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB195_Click(sender As Object, e As EventArgs) Handles LB195.Click
        PA = LB195.Text : 合約內文修改視窗.ShowDialog() : LB195.Text = PA : LB195_移動()
    End Sub
    Private Sub LB195_LocationChanged(sender As Object, e As EventArgs) Handles LB195.LocationChanged
        LB195_移動()
    End Sub
    Private Sub LB195_TextChanged(sender As Object, e As EventArgs) Handles LB195.TextChanged
        LB195_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB196_Click(sender As Object, e As EventArgs) Handles LB196.Click
        NU5 = LB196.Location.X : BL1 = True : PA = LB196.Text : 合約內文修改視窗.ShowDialog() : LB196.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB196.Location.Y : LB196.Location = New Drawing.Point(syy1, sxx)
        sxx = LB197.Location.Y : LB197.Location = New Drawing.Point(syy2, sxx) : sxx = LB198.Location.Y : LB198.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB197_移動()
        Dim sx, sxx As Integer : sx = LB197.Size.Height : sxx = LB197.Location.Y : NU4 = LB198.Location.X : LB198.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB197_Click(sender As Object, e As EventArgs) Handles LB197.Click
        PA = LB197.Text : 合約內文修改視窗.ShowDialog() : LB197.Text = PA : LB197_移動()
    End Sub
    Private Sub LB197_LocationChanged(sender As Object, e As EventArgs) Handles LB197.LocationChanged
        LB197_移動()
    End Sub
    Private Sub LB197_TextChanged(sender As Object, e As EventArgs) Handles LB197.TextChanged
        LB197_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB198_移動()
        Dim sx, sxx As Integer : sx = LB198.Size.Height : sxx = LB198.Location.Y : NU3 = LB199.Location.X : NU4 = LB200.Location.X
        LB199.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB200.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB198_Click(sender As Object, e As EventArgs) Handles LB198.Click
        PA = LB198.Text : 合約內文修改視窗.ShowDialog() : LB198.Text = PA : LB198_移動()
    End Sub
    Private Sub LB198_LocationChanged(sender As Object, e As EventArgs) Handles LB198.LocationChanged
        LB198_移動()
    End Sub
    Private Sub LB198_TextChanged(sender As Object, e As EventArgs) Handles LB198.TextChanged
        LB198_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB199_Click(sender As Object, e As EventArgs) Handles LB199.Click
        NU5 = LB199.Location.X : BL1 = True : PA = LB199.Text : 合約內文修改視窗.ShowDialog() : LB199.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB199.Location.Y : LB199.Location = New Drawing.Point(syy1, sxx)
        sxx = LB200.Location.Y : LB200.Location = New Drawing.Point(syy2, sxx) : sxx = LB201.Location.Y : LB201.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB200_移動()
        Dim sx, sxx As Integer : sx = LB200.Size.Height : sxx = LB200.Location.Y : NU4 = LB201.Location.X : LB201.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB200_Click(sender As Object, e As EventArgs) Handles LB200.Click
        PA = LB200.Text : 合約內文修改視窗.ShowDialog() : LB200.Text = PA : LB200_移動()
    End Sub
    Private Sub LB200_LocationChanged(sender As Object, e As EventArgs) Handles LB200.LocationChanged
        LB200_移動()
    End Sub
    Private Sub LB200_TextChanged(sender As Object, e As EventArgs) Handles LB200.TextChanged
        LB200_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB201_移動()
        Dim sx, sxx As Integer : sx = LB201.Size.Height : sxx = LB201.Location.Y : NU3 = LB202.Location.X : NU4 = LB203.Location.X
        LB202.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB203.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB201_Click(sender As Object, e As EventArgs) Handles LB201.Click
        PA = LB201.Text : 合約內文修改視窗.ShowDialog() : LB201.Text = PA : LB201_移動()
    End Sub
    Private Sub LB201_LocationChanged(sender As Object, e As EventArgs) Handles LB201.LocationChanged
        LB201_移動()
    End Sub
    Private Sub LB201_TextChanged(sender As Object, e As EventArgs) Handles LB201.TextChanged
        LB201_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB202_Click(sender As Object, e As EventArgs) Handles LB202.Click
        NU5 = LB202.Location.X : BL1 = True : PA = LB202.Text : 合約內文修改視窗.ShowDialog() : LB202.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB202.Location.Y : LB202.Location = New Drawing.Point(syy1, sxx)
        sxx = LB203.Location.Y : LB203.Location = New Drawing.Point(syy2, sxx) : sxx = LB204.Location.Y : LB204.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB203_移動()
        Dim sx, sxx As Integer : sx = LB203.Size.Height : sxx = LB203.Location.Y : NU4 = LB204.Location.X : LB204.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB203_Click(sender As Object, e As EventArgs) Handles LB203.Click
        PA = LB203.Text : 合約內文修改視窗.ShowDialog() : LB203.Text = PA : LB203_移動()
    End Sub
    Private Sub LB203_LocationChanged(sender As Object, e As EventArgs) Handles LB203.LocationChanged
        LB203_移動()
    End Sub
    Private Sub LB203_TextChanged(sender As Object, e As EventArgs) Handles LB203.TextChanged
        LB203_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB204_移動()
        Dim sx, sxx As Integer : sx = LB204.Size.Height : sxx = LB204.Location.Y : NU3 = LB205.Location.X : NU4 = LB206.Location.X
        LB205.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB206.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB204_Click(sender As Object, e As EventArgs) Handles LB204.Click
        PA = LB204.Text : 合約內文修改視窗.ShowDialog() : LB204.Text = PA : LB204_移動()
    End Sub
    Private Sub LB204_LocationChanged(sender As Object, e As EventArgs) Handles LB204.LocationChanged
        LB204_移動()
    End Sub
    Private Sub LB204_TextChanged(sender As Object, e As EventArgs) Handles LB204.TextChanged
        LB204_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB205_Click(sender As Object, e As EventArgs) Handles LB205.Click
        NU5 = LB205.Location.X : BL1 = True : PA = LB205.Text : 合約內文修改視窗.ShowDialog() : LB205.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB205.Location.Y : LB205.Location = New Drawing.Point(syy1, sxx)
        sxx = LB206.Location.Y : LB206.Location = New Drawing.Point(syy2, sxx) : sxx = LB207.Location.Y : LB207.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB206_移動()
        Dim sx, sxx As Integer : sx = LB206.Size.Height : sxx = LB206.Location.Y : NU4 = LB207.Location.X : LB207.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB206_Click(sender As Object, e As EventArgs) Handles LB206.Click
        PA = LB206.Text : 合約內文修改視窗.ShowDialog() : LB206.Text = PA : LB206_移動()
    End Sub
    Private Sub LB206_LocationChanged(sender As Object, e As EventArgs) Handles LB206.LocationChanged
        LB206_移動()
    End Sub
    Private Sub LB206_TextChanged(sender As Object, e As EventArgs) Handles LB206.TextChanged
        LB206_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB207_移動()
        Dim sx, sxx As Integer : sx = LB207.Size.Height : sxx = LB207.Location.Y : NU3 = LB208.Location.X : NU4 = LB209.Location.X
        LB208.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB209.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB207_Click(sender As Object, e As EventArgs) Handles LB207.Click
        PA = LB207.Text : 合約內文修改視窗.ShowDialog() : LB207.Text = PA : LB207_移動()
    End Sub
    Private Sub LB207_LocationChanged(sender As Object, e As EventArgs) Handles LB207.LocationChanged
        LB207_移動()
    End Sub
    Private Sub LB207_TextChanged(sender As Object, e As EventArgs) Handles LB207.TextChanged
        LB207_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB208_Click(sender As Object, e As EventArgs) Handles LB208.Click
        NU5 = LB208.Location.X : BL1 = True : PA = LB208.Text : 合約內文修改視窗.ShowDialog() : LB208.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB208.Location.Y : LB208.Location = New Drawing.Point(syy1, sxx)
        sxx = LB209.Location.Y : LB209.Location = New Drawing.Point(syy2, sxx) : sxx = LB210.Location.Y : LB210.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB209_移動()
        Dim sx, sxx As Integer : sx = LB209.Size.Height : sxx = LB209.Location.Y : NU4 = LB210.Location.X : LB210.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB209_Click(sender As Object, e As EventArgs) Handles LB209.Click
        PA = LB209.Text : 合約內文修改視窗.ShowDialog() : LB209.Text = PA : LB209_移動()
    End Sub
    Private Sub LB209_LocationChanged(sender As Object, e As EventArgs) Handles LB209.LocationChanged
        LB209_移動()
    End Sub
    Private Sub LB209_TextChanged(sender As Object, e As EventArgs) Handles LB209.TextChanged
        LB209_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB210_移動()
        Dim sx, sxx As Integer : sx = LB210.Size.Height : sxx = LB210.Location.Y : NU3 = LB211.Location.X : NU4 = LB212.Location.X
        LB211.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB212.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB210_Click(sender As Object, e As EventArgs) Handles LB210.Click
        PA = LB210.Text : 合約內文修改視窗.ShowDialog() : LB210.Text = PA : LB210_移動()
    End Sub
    Private Sub LB210_LocationChanged(sender As Object, e As EventArgs) Handles LB210.LocationChanged
        LB210_移動()
    End Sub
    Private Sub LB210_TextChanged(sender As Object, e As EventArgs) Handles LB210.TextChanged
        LB210_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB211_Click(sender As Object, e As EventArgs) Handles LB211.Click
        NU5 = LB211.Location.X : BL1 = True : PA = LB211.Text : 合約內文修改視窗.ShowDialog() : LB211.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB211.Location.Y : LB211.Location = New Drawing.Point(syy1, sxx)
        sxx = LB212.Location.Y : LB212.Location = New Drawing.Point(syy2, sxx) : sxx = LB213.Location.Y : LB213.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB212_移動()
        Dim sx, sxx As Integer : sx = LB212.Size.Height : sxx = LB212.Location.Y : NU4 = LB213.Location.X : LB213.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB212_Click(sender As Object, e As EventArgs) Handles LB212.Click
        PA = LB212.Text : 合約內文修改視窗.ShowDialog() : LB212.Text = PA : LB212_移動()
    End Sub
    Private Sub LB212_LocationChanged(sender As Object, e As EventArgs) Handles LB212.LocationChanged
        LB212_移動()
    End Sub
    Private Sub LB212_TextChanged(sender As Object, e As EventArgs) Handles LB212.TextChanged
        LB212_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB213_移動()
        Dim sx, sxx As Integer : sx = LB213.Size.Height : sxx = LB213.Location.Y : NU3 = LB214.Location.X : NU4 = LB215.Location.X
        LB214.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB215.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB213_Click(sender As Object, e As EventArgs) Handles LB213.Click
        PA = LB213.Text : 合約內文修改視窗.ShowDialog() : LB213.Text = PA : LB213_移動()
    End Sub
    Private Sub LB213_LocationChanged(sender As Object, e As EventArgs) Handles LB213.LocationChanged
        LB213_移動()
    End Sub
    Private Sub LB213_TextChanged(sender As Object, e As EventArgs) Handles LB213.TextChanged
        LB213_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB214_Click(sender As Object, e As EventArgs) Handles LB214.Click
        NU5 = LB214.Location.X : BL1 = True : PA = LB214.Text : 合約內文修改視窗.ShowDialog() : LB214.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB214.Location.Y : LB214.Location = New Drawing.Point(syy1, sxx)
        sxx = LB215.Location.Y : LB215.Location = New Drawing.Point(syy2, sxx) : sxx = LB216.Location.Y : LB216.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB215_移動()
        Dim sx, sxx As Integer : sx = LB215.Size.Height : sxx = LB215.Location.Y : NU4 = LB216.Location.X : LB216.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB215_Click(sender As Object, e As EventArgs) Handles LB215.Click
        PA = LB215.Text : 合約內文修改視窗.ShowDialog() : LB215.Text = PA : LB215_移動()
    End Sub
    Private Sub LB215_LocationChanged(sender As Object, e As EventArgs) Handles LB215.LocationChanged
        LB215_移動()
    End Sub
    Private Sub LB215_TextChanged(sender As Object, e As EventArgs) Handles LB215.TextChanged
        LB215_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB216_移動()
        Dim sx, sxx As Integer : sx = LB216.Size.Height : sxx = LB216.Location.Y : NU3 = LB217.Location.X : NU4 = LB218.Location.X
        LB217.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB218.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB216_Click(sender As Object, e As EventArgs) Handles LB216.Click
        PA = LB216.Text : 合約內文修改視窗.ShowDialog() : LB216.Text = PA : LB216_移動()
    End Sub
    Private Sub LB216_LocationChanged(sender As Object, e As EventArgs) Handles LB216.LocationChanged
        LB216_移動()
    End Sub
    Private Sub LB216_TextChanged(sender As Object, e As EventArgs) Handles LB216.TextChanged
        LB216_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB217_Click(sender As Object, e As EventArgs) Handles LB217.Click
        NU5 = LB217.Location.X : BL1 = True : PA = LB217.Text : 合約內文修改視窗.ShowDialog() : LB217.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB217.Location.Y : LB217.Location = New Drawing.Point(syy1, sxx)
        sxx = LB218.Location.Y : LB218.Location = New Drawing.Point(syy2, sxx) : sxx = LB219.Location.Y : LB219.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB218_移動()
        Dim sx, sxx As Integer : sx = LB218.Size.Height : sxx = LB218.Location.Y : NU4 = LB219.Location.X : LB219.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB218_Click(sender As Object, e As EventArgs) Handles LB218.Click
        PA = LB218.Text : 合約內文修改視窗.ShowDialog() : LB218.Text = PA : LB218_移動()
    End Sub
    Private Sub LB218_LocationChanged(sender As Object, e As EventArgs) Handles LB218.LocationChanged
        LB218_移動()
    End Sub
    Private Sub LB218_TextChanged(sender As Object, e As EventArgs) Handles LB218.TextChanged
        LB218_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB219_移動()
        Dim sx, sxx As Integer : sx = LB219.Size.Height : sxx = LB219.Location.Y : NU3 = LB220.Location.X : NU4 = LB221.Location.X
        LB220.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB221.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB219_Click(sender As Object, e As EventArgs) Handles LB219.Click
        PA = LB219.Text : 合約內文修改視窗.ShowDialog() : LB219.Text = PA : LB219_移動()
    End Sub
    Private Sub LB219_LocationChanged(sender As Object, e As EventArgs) Handles LB219.LocationChanged
        LB219_移動()
    End Sub
    Private Sub LB219_TextChanged(sender As Object, e As EventArgs) Handles LB219.TextChanged
        LB219_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB220_Click(sender As Object, e As EventArgs) Handles LB220.Click
        NU5 = LB220.Location.X : BL1 = True : PA = LB220.Text : 合約內文修改視窗.ShowDialog() : LB220.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB220.Location.Y : LB220.Location = New Drawing.Point(syy1, sxx)
        sxx = LB221.Location.Y : LB221.Location = New Drawing.Point(syy2, sxx) : sxx = LB222.Location.Y : LB222.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB221_移動()
        Dim sx, sxx As Integer : sx = LB221.Size.Height : sxx = LB221.Location.Y : NU4 = LB222.Location.X : LB222.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB221_Click(sender As Object, e As EventArgs) Handles LB221.Click
        PA = LB221.Text : 合約內文修改視窗.ShowDialog() : LB221.Text = PA : LB221_移動()
    End Sub
    Private Sub LB221_LocationChanged(sender As Object, e As EventArgs) Handles LB221.LocationChanged
        LB221_移動()
    End Sub
    Private Sub LB221_TextChanged(sender As Object, e As EventArgs) Handles LB221.TextChanged
        LB221_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB222_移動()
        Dim sx, sxx As Integer : sx = LB222.Size.Height : sxx = LB222.Location.Y : NU3 = LB223.Location.X : NU4 = LB224.Location.X
        LB223.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB224.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB222_Click(sender As Object, e As EventArgs) Handles LB222.Click
        PA = LB222.Text : 合約內文修改視窗.ShowDialog() : LB222.Text = PA : LB222_移動()
    End Sub
    Private Sub LB222_LocationChanged(sender As Object, e As EventArgs) Handles LB222.LocationChanged
        LB222_移動()
    End Sub
    Private Sub LB222_TextChanged(sender As Object, e As EventArgs) Handles LB222.TextChanged
        LB222_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB223_Click(sender As Object, e As EventArgs) Handles LB223.Click
        NU5 = LB223.Location.X : BL1 = True : PA = LB223.Text : 合約內文修改視窗.ShowDialog() : LB223.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB223.Location.Y : LB223.Location = New Drawing.Point(syy1, sxx)
        sxx = LB224.Location.Y : LB224.Location = New Drawing.Point(syy2, sxx) : sxx = LB225.Location.Y : LB225.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB224_移動()
        Dim sx, sxx As Integer : sx = LB224.Size.Height : sxx = LB224.Location.Y : NU4 = LB225.Location.X : LB225.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB224_Click(sender As Object, e As EventArgs) Handles LB224.Click
        PA = LB224.Text : 合約內文修改視窗.ShowDialog() : LB224.Text = PA : LB224_移動()
    End Sub
    Private Sub LB224_LocationChanged(sender As Object, e As EventArgs) Handles LB224.LocationChanged
        LB224_移動()
    End Sub
    Private Sub LB224_TextChanged(sender As Object, e As EventArgs) Handles LB224.TextChanged
        LB224_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB225_Click(sender As Object, e As EventArgs) Handles LB225.Click
        PA = LB225.Text : 合約內文修改視窗.ShowDialog() : LB225.Text = PA
    End Sub
    '---------------------------第九章----------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub LB228_Click(sender As Object, e As EventArgs) Handles LB228.Click
        PA = LB228.Text : 合約內文修改視窗.ShowDialog() : LB228.Text = PA
    End Sub
    Private Sub LB229_Click(sender As Object, e As EventArgs) Handles LB229.Click
        PA = LB229.Text : 合約內文修改視窗.ShowDialog() : LB229.Text = PA
    End Sub
    Private Sub LB230_Click(sender As Object, e As EventArgs) Handles LB230.Click
        PA = LB230.Text : 合約內文修改視窗.ShowDialog() : LB230.Text = PA
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB231_Click(sender As Object, e As EventArgs) Handles LB231.Click
        NU5 = LB231.Location.X : BL1 = True : PA = LB231.Text : 合約內文修改視窗.ShowDialog() : LB231.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB231.Location.Y : LB231.Location = New Drawing.Point(syy1, sxx)
        sxx = LB131.Location.Y : LB131.Location = New Drawing.Point(syy2, sxx) : sxx = LB132.Location.Y : LB132.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB131_移動()
        Dim sx, sxx As Integer : sx = LB131.Size.Height : sxx = LB131.Location.Y : NU4 = LB132.Location.X : LB132.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB131_Click(sender As Object, e As EventArgs) Handles LB131.Click
        PA = LB131.Text : 合約內文修改視窗.ShowDialog() : LB131.Text = PA : LB131_移動()
    End Sub
    Private Sub LB131_LocationChanged(sender As Object, e As EventArgs) Handles LB131.LocationChanged
        LB131_移動()
    End Sub
    Private Sub LB131_TextChanged(sender As Object, e As EventArgs) Handles LB131.TextChanged
        LB131_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB132_移動()
        Dim sx, sxx As Integer : sx = LB132.Size.Height : sxx = LB132.Location.Y : NU3 = LB232.Location.X : NU4 = LB133.Location.X
        LB232.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB133.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB132_Click(sender As Object, e As EventArgs) Handles LB132.Click
        PA = LB132.Text : 合約內文修改視窗.ShowDialog() : LB132.Text = PA : LB132_移動()
    End Sub
    Private Sub LB132_LocationChanged(sender As Object, e As EventArgs) Handles LB132.LocationChanged
        LB132_移動()
    End Sub
    Private Sub LB132_TextChanged(sender As Object, e As EventArgs) Handles LB132.TextChanged
        LB132_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB232_Click(sender As Object, e As EventArgs) Handles LB232.Click
        NU5 = LB232.Location.X : BL1 = True : PA = LB232.Text : 合約內文修改視窗.ShowDialog() : LB232.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB232.Location.Y : LB232.Location = New Drawing.Point(syy1, sxx)
        sxx = LB133.Location.Y : LB133.Location = New Drawing.Point(syy2, sxx) : sxx = LB134.Location.Y : LB134.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB133_移動()
        Dim sx, sxx As Integer : sx = LB133.Size.Height : sxx = LB133.Location.Y : NU4 = LB134.Location.X : LB134.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB133_Click(sender As Object, e As EventArgs) Handles LB133.Click
        PA = LB133.Text : 合約內文修改視窗.ShowDialog() : LB133.Text = PA : LB133_移動()
    End Sub
    Private Sub LB133_LocationChanged(sender As Object, e As EventArgs) Handles LB133.LocationChanged
        LB133_移動()
    End Sub
    Private Sub LB133_TextChanged(sender As Object, e As EventArgs) Handles LB133.TextChanged
        LB133_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB134_移動()
        Dim sx, sxx As Integer : sx = LB134.Size.Height : sxx = LB134.Location.Y : NU3 = LB233.Location.X : NU4 = LB135.Location.X
        LB233.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB135.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB134_Click(sender As Object, e As EventArgs) Handles LB134.Click
        PA = LB134.Text : 合約內文修改視窗.ShowDialog() : LB134.Text = PA : LB134_移動()
    End Sub
    Private Sub LB134_LocationChanged(sender As Object, e As EventArgs) Handles LB134.LocationChanged
        LB134_移動()
    End Sub
    Private Sub LB134_TextChanged(sender As Object, e As EventArgs) Handles LB134.TextChanged
        LB134_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB233_Click(sender As Object, e As EventArgs) Handles LB233.Click
        NU5 = LB233.Location.X : BL1 = True : PA = LB233.Text : 合約內文修改視窗.ShowDialog() : LB233.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB233.Location.Y : LB233.Location = New Drawing.Point(syy1, sxx)
        sxx = LB135.Location.Y : LB135.Location = New Drawing.Point(syy2, sxx) : sxx = LB136.Location.Y : LB136.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB135_移動()
        Dim sx, sxx As Integer : sx = LB135.Size.Height : sxx = LB135.Location.Y : NU4 = LB136.Location.X : LB136.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB135_Click(sender As Object, e As EventArgs) Handles LB135.Click
        PA = LB135.Text : 合約內文修改視窗.ShowDialog() : LB135.Text = PA : LB135_移動()
    End Sub
    Private Sub LB135_LocationChanged(sender As Object, e As EventArgs) Handles LB135.LocationChanged
        LB135_移動()
    End Sub
    Private Sub LB135_TextChanged(sender As Object, e As EventArgs) Handles LB135.TextChanged
        LB135_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB136_移動()
        Dim sx, sxx As Integer : sx = LB136.Size.Height : sxx = LB136.Location.Y : NU3 = LB234.Location.X : NU4 = LB235.Location.X
        LB234.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB235.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB136_Click(sender As Object, e As EventArgs) Handles LB136.Click
        PA = LB136.Text : 合約內文修改視窗.ShowDialog() : LB136.Text = PA : LB136_移動()
    End Sub
    Private Sub LB136_LocationChanged(sender As Object, e As EventArgs) Handles LB136.LocationChanged
        LB136_移動()
    End Sub
    Private Sub LB136_TextChanged(sender As Object, e As EventArgs) Handles LB136.TextChanged
        LB136_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB234_Click(sender As Object, e As EventArgs) Handles LB234.Click
        NU5 = LB234.Location.X : BL1 = True : PA = LB234.Text : 合約內文修改視窗.ShowDialog() : LB234.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB234.Location.Y : LB234.Location = New Drawing.Point(syy1, sxx)
        sxx = LB235.Location.Y : LB235.Location = New Drawing.Point(syy2, sxx) : sxx = LB236.Location.Y : LB236.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB235_移動()
        Dim sx, sxx As Integer : sx = LB235.Size.Height : sxx = LB235.Location.Y : NU4 = LB236.Location.X
        LB236.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB235_Click(sender As Object, e As EventArgs) Handles LB235.Click
        PA = LB235.Text : 合約內文修改視窗.ShowDialog() : LB235.Text = PA : LB235_移動()
    End Sub
    Private Sub LB235_LocationChanged(sender As Object, e As EventArgs) Handles LB235.LocationChanged
        LB235_移動()
    End Sub
    Private Sub LB235_TextChanged(sender As Object, e As EventArgs) Handles LB235.TextChanged
        LB235_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB236_移動()
        Dim sx, sxx As Integer : sx = LB236.Size.Height : sxx = LB236.Location.Y : NU3 = LB237.Location.X : NU4 = LB238.Location.X
        LB237.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB238.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB236_Click(sender As Object, e As EventArgs) Handles LB236.Click
        PA = LB236.Text : 合約內文修改視窗.ShowDialog() : LB236.Text = PA : LB236_移動()
    End Sub
    Private Sub LB236_LocationChanged(sender As Object, e As EventArgs) Handles LB236.LocationChanged
        LB236_移動()
    End Sub
    Private Sub LB236_TextChanged(sender As Object, e As EventArgs) Handles LB236.TextChanged
        LB236_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB237_Click(sender As Object, e As EventArgs) Handles LB237.Click
        NU5 = LB237.Location.X : BL1 = True : PA = LB237.Text : 合約內文修改視窗.ShowDialog() : LB237.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB237.Location.Y : LB237.Location = New Drawing.Point(syy1, sxx)
        sxx = LB238.Location.Y : LB238.Location = New Drawing.Point(syy2, sxx) : sxx = LB239.Location.Y : LB239.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB238_移動()
        Dim sx, sxx As Integer : sx = LB238.Size.Height : sxx = LB238.Location.Y : NU4 = LB239.Location.X : LB239.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB238_Click(sender As Object, e As EventArgs) Handles LB238.Click
        PA = LB238.Text : 合約內文修改視窗.ShowDialog() : LB238.Text = PA : LB238_移動()
    End Sub
    Private Sub LB238_LocationChanged(sender As Object, e As EventArgs) Handles LB238.LocationChanged
        LB238_移動()
    End Sub
    Private Sub LB238_TextChanged(sender As Object, e As EventArgs) Handles LB238.TextChanged
        LB238_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB239_移動()
        Dim sx, sxx As Integer : sx = LB239.Size.Height : sxx = LB239.Location.Y : NU3 = LB240.Location.X : NU4 = LB241.Location.X
        LB240.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB241.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB239_Click(sender As Object, e As EventArgs) Handles LB239.Click
        PA = LB239.Text : 合約內文修改視窗.ShowDialog() : LB239.Text = PA : LB239_移動()
    End Sub
    Private Sub LB239_LocationChanged(sender As Object, e As EventArgs) Handles LB239.LocationChanged
        LB239_移動()
    End Sub
    Private Sub LB239_TextChanged(sender As Object, e As EventArgs) Handles LB239.TextChanged
        LB239_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB240_Click(sender As Object, e As EventArgs) Handles LB240.Click
        NU5 = LB240.Location.X : BL1 = True : PA = LB240.Text : 合約內文修改視窗.ShowDialog() : LB240.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB240.Location.Y : LB240.Location = New Drawing.Point(syy1, sxx)
        sxx = LB241.Location.Y : LB241.Location = New Drawing.Point(syy2, sxx) : sxx = LB242.Location.Y : LB242.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB241_移動()
        Dim sx, sxx As Integer : sx = LB241.Size.Height : sxx = LB241.Location.Y : NU4 = LB242.Location.X : LB242.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB241_Click(sender As Object, e As EventArgs) Handles LB241.Click
        PA = LB241.Text : 合約內文修改視窗.ShowDialog() : LB241.Text = PA : LB241_移動()
    End Sub
    Private Sub LB241_LocationChanged(sender As Object, e As EventArgs) Handles LB241.LocationChanged
        LB241_移動()
    End Sub
    Private Sub LB241_TextChanged(sender As Object, e As EventArgs) Handles LB241.TextChanged
        LB241_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB242_移動()
        Dim sx, sxx As Integer : sx = LB242.Size.Height : sxx = LB242.Location.Y : NU3 = LB243.Location.X : NU4 = LB244.Location.X
        LB243.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB244.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB242_Click(sender As Object, e As EventArgs) Handles LB242.Click
        PA = LB242.Text : 合約內文修改視窗.ShowDialog() : LB242.Text = PA : LB242_移動()
    End Sub
    Private Sub LB242_LocationChanged(sender As Object, e As EventArgs) Handles LB242.LocationChanged
        LB242_移動()
    End Sub
    Private Sub LB242_TextChanged(sender As Object, e As EventArgs) Handles LB242.TextChanged
        LB242_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB243_Click(sender As Object, e As EventArgs) Handles LB243.Click
        NU5 = LB243.Location.X : BL1 = True : PA = LB243.Text : 合約內文修改視窗.ShowDialog() : LB243.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB243.Location.Y : LB243.Location = New Drawing.Point(syy1, sxx)
        sxx = LB244.Location.Y : LB244.Location = New Drawing.Point(syy2, sxx) : sxx = LB245.Location.Y : LB245.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB244_移動()
        Dim sx, sxx As Integer : sx = LB244.Size.Height : sxx = LB244.Location.Y : NU4 = LB245.Location.X : LB245.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB244_Click(sender As Object, e As EventArgs) Handles LB244.Click
        PA = LB244.Text : 合約內文修改視窗.ShowDialog() : LB244.Text = PA : LB244_移動()
    End Sub
    Private Sub LB244_LocationChanged(sender As Object, e As EventArgs) Handles LB244.LocationChanged
        LB244_移動()
    End Sub
    Private Sub LB244_TextChanged(sender As Object, e As EventArgs) Handles LB244.TextChanged
        LB244_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB245_移動()
        Dim sx, sxx As Integer : sx = LB245.Size.Height : sxx = LB245.Location.Y : NU3 = LB246.Location.X : NU4 = LB247.Location.X
        LB246.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB247.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB245_Click(sender As Object, e As EventArgs) Handles LB245.Click
        PA = LB245.Text : 合約內文修改視窗.ShowDialog() : LB245.Text = PA : LB245_移動()
    End Sub
    Private Sub LB245_LocationChanged(sender As Object, e As EventArgs) Handles LB245.LocationChanged
        LB245_移動()
    End Sub
    Private Sub LB245_TextChanged(sender As Object, e As EventArgs) Handles LB245.TextChanged
        LB245_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB246_Click(sender As Object, e As EventArgs) Handles LB246.Click
        NU5 = LB246.Location.X : BL1 = True : PA = LB246.Text : 合約內文修改視窗.ShowDialog() : LB246.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB246.Location.Y : LB246.Location = New Drawing.Point(syy1, sxx)
        sxx = LB247.Location.Y : LB247.Location = New Drawing.Point(syy2, sxx) : sxx = LB248.Location.Y : LB248.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB247_移動()
        Dim sx, sxx As Integer : sx = LB247.Size.Height : sxx = LB247.Location.Y : NU4 = LB248.Location.X : LB248.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB247_Click(sender As Object, e As EventArgs) Handles LB247.Click
        PA = LB247.Text : 合約內文修改視窗.ShowDialog() : LB247.Text = PA : LB247_移動()
    End Sub
    Private Sub LB247_LocationChanged(sender As Object, e As EventArgs) Handles LB247.LocationChanged
        LB247_移動()
    End Sub
    Private Sub LB247_TextChanged(sender As Object, e As EventArgs) Handles LB247.TextChanged
        LB247_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB248_移動()
        Dim sx, sxx As Integer : sx = LB248.Size.Height : sxx = LB248.Location.Y : NU3 = LB249.Location.X : NU4 = LB250.Location.X
        LB249.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB250.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB248_Click(sender As Object, e As EventArgs) Handles LB248.Click
        PA = LB248.Text : 合約內文修改視窗.ShowDialog() : LB248.Text = PA : LB248_移動()
    End Sub
    Private Sub LB248_LocationChanged(sender As Object, e As EventArgs) Handles LB248.LocationChanged
        LB248_移動()
    End Sub
    Private Sub LB248_TextChanged(sender As Object, e As EventArgs) Handles LB248.TextChanged
        LB248_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB249_Click(sender As Object, e As EventArgs) Handles LB249.Click
        NU5 = LB249.Location.X : BL1 = True : PA = LB249.Text : 合約內文修改視窗.ShowDialog() : LB249.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB249.Location.Y : LB249.Location = New Drawing.Point(syy1, sxx)
        sxx = LB250.Location.Y : LB250.Location = New Drawing.Point(syy2, sxx) : sxx = LB251.Location.Y : LB251.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB250_移動()
        Dim sx, sxx As Integer : sx = LB250.Size.Height : sxx = LB250.Location.Y : NU4 = LB251.Location.X : LB251.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB250_Click(sender As Object, e As EventArgs) Handles LB250.Click
        PA = LB250.Text : 合約內文修改視窗.ShowDialog() : LB250.Text = PA : LB250_移動()
    End Sub
    Private Sub LB250_LocationChanged(sender As Object, e As EventArgs) Handles LB250.LocationChanged
        LB250_移動()
    End Sub
    Private Sub LB250_TextChanged(sender As Object, e As EventArgs) Handles LB250.TextChanged
        LB250_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB251_移動()
        Dim sx, sxx As Integer : sx = LB251.Size.Height : sxx = LB251.Location.Y : NU3 = LB252.Location.X : NU4 = LB253.Location.X
        LB252.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB253.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB251_Click(sender As Object, e As EventArgs) Handles LB251.Click
        PA = LB251.Text : 合約內文修改視窗.ShowDialog() : LB251.Text = PA : LB251_移動()
    End Sub
    Private Sub LB251_LocationChanged(sender As Object, e As EventArgs) Handles LB251.LocationChanged
        LB251_移動()
    End Sub
    Private Sub LB251_TextChanged(sender As Object, e As EventArgs) Handles LB251.TextChanged
        LB251_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB252_Click(sender As Object, e As EventArgs) Handles LB252.Click
        NU5 = LB252.Location.X : BL1 = True : PA = LB252.Text : 合約內文修改視窗.ShowDialog() : LB252.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB252.Location.Y : LB252.Location = New Drawing.Point(syy1, sxx)
        sxx = LB253.Location.Y : LB253.Location = New Drawing.Point(syy2, sxx) : sxx = LB254.Location.Y : LB254.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB253_移動()
        Dim sx, sxx As Integer : sx = LB253.Size.Height : sxx = LB253.Location.Y : NU4 = LB254.Location.X : LB254.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB253_Click(sender As Object, e As EventArgs) Handles LB253.Click
        PA = LB253.Text : 合約內文修改視窗.ShowDialog() : LB253.Text = PA : LB253_移動()
    End Sub
    Private Sub LB253_LocationChanged(sender As Object, e As EventArgs) Handles LB253.LocationChanged
        LB253_移動()
    End Sub
    Private Sub LB253_TextChanged(sender As Object, e As EventArgs) Handles LB253.TextChanged
        LB253_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB254_移動()
        Dim sx, sxx As Integer : sx = LB254.Size.Height : sxx = LB254.Location.Y : NU3 = LB255.Location.X : NU4 = LB256.Location.X
        LB255.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB256.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB254_Click(sender As Object, e As EventArgs) Handles LB254.Click
        PA = LB254.Text : 合約內文修改視窗.ShowDialog() : LB254.Text = PA : LB254_移動()
    End Sub
    Private Sub LB254_LocationChanged(sender As Object, e As EventArgs) Handles LB254.LocationChanged
        LB254_移動()
    End Sub
    Private Sub LB254_TextChanged(sender As Object, e As EventArgs) Handles LB254.TextChanged
        LB254_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB255_Click(sender As Object, e As EventArgs) Handles LB255.Click
        NU5 = LB255.Location.X : BL1 = True : PA = LB255.Text : 合約內文修改視窗.ShowDialog() : LB255.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB255.Location.Y : LB255.Location = New Drawing.Point(syy1, sxx)
        sxx = LB256.Location.Y : LB256.Location = New Drawing.Point(syy2, sxx) : sxx = LB257.Location.Y : LB257.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB256_移動()
        Dim sx, sxx As Integer : sx = LB256.Size.Height : sxx = LB256.Location.Y : NU4 = LB257.Location.X : LB257.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB256_Click(sender As Object, e As EventArgs) Handles LB256.Click
        PA = LB256.Text : 合約內文修改視窗.ShowDialog() : LB256.Text = PA : LB256_移動()
    End Sub
    Private Sub LB256_LocationChanged(sender As Object, e As EventArgs) Handles LB256.LocationChanged
        LB256_移動()
    End Sub
    Private Sub LB256_TextChanged(sender As Object, e As EventArgs) Handles LB256.TextChanged
        LB256_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB257_移動()
        Dim sx, sxx As Integer : sx = LB257.Size.Height : sxx = LB257.Location.Y : NU3 = LB258.Location.X : NU4 = LB259.Location.X
        LB258.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB259.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB257_Click(sender As Object, e As EventArgs) Handles LB257.Click
        PA = LB257.Text : 合約內文修改視窗.ShowDialog() : LB257.Text = PA : LB257_移動()
    End Sub
    Private Sub LB257_LocationChanged(sender As Object, e As EventArgs) Handles LB257.LocationChanged
        LB257_移動()
    End Sub
    Private Sub LB257_TextChanged(sender As Object, e As EventArgs) Handles LB257.TextChanged
        LB257_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB258_Click(sender As Object, e As EventArgs) Handles LB258.Click
        NU5 = LB258.Location.X : BL1 = True : PA = LB258.Text : 合約內文修改視窗.ShowDialog() : LB258.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB258.Location.Y : LB258.Location = New Drawing.Point(syy1, sxx)
        sxx = LB259.Location.Y : LB259.Location = New Drawing.Point(syy2, sxx) : sxx = LB260.Location.Y : LB260.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB259_移動()
        Dim sx, sxx As Integer : sx = LB259.Size.Height : sxx = LB259.Location.Y : NU4 = LB260.Location.X : LB260.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB259_Click(sender As Object, e As EventArgs) Handles LB259.Click
        PA = LB259.Text : 合約內文修改視窗.ShowDialog() : LB259.Text = PA : LB259_移動()
    End Sub
    Private Sub LB259_LocationChanged(sender As Object, e As EventArgs) Handles LB259.LocationChanged
        LB259_移動()
    End Sub
    Private Sub LB259_TextChanged(sender As Object, e As EventArgs) Handles LB259.TextChanged
        LB259_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB260_移動()
        Dim sx, sxx As Integer : sx = LB260.Size.Height : sxx = LB260.Location.Y : NU3 = LB261.Location.X : NU4 = LB262.Location.X
        LB261.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB262.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB260_Click(sender As Object, e As EventArgs) Handles LB260.Click
        PA = LB260.Text : 合約內文修改視窗.ShowDialog() : LB260.Text = PA : LB260_移動()
    End Sub
    Private Sub LB260_LocationChanged(sender As Object, e As EventArgs) Handles LB260.LocationChanged
        LB260_移動()
    End Sub
    Private Sub LB260_TextChanged(sender As Object, e As EventArgs) Handles LB260.TextChanged
        LB260_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB261_Click(sender As Object, e As EventArgs) Handles LB261.Click
        NU5 = LB261.Location.X : BL1 = True : PA = LB261.Text : 合約內文修改視窗.ShowDialog() : LB261.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB261.Location.Y : LB261.Location = New Drawing.Point(syy1, sxx)
        sxx = LB262.Location.Y : LB262.Location = New Drawing.Point(syy2, sxx) : sxx = LB263.Location.Y : LB263.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB262_移動()
        Dim sx, sxx As Integer : sx = LB262.Size.Height : sxx = LB262.Location.Y : NU4 = LB263.Location.X : LB263.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB262_Click(sender As Object, e As EventArgs) Handles LB262.Click
        PA = LB262.Text : 合約內文修改視窗.ShowDialog() : LB262.Text = PA : LB262_移動()
    End Sub
    Private Sub LB262_LocationChanged(sender As Object, e As EventArgs) Handles LB262.LocationChanged
        LB262_移動()
    End Sub
    Private Sub LB262_TextChanged(sender As Object, e As EventArgs) Handles LB262.TextChanged
        LB262_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB263_移動()
        Dim sx, sxx As Integer : sx = LB263.Size.Height : sxx = LB263.Location.Y : NU3 = LB264.Location.X : NU4 = LB265.Location.X
        LB264.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB265.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB263_Click(sender As Object, e As EventArgs) Handles LB263.Click
        PA = LB263.Text : 合約內文修改視窗.ShowDialog() : LB263.Text = PA : LB263_移動()
    End Sub
    Private Sub LB263_LocationChanged(sender As Object, e As EventArgs) Handles LB263.LocationChanged
        LB263_移動()
    End Sub
    Private Sub LB263_TextChanged(sender As Object, e As EventArgs) Handles LB263.TextChanged
        LB263_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB264_Click(sender As Object, e As EventArgs) Handles LB264.Click
        NU5 = LB264.Location.X : BL1 = True : PA = LB264.Text : 合約內文修改視窗.ShowDialog() : LB264.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB264.Location.Y : LB264.Location = New Drawing.Point(syy1, sxx)
        sxx = LB265.Location.Y : LB265.Location = New Drawing.Point(syy2, sxx) : sxx = LB266.Location.Y : LB266.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB265_移動()
        Dim sx, sxx As Integer : sx = LB265.Size.Height : sxx = LB265.Location.Y : NU4 = LB266.Location.X : LB266.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB265_Click(sender As Object, e As EventArgs) Handles LB265.Click
        PA = LB265.Text : 合約內文修改視窗.ShowDialog() : LB265.Text = PA : LB265_移動()
    End Sub
    Private Sub LB265_LocationChanged(sender As Object, e As EventArgs) Handles LB265.LocationChanged
        LB265_移動()
    End Sub
    Private Sub LB265_TextChanged(sender As Object, e As EventArgs) Handles LB265.TextChanged
        LB265_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB266_Click(sender As Object, e As EventArgs) Handles LB266.Click
        PA = LB266.Text : 合約內文修改視窗.ShowDialog() : LB266.Text = PA
    End Sub
    '---------------------------第八章----------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub LB267_Click(sender As Object, e As EventArgs) Handles LB267.Click
        PA = LB267.Text : 合約內文修改視窗.ShowDialog() : LB267.Text = PA
    End Sub
    Private Sub LB268_Click(sender As Object, e As EventArgs) Handles LB268.Click
        PA = LB268.Text : 合約內文修改視窗.ShowDialog() : LB268.Text = PA
    End Sub
    Private Sub LB269_Click(sender As Object, e As EventArgs) Handles LB269.Click
        PA = LB269.Text : 合約內文修改視窗.ShowDialog() : LB269.Text = PA
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB270_Click(sender As Object, e As EventArgs) Handles LB270.Click
        PA = LB270.Text : 合約內文修改視窗.ShowDialog() : LB270.Text = PA
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB121_移動()
        Dim sx, sxx As Integer : sx = LB121.Size.Height : sxx = LB121.Location.Y : LB122.Location = New Drawing.Point(40, sxx + sx + 10)
    End Sub
    Private Sub LB121_Click(sender As Object, e As EventArgs) Handles LB121.Click
        PA = LB121.Text : 合約內文修改視窗.ShowDialog() : LB121.Text = PA : LB121_移動()
    End Sub
    Private Sub LB121_LocationChanged(sender As Object, e As EventArgs) Handles LB121.LocationChanged
        LB121_移動()
    End Sub
    Private Sub LB121_TextChanged(sender As Object, e As EventArgs) Handles LB121.TextChanged
        LB121_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB122_移動()
        Dim sx, sxx As Integer : sx = LB122.Size.Height : sxx = LB122.Location.Y : LB271.Location = New Drawing.Point(40, sxx + sx + 10) : LB123.Location = New Drawing.Point(74, sxx + sx + 10)
    End Sub
    Private Sub LB122_Click(sender As Object, e As EventArgs) Handles LB122.Click
        PA = LB122.Text : 合約內文修改視窗.ShowDialog() : LB122.Text = PA : LB122_移動()
    End Sub
    Private Sub LB122_LocationChanged(sender As Object, e As EventArgs) Handles LB122.LocationChanged
        LB122_移動()
    End Sub
    Private Sub LB122_TextChanged(sender As Object, e As EventArgs) Handles LB122.TextChanged
        LB122_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB271_Click(sender As Object, e As EventArgs) Handles LB271.Click
        PA = LB271.Text : 合約內文修改視窗.ShowDialog() : LB271.Text = PA
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB123_移動()
        Dim sx, sxx As Integer : sx = LB123.Size.Height : sxx = LB123.Location.Y : LB124.Location = New Drawing.Point(74, sxx + sx + 10)
    End Sub
    Private Sub LB123_Click(sender As Object, e As EventArgs) Handles LB123.Click
        PA = LB123.Text : 合約內文修改視窗.ShowDialog() : LB123.Text = PA : LB123_移動()
    End Sub
    Private Sub LB123_LocationChanged(sender As Object, e As EventArgs) Handles LB123.LocationChanged
        LB123_移動()
    End Sub
    Private Sub LB123_TextChanged(sender As Object, e As EventArgs) Handles LB123.TextChanged
        LB123_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB124_移動()
        Dim sx, sxx As Integer : sx = LB124.Size.Height : sxx = LB124.Location.Y : LB272.Location = New Drawing.Point(40, sxx + sx + 10) : LB125.Location = New Drawing.Point(74, sxx + sx + 10)
    End Sub
    Private Sub LB124_Click(sender As Object, e As EventArgs) Handles LB124.Click
        PA = LB124.Text : 合約內文修改視窗.ShowDialog() : LB124.Text = PA : LB124_移動()
    End Sub
    Private Sub LB124_LocationChanged(sender As Object, e As EventArgs) Handles LB124.LocationChanged
        LB124_移動()
    End Sub
    Private Sub LB124_TextChanged(sender As Object, e As EventArgs) Handles LB124.TextChanged
        LB124_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB272_Click(sender As Object, e As EventArgs) Handles LB272.Click
        PA = LB272.Text : 合約內文修改視窗.ShowDialog() : LB272.Text = PA
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB125_移動()
        Dim sx, sxx As Integer : sx = LB125.Size.Height : sxx = LB125.Location.Y : LB126.Location = New Drawing.Point(74, sxx + sx + 10)
    End Sub
    Private Sub LB125_Click(sender As Object, e As EventArgs) Handles LB125.Click
        PA = LB125.Text : 合約內文修改視窗.ShowDialog() : LB125.Text = PA : LB125_移動()
    End Sub
    Private Sub LB125_LocationChanged(sender As Object, e As EventArgs) Handles LB125.LocationChanged
        LB125_移動()
    End Sub
    Private Sub LB125_TextChanged(sender As Object, e As EventArgs) Handles LB125.TextChanged
        LB125_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB126_移動()
        Dim sx, sxx As Integer : sx = LB126.Size.Height : sxx = LB126.Location.Y
        LB273.Location = New Drawing.Point(40, sxx + sx + 10) : LB127.Location = New Drawing.Point(74, sxx + sx + 10)
        LB274.Location = New Drawing.Point(324, sxx + sx + 10) : LB128.Location = New Drawing.Point(476, sxx + sx + 10)
    End Sub
    Private Sub LB126_Click(sender As Object, e As EventArgs) Handles LB126.Click
        PA = LB126.Text : 合約內文修改視窗.ShowDialog() : LB126.Text = PA : LB126_移動()
    End Sub
    Private Sub LB126_LocationChanged(sender As Object, e As EventArgs) Handles LB126.LocationChanged
        LB126_移動()
    End Sub
    Private Sub LB126_TextChanged(sender As Object, e As EventArgs) Handles LB126.TextChanged
        LB126_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB273_Click(sender As Object, e As EventArgs) Handles LB273.Click
        PA = LB273.Text : 合約內文修改視窗.ShowDialog() : LB273.Text = PA
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB127_移動()
        Dim sx, sxx As Integer : sx = LB127.Size.Height : sxx = LB127.Location.Y
        LB129.Location = New Drawing.Point(74, sxx + sx + 10) : LB275.Location = New Drawing.Point(383, sxx + sx + 10) : LB130.Location = New Drawing.Point(548, sxx + sx + 10)
    End Sub
    Private Sub LB127_Click(sender As Object, e As EventArgs) Handles LB127.Click
        PA = LB127.Text : 合約內文修改視窗.ShowDialog() : LB127.Text = PA : LB127_移動()
    End Sub
    Private Sub LB127_LocationChanged(sender As Object, e As EventArgs) Handles LB127.LocationChanged
        LB127_移動()
    End Sub
    Private Sub LB127_TextChanged(sender As Object, e As EventArgs) Handles LB127.TextChanged
        LB127_移動()
    End Sub
    Private Sub LB128_Click(sender As Object, e As EventArgs) Handles LB128.Click
        PA = LB128.Text : 合約內文修改視窗.ShowDialog() : LB128.Text = PA
    End Sub
    Private Sub LB130_Click(sender As Object, e As EventArgs) Handles LB130.Click
        PA = LB130.Text : 合約內文修改視窗.ShowDialog() : LB130.Text = PA
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB129_移動()
        Dim sx, sxx As Integer : sx = LB129.Size.Height : sxx = LB129.Location.Y : NU3 = LB276.Location.X : NU4 = LB277.Location.X
        LB276.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB277.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB129_Click(sender As Object, e As EventArgs) Handles LB129.Click
        PA = LB129.Text : 合約內文修改視窗.ShowDialog() : LB129.Text = PA : LB129_移動()
    End Sub
    Private Sub LB279_LocationChanged(sender As Object, e As EventArgs) Handles LB129.LocationChanged
        LB129_移動()
    End Sub
    Private Sub LB279_TextChanged(sender As Object, e As EventArgs) Handles LB129.TextChanged
        LB129_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB276_Click(sender As Object, e As EventArgs) Handles LB276.Click
        NU5 = LB276.Location.X : BL1 = True : PA = LB276.Text : 合約內文修改視窗.ShowDialog() : LB276.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB276.Location.Y : LB276.Location = New Drawing.Point(syy1, sxx)
        sxx = LB277.Location.Y : LB277.Location = New Drawing.Point(syy2, sxx) : sxx = LB278.Location.Y : LB278.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB277_移動()
        Dim sx, sxx As Integer : sx = LB277.Size.Height : sxx = LB277.Location.Y : NU4 = LB278.Location.X : LB278.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB277_Click(sender As Object, e As EventArgs) Handles LB277.Click
        PA = LB277.Text : 合約內文修改視窗.ShowDialog() : LB277.Text = PA : LB277_移動()
    End Sub
    Private Sub LB277_LocationChanged(sender As Object, e As EventArgs) Handles LB277.LocationChanged
        LB277_移動()
    End Sub
    Private Sub LB277_TextChanged(sender As Object, e As EventArgs) Handles LB277.TextChanged
        LB277_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB278_移動()
        Dim sx, sxx As Integer : sx = LB278.Size.Height : sxx = LB278.Location.Y : NU3 = LB279.Location.X : NU4 = LB280.Location.X
        LB279.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB280.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB278_Click(sender As Object, e As EventArgs) Handles LB278.Click
        PA = LB278.Text : 合約內文修改視窗.ShowDialog() : LB278.Text = PA : LB278_移動()
    End Sub
    Private Sub LB278_LocationChanged(sender As Object, e As EventArgs) Handles LB278.LocationChanged
        LB278_移動()
    End Sub
    Private Sub LB278_TextChanged(sender As Object, e As EventArgs) Handles LB278.TextChanged
        LB278_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB279_Click(sender As Object, e As EventArgs) Handles LB279.Click
        NU5 = LB279.Location.X : BL1 = True : PA = LB279.Text : 合約內文修改視窗.ShowDialog() : LB279.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB279.Location.Y : LB279.Location = New Drawing.Point(syy1, sxx)
        sxx = LB280.Location.Y : LB280.Location = New Drawing.Point(syy2, sxx) : sxx = LB281.Location.Y : LB281.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB280_移動()
        Dim sx, sxx As Integer : sx = LB280.Size.Height : sxx = LB280.Location.Y : NU4 = LB281.Location.X : LB281.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB280_Click(sender As Object, e As EventArgs) Handles LB280.Click
        PA = LB280.Text : 合約內文修改視窗.ShowDialog() : LB280.Text = PA : LB280_移動()
    End Sub
    Private Sub LB280_LocationChanged(sender As Object, e As EventArgs) Handles LB280.LocationChanged
        LB280_移動()
    End Sub
    Private Sub LB280_TextChanged(sender As Object, e As EventArgs) Handles LB280.TextChanged
        LB280_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB281_移動()
        Dim sx, sxx As Integer : sx = LB281.Size.Height : sxx = LB281.Location.Y : NU3 = LB282.Location.X : NU4 = LB283.Location.X
        LB282.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB283.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB281_Click(sender As Object, e As EventArgs) Handles LB281.Click
        PA = LB281.Text : 合約內文修改視窗.ShowDialog() : LB281.Text = PA : LB281_移動()
    End Sub
    Private Sub LB281_LocationChanged(sender As Object, e As EventArgs) Handles LB281.LocationChanged
        LB281_移動()
    End Sub
    Private Sub LB281_TextChanged(sender As Object, e As EventArgs) Handles LB281.TextChanged
        LB281_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB282_Click(sender As Object, e As EventArgs) Handles LB282.Click
        NU5 = LB282.Location.X : BL1 = True : PA = LB282.Text : 合約內文修改視窗.ShowDialog() : LB282.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB282.Location.Y : LB282.Location = New Drawing.Point(syy1, sxx)
        sxx = LB283.Location.Y : LB283.Location = New Drawing.Point(syy2, sxx) : sxx = LB284.Location.Y : LB284.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB283_移動()
        Dim sx, sxx As Integer : sx = LB283.Size.Height : sxx = LB283.Location.Y : NU4 = LB284.Location.X : LB284.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB283_Click(sender As Object, e As EventArgs) Handles LB283.Click
        PA = LB283.Text : 合約內文修改視窗.ShowDialog() : LB283.Text = PA : LB283_移動()
    End Sub
    Private Sub LB283_LocationChanged(sender As Object, e As EventArgs) Handles LB283.LocationChanged
        LB283_移動()
    End Sub
    Private Sub LB283_TextChanged(sender As Object, e As EventArgs) Handles LB283.TextChanged
        LB283_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB284_移動()
        Dim sx, sxx As Integer : sx = LB284.Size.Height : sxx = LB284.Location.Y : NU3 = LB285.Location.X : NU4 = LB286.Location.X
        LB285.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB286.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB284_Click(sender As Object, e As EventArgs) Handles LB284.Click
        PA = LB284.Text : 合約內文修改視窗.ShowDialog() : LB284.Text = PA : LB284_移動()
    End Sub
    Private Sub LB284_LocationChanged(sender As Object, e As EventArgs) Handles LB284.LocationChanged
        LB284_移動()
    End Sub
    Private Sub LB284_TextChanged(sender As Object, e As EventArgs) Handles LB284.TextChanged
        LB284_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB285_Click(sender As Object, e As EventArgs) Handles LB285.Click
        NU5 = LB285.Location.X : BL1 = True : PA = LB285.Text : 合約內文修改視窗.ShowDialog() : LB285.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB285.Location.Y : LB285.Location = New Drawing.Point(syy1, sxx)
        sxx = LB286.Location.Y : LB286.Location = New Drawing.Point(syy2, sxx) : sxx = LB287.Location.Y : LB287.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB286_移動()
        Dim sx, sxx As Integer : sx = LB286.Size.Height : sxx = LB286.Location.Y : NU4 = LB287.Location.X : LB287.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB286_Click(sender As Object, e As EventArgs) Handles LB286.Click
        PA = LB286.Text : 合約內文修改視窗.ShowDialog() : LB286.Text = PA : LB286_移動()
    End Sub
    Private Sub LB286_LocationChanged(sender As Object, e As EventArgs) Handles LB286.LocationChanged
        LB286_移動()
    End Sub
    Private Sub LB286_TextChanged(sender As Object, e As EventArgs) Handles LB286.TextChanged
        LB286_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB287_移動()
        Dim sx, sxx As Integer : sx = LB287.Size.Height : sxx = LB287.Location.Y : NU3 = LB288.Location.X : NU4 = LB289.Location.X
        LB288.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB289.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB287_Click(sender As Object, e As EventArgs) Handles LB287.Click
        PA = LB287.Text : 合約內文修改視窗.ShowDialog() : LB287.Text = PA : LB287_移動()
    End Sub
    Private Sub LB287_LocationChanged(sender As Object, e As EventArgs) Handles LB287.LocationChanged
        LB287_移動()
    End Sub
    Private Sub LB287_TextChanged(sender As Object, e As EventArgs) Handles LB287.TextChanged
        LB287_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB288_Click(sender As Object, e As EventArgs) Handles LB288.Click
        NU5 = LB288.Location.X : BL1 = True : PA = LB288.Text : 合約內文修改視窗.ShowDialog() : LB288.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB288.Location.Y : LB288.Location = New Drawing.Point(syy1, sxx)
        sxx = LB289.Location.Y : LB289.Location = New Drawing.Point(syy2, sxx) : sxx = LB290.Location.Y : LB290.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB289_移動()
        Dim sx, sxx As Integer : sx = LB289.Size.Height : sxx = LB289.Location.Y : NU4 = LB290.Location.X : LB290.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB289_Click(sender As Object, e As EventArgs) Handles LB289.Click
        PA = LB289.Text : 合約內文修改視窗.ShowDialog() : LB289.Text = PA : LB289_移動()
    End Sub
    Private Sub LB289_LocationChanged(sender As Object, e As EventArgs) Handles LB289.LocationChanged
        LB289_移動()
    End Sub
    Private Sub LB289_TextChanged(sender As Object, e As EventArgs) Handles LB289.TextChanged
        LB289_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB290_移動()
        Dim sx, sxx As Integer : sx = LB290.Size.Height : sxx = LB290.Location.Y : NU3 = LB291.Location.X : NU4 = LB292.Location.X
        LB291.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB292.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB290_Click(sender As Object, e As EventArgs) Handles LB290.Click
        PA = LB290.Text : 合約內文修改視窗.ShowDialog() : LB290.Text = PA : LB290_移動()
    End Sub
    Private Sub LB290_LocationChanged(sender As Object, e As EventArgs) Handles LB290.LocationChanged
        LB290_移動()
    End Sub
    Private Sub LB290_TextChanged(sender As Object, e As EventArgs) Handles LB290.TextChanged
        LB290_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB291_Click(sender As Object, e As EventArgs) Handles LB291.Click
        NU5 = LB291.Location.X : BL1 = True : PA = LB291.Text : 合約內文修改視窗.ShowDialog() : LB291.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB291.Location.Y : LB291.Location = New Drawing.Point(syy1, sxx)
        sxx = LB292.Location.Y : LB292.Location = New Drawing.Point(syy2, sxx) : sxx = LB293.Location.Y : LB293.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB292_移動()
        Dim sx, sxx As Integer : sx = LB292.Size.Height : sxx = LB292.Location.Y : NU4 = LB293.Location.X : LB293.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB292_Click(sender As Object, e As EventArgs) Handles LB292.Click
        PA = LB292.Text : 合約內文修改視窗.ShowDialog() : LB292.Text = PA : LB292_移動()
    End Sub
    Private Sub LB292_LocationChanged(sender As Object, e As EventArgs) Handles LB292.LocationChanged
        LB292_移動()
    End Sub
    Private Sub LB292_TextChanged(sender As Object, e As EventArgs) Handles LB292.TextChanged
        LB292_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB293_移動()
        Dim sx, sxx As Integer : sx = LB293.Size.Height : sxx = LB293.Location.Y : NU3 = LB294.Location.X : NU4 = LB295.Location.X
        LB294.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB295.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB293_Click(sender As Object, e As EventArgs) Handles LB293.Click
        PA = LB293.Text : 合約內文修改視窗.ShowDialog() : LB293.Text = PA : LB293_移動()
    End Sub
    Private Sub LB293_LocationChanged(sender As Object, e As EventArgs) Handles LB293.LocationChanged
        LB293_移動()
    End Sub
    Private Sub LB293_TextChanged(sender As Object, e As EventArgs) Handles LB293.TextChanged
        LB293_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB294_Click(sender As Object, e As EventArgs) Handles LB294.Click
        NU5 = LB294.Location.X : BL1 = True : PA = LB294.Text : 合約內文修改視窗.ShowDialog() : LB294.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB294.Location.Y : LB294.Location = New Drawing.Point(syy1, sxx)
        sxx = LB295.Location.Y : LB295.Location = New Drawing.Point(syy2, sxx) : sxx = LB296.Location.Y : LB296.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB295_移動()
        Dim sx, sxx As Integer : sx = LB295.Size.Height : sxx = LB295.Location.Y : NU4 = LB296.Location.X : LB296.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB295_Click(sender As Object, e As EventArgs) Handles LB295.Click
        PA = LB295.Text : 合約內文修改視窗.ShowDialog() : LB295.Text = PA : LB295_移動()
    End Sub
    Private Sub LB295_LocationChanged(sender As Object, e As EventArgs) Handles LB295.LocationChanged
        LB295_移動()
    End Sub
    Private Sub LB295_TextChanged(sender As Object, e As EventArgs) Handles LB295.TextChanged
        LB295_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB296_移動()
        Dim sx, sxx As Integer : sx = LB296.Size.Height : sxx = LB296.Location.Y : NU3 = LB297.Location.X : NU4 = LB298.Location.X
        LB297.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB298.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB296_Click(sender As Object, e As EventArgs) Handles LB296.Click
        PA = LB296.Text : 合約內文修改視窗.ShowDialog() : LB296.Text = PA : LB296_移動()
    End Sub
    Private Sub LB296_LocationChanged(sender As Object, e As EventArgs) Handles LB296.LocationChanged
        LB296_移動()
    End Sub
    Private Sub LB296_TextChanged(sender As Object, e As EventArgs) Handles LB296.TextChanged
        LB296_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB297_Click(sender As Object, e As EventArgs) Handles LB297.Click
        NU5 = LB297.Location.X : BL1 = True : PA = LB297.Text : 合約內文修改視窗.ShowDialog() : LB297.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB297.Location.Y : LB297.Location = New Drawing.Point(syy1, sxx)
        sxx = LB298.Location.Y : LB298.Location = New Drawing.Point(syy2, sxx) : sxx = LB299.Location.Y : LB299.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB298_移動()
        Dim sx, sxx As Integer : sx = LB298.Size.Height : sxx = LB298.Location.Y : NU4 = LB299.Location.X : LB299.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB298_Click(sender As Object, e As EventArgs) Handles LB298.Click
        PA = LB298.Text : 合約內文修改視窗.ShowDialog() : LB298.Text = PA : LB298_移動()
    End Sub
    Private Sub LB298_LocationChanged(sender As Object, e As EventArgs) Handles LB298.LocationChanged
        LB298_移動()
    End Sub
    Private Sub LB298_TextChanged(sender As Object, e As EventArgs) Handles LB298.TextChanged
        LB298_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB299_移動()
        Dim sx, sxx As Integer : sx = LB299.Size.Height : sxx = LB299.Location.Y : NU3 = LB300.Location.X : NU4 = LB301.Location.X
        LB300.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB301.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB299_Click(sender As Object, e As EventArgs) Handles LB299.Click
        PA = LB299.Text : 合約內文修改視窗.ShowDialog() : LB299.Text = PA : LB299_移動()
    End Sub
    Private Sub LB299_LocationChanged(sender As Object, e As EventArgs) Handles LB299.LocationChanged
        LB299_移動()
    End Sub
    Private Sub LB299_TextChanged(sender As Object, e As EventArgs) Handles LB299.TextChanged
        LB299_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB300_Click(sender As Object, e As EventArgs) Handles LB300.Click
        NU5 = LB300.Location.X : BL1 = True : PA = LB300.Text : 合約內文修改視窗.ShowDialog() : LB300.Text = PA : BL1 = False : NU5 = 0
        Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB300.Location.Y : LB300.Location = New Drawing.Point(syy1, sxx)
        sxx = LB301.Location.Y : LB301.Location = New Drawing.Point(syy2, sxx) : sxx = LB302.Location.Y : LB302.Location = New Drawing.Point(syy2, sxx)
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB301_移動()
        Dim sx, sxx As Integer : sx = LB301.Size.Height : sxx = LB301.Location.Y : NU4 = LB302.Location.X : LB302.Location = New Drawing.Point(NU4, sxx + sx + 10)
    End Sub
    Private Sub LB301_Click(sender As Object, e As EventArgs) Handles LB301.Click
        PA = LB301.Text : 合約內文修改視窗.ShowDialog() : LB301.Text = PA : LB301_移動()
    End Sub
    Private Sub LB301_LocationChanged(sender As Object, e As EventArgs) Handles LB301.LocationChanged
        LB301_移動()
    End Sub
    Private Sub LB301_TextChanged(sender As Object, e As EventArgs) Handles LB301.TextChanged
        LB301_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB302_Click(sender As Object, e As EventArgs) Handles LB302.Click
        PA = LB302.Text : 合約內文修改視窗.ShowDialog() : LB302.Text = PA
    End Sub
    '---------------------------第15頁----------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub LB303_Click(sender As Object, e As EventArgs) Handles LB303.Click
        PA = LB303.Text : 合約內文修改視窗.ShowDialog() : LB303.Text = PA
    End Sub
    Private Sub LB304_Click(sender As Object, e As EventArgs) Handles LB304.Click
        PA = LB304.Text : 合約內文修改視窗.ShowDialog() : LB304.Text = PA
    End Sub
    Private Sub LB305_Click(sender As Object, e As EventArgs) Handles LB305.Click
        PA = LB305.Text : 合約內文修改視窗.ShowDialog() : LB305.Text = PA
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB306_Click(sender As Object, e As EventArgs) Handles LB306.Click
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then
            NU5 = LB306.Location.X : BL1 = True : PA = LB306.Text : 合約內文修改視窗.ShowDialog() : LB306.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB306.Location.Y : LB306.Location = New Drawing.Point(syy1, sxx)
            sxx = LB307.Location.Y : LB307.Location = New Drawing.Point(syy2, sxx) : sxx = LB308.Location.Y : LB308.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB307_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB307.Size.Height : sxx = LB307.Location.Y : NU4 = LB308.Location.X : LB308.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB307_Click(sender As Object, e As EventArgs) Handles LB307.Click
        PA = LB307.Text : 合約內文修改視窗.ShowDialog() : LB307.Text = PA : LB307_移動()
    End Sub
    Private Sub LB307_LocationChanged(sender As Object, e As EventArgs) Handles LB307.LocationChanged
        LB307_移動()
    End Sub
    Private Sub LB307_TextChanged(sender As Object, e As EventArgs) Handles LB307.TextChanged
        LB307_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB308_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB308.Size.Height
            sxx = LB308.Location.Y : NU3 = LB309.Location.X : NU4 = LB310.Location.X : LB309.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB310.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB308_Click(sender As Object, e As EventArgs) Handles LB308.Click
        PA = LB308.Text : 合約內文修改視窗.ShowDialog() : LB308.Text = PA : LB308_移動()
    End Sub
    Private Sub LB308_LocationChanged(sender As Object, e As EventArgs) Handles LB308.LocationChanged
        LB308_移動()
    End Sub
    Private Sub LB308_TextChanged(sender As Object, e As EventArgs) Handles LB308.TextChanged
        LB308_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB309_Click(sender As Object, e As EventArgs) Handles LB309.Click
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then
            NU5 = LB309.Location.X : BL1 = True : PA = LB309.Text : 合約內文修改視窗.ShowDialog() : LB309.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB309.Location.Y : LB309.Location = New Drawing.Point(syy1, sxx)
            sxx = LB310.Location.Y : LB310.Location = New Drawing.Point(syy2, sxx) : sxx = LB311.Location.Y : LB311.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB310_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB310.Size.Height
            sxx = LB310.Location.Y : NU4 = LB311.Location.X : LB311.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB310_Click(sender As Object, e As EventArgs) Handles LB310.Click
        PA = LB310.Text : 合約內文修改視窗.ShowDialog() : LB310.Text = PA : LB310_移動()
    End Sub
    Private Sub LB310_LocationChanged(sender As Object, e As EventArgs) Handles LB310.LocationChanged
        LB310_移動()
    End Sub
    Private Sub LB310_TextChanged(sender As Object, e As EventArgs) Handles LB310.TextChanged
        LB310_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB311_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB311.Size.Height : sxx = LB311.Location.Y
            NU3 = LB312.Location.X : NU4 = LB313.Location.X : LB312.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB313.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB311_Click(sender As Object, e As EventArgs) Handles LB311.Click
        PA = LB311.Text : 合約內文修改視窗.ShowDialog() : LB311.Text = PA : LB311_移動()
    End Sub
    Private Sub LB311_LocationChanged(sender As Object, e As EventArgs) Handles LB311.LocationChanged
        LB311_移動()
    End Sub
    Private Sub LB311_TextChanged(sender As Object, e As EventArgs) Handles LB311.TextChanged
        LB311_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB312_Click(sender As Object, e As EventArgs) Handles LB312.Click
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then
            NU5 = LB312.Location.X : BL1 = True : PA = LB312.Text : 合約內文修改視窗.ShowDialog() : LB312.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB312.Location.Y : LB312.Location = New Drawing.Point(syy1, sxx)
            sxx = LB313.Location.Y : LB313.Location = New Drawing.Point(syy2, sxx) : sxx = LB314.Location.Y : LB314.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB313_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer
            sx = LB313.Size.Height : sxx = LB313.Location.Y : NU4 = LB314.Location.X : LB314.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB313_Click(sender As Object, e As EventArgs) Handles LB313.Click
        PA = LB313.Text : 合約內文修改視窗.ShowDialog() : LB313.Text = PA : LB313_移動()
    End Sub
    Private Sub LB313_LocationChanged(sender As Object, e As EventArgs) Handles LB313.LocationChanged
        LB313_移動()
    End Sub
    Private Sub LB313_TextChanged(sender As Object, e As EventArgs) Handles LB313.TextChanged
        LB313_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB314_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB314.Size.Height : sxx = LB314.Location.Y
            NU3 = LB315.Location.X : NU4 = LB316.Location.X : LB315.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB316.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB314_Click(sender As Object, e As EventArgs) Handles LB314.Click
        PA = LB314.Text : 合約內文修改視窗.ShowDialog() : LB314.Text = PA : LB314_移動()
    End Sub
    Private Sub LB314_LocationChanged(sender As Object, e As EventArgs) Handles LB314.LocationChanged
        LB314_移動()
    End Sub
    Private Sub LB314_TextChanged(sender As Object, e As EventArgs) Handles LB314.TextChanged
        LB314_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB315_Click(sender As Object, e As EventArgs) Handles LB315.Click
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then
            NU5 = LB315.Location.X : BL1 = True : PA = LB315.Text : 合約內文修改視窗.ShowDialog() : LB315.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB315.Location.Y : LB315.Location = New Drawing.Point(syy1, sxx)
            sxx = LB316.Location.Y : LB316.Location = New Drawing.Point(syy2, sxx) : sxx = LB317.Location.Y : LB317.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB316_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer
            sx = LB316.Size.Height : sxx = LB316.Location.Y : NU4 = LB317.Location.X : LB317.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB316_Click(sender As Object, e As EventArgs) Handles LB316.Click
        PA = LB316.Text : 合約內文修改視窗.ShowDialog() : LB316.Text = PA : LB316_移動()
    End Sub
    Private Sub LB316_LocationChanged(sender As Object, e As EventArgs) Handles LB316.LocationChanged
        LB316_移動()
    End Sub
    Private Sub LB316_TextChanged(sender As Object, e As EventArgs) Handles LB316.TextChanged
        LB316_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB317_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB317.Size.Height : sxx = LB317.Location.Y
            NU3 = LB318.Location.X : NU4 = LB319.Location.X : LB318.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB319.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB317_Click(sender As Object, e As EventArgs) Handles LB317.Click
        PA = LB317.Text : 合約內文修改視窗.ShowDialog() : LB317.Text = PA : LB317_移動()
    End Sub
    Private Sub LB317_LocationChanged(sender As Object, e As EventArgs) Handles LB317.LocationChanged
        LB317_移動()
    End Sub
    Private Sub LB317_TextChanged(sender As Object, e As EventArgs) Handles LB317.TextChanged
        LB317_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB318_Click(sender As Object, e As EventArgs) Handles LB318.Click
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then
            NU5 = LB318.Location.X : BL1 = True : PA = LB318.Text : 合約內文修改視窗.ShowDialog() : LB318.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB318.Location.Y : LB318.Location = New Drawing.Point(syy1, sxx)
            sxx = LB319.Location.Y : LB319.Location = New Drawing.Point(syy2, sxx) : sxx = LB320.Location.Y : LB320.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB319_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer
            sx = LB319.Size.Height : sxx = LB319.Location.Y : NU4 = LB320.Location.X : LB320.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB319_Click(sender As Object, e As EventArgs) Handles LB319.Click
        PA = LB319.Text : 合約內文修改視窗.ShowDialog() : LB319.Text = PA : LB319_移動()
    End Sub
    Private Sub LB319_LocationChanged(sender As Object, e As EventArgs) Handles LB319.LocationChanged
        LB319_移動()
    End Sub
    Private Sub LB319_TextChanged(sender As Object, e As EventArgs) Handles LB319.TextChanged
        LB319_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB320_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB320.Size.Height : sxx = LB320.Location.Y
            NU3 = LB321.Location.X : NU4 = LB322.Location.X : LB321.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB322.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB320_Click(sender As Object, e As EventArgs) Handles LB320.Click
        PA = LB320.Text : 合約內文修改視窗.ShowDialog() : LB320.Text = PA : LB320_移動()
    End Sub
    Private Sub LB320_LocationChanged(sender As Object, e As EventArgs) Handles LB320.LocationChanged
        LB320_移動()
    End Sub
    Private Sub LB320_TextChanged(sender As Object, e As EventArgs) Handles LB320.TextChanged
        LB320_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB321_Click(sender As Object, e As EventArgs) Handles LB321.Click
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then
            NU5 = LB321.Location.X : BL1 = True : PA = LB321.Text : 合約內文修改視窗.ShowDialog() : LB321.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB321.Location.Y : LB321.Location = New Drawing.Point(syy1, sxx)
            sxx = LB322.Location.Y : LB322.Location = New Drawing.Point(syy2, sxx) : sxx = LB323.Location.Y : LB323.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB322_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer
            sx = LB322.Size.Height : sxx = LB322.Location.Y : NU4 = LB323.Location.X : LB323.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB322_Click(sender As Object, e As EventArgs) Handles LB322.Click
        PA = LB322.Text : 合約內文修改視窗.ShowDialog() : LB322.Text = PA : LB322_移動()
    End Sub
    Private Sub LB322_LocationChanged(sender As Object, e As EventArgs) Handles LB322.LocationChanged
        LB322_移動()
    End Sub
    Private Sub LB322_TextChanged(sender As Object, e As EventArgs) Handles LB322.TextChanged
        LB322_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB323_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB323.Size.Height : sxx = LB323.Location.Y
            NU3 = LB324.Location.X : NU4 = LB325.Location.X : LB324.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB325.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB323_Click(sender As Object, e As EventArgs) Handles LB323.Click
        PA = LB323.Text : 合約內文修改視窗.ShowDialog() : LB323.Text = PA : LB323_移動()
    End Sub
    Private Sub LB323_LocationChanged(sender As Object, e As EventArgs) Handles LB323.LocationChanged
        LB323_移動()
    End Sub
    Private Sub LB323_TextChanged(sender As Object, e As EventArgs) Handles LB323.TextChanged
        LB323_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB324_Click(sender As Object, e As EventArgs) Handles LB324.Click
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then
            NU5 = LB324.Location.X : BL1 = True : PA = LB324.Text : 合約內文修改視窗.ShowDialog() : LB324.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB324.Location.Y : LB324.Location = New Drawing.Point(syy1, sxx)
            sxx = LB325.Location.Y : LB325.Location = New Drawing.Point(syy2, sxx) : sxx = LB326.Location.Y : LB326.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB325_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer
            sx = LB325.Size.Height : sxx = LB325.Location.Y : NU4 = LB326.Location.X : LB326.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB325_Click(sender As Object, e As EventArgs) Handles LB325.Click
        PA = LB325.Text : 合約內文修改視窗.ShowDialog() : LB325.Text = PA : LB325_移動()
    End Sub
    Private Sub LB325_LocationChanged(sender As Object, e As EventArgs) Handles LB325.LocationChanged
        LB325_移動()
    End Sub
    Private Sub LB325_TextChanged(sender As Object, e As EventArgs) Handles LB325.TextChanged
        LB325_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB326_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB326.Size.Height : sxx = LB326.Location.Y
            NU3 = LB327.Location.X : NU4 = LB328.Location.X : LB327.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB328.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB326_Click(sender As Object, e As EventArgs) Handles LB326.Click
        PA = LB326.Text : 合約內文修改視窗.ShowDialog() : LB326.Text = PA : LB326_移動()
    End Sub
    Private Sub LB326_LocationChanged(sender As Object, e As EventArgs) Handles LB326.LocationChanged
        LB326_移動()
    End Sub
    Private Sub LB326_TextChanged(sender As Object, e As EventArgs) Handles LB326.TextChanged
        LB326_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB327_Click(sender As Object, e As EventArgs) Handles LB327.Click
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then
            NU5 = LB327.Location.X : BL1 = True : PA = LB327.Text : 合約內文修改視窗.ShowDialog() : LB327.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB327.Location.Y : LB327.Location = New Drawing.Point(syy1, sxx)
            sxx = LB328.Location.Y : LB328.Location = New Drawing.Point(syy2, sxx) : sxx = LB329.Location.Y : LB329.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB328_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer
            sx = LB328.Size.Height : sxx = LB328.Location.Y : NU4 = LB329.Location.X : LB329.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB328_Click(sender As Object, e As EventArgs) Handles LB328.Click
        PA = LB328.Text : 合約內文修改視窗.ShowDialog() : LB328.Text = PA : LB328_移動()
    End Sub
    Private Sub LB328_LocationChanged(sender As Object, e As EventArgs) Handles LB328.LocationChanged
        LB328_移動()
    End Sub
    Private Sub LB328_TextChanged(sender As Object, e As EventArgs) Handles LB328.TextChanged
        LB328_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB329_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB329.Size.Height : sxx = LB329.Location.Y
            NU3 = LB330.Location.X : NU4 = LB331.Location.X : LB330.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB331.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB329_Click(sender As Object, e As EventArgs) Handles LB329.Click
        PA = LB329.Text : 合約內文修改視窗.ShowDialog() : LB329.Text = PA : LB329_移動()
    End Sub
    Private Sub LB329_LocationChanged(sender As Object, e As EventArgs) Handles LB329.LocationChanged
        LB329_移動()
    End Sub
    Private Sub LB329_TextChanged(sender As Object, e As EventArgs) Handles LB329.TextChanged
        LB329_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB330_Click(sender As Object, e As EventArgs) Handles LB330.Click
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then
            NU5 = LB330.Location.X : BL1 = True : PA = LB330.Text : 合約內文修改視窗.ShowDialog() : LB330.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB330.Location.Y : LB330.Location = New Drawing.Point(syy1, sxx)
            sxx = LB331.Location.Y : LB331.Location = New Drawing.Point(syy2, sxx) : sxx = LB332.Location.Y : LB332.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB331_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer
            sx = LB331.Size.Height : sxx = LB331.Location.Y : NU4 = LB332.Location.X : LB332.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB331_Click(sender As Object, e As EventArgs) Handles LB331.Click
        PA = LB331.Text : 合約內文修改視窗.ShowDialog() : LB331.Text = PA : LB331_移動()
    End Sub
    Private Sub LB331_LocationChanged(sender As Object, e As EventArgs) Handles LB331.LocationChanged
        LB331_移動()
    End Sub
    Private Sub LB331_TextChanged(sender As Object, e As EventArgs) Handles LB331.TextChanged
        LB331_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB332_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB332.Size.Height : sxx = LB332.Location.Y
            NU3 = LB333.Location.X : NU4 = LB334.Location.X : LB333.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB334.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB332_Click(sender As Object, e As EventArgs) Handles LB332.Click
        PA = LB332.Text : 合約內文修改視窗.ShowDialog() : LB332.Text = PA : LB332_移動()
    End Sub
    Private Sub LB332_LocationChanged(sender As Object, e As EventArgs) Handles LB332.LocationChanged
        LB332_移動()
    End Sub
    Private Sub LB332_TextChanged(sender As Object, e As EventArgs) Handles LB332.TextChanged
        LB332_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB333_Click(sender As Object, e As EventArgs) Handles LB333.Click
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then
            NU5 = LB333.Location.X : BL1 = True : PA = LB333.Text : 合約內文修改視窗.ShowDialog() : LB333.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB333.Location.Y : LB333.Location = New Drawing.Point(syy1, sxx)
            sxx = LB334.Location.Y : LB334.Location = New Drawing.Point(syy2, sxx) : sxx = LB335.Location.Y : LB335.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB334_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer
            sx = LB334.Size.Height : sxx = LB334.Location.Y : NU4 = LB335.Location.X : LB335.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB334_Click(sender As Object, e As EventArgs) Handles LB334.Click
        PA = LB334.Text : 合約內文修改視窗.ShowDialog() : LB334.Text = PA : LB334_移動()
    End Sub
    Private Sub LB334_LocationChanged(sender As Object, e As EventArgs) Handles LB334.LocationChanged
        LB334_移動()
    End Sub
    Private Sub LB334_TextChanged(sender As Object, e As EventArgs) Handles LB334.TextChanged
        LB334_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB335_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB335.Size.Height : sxx = LB335.Location.Y
            NU3 = LB336.Location.X : NU4 = LB337.Location.X : LB336.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB337.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB335_Click(sender As Object, e As EventArgs) Handles LB335.Click
        PA = LB335.Text : 合約內文修改視窗.ShowDialog() : LB335.Text = PA : LB335_移動()
    End Sub
    Private Sub LB335_LocationChanged(sender As Object, e As EventArgs) Handles LB335.LocationChanged
        LB335_移動()
    End Sub
    Private Sub LB335_TextChanged(sender As Object, e As EventArgs) Handles LB335.TextChanged
        LB335_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB336_Click(sender As Object, e As EventArgs) Handles LB336.Click
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then
            NU5 = LB336.Location.X : BL1 = True : PA = LB336.Text : 合約內文修改視窗.ShowDialog() : LB336.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB336.Location.Y : LB336.Location = New Drawing.Point(syy1, sxx)
            sxx = LB337.Location.Y : LB337.Location = New Drawing.Point(syy2, sxx) : sxx = LB338.Location.Y : LB338.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB337_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer
            sx = LB337.Size.Height : sxx = LB337.Location.Y : NU4 = LB338.Location.X : LB338.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB337_Click(sender As Object, e As EventArgs) Handles LB337.Click
        PA = LB337.Text : 合約內文修改視窗.ShowDialog() : LB337.Text = PA : LB337_移動()
    End Sub
    Private Sub LB337_LocationChanged(sender As Object, e As EventArgs) Handles LB337.LocationChanged
        LB337_移動()
    End Sub
    Private Sub LB337_TextChanged(sender As Object, e As EventArgs) Handles LB337.TextChanged
        LB337_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB338_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB338.Size.Height : sxx = LB338.Location.Y
            NU3 = LB339.Location.X : NU4 = LB340.Location.X : LB339.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB340.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB338_Click(sender As Object, e As EventArgs) Handles LB338.Click
        PA = LB338.Text : 合約內文修改視窗.ShowDialog() : LB338.Text = PA : LB338_移動()
    End Sub
    Private Sub LB338_LocationChanged(sender As Object, e As EventArgs) Handles LB338.LocationChanged
        LB338_移動()
    End Sub
    Private Sub LB338_TextChanged(sender As Object, e As EventArgs) Handles LB338.TextChanged
        LB338_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB339_Click(sender As Object, e As EventArgs) Handles LB339.Click
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then
            NU5 = LB339.Location.X : BL1 = True : PA = LB339.Text : 合約內文修改視窗.ShowDialog() : LB339.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB339.Location.Y : LB339.Location = New Drawing.Point(syy1, sxx)
            sxx = LB340.Location.Y : LB340.Location = New Drawing.Point(syy2, sxx) : sxx = LB341.Location.Y : LB341.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB340_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer
            sx = LB340.Size.Height : sxx = LB340.Location.Y : NU4 = LB341.Location.X : LB341.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB340_Click(sender As Object, e As EventArgs) Handles LB340.Click
        PA = LB340.Text : 合約內文修改視窗.ShowDialog() : LB340.Text = PA : LB340_移動()
    End Sub
    Private Sub LB340_LocationChanged(sender As Object, e As EventArgs) Handles LB340.LocationChanged
        LB340_移動()
    End Sub
    Private Sub LB340_TextChanged(sender As Object, e As EventArgs) Handles LB340.TextChanged
        LB340_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB341_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB341.Size.Height : sxx = LB341.Location.Y
            NU3 = LB342.Location.X : NU4 = LB343.Location.X : LB342.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB343.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB341_Click(sender As Object, e As EventArgs) Handles LB341.Click
        PA = LB341.Text : 合約內文修改視窗.ShowDialog() : LB341.Text = PA : LB341_移動()
    End Sub
    Private Sub LB341_LocationChanged(sender As Object, e As EventArgs) Handles LB341.LocationChanged
        LB341_移動()
    End Sub
    Private Sub LB341_TextChanged(sender As Object, e As EventArgs) Handles LB341.TextChanged
        LB341_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB342_Click(sender As Object, e As EventArgs) Handles LB342.Click
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then
            NU5 = LB342.Location.X : BL1 = True : PA = LB342.Text : 合約內文修改視窗.ShowDialog() : LB342.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB342.Location.Y : LB342.Location = New Drawing.Point(syy1, sxx)
            sxx = LB343.Location.Y : LB343.Location = New Drawing.Point(syy2, sxx) : sxx = LB344.Location.Y : LB344.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB343_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer
            sx = LB343.Size.Height : sxx = LB343.Location.Y : NU4 = LB344.Location.X : LB344.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB343_Click(sender As Object, e As EventArgs) Handles LB343.Click
        PA = LB343.Text : 合約內文修改視窗.ShowDialog() : LB343.Text = PA : LB343_移動()
    End Sub
    Private Sub LB343_LocationChanged(sender As Object, e As EventArgs) Handles LB343.LocationChanged
        LB343_移動()
    End Sub
    Private Sub LB343_TextChanged(sender As Object, e As EventArgs) Handles LB343.TextChanged
        LB343_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB344_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB344.Size.Height : sxx = LB344.Location.Y
            NU3 = LB345.Location.X : NU4 = LB346.Location.X : LB345.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB346.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB344_Click(sender As Object, e As EventArgs) Handles LB344.Click
        PA = LB344.Text : 合約內文修改視窗.ShowDialog() : LB344.Text = PA : LB344_移動()
    End Sub
    Private Sub LB344_LocationChanged(sender As Object, e As EventArgs) Handles LB344.LocationChanged
        LB344_移動()
    End Sub
    Private Sub LB344_TextChanged(sender As Object, e As EventArgs) Handles LB344.TextChanged
        LB344_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB345_Click(sender As Object, e As EventArgs) Handles LB345.Click
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then
            NU5 = LB345.Location.X : BL1 = True : PA = LB345.Text : 合約內文修改視窗.ShowDialog() : LB345.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB345.Location.Y : LB345.Location = New Drawing.Point(syy1, sxx)
            sxx = LB346.Location.Y : LB346.Location = New Drawing.Point(syy2, sxx) : sxx = LB347.Location.Y : LB347.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB346_移動()
        If (Val(最末頁_cb.Text) > 19 And 翻頁_nud.Value = 15) Or 自動移動 = True Then : Dim sx, sxx As Integer
            sx = LB346.Size.Height : sxx = LB346.Location.Y : NU4 = LB347.Location.X : LB347.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB346_Click(sender As Object, e As EventArgs) Handles LB346.Click
        PA = LB346.Text : 合約內文修改視窗.ShowDialog() : LB346.Text = PA : LB346_移動()
    End Sub
    Private Sub LB346_LocationChanged(sender As Object, e As EventArgs) Handles LB346.LocationChanged
        LB346_移動()
    End Sub
    Private Sub LB346_TextChanged(sender As Object, e As EventArgs) Handles LB346.TextChanged
        LB346_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB347_Click(sender As Object, e As EventArgs) Handles LB347.Click
        PA = LB347.Text : 合約內文修改視窗.ShowDialog() : LB347.Text = PA
    End Sub
    '---------------------------第14頁----------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub LB348_Click(sender As Object, e As EventArgs) Handles LB348.Click
        PA = LB348.Text : 合約內文修改視窗.ShowDialog() : LB348.Text = PA
    End Sub
    Private Sub LB349_Click(sender As Object, e As EventArgs) Handles LB349.Click
        PA = LB349.Text : 合約內文修改視窗.ShowDialog() : LB349.Text = PA
    End Sub
    Private Sub LB350_Click(sender As Object, e As EventArgs) Handles LB350.Click
        PA = LB350.Text : 合約內文修改視窗.ShowDialog() : LB350.Text = PA
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB351_Click(sender As Object, e As EventArgs) Handles LB351.Click
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then
            NU5 = LB351.Location.X : BL1 = True : PA = LB351.Text : 合約內文修改視窗.ShowDialog() : LB351.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB351.Location.Y : LB351.Location = New Drawing.Point(syy1, sxx)
            sxx = LB352.Location.Y : LB352.Location = New Drawing.Point(syy2, sxx) : sxx = LB353.Location.Y : LB353.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB352_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer
            sx = LB352.Size.Height : sxx = LB352.Location.Y : NU4 = LB353.Location.X : LB353.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB352_Click(sender As Object, e As EventArgs) Handles LB352.Click
        PA = LB352.Text : 合約內文修改視窗.ShowDialog() : LB352.Text = PA : LB352_移動()
    End Sub
    Private Sub LB352_LocationChanged(sender As Object, e As EventArgs) Handles LB352.LocationChanged
        LB352_移動()
    End Sub
    Private Sub LB352_TextChanged(sender As Object, e As EventArgs) Handles LB352.TextChanged
        LB352_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB353_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB353.Size.Height : sxx = LB353.Location.Y
            NU3 = LB354.Location.X : NU4 = LB355.Location.X : LB354.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB355.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB353_Click(sender As Object, e As EventArgs) Handles LB353.Click
        PA = LB353.Text : 合約內文修改視窗.ShowDialog() : LB353.Text = PA : LB353_移動()
    End Sub
    Private Sub LB353_LocationChanged(sender As Object, e As EventArgs) Handles LB353.LocationChanged
        LB353_移動()
    End Sub
    Private Sub LB353_TextChanged(sender As Object, e As EventArgs) Handles LB353.TextChanged
        LB353_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB354_Click(sender As Object, e As EventArgs) Handles LB354.Click
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then
            NU5 = LB354.Location.X : BL1 = True : PA = LB354.Text : 合約內文修改視窗.ShowDialog() : LB354.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB354.Location.Y : LB354.Location = New Drawing.Point(syy1, sxx)
            sxx = LB355.Location.Y : LB355.Location = New Drawing.Point(syy2, sxx) : sxx = LB356.Location.Y : LB356.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB355_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer
            sx = LB355.Size.Height : sxx = LB355.Location.Y : NU4 = LB356.Location.X : LB356.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB355_Click(sender As Object, e As EventArgs) Handles LB355.Click
        PA = LB355.Text : 合約內文修改視窗.ShowDialog() : LB355.Text = PA : LB355_移動()
    End Sub
    Private Sub LB355_LocationChanged(sender As Object, e As EventArgs) Handles LB355.LocationChanged
        LB355_移動()
    End Sub
    Private Sub LB355_TextChanged(sender As Object, e As EventArgs) Handles LB355.TextChanged
        LB355_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB356_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB356.Size.Height : sxx = LB356.Location.Y
            NU3 = LB357.Location.X : NU4 = LB358.Location.X : LB357.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB358.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB356_Click(sender As Object, e As EventArgs) Handles LB356.Click
        PA = LB356.Text : 合約內文修改視窗.ShowDialog() : LB356.Text = PA : LB356_移動()
    End Sub
    Private Sub LB356_LocationChanged(sender As Object, e As EventArgs) Handles LB356.LocationChanged
        LB356_移動()
    End Sub
    Private Sub LB356_TextChanged(sender As Object, e As EventArgs) Handles LB356.TextChanged
        LB356_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB357_Click(sender As Object, e As EventArgs) Handles LB357.Click
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then
            NU5 = LB357.Location.X : BL1 = True : PA = LB357.Text : 合約內文修改視窗.ShowDialog() : LB357.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB357.Location.Y : LB357.Location = New Drawing.Point(syy1, sxx)
            sxx = LB358.Location.Y : LB358.Location = New Drawing.Point(syy2, sxx) : sxx = LB359.Location.Y : LB359.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB358_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer
            sx = LB358.Size.Height : sxx = LB358.Location.Y : NU4 = LB359.Location.X : LB359.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB358_Click(sender As Object, e As EventArgs) Handles LB358.Click
        PA = LB358.Text : 合約內文修改視窗.ShowDialog() : LB358.Text = PA : LB358_移動()
    End Sub
    Private Sub LB358_LocationChanged(sender As Object, e As EventArgs) Handles LB358.LocationChanged
        LB358_移動()
    End Sub
    Private Sub LB358_TextChanged(sender As Object, e As EventArgs) Handles LB358.TextChanged
        LB358_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB359_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB359.Size.Height : sxx = LB359.Location.Y
            NU3 = LB360.Location.X : NU4 = LB361.Location.X : LB360.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB361.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB359_Click(sender As Object, e As EventArgs) Handles LB359.Click
        PA = LB359.Text : 合約內文修改視窗.ShowDialog() : LB359.Text = PA : LB359_移動()
    End Sub
    Private Sub LB359_LocationChanged(sender As Object, e As EventArgs) Handles LB359.LocationChanged
        LB359_移動()
    End Sub
    Private Sub LB359_TextChanged(sender As Object, e As EventArgs) Handles LB359.TextChanged
        LB359_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB360_Click(sender As Object, e As EventArgs) Handles LB360.Click
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then
            NU5 = LB360.Location.X : BL1 = True : PA = LB360.Text : 合約內文修改視窗.ShowDialog() : LB360.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB360.Location.Y : LB360.Location = New Drawing.Point(syy1, sxx)
            sxx = LB361.Location.Y : LB361.Location = New Drawing.Point(syy2, sxx) : sxx = LB362.Location.Y : LB362.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB361_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer
            sx = LB361.Size.Height : sxx = LB361.Location.Y : NU4 = LB362.Location.X : LB362.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB361_Click(sender As Object, e As EventArgs) Handles LB361.Click
        PA = LB361.Text : 合約內文修改視窗.ShowDialog() : LB361.Text = PA : LB361_移動()
    End Sub
    Private Sub LB361_LocationChanged(sender As Object, e As EventArgs) Handles LB361.LocationChanged
        LB361_移動()
    End Sub
    Private Sub LB361_TextChanged(sender As Object, e As EventArgs) Handles LB361.TextChanged
        LB361_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB362_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB362.Size.Height : sxx = LB362.Location.Y
            NU3 = LB363.Location.X : NU4 = LB364.Location.X : LB363.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB364.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB362_Click(sender As Object, e As EventArgs) Handles LB362.Click
        PA = LB362.Text : 合約內文修改視窗.ShowDialog() : LB362.Text = PA : LB362_移動()
    End Sub
    Private Sub LB362_LocationChanged(sender As Object, e As EventArgs) Handles LB362.LocationChanged
        LB362_移動()
    End Sub
    Private Sub LB362_TextChanged(sender As Object, e As EventArgs) Handles LB362.TextChanged
        LB362_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB363_Click(sender As Object, e As EventArgs) Handles LB363.Click
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then
            NU5 = LB363.Location.X : BL1 = True : PA = LB363.Text : 合約內文修改視窗.ShowDialog() : LB363.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB363.Location.Y : LB363.Location = New Drawing.Point(syy1, sxx)
            sxx = LB364.Location.Y : LB364.Location = New Drawing.Point(syy2, sxx) : sxx = LB365.Location.Y : LB365.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB364_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer
            sx = LB364.Size.Height : sxx = LB364.Location.Y : NU4 = LB365.Location.X : LB365.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB364_Click(sender As Object, e As EventArgs) Handles LB364.Click
        PA = LB364.Text : 合約內文修改視窗.ShowDialog() : LB364.Text = PA : LB364_移動()
    End Sub
    Private Sub LB364_LocationChanged(sender As Object, e As EventArgs) Handles LB364.LocationChanged
        LB364_移動()
    End Sub
    Private Sub LB364_TextChanged(sender As Object, e As EventArgs) Handles LB364.TextChanged
        LB364_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB365_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB365.Size.Height : sxx = LB365.Location.Y
            NU3 = LB366.Location.X : NU4 = LB367.Location.X : LB366.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB367.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB365_Click(sender As Object, e As EventArgs) Handles LB365.Click
        PA = LB365.Text : 合約內文修改視窗.ShowDialog() : LB365.Text = PA : LB365_移動()
    End Sub
    Private Sub LB365_LocationChanged(sender As Object, e As EventArgs) Handles LB365.LocationChanged
        LB365_移動()
    End Sub
    Private Sub LB365_TextChanged(sender As Object, e As EventArgs) Handles LB365.TextChanged
        LB365_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB366_Click(sender As Object, e As EventArgs) Handles LB366.Click
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then
            NU5 = LB366.Location.X : BL1 = True : PA = LB366.Text : 合約內文修改視窗.ShowDialog() : LB366.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB366.Location.Y : LB366.Location = New Drawing.Point(syy1, sxx)
            sxx = LB367.Location.Y : LB367.Location = New Drawing.Point(syy2, sxx) : sxx = LB368.Location.Y : LB368.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB367_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer
            sx = LB367.Size.Height : sxx = LB367.Location.Y : NU4 = LB368.Location.X : LB368.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB367_Click(sender As Object, e As EventArgs) Handles LB367.Click
        PA = LB367.Text : 合約內文修改視窗.ShowDialog() : LB367.Text = PA : LB367_移動()
    End Sub
    Private Sub LB367_LocationChanged(sender As Object, e As EventArgs) Handles LB367.LocationChanged
        LB367_移動()
    End Sub
    Private Sub LB367_TextChanged(sender As Object, e As EventArgs) Handles LB367.TextChanged
        LB367_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB368_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB368.Size.Height : sxx = LB368.Location.Y
            NU3 = LB369.Location.X : NU4 = LB370.Location.X : LB369.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB370.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB368_Click(sender As Object, e As EventArgs) Handles LB368.Click
        PA = LB368.Text : 合約內文修改視窗.ShowDialog() : LB368.Text = PA : LB368_移動()
    End Sub
    Private Sub LB368_LocationChanged(sender As Object, e As EventArgs) Handles LB368.LocationChanged
        LB368_移動()
    End Sub
    Private Sub LB368_TextChanged(sender As Object, e As EventArgs) Handles LB368.TextChanged
        LB368_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB369_Click(sender As Object, e As EventArgs) Handles LB369.Click
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then
            NU5 = LB369.Location.X : BL1 = True : PA = LB369.Text : 合約內文修改視窗.ShowDialog() : LB369.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB369.Location.Y : LB369.Location = New Drawing.Point(syy1, sxx)
            sxx = LB370.Location.Y : LB370.Location = New Drawing.Point(syy2, sxx) : sxx = LB371.Location.Y : LB371.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB370_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer
            sx = LB370.Size.Height : sxx = LB370.Location.Y : NU4 = LB371.Location.X : LB371.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB370_Click(sender As Object, e As EventArgs) Handles LB370.Click
        PA = LB370.Text : 合約內文修改視窗.ShowDialog() : LB370.Text = PA : LB370_移動()
    End Sub
    Private Sub LB370_LocationChanged(sender As Object, e As EventArgs) Handles LB370.LocationChanged
        LB370_移動()
    End Sub
    Private Sub LB370_TextChanged(sender As Object, e As EventArgs) Handles LB370.TextChanged
        LB370_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB371_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB371.Size.Height : sxx = LB371.Location.Y
            NU3 = LB372.Location.X : NU4 = LB373.Location.X : LB372.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB373.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB371_Click(sender As Object, e As EventArgs) Handles LB371.Click
        PA = LB371.Text : 合約內文修改視窗.ShowDialog() : LB371.Text = PA : LB371_移動()
    End Sub
    Private Sub LB371_LocationChanged(sender As Object, e As EventArgs) Handles LB371.LocationChanged
        LB371_移動()
    End Sub
    Private Sub LB371_TextChanged(sender As Object, e As EventArgs) Handles LB371.TextChanged
        LB371_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB372_Click(sender As Object, e As EventArgs) Handles LB372.Click
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then
            NU5 = LB372.Location.X : BL1 = True : PA = LB372.Text : 合約內文修改視窗.ShowDialog() : LB372.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB372.Location.Y : LB372.Location = New Drawing.Point(syy1, sxx)
            sxx = LB373.Location.Y : LB373.Location = New Drawing.Point(syy2, sxx) : sxx = LB374.Location.Y : LB374.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB373_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB373.Size.Height : sxx = LB373.Location.Y : NU4 = LB374.Location.X : LB374.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB373_Click(sender As Object, e As EventArgs) Handles LB373.Click
        PA = LB373.Text : 合約內文修改視窗.ShowDialog() : LB373.Text = PA : LB373_移動()
    End Sub
    Private Sub LB373_LocationChanged(sender As Object, e As EventArgs) Handles LB373.LocationChanged
        LB373_移動()
    End Sub
    Private Sub LB373_TextChanged(sender As Object, e As EventArgs) Handles LB373.TextChanged
        LB373_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB374_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB374.Size.Height : sxx = LB374.Location.Y
            NU3 = LB375.Location.X : NU4 = LB376.Location.X : LB375.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB376.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB374_Click(sender As Object, e As EventArgs) Handles LB374.Click
        PA = LB374.Text : 合約內文修改視窗.ShowDialog() : LB374.Text = PA : LB374_移動()
    End Sub
    Private Sub LB374_LocationChanged(sender As Object, e As EventArgs) Handles LB374.LocationChanged
        LB374_移動()
    End Sub
    Private Sub LB374_TextChanged(sender As Object, e As EventArgs) Handles LB374.TextChanged
        LB374_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB375_Click(sender As Object, e As EventArgs) Handles LB375.Click
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then
            NU5 = LB375.Location.X : BL1 = True : PA = LB375.Text : 合約內文修改視窗.ShowDialog() : LB375.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB375.Location.Y : LB375.Location = New Drawing.Point(syy1, sxx)
            sxx = LB376.Location.Y : LB376.Location = New Drawing.Point(syy2, sxx) : sxx = LB377.Location.Y : LB377.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB376_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB376.Size.Height : sxx = LB376.Location.Y : NU4 = LB377.Location.X : LB377.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB376_Click(sender As Object, e As EventArgs) Handles LB376.Click
        PA = LB376.Text : 合約內文修改視窗.ShowDialog() : LB376.Text = PA : LB376_移動()
    End Sub
    Private Sub LB376_LocationChanged(sender As Object, e As EventArgs) Handles LB376.LocationChanged
        LB376_移動()
    End Sub
    Private Sub LB376_TextChanged(sender As Object, e As EventArgs) Handles LB376.TextChanged
        LB376_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB377_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB377.Size.Height : sxx = LB377.Location.Y
            NU3 = LB378.Location.X : NU4 = LB379.Location.X : LB378.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB379.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB377_Click(sender As Object, e As EventArgs) Handles LB377.Click
        PA = LB377.Text : 合約內文修改視窗.ShowDialog() : LB377.Text = PA : LB377_移動()
    End Sub
    Private Sub LB377_LocationChanged(sender As Object, e As EventArgs) Handles LB377.LocationChanged
        LB377_移動()
    End Sub
    Private Sub LB377_TextChanged(sender As Object, e As EventArgs) Handles LB377.TextChanged
        LB377_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB378_Click(sender As Object, e As EventArgs) Handles LB378.Click
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then
            NU5 = LB378.Location.X : BL1 = True : PA = LB378.Text : 合約內文修改視窗.ShowDialog() : LB378.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB378.Location.Y : LB378.Location = New Drawing.Point(syy1, sxx)
            sxx = LB379.Location.Y : LB379.Location = New Drawing.Point(syy2, sxx) : sxx = LB380.Location.Y : LB380.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB379_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB379.Size.Height : sxx = LB379.Location.Y : NU4 = LB380.Location.X : LB380.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB379_Click(sender As Object, e As EventArgs) Handles LB379.Click
        PA = LB379.Text : 合約內文修改視窗.ShowDialog() : LB379.Text = PA : LB379_移動()
    End Sub
    Private Sub LB379_LocationChanged(sender As Object, e As EventArgs) Handles LB379.LocationChanged
        LB379_移動()
    End Sub
    Private Sub LB379_TextChanged(sender As Object, e As EventArgs) Handles LB379.TextChanged
        LB379_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB380_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB380.Size.Height : sxx = LB380.Location.Y
            NU3 = LB381.Location.X : NU4 = LB382.Location.X : LB381.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB382.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB380_Click(sender As Object, e As EventArgs) Handles LB380.Click
        PA = LB380.Text : 合約內文修改視窗.ShowDialog() : LB380.Text = PA : LB380_移動()
    End Sub
    Private Sub LB380_LocationChanged(sender As Object, e As EventArgs) Handles LB380.LocationChanged
        LB380_移動()
    End Sub
    Private Sub LB380_TextChanged(sender As Object, e As EventArgs) Handles LB380.TextChanged
        LB380_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB381_Click(sender As Object, e As EventArgs) Handles LB381.Click
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then
            NU5 = LB381.Location.X : BL1 = True : PA = LB381.Text : 合約內文修改視窗.ShowDialog() : LB381.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB381.Location.Y : LB381.Location = New Drawing.Point(syy1, sxx)
            sxx = LB382.Location.Y : LB382.Location = New Drawing.Point(syy2, sxx) : sxx = LB383.Location.Y : LB383.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB382_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB382.Size.Height : sxx = LB382.Location.Y : NU4 = LB383.Location.X : LB383.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB382_Click(sender As Object, e As EventArgs) Handles LB382.Click
        PA = LB382.Text : 合約內文修改視窗.ShowDialog() : LB382.Text = PA : LB382_移動()
    End Sub
    Private Sub LB382_LocationChanged(sender As Object, e As EventArgs) Handles LB382.LocationChanged
        LB382_移動()
    End Sub
    Private Sub LB382_TextChanged(sender As Object, e As EventArgs) Handles LB382.TextChanged
        LB382_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB383_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB383.Size.Height : sxx = LB383.Location.Y
            NU3 = LB384.Location.X : NU4 = LB385.Location.X : LB384.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB385.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB383_Click(sender As Object, e As EventArgs) Handles LB383.Click
        PA = LB383.Text : 合約內文修改視窗.ShowDialog() : LB383.Text = PA : LB383_移動()
    End Sub
    Private Sub LB383_LocationChanged(sender As Object, e As EventArgs) Handles LB383.LocationChanged
        LB383_移動()
    End Sub
    Private Sub LB383_TextChanged(sender As Object, e As EventArgs) Handles LB383.TextChanged
        LB383_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB384_Click(sender As Object, e As EventArgs) Handles LB384.Click
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then
            NU5 = LB384.Location.X : BL1 = True : PA = LB384.Text : 合約內文修改視窗.ShowDialog() : LB384.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB384.Location.Y : LB384.Location = New Drawing.Point(syy1, sxx)
            sxx = LB385.Location.Y : LB385.Location = New Drawing.Point(syy2, sxx) : sxx = LB386.Location.Y : LB386.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB385_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB385.Size.Height : sxx = LB385.Location.Y : NU4 = LB386.Location.X : LB386.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB385_Click(sender As Object, e As EventArgs) Handles LB385.Click
        PA = LB385.Text : 合約內文修改視窗.ShowDialog() : LB385.Text = PA : LB385_移動()
    End Sub
    Private Sub LB385_LocationChanged(sender As Object, e As EventArgs) Handles LB385.LocationChanged
        LB385_移動()
    End Sub
    Private Sub LB385_TextChanged(sender As Object, e As EventArgs) Handles LB385.TextChanged
        LB385_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB386_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB386.Size.Height : sxx = LB386.Location.Y
            NU3 = LB387.Location.X : NU4 = LB388.Location.X : LB387.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB388.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB386_Click(sender As Object, e As EventArgs) Handles LB386.Click
        PA = LB386.Text : 合約內文修改視窗.ShowDialog() : LB386.Text = PA : LB386_移動()
    End Sub
    Private Sub LB386_LocationChanged(sender As Object, e As EventArgs) Handles LB386.LocationChanged
        LB386_移動()
    End Sub
    Private Sub LB386_TextChanged(sender As Object, e As EventArgs) Handles LB386.TextChanged
        LB386_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB387_Click(sender As Object, e As EventArgs) Handles LB387.Click
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then
            NU5 = LB387.Location.X : BL1 = True : PA = LB387.Text : 合約內文修改視窗.ShowDialog() : LB387.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB387.Location.Y : LB387.Location = New Drawing.Point(syy1, sxx)
            sxx = LB388.Location.Y : LB388.Location = New Drawing.Point(syy2, sxx) : sxx = LB389.Location.Y : LB389.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB388_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB388.Size.Height : sxx = LB388.Location.Y : NU4 = LB389.Location.X : LB389.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB388_Click(sender As Object, e As EventArgs) Handles LB388.Click
        PA = LB388.Text : 合約內文修改視窗.ShowDialog() : LB388.Text = PA : LB388_移動()
    End Sub
    Private Sub LB388_LocationChanged(sender As Object, e As EventArgs) Handles LB388.LocationChanged
        LB388_移動()
    End Sub
    Private Sub LB388_TextChanged(sender As Object, e As EventArgs) Handles LB388.TextChanged
        LB388_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB389_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB389.Size.Height : sxx = LB389.Location.Y
            NU3 = LB390.Location.X : NU4 = LB391.Location.X : LB390.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB391.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB389_Click(sender As Object, e As EventArgs) Handles LB389.Click
        PA = LB389.Text : 合約內文修改視窗.ShowDialog() : LB389.Text = PA : LB389_移動()
    End Sub
    Private Sub LB389_LocationChanged(sender As Object, e As EventArgs) Handles LB389.LocationChanged
        LB389_移動()
    End Sub
    Private Sub LB389_TextChanged(sender As Object, e As EventArgs) Handles LB389.TextChanged
        LB389_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB390_Click(sender As Object, e As EventArgs) Handles LB390.Click
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then
            NU5 = LB390.Location.X : BL1 = True : PA = LB390.Text : 合約內文修改視窗.ShowDialog() : LB390.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB390.Location.Y : LB390.Location = New Drawing.Point(syy1, sxx)
            sxx = LB391.Location.Y : LB391.Location = New Drawing.Point(syy2, sxx) : sxx = LB392.Location.Y : LB392.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB391_移動()
        If (Val(最末頁_cb.Text) > 18 And 翻頁_nud.Value = 14) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB391.Size.Height : sxx = LB391.Location.Y : NU4 = LB392.Location.X : LB392.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB391_Click(sender As Object, e As EventArgs) Handles LB391.Click
        PA = LB391.Text : 合約內文修改視窗.ShowDialog() : LB391.Text = PA : LB391_移動()
    End Sub
    Private Sub LB391_LocationChanged(sender As Object, e As EventArgs) Handles LB391.LocationChanged
        LB391_移動()
    End Sub
    Private Sub LB391_TextChanged(sender As Object, e As EventArgs) Handles LB391.TextChanged
        LB391_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB392_Click(sender As Object, e As EventArgs) Handles LB392.Click
        PA = LB392.Text : 合約內文修改視窗.ShowDialog() : LB392.Text = PA
    End Sub
    '---------------------------第13頁----------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub LB393_Click(sender As Object, e As EventArgs) Handles LB393.Click
        PA = LB393.Text : 合約內文修改視窗.ShowDialog() : LB393.Text = PA
    End Sub
    Private Sub LB394_Click(sender As Object, e As EventArgs) Handles LB394.Click
        PA = LB394.Text : 合約內文修改視窗.ShowDialog() : LB394.Text = PA
    End Sub
    Private Sub LB395_Click(sender As Object, e As EventArgs) Handles LB395.Click
        PA = LB395.Text : 合約內文修改視窗.ShowDialog() : LB395.Text = PA
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB396_Click(sender As Object, e As EventArgs) Handles LB396.Click
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            NU5 = LB396.Location.X : BL1 = True : PA = LB396.Text : 合約內文修改視窗.ShowDialog() : LB396.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB396.Location.Y : LB396.Location = New Drawing.Point(syy1, sxx)
            sxx = LB397.Location.Y : LB397.Location = New Drawing.Point(syy2, sxx) : sxx = LB398.Location.Y : LB398.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB397_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB397.Size.Height : sxx = LB397.Location.Y : NU4 = LB398.Location.X : LB398.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB397_Click(sender As Object, e As EventArgs) Handles LB397.Click
        PA = LB397.Text : 合約內文修改視窗.ShowDialog() : LB397.Text = PA : LB397_移動()
    End Sub
    Private Sub LB397_LocationChanged(sender As Object, e As EventArgs) Handles LB397.LocationChanged
        LB397_移動()
    End Sub
    Private Sub LB397_TextChanged(sender As Object, e As EventArgs) Handles LB397.TextChanged
        LB397_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB398_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB398.Size.Height : sxx = LB398.Location.Y
            NU3 = LB399.Location.X : NU4 = LB400.Location.X : LB399.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB400.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB398_Click(sender As Object, e As EventArgs) Handles LB398.Click
        PA = LB398.Text : 合約內文修改視窗.ShowDialog() : LB398.Text = PA : LB398_移動()
    End Sub
    Private Sub LB398_LocationChanged(sender As Object, e As EventArgs) Handles LB398.LocationChanged
        LB398_移動()
    End Sub
    Private Sub LB398_TextChanged(sender As Object, e As EventArgs) Handles LB398.TextChanged
        LB398_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB399_Click(sender As Object, e As EventArgs) Handles LB399.Click
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            NU5 = LB399.Location.X : BL1 = True : PA = LB399.Text : 合約內文修改視窗.ShowDialog() : LB399.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB399.Location.Y : LB399.Location = New Drawing.Point(syy1, sxx)
            sxx = LB400.Location.Y : LB400.Location = New Drawing.Point(syy2, sxx) : sxx = LB401.Location.Y : LB401.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB400_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB400.Size.Height : sxx = LB400.Location.Y : NU4 = LB401.Location.X : LB401.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB400_Click(sender As Object, e As EventArgs) Handles LB400.Click
        PA = LB400.Text : 合約內文修改視窗.ShowDialog() : LB400.Text = PA : LB400_移動()
    End Sub
    Private Sub LB400_LocationChanged(sender As Object, e As EventArgs) Handles LB400.LocationChanged
        LB400_移動()
    End Sub
    Private Sub LB400_TextChanged(sender As Object, e As EventArgs) Handles LB400.TextChanged
        LB400_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB401_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB401.Size.Height : sxx = LB401.Location.Y
            NU3 = LB402.Location.X : NU4 = LB403.Location.X : LB402.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB403.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB401_Click(sender As Object, e As EventArgs) Handles LB401.Click
        PA = LB401.Text : 合約內文修改視窗.ShowDialog() : LB401.Text = PA : LB401_移動()
    End Sub
    Private Sub LB401_LocationChanged(sender As Object, e As EventArgs) Handles LB401.LocationChanged
        LB401_移動()
    End Sub
    Private Sub LB401_TextChanged(sender As Object, e As EventArgs) Handles LB401.TextChanged
        LB401_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB402_Click(sender As Object, e As EventArgs) Handles LB402.Click
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            NU5 = LB402.Location.X : BL1 = True : PA = LB402.Text : 合約內文修改視窗.ShowDialog() : LB402.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB402.Location.Y : LB402.Location = New Drawing.Point(syy1, sxx)
            sxx = LB403.Location.Y : LB403.Location = New Drawing.Point(syy2, sxx) : sxx = LB404.Location.Y : LB404.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB403_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB403.Size.Height : sxx = LB403.Location.Y : NU4 = LB404.Location.X : LB404.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB403_Click(sender As Object, e As EventArgs) Handles LB403.Click
        PA = LB403.Text : 合約內文修改視窗.ShowDialog() : LB403.Text = PA : LB403_移動()
    End Sub
    Private Sub LB403_LocationChanged(sender As Object, e As EventArgs) Handles LB403.LocationChanged
        LB403_移動()
    End Sub
    Private Sub LB403_TextChanged(sender As Object, e As EventArgs) Handles LB403.TextChanged
        LB403_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB404_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB404.Size.Height : sxx = LB404.Location.Y
            NU3 = LB405.Location.X : NU4 = LB406.Location.X : LB405.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB406.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB404_Click(sender As Object, e As EventArgs) Handles LB404.Click
        PA = LB404.Text : 合約內文修改視窗.ShowDialog() : LB404.Text = PA : LB404_移動()
    End Sub
    Private Sub LB404_LocationChanged(sender As Object, e As EventArgs) Handles LB404.LocationChanged
        LB404_移動()
    End Sub
    Private Sub LB404_TextChanged(sender As Object, e As EventArgs) Handles LB404.TextChanged
        LB404_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB405_Click(sender As Object, e As EventArgs) Handles LB405.Click
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            NU5 = LB405.Location.X : BL1 = True : PA = LB405.Text : 合約內文修改視窗.ShowDialog() : LB405.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB405.Location.Y : LB405.Location = New Drawing.Point(syy1, sxx)
            sxx = LB406.Location.Y : LB406.Location = New Drawing.Point(syy2, sxx) : sxx = LB407.Location.Y : LB407.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB406_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB406.Size.Height : sxx = LB406.Location.Y : NU4 = LB407.Location.X : LB407.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB406_Click(sender As Object, e As EventArgs) Handles LB406.Click
        PA = LB406.Text : 合約內文修改視窗.ShowDialog() : LB406.Text = PA : LB406_移動()
    End Sub
    Private Sub LB406_LocationChanged(sender As Object, e As EventArgs) Handles LB406.LocationChanged
        LB406_移動()
    End Sub
    Private Sub LB406_TextChanged(sender As Object, e As EventArgs) Handles LB406.TextChanged
        LB406_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB407_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB407.Size.Height : sxx = LB407.Location.Y
            NU3 = LB408.Location.X : NU4 = LB409.Location.X : LB408.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB409.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB407_Click(sender As Object, e As EventArgs) Handles LB407.Click
        PA = LB407.Text : 合約內文修改視窗.ShowDialog() : LB407.Text = PA : LB407_移動()
    End Sub
    Private Sub LB407_LocationChanged(sender As Object, e As EventArgs) Handles LB407.LocationChanged
        LB407_移動()
    End Sub
    Private Sub LB407_TextChanged(sender As Object, e As EventArgs) Handles LB407.TextChanged
        LB407_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB408_Click(sender As Object, e As EventArgs) Handles LB408.Click
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            NU5 = LB408.Location.X : BL1 = True : PA = LB408.Text : 合約內文修改視窗.ShowDialog() : LB408.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB408.Location.Y : LB408.Location = New Drawing.Point(syy1, sxx)
            sxx = LB409.Location.Y : LB409.Location = New Drawing.Point(syy2, sxx) : sxx = LB410.Location.Y : LB410.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB409_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB409.Size.Height : sxx = LB409.Location.Y : NU4 = LB410.Location.X : LB410.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB409_Click(sender As Object, e As EventArgs) Handles LB409.Click
        PA = LB409.Text : 合約內文修改視窗.ShowDialog() : LB409.Text = PA : LB409_移動()
    End Sub
    Private Sub LB409_LocationChanged(sender As Object, e As EventArgs) Handles LB409.LocationChanged
        LB409_移動()
    End Sub
    Private Sub LB409_TextChanged(sender As Object, e As EventArgs) Handles LB409.TextChanged
        LB409_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB410_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB410.Size.Height : sxx = LB410.Location.Y
            NU3 = LB411.Location.X : NU4 = LB412.Location.X : LB411.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB412.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB410_Click(sender As Object, e As EventArgs) Handles LB410.Click
        PA = LB410.Text : 合約內文修改視窗.ShowDialog() : LB410.Text = PA : LB410_移動()
    End Sub
    Private Sub LB410_LocationChanged(sender As Object, e As EventArgs) Handles LB410.LocationChanged
        LB410_移動()
    End Sub
    Private Sub LB410_TextChanged(sender As Object, e As EventArgs) Handles LB410.TextChanged
        LB410_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB411_Click(sender As Object, e As EventArgs) Handles LB411.Click
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            NU5 = LB411.Location.X : BL1 = True : PA = LB411.Text : 合約內文修改視窗.ShowDialog() : LB411.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB411.Location.Y : LB411.Location = New Drawing.Point(syy1, sxx)
            sxx = LB412.Location.Y : LB412.Location = New Drawing.Point(syy2, sxx) : sxx = LB413.Location.Y : LB413.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB412_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB412.Size.Height : sxx = LB412.Location.Y : NU4 = LB413.Location.X : LB413.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB412_Click(sender As Object, e As EventArgs) Handles LB412.Click
        PA = LB412.Text : 合約內文修改視窗.ShowDialog() : LB412.Text = PA : LB412_移動()
    End Sub
    Private Sub LB412_LocationChanged(sender As Object, e As EventArgs) Handles LB412.LocationChanged
        LB412_移動()
    End Sub
    Private Sub LB412_TextChanged(sender As Object, e As EventArgs) Handles LB412.TextChanged
        LB412_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB413_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB413.Size.Height : sxx = LB413.Location.Y
            NU3 = LB414.Location.X : NU4 = LB415.Location.X : LB414.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB415.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB413_Click(sender As Object, e As EventArgs) Handles LB413.Click
        PA = LB413.Text : 合約內文修改視窗.ShowDialog() : LB413.Text = PA : LB413_移動()
    End Sub
    Private Sub LB413_LocationChanged(sender As Object, e As EventArgs) Handles LB413.LocationChanged
        LB413_移動()
    End Sub
    Private Sub LB413_TextChanged(sender As Object, e As EventArgs) Handles LB413.TextChanged
        LB413_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB414_Click(sender As Object, e As EventArgs) Handles LB414.Click
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            NU5 = LB414.Location.X : BL1 = True : PA = LB414.Text : 合約內文修改視窗.ShowDialog() : LB414.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB414.Location.Y : LB414.Location = New Drawing.Point(syy1, sxx)
            sxx = LB415.Location.Y : LB415.Location = New Drawing.Point(syy2, sxx) : sxx = LB416.Location.Y : LB416.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB415_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB415.Size.Height : sxx = LB415.Location.Y : NU4 = LB416.Location.X : LB416.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB415_Click(sender As Object, e As EventArgs) Handles LB415.Click
        PA = LB415.Text : 合約內文修改視窗.ShowDialog() : LB415.Text = PA : LB415_移動()
    End Sub
    Private Sub LB415_LocationChanged(sender As Object, e As EventArgs) Handles LB415.LocationChanged
        LB415_移動()
    End Sub
    Private Sub LB415_TextChanged(sender As Object, e As EventArgs) Handles LB415.TextChanged
        LB415_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB416_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB416.Size.Height : sxx = LB416.Location.Y
            NU3 = LB417.Location.X : NU4 = LB418.Location.X : LB417.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB418.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB416_Click(sender As Object, e As EventArgs) Handles LB416.Click
        PA = LB416.Text : 合約內文修改視窗.ShowDialog() : LB416.Text = PA : LB416_移動()
    End Sub
    Private Sub LB416_LocationChanged(sender As Object, e As EventArgs) Handles LB416.LocationChanged
        LB416_移動()
    End Sub
    Private Sub LB416_TextChanged(sender As Object, e As EventArgs) Handles LB416.TextChanged
        LB416_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB417_Click(sender As Object, e As EventArgs) Handles LB417.Click
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            NU5 = LB417.Location.X : BL1 = True : PA = LB417.Text : 合約內文修改視窗.ShowDialog() : LB417.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB417.Location.Y : LB417.Location = New Drawing.Point(syy1, sxx)
            sxx = LB418.Location.Y : LB418.Location = New Drawing.Point(syy2, sxx) : sxx = LB419.Location.Y : LB419.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB418_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB418.Size.Height : sxx = LB418.Location.Y : NU4 = LB419.Location.X : LB419.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB418_Click(sender As Object, e As EventArgs) Handles LB418.Click
        PA = LB418.Text : 合約內文修改視窗.ShowDialog() : LB418.Text = PA : LB418_移動()
    End Sub
    Private Sub LB418_LocationChanged(sender As Object, e As EventArgs) Handles LB418.LocationChanged
        LB418_移動()
    End Sub
    Private Sub LB418_TextChanged(sender As Object, e As EventArgs) Handles LB418.TextChanged
        LB418_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB419_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB419.Size.Height : sxx = LB419.Location.Y : NU3 = LB420.Location.X : NU4 = LB421.Location.X
            LB420.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB421.Location = New Drawing.Point(NU4, sxx + sx + 10)
        End If
    End Sub
    Private Sub LB419_Click(sender As Object, e As EventArgs) Handles LB419.Click
        PA = LB419.Text : 合約內文修改視窗.ShowDialog() : LB419.Text = PA : LB419_移動()
    End Sub
    Private Sub LB419_LocationChanged(sender As Object, e As EventArgs) Handles LB419.LocationChanged
        LB419_移動()
    End Sub
    Private Sub LB419_TextChanged(sender As Object, e As EventArgs) Handles LB419.TextChanged
        LB419_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB420_Click(sender As Object, e As EventArgs) Handles LB420.Click
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            NU5 = LB420.Location.X : BL1 = True : PA = LB420.Text : 合約內文修改視窗.ShowDialog() : LB420.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB420.Location.Y : LB420.Location = New Drawing.Point(syy1, sxx)
            sxx = LB421.Location.Y : LB421.Location = New Drawing.Point(syy2, sxx) : sxx = LB422.Location.Y : LB422.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB421_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB421.Size.Height : sxx = LB421.Location.Y : NU4 = LB422.Location.X : LB422.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB421_Click(sender As Object, e As EventArgs) Handles LB421.Click
        PA = LB421.Text : 合約內文修改視窗.ShowDialog() : LB421.Text = PA : LB421_移動()
    End Sub
    Private Sub LB421_LocationChanged(sender As Object, e As EventArgs) Handles LB421.LocationChanged
        LB421_移動()
    End Sub
    Private Sub LB421_TextChanged(sender As Object, e As EventArgs) Handles LB421.TextChanged
        LB421_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB422_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB422.Size.Height : sxx = LB422.Location.Y : NU3 = LB423.Location.X : NU4 = LB424.Location.X
            LB423.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB424.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB422_Click(sender As Object, e As EventArgs) Handles LB422.Click
        PA = LB422.Text : 合約內文修改視窗.ShowDialog() : LB422.Text = PA : LB422_移動()
    End Sub
    Private Sub LB422_LocationChanged(sender As Object, e As EventArgs) Handles LB422.LocationChanged
        LB422_移動()
    End Sub
    Private Sub LB422_TextChanged(sender As Object, e As EventArgs) Handles LB422.TextChanged
        LB422_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB423_Click(sender As Object, e As EventArgs) Handles LB423.Click
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            NU5 = LB423.Location.X : BL1 = True : PA = LB423.Text : 合約內文修改視窗.ShowDialog() : LB423.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB423.Location.Y : LB423.Location = New Drawing.Point(syy1, sxx)
            sxx = LB424.Location.Y : LB424.Location = New Drawing.Point(syy2, sxx) : sxx = LB425.Location.Y : LB425.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB424_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB424.Size.Height : sxx = LB424.Location.Y : NU4 = LB425.Location.X : LB425.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB424_Click(sender As Object, e As EventArgs) Handles LB424.Click
        PA = LB424.Text : 合約內文修改視窗.ShowDialog() : LB424.Text = PA : LB424_移動()
    End Sub
    Private Sub LB424_LocationChanged(sender As Object, e As EventArgs) Handles LB424.LocationChanged
        LB424_移動()
    End Sub
    Private Sub LB424_TextChanged(sender As Object, e As EventArgs) Handles LB424.TextChanged
        LB424_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB425_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB425.Size.Height : sxx = LB425.Location.Y : NU3 = LB426.Location.X : NU4 = LB427.Location.X
            LB426.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB427.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB425_Click(sender As Object, e As EventArgs) Handles LB425.Click
        PA = LB425.Text : 合約內文修改視窗.ShowDialog() : LB425.Text = PA : LB425_移動()
    End Sub
    Private Sub LB425_LocationChanged(sender As Object, e As EventArgs) Handles LB425.LocationChanged
        LB425_移動()
    End Sub
    Private Sub LB425_TextChanged(sender As Object, e As EventArgs) Handles LB425.TextChanged
        LB425_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB426_Click(sender As Object, e As EventArgs) Handles LB426.Click
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            NU5 = LB426.Location.X : BL1 = True : PA = LB426.Text : 合約內文修改視窗.ShowDialog() : LB426.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB426.Location.Y : LB426.Location = New Drawing.Point(syy1, sxx)
            sxx = LB427.Location.Y : LB427.Location = New Drawing.Point(syy2, sxx) : sxx = LB428.Location.Y : LB428.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB427_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB427.Size.Height : sxx = LB427.Location.Y : NU4 = LB428.Location.X : LB428.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB427_Click(sender As Object, e As EventArgs) Handles LB427.Click
        PA = LB427.Text : 合約內文修改視窗.ShowDialog() : LB427.Text = PA : LB427_移動()
    End Sub
    Private Sub LB427_LocationChanged(sender As Object, e As EventArgs) Handles LB427.LocationChanged
        LB427_移動()
    End Sub
    Private Sub LB427_TextChanged(sender As Object, e As EventArgs) Handles LB427.TextChanged
        LB427_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB428_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB428.Size.Height : sxx = LB428.Location.Y : NU3 = LB429.Location.X : NU4 = LB430.Location.X
            LB429.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB430.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB428_Click(sender As Object, e As EventArgs) Handles LB428.Click
        PA = LB428.Text : 合約內文修改視窗.ShowDialog() : LB428.Text = PA : LB428_移動()
    End Sub
    Private Sub LB428_LocationChanged(sender As Object, e As EventArgs) Handles LB428.LocationChanged
        LB428_移動()
    End Sub
    Private Sub LB428_TextChanged(sender As Object, e As EventArgs) Handles LB428.TextChanged
        LB428_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB429_Click(sender As Object, e As EventArgs) Handles LB429.Click
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            NU5 = LB429.Location.X : BL1 = True : PA = LB429.Text : 合約內文修改視窗.ShowDialog() : LB429.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB429.Location.Y : LB429.Location = New Drawing.Point(syy1, sxx)
            sxx = LB430.Location.Y : LB430.Location = New Drawing.Point(syy2, sxx) : sxx = LB431.Location.Y : LB431.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB430_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB430.Size.Height : sxx = LB430.Location.Y : NU4 = LB431.Location.X : LB431.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB430_Click(sender As Object, e As EventArgs) Handles LB430.Click
        PA = LB430.Text : 合約內文修改視窗.ShowDialog() : LB430.Text = PA : LB430_移動()
    End Sub
    Private Sub LB430_LocationChanged(sender As Object, e As EventArgs) Handles LB430.LocationChanged
        LB430_移動()
    End Sub
    Private Sub LB430_TextChanged(sender As Object, e As EventArgs) Handles LB430.TextChanged
        LB430_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB431_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB431.Size.Height : sxx = LB431.Location.Y : NU3 = LB432.Location.X : NU4 = LB433.Location.X
            LB432.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB433.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB431_Click(sender As Object, e As EventArgs) Handles LB431.Click
        PA = LB431.Text : 合約內文修改視窗.ShowDialog() : LB431.Text = PA : LB431_移動()
    End Sub
    Private Sub LB431_LocationChanged(sender As Object, e As EventArgs) Handles LB431.LocationChanged
        LB431_移動()
    End Sub
    Private Sub LB431_TextChanged(sender As Object, e As EventArgs) Handles LB431.TextChanged
        LB431_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB432_Click(sender As Object, e As EventArgs) Handles LB432.Click
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            NU5 = LB432.Location.X : BL1 = True : PA = LB432.Text : 合約內文修改視窗.ShowDialog() : LB432.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB432.Location.Y : LB432.Location = New Drawing.Point(syy1, sxx)
            sxx = LB433.Location.Y : LB433.Location = New Drawing.Point(syy2, sxx) : sxx = LB434.Location.Y : LB434.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB433_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB433.Size.Height : sxx = LB433.Location.Y : NU4 = LB434.Location.X : LB434.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB433_Click(sender As Object, e As EventArgs) Handles LB433.Click
        PA = LB433.Text : 合約內文修改視窗.ShowDialog() : LB433.Text = PA : LB433_移動()
    End Sub
    Private Sub LB433_LocationChanged(sender As Object, e As EventArgs) Handles LB433.LocationChanged
        LB433_移動()
    End Sub
    Private Sub LB433_TextChanged(sender As Object, e As EventArgs) Handles LB433.TextChanged
        LB433_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB434_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB434.Size.Height : sxx = LB434.Location.Y : NU3 = LB435.Location.X : NU4 = LB436.Location.X
            LB435.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB436.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB434_Click(sender As Object, e As EventArgs) Handles LB434.Click
        PA = LB434.Text : 合約內文修改視窗.ShowDialog() : LB434.Text = PA : LB434_移動()
    End Sub
    Private Sub LB434_LocationChanged(sender As Object, e As EventArgs) Handles LB434.LocationChanged
        LB434_移動()
    End Sub
    Private Sub LB434_TextChanged(sender As Object, e As EventArgs) Handles LB434.TextChanged
        LB434_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB435_Click(sender As Object, e As EventArgs) Handles LB435.Click
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            NU5 = LB435.Location.X : BL1 = True : PA = LB435.Text : 合約內文修改視窗.ShowDialog() : LB435.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB435.Location.Y : LB435.Location = New Drawing.Point(syy1, sxx)
            sxx = LB436.Location.Y : LB436.Location = New Drawing.Point(syy2, sxx) : sxx = LB437.Location.Y : LB437.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB436_移動()
        If (Val(最末頁_cb.Text) > 17 And 翻頁_nud.Value = 13) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB436.Size.Height : sxx = LB436.Location.Y : NU4 = LB437.Location.X : LB437.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB436_Click(sender As Object, e As EventArgs) Handles LB436.Click
        PA = LB436.Text : 合約內文修改視窗.ShowDialog() : LB436.Text = PA : LB436_移動()
    End Sub
    Private Sub LB436_LocationChanged(sender As Object, e As EventArgs) Handles LB436.LocationChanged
        LB436_移動()
    End Sub
    Private Sub LB436_TextChanged(sender As Object, e As EventArgs) Handles LB436.TextChanged
        LB436_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB437_Click(sender As Object, e As EventArgs) Handles LB437.Click
        PA = LB437.Text : 合約內文修改視窗.ShowDialog() : LB437.Text = PA
    End Sub
    '---------------------------第12頁----------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub LB438_Click(sender As Object, e As EventArgs) Handles LB438.Click
        PA = LB438.Text : 合約內文修改視窗.ShowDialog() : LB438.Text = PA
    End Sub
    Private Sub LB439_Click(sender As Object, e As EventArgs) Handles LB439.Click
        PA = LB439.Text : 合約內文修改視窗.ShowDialog() : LB439.Text = PA
    End Sub
    Private Sub LB440_Click(sender As Object, e As EventArgs) Handles LB440.Click
        PA = LB440.Text : 合約內文修改視窗.ShowDialog() : LB440.Text = PA
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB441_Click(sender As Object, e As EventArgs) Handles LB441.Click
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            NU5 = LB441.Location.X : BL1 = True : PA = LB441.Text : 合約內文修改視窗.ShowDialog() : LB441.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB441.Location.Y : LB441.Location = New Drawing.Point(syy1, sxx)
            sxx = LB442.Location.Y : LB442.Location = New Drawing.Point(syy2, sxx) : sxx = LB443.Location.Y : LB443.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB442_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB442.Size.Height : sxx = LB442.Location.Y : NU4 = LB443.Location.X : LB443.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB442_Click(sender As Object, e As EventArgs) Handles LB442.Click
        PA = LB442.Text : 合約內文修改視窗.ShowDialog() : LB442.Text = PA : LB442_移動()
    End Sub
    Private Sub LB442_LocationChanged(sender As Object, e As EventArgs) Handles LB442.LocationChanged
        LB442_移動()
    End Sub
    Private Sub LB442_TextChanged(sender As Object, e As EventArgs) Handles LB442.TextChanged
        LB442_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB443_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB443.Size.Height : sxx = LB443.Location.Y : NU3 = LB444.Location.X : NU4 = LB445.Location.X
            LB444.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB445.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB443_Click(sender As Object, e As EventArgs) Handles LB443.Click
        PA = LB443.Text : 合約內文修改視窗.ShowDialog() : LB443.Text = PA : LB443_移動()
    End Sub
    Private Sub LB443_LocationChanged(sender As Object, e As EventArgs) Handles LB443.LocationChanged
        LB443_移動()
    End Sub
    Private Sub LB443_TextChanged(sender As Object, e As EventArgs) Handles LB443.TextChanged
        LB443_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB444_Click(sender As Object, e As EventArgs) Handles LB444.Click
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            NU5 = LB444.Location.X : BL1 = True : PA = LB444.Text : 合約內文修改視窗.ShowDialog() : LB444.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB444.Location.Y : LB444.Location = New Drawing.Point(syy1, sxx)
            sxx = LB445.Location.Y : LB445.Location = New Drawing.Point(syy2, sxx) : sxx = LB446.Location.Y : LB446.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB445_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB445.Size.Height : sxx = LB445.Location.Y : NU4 = LB446.Location.X : LB446.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB445_Click(sender As Object, e As EventArgs) Handles LB445.Click
        PA = LB445.Text : 合約內文修改視窗.ShowDialog() : LB445.Text = PA : LB445_移動()
    End Sub
    Private Sub LB445_LocationChanged(sender As Object, e As EventArgs) Handles LB445.LocationChanged
        LB445_移動()
    End Sub
    Private Sub LB445_TextChanged(sender As Object, e As EventArgs) Handles LB445.TextChanged
        LB445_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB446_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB446.Size.Height : sxx = LB446.Location.Y : NU3 = LB447.Location.X : NU4 = LB448.Location.X
            LB447.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB448.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB446_Click(sender As Object, e As EventArgs) Handles LB446.Click
        PA = LB446.Text : 合約內文修改視窗.ShowDialog() : LB446.Text = PA : LB446_移動()
    End Sub
    Private Sub LB446_LocationChanged(sender As Object, e As EventArgs) Handles LB446.LocationChanged
        LB446_移動()
    End Sub
    Private Sub LB446_TextChanged(sender As Object, e As EventArgs) Handles LB446.TextChanged
        LB446_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB447_Click(sender As Object, e As EventArgs) Handles LB447.Click
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            NU5 = LB447.Location.X : BL1 = True : PA = LB447.Text : 合約內文修改視窗.ShowDialog() : LB447.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB447.Location.Y : LB447.Location = New Drawing.Point(syy1, sxx)
            sxx = LB448.Location.Y : LB448.Location = New Drawing.Point(syy2, sxx) : sxx = LB449.Location.Y : LB449.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB448_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB448.Size.Height : sxx = LB448.Location.Y : NU4 = LB449.Location.X : LB449.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB448_Click(sender As Object, e As EventArgs) Handles LB448.Click
        PA = LB448.Text : 合約內文修改視窗.ShowDialog() : LB448.Text = PA : LB448_移動()
    End Sub
    Private Sub LB448_LocationChanged(sender As Object, e As EventArgs) Handles LB448.LocationChanged
        LB448_移動()
    End Sub
    Private Sub LB448_TextChanged(sender As Object, e As EventArgs) Handles LB448.TextChanged
        LB448_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB449_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB449.Size.Height : sxx = LB449.Location.Y : NU3 = LB450.Location.X : NU4 = LB451.Location.X
            LB450.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB451.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB449_Click(sender As Object, e As EventArgs) Handles LB449.Click
        PA = LB449.Text : 合約內文修改視窗.ShowDialog() : LB449.Text = PA : LB449_移動()
    End Sub
    Private Sub LB449_LocationChanged(sender As Object, e As EventArgs) Handles LB449.LocationChanged
        LB449_移動()
    End Sub
    Private Sub LB449_TextChanged(sender As Object, e As EventArgs) Handles LB449.TextChanged
        LB449_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB450_Click(sender As Object, e As EventArgs) Handles LB450.Click
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            NU5 = LB450.Location.X : BL1 = True : PA = LB450.Text : 合約內文修改視窗.ShowDialog() : LB450.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB450.Location.Y : LB450.Location = New Drawing.Point(syy1, sxx)
            sxx = LB451.Location.Y : LB451.Location = New Drawing.Point(syy2, sxx) : sxx = LB452.Location.Y : LB452.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB451_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB451.Size.Height : sxx = LB451.Location.Y : NU4 = LB452.Location.X : LB452.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB451_Click(sender As Object, e As EventArgs) Handles LB451.Click
        PA = LB451.Text : 合約內文修改視窗.ShowDialog() : LB451.Text = PA : LB451_移動()
    End Sub
    Private Sub LB451_LocationChanged(sender As Object, e As EventArgs) Handles LB451.LocationChanged
        LB451_移動()
    End Sub
    Private Sub LB451_TextChanged(sender As Object, e As EventArgs) Handles LB451.TextChanged
        LB451_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB452_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB452.Size.Height : sxx = LB452.Location.Y : NU3 = LB453.Location.X : NU4 = LB454.Location.X
            LB453.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB454.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB452_Click(sender As Object, e As EventArgs) Handles LB452.Click
        PA = LB452.Text : 合約內文修改視窗.ShowDialog() : LB452.Text = PA : LB452_移動()
    End Sub
    Private Sub LB452_LocationChanged(sender As Object, e As EventArgs) Handles LB452.LocationChanged
        LB452_移動()
    End Sub
    Private Sub LB452_TextChanged(sender As Object, e As EventArgs) Handles LB452.TextChanged
        LB452_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB453_Click(sender As Object, e As EventArgs) Handles LB453.Click
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            NU5 = LB453.Location.X : BL1 = True : PA = LB453.Text : 合約內文修改視窗.ShowDialog() : LB453.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB453.Location.Y : LB453.Location = New Drawing.Point(syy1, sxx)
            sxx = LB454.Location.Y : LB454.Location = New Drawing.Point(syy2, sxx) : sxx = LB455.Location.Y : LB455.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB454_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB454.Size.Height : sxx = LB454.Location.Y : NU4 = LB455.Location.X : LB455.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB454_Click(sender As Object, e As EventArgs) Handles LB454.Click
        PA = LB454.Text : 合約內文修改視窗.ShowDialog() : LB454.Text = PA : LB454_移動()
    End Sub
    Private Sub LB454_LocationChanged(sender As Object, e As EventArgs) Handles LB454.LocationChanged
        LB454_移動()
    End Sub
    Private Sub LB454_TextChanged(sender As Object, e As EventArgs) Handles LB454.TextChanged
        LB454_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB455_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB455.Size.Height : sxx = LB455.Location.Y : NU3 = LB456.Location.X : NU4 = LB457.Location.X
            LB456.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB457.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB455_Click(sender As Object, e As EventArgs) Handles LB455.Click
        PA = LB455.Text : 合約內文修改視窗.ShowDialog() : LB455.Text = PA : LB455_移動()
    End Sub
    Private Sub LB455_LocationChanged(sender As Object, e As EventArgs) Handles LB455.LocationChanged
        LB455_移動()
    End Sub
    Private Sub LB455_TextChanged(sender As Object, e As EventArgs) Handles LB455.TextChanged
        LB455_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB456_Click(sender As Object, e As EventArgs) Handles LB456.Click
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            NU5 = LB456.Location.X : BL1 = True : PA = LB456.Text : 合約內文修改視窗.ShowDialog() : LB456.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB456.Location.Y : LB456.Location = New Drawing.Point(syy1, sxx)
            sxx = LB457.Location.Y : LB457.Location = New Drawing.Point(syy2, sxx) : sxx = LB458.Location.Y : LB458.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB457_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB457.Size.Height : sxx = LB457.Location.Y : NU4 = LB458.Location.X : LB458.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB457_Click(sender As Object, e As EventArgs) Handles LB457.Click
        PA = LB457.Text : 合約內文修改視窗.ShowDialog() : LB457.Text = PA : LB457_移動()
    End Sub
    Private Sub LB457_LocationChanged(sender As Object, e As EventArgs) Handles LB457.LocationChanged
        LB457_移動()
    End Sub
    Private Sub LB457_TextChanged(sender As Object, e As EventArgs) Handles LB457.TextChanged
        LB457_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB458_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB458.Size.Height : sxx = LB458.Location.Y : NU3 = LB459.Location.X : NU4 = LB460.Location.X
            LB459.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB460.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB458_Click(sender As Object, e As EventArgs) Handles LB458.Click
        PA = LB458.Text : 合約內文修改視窗.ShowDialog() : LB458.Text = PA : LB458_移動()
    End Sub
    Private Sub LB458_LocationChanged(sender As Object, e As EventArgs) Handles LB458.LocationChanged
        LB458_移動()
    End Sub
    Private Sub LB458_TextChanged(sender As Object, e As EventArgs) Handles LB458.TextChanged
        LB458_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB459_Click(sender As Object, e As EventArgs) Handles LB459.Click
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            NU5 = LB459.Location.X : BL1 = True : PA = LB459.Text : 合約內文修改視窗.ShowDialog() : LB459.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB459.Location.Y : LB459.Location = New Drawing.Point(syy1, sxx)
            sxx = LB460.Location.Y : LB460.Location = New Drawing.Point(syy2, sxx) : sxx = LB461.Location.Y : LB461.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB460_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB460.Size.Height : sxx = LB460.Location.Y : NU4 = LB461.Location.X : LB461.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB460_Click(sender As Object, e As EventArgs) Handles LB460.Click
        PA = LB460.Text : 合約內文修改視窗.ShowDialog() : LB460.Text = PA : LB460_移動()
    End Sub
    Private Sub LB460_LocationChanged(sender As Object, e As EventArgs) Handles LB460.LocationChanged
        LB460_移動()
    End Sub
    Private Sub LB460_TextChanged(sender As Object, e As EventArgs) Handles LB460.TextChanged
        LB460_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB461_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB461.Size.Height : sxx = LB461.Location.Y : NU3 = LB462.Location.X : NU4 = LB463.Location.X
            LB462.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB463.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB461_Click(sender As Object, e As EventArgs) Handles LB461.Click
        PA = LB461.Text : 合約內文修改視窗.ShowDialog() : LB461.Text = PA : LB461_移動()
    End Sub
    Private Sub LB461_LocationChanged(sender As Object, e As EventArgs) Handles LB461.LocationChanged
        LB461_移動()
    End Sub
    Private Sub LB461_TextChanged(sender As Object, e As EventArgs) Handles LB461.TextChanged
        LB461_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB462_Click(sender As Object, e As EventArgs) Handles LB462.Click
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            NU5 = LB462.Location.X : BL1 = True : PA = LB462.Text : 合約內文修改視窗.ShowDialog() : LB462.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB462.Location.Y : LB462.Location = New Drawing.Point(syy1, sxx)
            sxx = LB463.Location.Y : LB463.Location = New Drawing.Point(syy2, sxx) : sxx = LB464.Location.Y : LB464.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB463_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB463.Size.Height : sxx = LB463.Location.Y : NU4 = LB464.Location.X : LB464.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB463_Click(sender As Object, e As EventArgs) Handles LB463.Click
        PA = LB463.Text : 合約內文修改視窗.ShowDialog() : LB463.Text = PA : LB463_移動()
    End Sub
    Private Sub LB463_LocationChanged(sender As Object, e As EventArgs) Handles LB463.LocationChanged
        LB463_移動()
    End Sub
    Private Sub LB463_TextChanged(sender As Object, e As EventArgs) Handles LB463.TextChanged
        LB463_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB464_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB464.Size.Height : sxx = LB464.Location.Y : NU3 = LB465.Location.X : NU4 = LB466.Location.X
            LB465.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB466.Location = New Drawing.Point(NU4, sxx + sx + 10)
        End If
    End Sub
    Private Sub LB464_Click(sender As Object, e As EventArgs) Handles LB464.Click
        PA = LB464.Text : 合約內文修改視窗.ShowDialog() : LB464.Text = PA : LB464_移動()
    End Sub
    Private Sub LB464_LocationChanged(sender As Object, e As EventArgs) Handles LB464.LocationChanged
        LB464_移動()
    End Sub
    Private Sub LB464_TextChanged(sender As Object, e As EventArgs) Handles LB464.TextChanged
        LB464_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB465_Click(sender As Object, e As EventArgs) Handles LB465.Click
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            NU5 = LB465.Location.X : BL1 = True : PA = LB465.Text : 合約內文修改視窗.ShowDialog() : LB465.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB465.Location.Y : LB465.Location = New Drawing.Point(syy1, sxx)
            sxx = LB466.Location.Y : LB466.Location = New Drawing.Point(syy2, sxx) : sxx = LB467.Location.Y : LB467.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB466_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB466.Size.Height : sxx = LB466.Location.Y : NU4 = LB467.Location.X : LB467.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB466_Click(sender As Object, e As EventArgs) Handles LB466.Click
        PA = LB466.Text : 合約內文修改視窗.ShowDialog() : LB466.Text = PA : LB466_移動()
    End Sub
    Private Sub LB466_LocationChanged(sender As Object, e As EventArgs) Handles LB466.LocationChanged
        LB466_移動()
    End Sub
    Private Sub LB466_TextChanged(sender As Object, e As EventArgs) Handles LB466.TextChanged
        LB466_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB467_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB467.Size.Height : sxx = LB467.Location.Y : NU3 = LB468.Location.X : NU4 = LB469.Location.X
            LB468.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB469.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB467_Click(sender As Object, e As EventArgs) Handles LB467.Click
        PA = LB467.Text : 合約內文修改視窗.ShowDialog() : LB467.Text = PA : LB467_移動()
    End Sub
    Private Sub LB467_LocationChanged(sender As Object, e As EventArgs) Handles LB467.LocationChanged
        LB467_移動()
    End Sub
    Private Sub LB467_TextChanged(sender As Object, e As EventArgs) Handles LB467.TextChanged
        LB467_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB468_Click(sender As Object, e As EventArgs) Handles LB468.Click
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            NU5 = LB468.Location.X : BL1 = True : PA = LB468.Text : 合約內文修改視窗.ShowDialog() : LB468.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB468.Location.Y : LB468.Location = New Drawing.Point(syy1, sxx)
            sxx = LB469.Location.Y : LB469.Location = New Drawing.Point(syy2, sxx) : sxx = LB470.Location.Y : LB470.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB469_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB469.Size.Height : sxx = LB469.Location.Y : NU4 = LB470.Location.X : LB470.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB469_Click(sender As Object, e As EventArgs) Handles LB469.Click
        PA = LB469.Text : 合約內文修改視窗.ShowDialog() : LB469.Text = PA : LB469_移動()
    End Sub
    Private Sub LB469_LocationChanged(sender As Object, e As EventArgs) Handles LB469.LocationChanged
        LB469_移動()
    End Sub
    Private Sub LB469_TextChanged(sender As Object, e As EventArgs) Handles LB469.TextChanged
        LB469_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB470_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB470.Size.Height : sxx = LB470.Location.Y : NU3 = LB471.Location.X : NU4 = LB472.Location.X
            LB471.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB472.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB470_Click(sender As Object, e As EventArgs) Handles LB470.Click
        PA = LB470.Text : 合約內文修改視窗.ShowDialog() : LB470.Text = PA : LB470_移動()
    End Sub
    Private Sub LB470_LocationChanged(sender As Object, e As EventArgs) Handles LB470.LocationChanged
        LB470_移動()
    End Sub
    Private Sub LB470_TextChanged(sender As Object, e As EventArgs) Handles LB470.TextChanged
        LB470_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB471_Click(sender As Object, e As EventArgs) Handles LB471.Click
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            NU5 = LB471.Location.X : BL1 = True : PA = LB471.Text : 合約內文修改視窗.ShowDialog() : LB471.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB471.Location.Y : LB471.Location = New Drawing.Point(syy1, sxx)
            sxx = LB472.Location.Y : LB472.Location = New Drawing.Point(syy2, sxx) : sxx = LB473.Location.Y : LB473.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB472_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB472.Size.Height : sxx = LB472.Location.Y : NU4 = LB473.Location.X : LB473.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB472_Click(sender As Object, e As EventArgs) Handles LB472.Click
        PA = LB472.Text : 合約內文修改視窗.ShowDialog() : LB472.Text = PA : LB472_移動()
    End Sub
    Private Sub LB472_LocationChanged(sender As Object, e As EventArgs) Handles LB472.LocationChanged
        LB472_移動()
    End Sub
    Private Sub LB472_TextChanged(sender As Object, e As EventArgs) Handles LB472.TextChanged
        LB472_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB473_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB473.Size.Height : sxx = LB473.Location.Y : NU3 = LB474.Location.X : NU4 = LB475.Location.X
            LB474.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB475.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB473_Click(sender As Object, e As EventArgs) Handles LB473.Click
        PA = LB473.Text : 合約內文修改視窗.ShowDialog() : LB473.Text = PA : LB473_移動()
    End Sub
    Private Sub LB473_LocationChanged(sender As Object, e As EventArgs) Handles LB473.LocationChanged
        LB473_移動()
    End Sub
    Private Sub LB473_TextChanged(sender As Object, e As EventArgs) Handles LB473.TextChanged
        LB473_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB474_Click(sender As Object, e As EventArgs) Handles LB474.Click
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            NU5 = LB474.Location.X : BL1 = True : PA = LB474.Text : 合約內文修改視窗.ShowDialog() : LB474.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB474.Location.Y : LB474.Location = New Drawing.Point(syy1, sxx)
            sxx = LB475.Location.Y : LB475.Location = New Drawing.Point(syy2, sxx) : sxx = LB476.Location.Y : LB476.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB475_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB475.Size.Height : sxx = LB475.Location.Y : NU4 = LB476.Location.X : LB476.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB475_Click(sender As Object, e As EventArgs) Handles LB475.Click
        PA = LB475.Text : 合約內文修改視窗.ShowDialog() : LB475.Text = PA : LB475_移動()
    End Sub
    Private Sub LB475_LocationChanged(sender As Object, e As EventArgs) Handles LB475.LocationChanged
        LB475_移動()
    End Sub
    Private Sub LB475_TextChanged(sender As Object, e As EventArgs) Handles LB475.TextChanged
        LB475_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB476_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB476.Size.Height : sxx = LB476.Location.Y
            NU3 = LB477.Location.X : NU4 = LB478.Location.X : LB477.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB478.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB476_Click(sender As Object, e As EventArgs) Handles LB476.Click
        PA = LB476.Text : 合約內文修改視窗.ShowDialog() : LB476.Text = PA : LB476_移動()
    End Sub
    Private Sub LB476_LocationChanged(sender As Object, e As EventArgs) Handles LB476.LocationChanged
        LB476_移動()
    End Sub
    Private Sub LB476_TextChanged(sender As Object, e As EventArgs) Handles LB476.TextChanged
        LB476_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB477_Click(sender As Object, e As EventArgs) Handles LB477.Click
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            NU5 = LB477.Location.X : BL1 = True : PA = LB477.Text : 合約內文修改視窗.ShowDialog() : LB477.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB477.Location.Y : LB477.Location = New Drawing.Point(syy1, sxx)
            sxx = LB478.Location.Y : LB478.Location = New Drawing.Point(syy2, sxx) : sxx = LB479.Location.Y : LB479.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB478_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB478.Size.Height : sxx = LB478.Location.Y : NU4 = LB479.Location.X : LB479.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB478_Click(sender As Object, e As EventArgs) Handles LB478.Click
        PA = LB478.Text : 合約內文修改視窗.ShowDialog() : LB478.Text = PA : LB478_移動()
    End Sub
    Private Sub LB478_LocationChanged(sender As Object, e As EventArgs) Handles LB478.LocationChanged
        LB478_移動()
    End Sub
    Private Sub LB478_TextChanged(sender As Object, e As EventArgs) Handles LB478.TextChanged
        LB478_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB479_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB479.Size.Height : sxx = LB479.Location.Y
            NU3 = LB480.Location.X : NU4 = LB481.Location.X : LB480.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB481.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB479_Click(sender As Object, e As EventArgs) Handles LB479.Click
        PA = LB479.Text : 合約內文修改視窗.ShowDialog() : LB479.Text = PA : LB479_移動()
    End Sub
    Private Sub LB479_LocationChanged(sender As Object, e As EventArgs) Handles LB479.LocationChanged
        LB479_移動()
    End Sub
    Private Sub LB479_TextChanged(sender As Object, e As EventArgs) Handles LB479.TextChanged
        LB479_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB480_Click(sender As Object, e As EventArgs) Handles LB480.Click
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            NU5 = LB480.Location.X : BL1 = True : PA = LB480.Text : 合約內文修改視窗.ShowDialog() : LB480.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB480.Location.Y : LB480.Location = New Drawing.Point(syy1, sxx)
            sxx = LB481.Location.Y : LB481.Location = New Drawing.Point(syy2, sxx) : sxx = LB482.Location.Y : LB482.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB481_移動()
        If (Val(最末頁_cb.Text) > 16 And 翻頁_nud.Value = 12) Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB481.Size.Height : sxx = LB481.Location.Y : NU4 = LB482.Location.X : LB482.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB481_Click(sender As Object, e As EventArgs) Handles LB481.Click
        PA = LB481.Text : 合約內文修改視窗.ShowDialog() : LB481.Text = PA : LB481_移動()
    End Sub
    Private Sub LB481_LocationChanged(sender As Object, e As EventArgs) Handles LB481.LocationChanged
        LB481_移動()
    End Sub
    Private Sub LB481_TextChanged(sender As Object, e As EventArgs) Handles LB481.TextChanged
        LB481_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB482_Click(sender As Object, e As EventArgs) Handles LB482.Click
        PA = LB482.Text : 合約內文修改視窗.ShowDialog() : LB482.Text = PA
    End Sub
    '---------------------------第11頁----------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub LB483_Click(sender As Object, e As EventArgs) Handles LB483.Click
        PA = LB483.Text : 合約內文修改視窗.ShowDialog() : LB483.Text = PA
    End Sub
    Private Sub LB484_Click(sender As Object, e As EventArgs) Handles LB484.Click
        PA = LB484.Text : 合約內文修改視窗.ShowDialog() : LB484.Text = PA
    End Sub
    Private Sub LB485_Click(sender As Object, e As EventArgs) Handles LB485.Click
        PA = LB485.Text : 合約內文修改視窗.ShowDialog() : LB485.Text = PA
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB486_Click(sender As Object, e As EventArgs) Handles LB486.Click
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            NU5 = LB486.Location.X : BL1 = True : PA = LB486.Text : 合約內文修改視窗.ShowDialog() : LB486.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB486.Location.Y : LB486.Location = New Drawing.Point(syy1, sxx)
            sxx = LB117.Location.Y : LB117.Location = New Drawing.Point(syy2, sxx) : sxx = LB118.Location.Y : LB118.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB117_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB117.Size.Height : sxx = LB117.Location.Y : NU4 = LB118.Location.X : LB118.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB117_Click(sender As Object, e As EventArgs) Handles LB117.Click
        PA = LB117.Text : 合約內文修改視窗.ShowDialog() : LB117.Text = PA : LB117_移動()
    End Sub
    Private Sub LB117_LocationChanged(sender As Object, e As EventArgs) Handles LB117.LocationChanged
        LB117_移動()
    End Sub
    Private Sub LB117_TextChanged(sender As Object, e As EventArgs) Handles LB117.TextChanged
        LB117_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB118_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB118.Size.Height : sxx = LB118.Location.Y : NU3 = LB487.Location.X : NU4 = LB119.Location.X
            LB487.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB119.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB118_Click(sender As Object, e As EventArgs) Handles LB118.Click
        PA = LB118.Text : 合約內文修改視窗.ShowDialog() : LB118.Text = PA : LB118_移動()
    End Sub
    Private Sub LB118_LocationChanged(sender As Object, e As EventArgs) Handles LB118.LocationChanged
        LB118_移動()
    End Sub
    Private Sub LB118_TextChanged(sender As Object, e As EventArgs) Handles LB118.TextChanged
        LB118_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB487_Click(sender As Object, e As EventArgs) Handles LB487.Click
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            NU5 = LB487.Location.X : BL1 = True : PA = LB487.Text : 合約內文修改視窗.ShowDialog() : LB487.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB487.Location.Y : LB487.Location = New Drawing.Point(syy1, sxx)
            sxx = LB119.Location.Y : LB119.Location = New Drawing.Point(syy2, sxx) : sxx = LB120.Location.Y : LB120.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB119_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB119.Size.Height : sxx = LB119.Location.Y : NU4 = LB120.Location.X : LB120.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB119_Click(sender As Object, e As EventArgs) Handles LB119.Click
        PA = LB119.Text : 合約內文修改視窗.ShowDialog() : LB119.Text = PA : LB119_移動()
    End Sub
    Private Sub LB119_LocationChanged(sender As Object, e As EventArgs) Handles LB119.LocationChanged
        LB119_移動()
    End Sub
    Private Sub LB119_TextChanged(sender As Object, e As EventArgs) Handles LB119.TextChanged
        LB119_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB120_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB120.Size.Height : sxx = LB120.Location.Y : LB488.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB489.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB120_Click(sender As Object, e As EventArgs) Handles LB120.Click
        PA = LB120.Text : 合約內文修改視窗.ShowDialog() : LB120.Text = PA : LB120_移動()
    End Sub
    Private Sub LB120_LocationChanged(sender As Object, e As EventArgs) Handles LB120.LocationChanged
        LB120_移動()
    End Sub
    Private Sub LB120_TextChanged(sender As Object, e As EventArgs) Handles LB120.TextChanged
        LB120_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB488_Click(sender As Object, e As EventArgs) Handles LB488.Click
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            NU5 = LB488.Location.X : BL1 = True : PA = LB488.Text : 合約內文修改視窗.ShowDialog() : LB488.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB488.Location.Y : LB488.Location = New Drawing.Point(syy1, sxx)
            sxx = LB489.Location.Y : LB489.Location = New Drawing.Point(syy2, sxx) : sxx = LB490.Location.Y : LB490.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB489_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB489.Size.Height : sxx = LB489.Location.Y : NU4 = LB490.Location.X : LB490.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB489_Click(sender As Object, e As EventArgs) Handles LB489.Click
        PA = LB489.Text : 合約內文修改視窗.ShowDialog() : LB489.Text = PA : LB489_移動()
    End Sub
    Private Sub LB489_LocationChanged(sender As Object, e As EventArgs) Handles LB489.LocationChanged
        LB489_移動()
    End Sub
    Private Sub LB489_TextChanged(sender As Object, e As EventArgs) Handles LB489.TextChanged
        LB489_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB490_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB490.Size.Height : sxx = LB490.Location.Y : NU3 = LB491.Location.X : NU4 = LB492.Location.X
            LB491.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB492.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB490_Click(sender As Object, e As EventArgs) Handles LB490.Click
        PA = LB490.Text : 合約內文修改視窗.ShowDialog() : LB490.Text = PA : LB490_移動()
    End Sub
    Private Sub LB490_LocationChanged(sender As Object, e As EventArgs) Handles LB490.LocationChanged
        LB490_移動()
    End Sub
    Private Sub LB490_TextChanged(sender As Object, e As EventArgs) Handles LB490.TextChanged
        LB490_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB491_Click(sender As Object, e As EventArgs) Handles LB491.Click
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            NU5 = LB491.Location.X : BL1 = True : PA = LB491.Text : 合約內文修改視窗.ShowDialog() : LB491.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB491.Location.Y : LB491.Location = New Drawing.Point(syy1, sxx)
            sxx = LB492.Location.Y : LB492.Location = New Drawing.Point(syy2, sxx) : sxx = LB493.Location.Y : LB493.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB492_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB492.Size.Height : sxx = LB492.Location.Y : NU4 = LB493.Location.X : LB493.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB492_Click(sender As Object, e As EventArgs) Handles LB492.Click
        PA = LB492.Text : 合約內文修改視窗.ShowDialog() : LB492.Text = PA : LB492_移動()
    End Sub
    Private Sub LB492_LocationChanged(sender As Object, e As EventArgs) Handles LB492.LocationChanged
        LB492_移動()
    End Sub
    Private Sub LB492_TextChanged(sender As Object, e As EventArgs) Handles LB492.TextChanged
        LB492_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB493_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB493.Size.Height : sxx = LB493.Location.Y : NU3 = LB494.Location.X : NU4 = LB495.Location.X
            LB494.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB495.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB493_Click(sender As Object, e As EventArgs) Handles LB493.Click
        PA = LB493.Text : 合約內文修改視窗.ShowDialog() : LB493.Text = PA : LB493_移動()
    End Sub
    Private Sub LB493_LocationChanged(sender As Object, e As EventArgs) Handles LB493.LocationChanged
        LB493_移動()
    End Sub
    Private Sub LB493_TextChanged(sender As Object, e As EventArgs) Handles LB493.TextChanged
        LB493_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB494_Click(sender As Object, e As EventArgs) Handles LB494.Click
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            NU5 = LB494.Location.X : BL1 = True : PA = LB494.Text : 合約內文修改視窗.ShowDialog() : LB494.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB494.Location.Y : LB494.Location = New Drawing.Point(syy1, sxx)
            sxx = LB495.Location.Y : LB495.Location = New Drawing.Point(syy2, sxx) : sxx = LB496.Location.Y : LB496.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB495_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB495.Size.Height : sxx = LB495.Location.Y : NU4 = LB496.Location.X : LB496.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB495_Click(sender As Object, e As EventArgs) Handles LB495.Click
        PA = LB495.Text : 合約內文修改視窗.ShowDialog() : LB495.Text = PA : LB495_移動()
    End Sub
    Private Sub LB495_LocationChanged(sender As Object, e As EventArgs) Handles LB495.LocationChanged
        LB495_移動()
    End Sub
    Private Sub LB495_TextChanged(sender As Object, e As EventArgs) Handles LB495.TextChanged
        LB495_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB496_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB496.Size.Height : sxx = LB496.Location.Y : NU3 = LB497.Location.X : NU4 = LB498.Location.X
            LB497.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB498.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB496_Click(sender As Object, e As EventArgs) Handles LB496.Click
        PA = LB496.Text : 合約內文修改視窗.ShowDialog() : LB496.Text = PA : LB496_移動()
    End Sub
    Private Sub LB496_LocationChanged(sender As Object, e As EventArgs) Handles LB496.LocationChanged
        LB496_移動()
    End Sub
    Private Sub LB496_TextChanged(sender As Object, e As EventArgs) Handles LB496.TextChanged
        LB496_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB497_Click(sender As Object, e As EventArgs) Handles LB497.Click
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            NU5 = LB497.Location.X : BL1 = True : PA = LB497.Text : 合約內文修改視窗.ShowDialog() : LB497.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB497.Location.Y : LB497.Location = New Drawing.Point(syy1, sxx)
            sxx = LB498.Location.Y : LB498.Location = New Drawing.Point(syy2, sxx) : sxx = LB499.Location.Y : LB499.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB498_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB498.Size.Height : sxx = LB498.Location.Y : NU4 = LB499.Location.X : LB499.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB498_Click(sender As Object, e As EventArgs) Handles LB498.Click
        PA = LB498.Text : 合約內文修改視窗.ShowDialog() : LB498.Text = PA : LB498_移動()
    End Sub
    Private Sub LB498_LocationChanged(sender As Object, e As EventArgs) Handles LB498.LocationChanged
        LB498_移動()
    End Sub
    Private Sub LB498_TextChanged(sender As Object, e As EventArgs) Handles LB498.TextChanged
        LB498_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB499_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB499.Size.Height : sxx = LB499.Location.Y : NU3 = LB500.Location.X : NU4 = LB501.Location.X
            LB500.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB501.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB499_Click(sender As Object, e As EventArgs) Handles LB499.Click
        PA = LB499.Text : 合約內文修改視窗.ShowDialog() : LB499.Text = PA : LB499_移動()
    End Sub
    Private Sub LB499_LocationChanged(sender As Object, e As EventArgs) Handles LB499.LocationChanged
        LB499_移動()
    End Sub
    Private Sub LB499_TextChanged(sender As Object, e As EventArgs) Handles LB499.TextChanged
        LB499_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB500_Click(sender As Object, e As EventArgs) Handles LB500.Click
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            NU5 = LB500.Location.X : BL1 = True : PA = LB500.Text : 合約內文修改視窗.ShowDialog() : LB500.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB500.Location.Y : LB500.Location = New Drawing.Point(syy1, sxx)
            sxx = LB501.Location.Y : LB501.Location = New Drawing.Point(syy2, sxx) : sxx = LB502.Location.Y : LB502.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB501_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB501.Size.Height : sxx = LB501.Location.Y : NU4 = LB502.Location.X : LB502.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB501_Click(sender As Object, e As EventArgs) Handles LB501.Click
        PA = LB501.Text : 合約內文修改視窗.ShowDialog() : LB501.Text = PA : LB501_移動()
    End Sub
    Private Sub LB501_LocationChanged(sender As Object, e As EventArgs) Handles LB501.LocationChanged
        LB501_移動()
    End Sub
    Private Sub LB501_TextChanged(sender As Object, e As EventArgs) Handles LB501.TextChanged
        LB501_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB502_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB502.Size.Height : sxx = LB502.Location.Y : NU3 = LB503.Location.X : NU4 = LB504.Location.X
            LB503.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB504.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB502_Click(sender As Object, e As EventArgs) Handles LB502.Click
        PA = LB502.Text : 合約內文修改視窗.ShowDialog() : LB502.Text = PA : LB502_移動()
    End Sub
    Private Sub LB502_LocationChanged(sender As Object, e As EventArgs) Handles LB502.LocationChanged
        LB502_移動()
    End Sub
    Private Sub LB502_TextChanged(sender As Object, e As EventArgs) Handles LB502.TextChanged
        LB502_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB503_Click(sender As Object, e As EventArgs) Handles LB503.Click
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            NU5 = LB503.Location.X : BL1 = True : PA = LB503.Text : 合約內文修改視窗.ShowDialog() : LB503.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB503.Location.Y : LB503.Location = New Drawing.Point(syy1, sxx)
            sxx = LB504.Location.Y : LB504.Location = New Drawing.Point(syy2, sxx) : sxx = LB505.Location.Y : LB505.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB504_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB504.Size.Height : sxx = LB504.Location.Y : NU4 = LB505.Location.X : LB505.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB504_Click(sender As Object, e As EventArgs) Handles LB504.Click
        PA = LB504.Text : 合約內文修改視窗.ShowDialog() : LB504.Text = PA : LB504_移動()
    End Sub
    Private Sub LB504_LocationChanged(sender As Object, e As EventArgs) Handles LB504.LocationChanged
        LB504_移動()
    End Sub
    Private Sub LB504_TextChanged(sender As Object, e As EventArgs) Handles LB504.TextChanged
        LB504_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB505_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB505.Size.Height : sxx = LB505.Location.Y : NU3 = LB506.Location.X : NU4 = LB507.Location.X
            LB506.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB507.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB505_Click(sender As Object, e As EventArgs) Handles LB505.Click
        PA = LB505.Text : 合約內文修改視窗.ShowDialog() : LB505.Text = PA : LB505_移動()
    End Sub
    Private Sub LB505_LocationChanged(sender As Object, e As EventArgs) Handles LB505.LocationChanged
        LB505_移動()
    End Sub
    Private Sub LB505_TextChanged(sender As Object, e As EventArgs) Handles LB505.TextChanged
        LB505_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB506_Click(sender As Object, e As EventArgs) Handles LB506.Click
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            NU5 = LB506.Location.X : BL1 = True : PA = LB506.Text : 合約內文修改視窗.ShowDialog() : LB506.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB506.Location.Y : LB506.Location = New Drawing.Point(syy1, sxx)
            sxx = LB507.Location.Y : LB507.Location = New Drawing.Point(syy2, sxx) : sxx = LB508.Location.Y : LB508.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB507_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB507.Size.Height : sxx = LB507.Location.Y : NU4 = LB508.Location.X : LB508.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB507_Click(sender As Object, e As EventArgs) Handles LB507.Click
        PA = LB507.Text : 合約內文修改視窗.ShowDialog() : LB507.Text = PA : LB507_移動()
    End Sub
    Private Sub LB507_LocationChanged(sender As Object, e As EventArgs) Handles LB507.LocationChanged
        LB507_移動()
    End Sub
    Private Sub LB507_TextChanged(sender As Object, e As EventArgs) Handles LB507.TextChanged
        LB507_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB508_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB508.Size.Height : sxx = LB508.Location.Y : NU3 = LB509.Location.X : NU4 = LB510.Location.X
            LB509.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB510.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB508_Click(sender As Object, e As EventArgs) Handles LB508.Click
        PA = LB508.Text : 合約內文修改視窗.ShowDialog() : LB508.Text = PA : LB508_移動()
    End Sub
    Private Sub LB508_LocationChanged(sender As Object, e As EventArgs) Handles LB508.LocationChanged
        LB508_移動()
    End Sub
    Private Sub LB508_TextChanged(sender As Object, e As EventArgs) Handles LB508.TextChanged
        LB508_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB509_Click(sender As Object, e As EventArgs) Handles LB509.Click
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            NU5 = LB509.Location.X : BL1 = True : PA = LB509.Text : 合約內文修改視窗.ShowDialog() : LB509.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB509.Location.Y : LB509.Location = New Drawing.Point(syy1, sxx)
            sxx = LB510.Location.Y : LB510.Location = New Drawing.Point(syy2, sxx) : sxx = LB511.Location.Y : LB511.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB510_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB510.Size.Height : sxx = LB510.Location.Y : NU4 = LB511.Location.X : LB511.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB510_Click(sender As Object, e As EventArgs) Handles LB510.Click
        PA = LB510.Text : 合約內文修改視窗.ShowDialog() : LB510.Text = PA : LB510_移動()
    End Sub
    Private Sub LB510_LocationChanged(sender As Object, e As EventArgs) Handles LB510.LocationChanged
        LB510_移動()
    End Sub
    Private Sub LB510_TextChanged(sender As Object, e As EventArgs) Handles LB510.TextChanged
        LB510_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB511_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB511.Size.Height : sxx = LB511.Location.Y : NU3 = LB512.Location.X : NU4 = LB513.Location.X
            LB512.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB513.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB511_Click(sender As Object, e As EventArgs) Handles LB511.Click
        PA = LB511.Text : 合約內文修改視窗.ShowDialog() : LB511.Text = PA : LB511_移動()
    End Sub
    Private Sub LB511_LocationChanged(sender As Object, e As EventArgs) Handles LB511.LocationChanged
        LB511_移動()
    End Sub
    Private Sub LB511_TextChanged(sender As Object, e As EventArgs) Handles LB511.TextChanged
        LB511_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB512_Click(sender As Object, e As EventArgs) Handles LB512.Click
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            NU5 = LB512.Location.X : BL1 = True : PA = LB512.Text : 合約內文修改視窗.ShowDialog() : LB512.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB512.Location.Y : LB512.Location = New Drawing.Point(syy1, sxx)
            sxx = LB513.Location.Y : LB513.Location = New Drawing.Point(syy2, sxx) : sxx = LB514.Location.Y : LB514.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB513_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB513.Size.Height : sxx = LB513.Location.Y : NU4 = LB514.Location.X : LB514.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB513_Click(sender As Object, e As EventArgs) Handles LB513.Click
        PA = LB513.Text : 合約內文修改視窗.ShowDialog() : LB513.Text = PA : LB513_移動()
    End Sub
    Private Sub LB513_LocationChanged(sender As Object, e As EventArgs) Handles LB513.LocationChanged
        LB513_移動()
    End Sub
    Private Sub LB513_TextChanged(sender As Object, e As EventArgs) Handles LB513.TextChanged
        LB513_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB514_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB514.Size.Height : sxx = LB514.Location.Y : NU3 = LB515.Location.X : NU4 = LB516.Location.X
            LB515.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB516.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB514_Click(sender As Object, e As EventArgs) Handles LB514.Click
        PA = LB514.Text : 合約內文修改視窗.ShowDialog() : LB514.Text = PA : LB514_移動()
    End Sub
    Private Sub LB514_LocationChanged(sender As Object, e As EventArgs) Handles LB514.LocationChanged
        LB514_移動()
    End Sub
    Private Sub LB514_TextChanged(sender As Object, e As EventArgs) Handles LB514.TextChanged
        LB514_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB515_Click(sender As Object, e As EventArgs) Handles LB515.Click
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            NU5 = LB515.Location.X : BL1 = True : PA = LB515.Text : 合約內文修改視窗.ShowDialog() : LB515.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB515.Location.Y : LB515.Location = New Drawing.Point(syy1, sxx)
            sxx = LB516.Location.Y : LB516.Location = New Drawing.Point(syy2, sxx) : sxx = LB517.Location.Y : LB517.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB516_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB516.Size.Height : sxx = LB516.Location.Y : NU4 = LB517.Location.X : LB517.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB516_Click(sender As Object, e As EventArgs) Handles LB516.Click
        PA = LB516.Text : 合約內文修改視窗.ShowDialog() : LB516.Text = PA : LB516_移動()
    End Sub
    Private Sub LB516_LocationChanged(sender As Object, e As EventArgs) Handles LB516.LocationChanged
        LB516_移動()
    End Sub
    Private Sub LB516_TextChanged(sender As Object, e As EventArgs) Handles LB516.TextChanged
        LB516_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB517_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB517.Size.Height : sxx = LB517.Location.Y : NU3 = LB518.Location.X : NU4 = LB519.Location.X
            LB518.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB519.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB517_Click(sender As Object, e As EventArgs) Handles LB517.Click
        PA = LB517.Text : 合約內文修改視窗.ShowDialog() : LB517.Text = PA : LB517_移動()
    End Sub
    Private Sub LB517_LocationChanged(sender As Object, e As EventArgs) Handles LB517.LocationChanged
        LB517_移動()
    End Sub
    Private Sub LB517_TextChanged(sender As Object, e As EventArgs) Handles LB517.TextChanged
        LB517_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB518_Click(sender As Object, e As EventArgs) Handles LB518.Click
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            NU5 = LB518.Location.X : BL1 = True : PA = LB518.Text : 合約內文修改視窗.ShowDialog() : LB518.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB518.Location.Y : LB518.Location = New Drawing.Point(syy1, sxx)
            sxx = LB519.Location.Y : LB519.Location = New Drawing.Point(syy2, sxx) : sxx = LB520.Location.Y : LB520.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB519_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB519.Size.Height : sxx = LB519.Location.Y : NU4 = LB520.Location.X : LB520.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB519_Click(sender As Object, e As EventArgs) Handles LB519.Click
        PA = LB519.Text : 合約內文修改視窗.ShowDialog() : LB519.Text = PA : LB519_移動()
    End Sub
    Private Sub LB519_LocationChanged(sender As Object, e As EventArgs) Handles LB519.LocationChanged
        LB519_移動()
    End Sub
    Private Sub LB519_TextChanged(sender As Object, e As EventArgs) Handles LB519.TextChanged
        LB519_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB520_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB520.Size.Height : sxx = LB520.Location.Y : NU3 = LB521.Location.X : NU4 = LB522.Location.X
            LB521.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB522.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB520_Click(sender As Object, e As EventArgs) Handles LB520.Click
        PA = LB520.Text : 合約內文修改視窗.ShowDialog() : LB520.Text = PA : LB520_移動()
    End Sub
    Private Sub LB520_LocationChanged(sender As Object, e As EventArgs) Handles LB520.LocationChanged
        LB520_移動()
    End Sub
    Private Sub LB520_TextChanged(sender As Object, e As EventArgs) Handles LB520.TextChanged
        LB520_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB521_Click(sender As Object, e As EventArgs) Handles LB521.Click
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            NU5 = LB521.Location.X : BL1 = True : PA = LB521.Text : 合約內文修改視窗.ShowDialog() : LB521.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB521.Location.Y : LB521.Location = New Drawing.Point(syy1, sxx)
            sxx = LB522.Location.Y : LB522.Location = New Drawing.Point(syy2, sxx) : sxx = LB523.Location.Y : LB523.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB522_移動()
        If 翻頁_nud.Value = 11 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB522.Size.Height : sxx = LB522.Location.Y : NU4 = LB523.Location.X : LB523.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB522_Click(sender As Object, e As EventArgs) Handles LB522.Click
        PA = LB522.Text : 合約內文修改視窗.ShowDialog() : LB522.Text = PA : LB522_移動()
    End Sub
    Private Sub LB522_LocationChanged(sender As Object, e As EventArgs) Handles LB522.LocationChanged
        LB522_移動()
    End Sub
    Private Sub LB522_TextChanged(sender As Object, e As EventArgs) Handles LB522.TextChanged
        LB522_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB523_Click(sender As Object, e As EventArgs) Handles LB523.Click
        PA = LB523.Text : 合約內文修改視窗.ShowDialog() : LB523.Text = PA
    End Sub
    '---------------------------第10頁----------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub LB524_Click(sender As Object, e As EventArgs) Handles LB524.Click
        PA = LB524.Text : 合約內文修改視窗.ShowDialog() : LB524.Text = PA
    End Sub
    Private Sub LB525_Click(sender As Object, e As EventArgs) Handles LB525.Click
        PA = LB525.Text : 合約內文修改視窗.ShowDialog() : LB525.Text = PA
    End Sub
    Private Sub LB526_Click(sender As Object, e As EventArgs) Handles LB526.Click
        PA = LB526.Text : 合約內文修改視窗.ShowDialog() : LB526.Text = PA
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB527_Click(sender As Object, e As EventArgs) Handles LB527.Click
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            NU5 = LB527.Location.X : BL1 = True : PA = LB527.Text : 合約內文修改視窗.ShowDialog() : LB527.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB527.Location.Y : LB527.Location = New Drawing.Point(syy1, sxx)
            sxx = LB115.Location.Y : LB115.Location = New Drawing.Point(syy2, sxx) : sxx = LB116.Location.Y : LB116.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB115_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB115.Size.Height : sxx = LB115.Location.Y : NU4 = LB116.Location.X : LB116.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB115_Click(sender As Object, e As EventArgs) Handles LB115.Click
        PA = LB115.Text : 合約內文修改視窗.ShowDialog() : LB115.Text = PA : LB115_移動()
    End Sub
    Private Sub LB115_LocationChanged(sender As Object, e As EventArgs) Handles LB115.LocationChanged
        LB115_移動()
    End Sub
    Private Sub LB115_TextChanged(sender As Object, e As EventArgs) Handles LB115.TextChanged
        LB115_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB116_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB116.Size.Height : sxx = LB116.Location.Y : NU3 = LB528.Location.X : NU4 = LB529.Location.X
            LB528.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB529.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB116_Click(sender As Object, e As EventArgs) Handles LB116.Click
        PA = LB116.Text : 合約內文修改視窗.ShowDialog() : LB116.Text = PA : LB116_移動()
    End Sub
    Private Sub LB116_LocationChanged(sender As Object, e As EventArgs) Handles LB116.LocationChanged
        LB116_移動()
    End Sub
    Private Sub LB116_TextChanged(sender As Object, e As EventArgs) Handles LB116.TextChanged
        LB116_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB528_Click(sender As Object, e As EventArgs) Handles LB528.Click
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            NU5 = LB528.Location.X : BL1 = True : PA = LB528.Text : 合約內文修改視窗.ShowDialog() : LB528.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB528.Location.Y : LB528.Location = New Drawing.Point(syy1, sxx)
            sxx = LB529.Location.Y : LB529.Location = New Drawing.Point(syy2, sxx) : sxx = LB530.Location.Y : LB530.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB529_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB529.Size.Height : sxx = LB529.Location.Y : NU4 = LB530.Location.X : LB530.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB529_Click(sender As Object, e As EventArgs) Handles LB529.Click
        PA = LB529.Text : 合約內文修改視窗.ShowDialog() : LB529.Text = PA : LB529_移動()
    End Sub
    Private Sub LB529_LocationChanged(sender As Object, e As EventArgs) Handles LB529.LocationChanged
        LB529_移動()
    End Sub
    Private Sub LB529_TextChanged(sender As Object, e As EventArgs) Handles LB529.TextChanged
        LB529_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB530_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB530.Size.Height : sxx = LB530.Location.Y : NU3 = LB531.Location.X : NU4 = LB532.Location.X
            LB531.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB532.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB530_Click(sender As Object, e As EventArgs) Handles LB530.Click
        PA = LB530.Text : 合約內文修改視窗.ShowDialog() : LB530.Text = PA : LB530_移動()
    End Sub
    Private Sub LB530_LocationChanged(sender As Object, e As EventArgs) Handles LB530.LocationChanged
        LB530_移動()
    End Sub
    Private Sub LB530_TextChanged(sender As Object, e As EventArgs) Handles LB530.TextChanged
        LB530_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB531_Click(sender As Object, e As EventArgs) Handles LB531.Click
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            NU5 = LB531.Location.X : BL1 = True : PA = LB531.Text : 合約內文修改視窗.ShowDialog() : LB531.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB531.Location.Y : LB531.Location = New Drawing.Point(syy1, sxx)
            sxx = LB532.Location.Y : LB532.Location = New Drawing.Point(syy2, sxx) : sxx = LB533.Location.Y : LB533.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB532_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB532.Size.Height : sxx = LB532.Location.Y : NU4 = LB533.Location.X : LB533.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB532_Click(sender As Object, e As EventArgs) Handles LB532.Click
        PA = LB532.Text : 合約內文修改視窗.ShowDialog() : LB532.Text = PA : LB532_移動()
    End Sub
    Private Sub LB532_LocationChanged(sender As Object, e As EventArgs) Handles LB532.LocationChanged
        LB532_移動()
    End Sub
    Private Sub LB532_TextChanged(sender As Object, e As EventArgs) Handles LB532.TextChanged
        LB532_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB533_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB533.Size.Height : sxx = LB533.Location.Y : NU3 = LB534.Location.X : NU4 = LB535.Location.X
            LB534.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB535.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB533_Click(sender As Object, e As EventArgs) Handles LB533.Click
        PA = LB533.Text : 合約內文修改視窗.ShowDialog() : LB533.Text = PA : LB533_移動()
    End Sub
    Private Sub LB533_LocationChanged(sender As Object, e As EventArgs) Handles LB533.LocationChanged
        LB533_移動()
    End Sub
    Private Sub LB533_TextChanged(sender As Object, e As EventArgs) Handles LB533.TextChanged
        LB533_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB534_Click(sender As Object, e As EventArgs) Handles LB534.Click
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            NU5 = LB534.Location.X : BL1 = True : PA = LB534.Text : 合約內文修改視窗.ShowDialog() : LB534.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB534.Location.Y : LB534.Location = New Drawing.Point(syy1, sxx)
            sxx = LB535.Location.Y : LB535.Location = New Drawing.Point(syy2, sxx) : sxx = LB536.Location.Y : LB536.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB535_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB535.Size.Height : sxx = LB535.Location.Y : NU4 = LB536.Location.X : LB536.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB535_Click(sender As Object, e As EventArgs) Handles LB535.Click
        PA = LB535.Text : 合約內文修改視窗.ShowDialog() : LB535.Text = PA : LB535_移動()
    End Sub
    Private Sub LB535_LocationChanged(sender As Object, e As EventArgs) Handles LB535.LocationChanged
        LB535_移動()
    End Sub
    Private Sub LB535_TextChanged(sender As Object, e As EventArgs) Handles LB535.TextChanged
        LB535_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB536_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB536.Size.Height : sxx = LB536.Location.Y : NU3 = LB537.Location.X : NU4 = LB538.Location.X
            LB537.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB538.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB536_Click(sender As Object, e As EventArgs) Handles LB536.Click
        PA = LB536.Text : 合約內文修改視窗.ShowDialog() : LB536.Text = PA : LB536_移動()
    End Sub
    Private Sub LB536_LocationChanged(sender As Object, e As EventArgs) Handles LB536.LocationChanged
        LB536_移動()
    End Sub
    Private Sub LB536_TextChanged(sender As Object, e As EventArgs) Handles LB536.TextChanged
        LB536_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB537_Click(sender As Object, e As EventArgs) Handles LB537.Click
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            NU5 = LB537.Location.X : BL1 = True : PA = LB537.Text : 合約內文修改視窗.ShowDialog() : LB537.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB537.Location.Y : LB537.Location = New Drawing.Point(syy1, sxx)
            sxx = LB538.Location.Y : LB538.Location = New Drawing.Point(syy2, sxx) : sxx = LB539.Location.Y : LB539.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB538_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB538.Size.Height : sxx = LB538.Location.Y : NU4 = LB539.Location.X : LB539.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB538_Click(sender As Object, e As EventArgs) Handles LB538.Click
        PA = LB538.Text : 合約內文修改視窗.ShowDialog() : LB538.Text = PA : LB538_移動()
    End Sub
    Private Sub LB538_LocationChanged(sender As Object, e As EventArgs) Handles LB538.LocationChanged
        LB538_移動()
    End Sub
    Private Sub LB538_TextChanged(sender As Object, e As EventArgs) Handles LB538.TextChanged
        LB538_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB539_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB539.Size.Height : sxx = LB539.Location.Y : NU3 = LB540.Location.X : NU4 = LB541.Location.X
            LB540.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB541.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB539_Click(sender As Object, e As EventArgs) Handles LB539.Click
        PA = LB539.Text : 合約內文修改視窗.ShowDialog() : LB539.Text = PA : LB539_移動()
    End Sub
    Private Sub LB539_LocationChanged(sender As Object, e As EventArgs) Handles LB539.LocationChanged
        LB539_移動()
    End Sub
    Private Sub LB539_TextChanged(sender As Object, e As EventArgs) Handles LB539.TextChanged
        LB539_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB540_Click(sender As Object, e As EventArgs) Handles LB540.Click
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            NU5 = LB540.Location.X : BL1 = True : PA = LB540.Text : 合約內文修改視窗.ShowDialog() : LB540.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB540.Location.Y : LB540.Location = New Drawing.Point(syy1, sxx)
            sxx = LB541.Location.Y : LB541.Location = New Drawing.Point(syy2, sxx) : sxx = LB542.Location.Y : LB542.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB541_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB541.Size.Height : sxx = LB541.Location.Y : NU4 = LB542.Location.X : LB542.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB541_Click(sender As Object, e As EventArgs) Handles LB541.Click
        PA = LB541.Text : 合約內文修改視窗.ShowDialog() : LB541.Text = PA : LB541_移動()
    End Sub
    Private Sub LB541_LocationChanged(sender As Object, e As EventArgs) Handles LB541.LocationChanged
        LB541_移動()
    End Sub
    Private Sub LB541_TextChanged(sender As Object, e As EventArgs) Handles LB541.TextChanged
        LB541_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB542_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB542.Size.Height : sxx = LB542.Location.Y : NU3 = LB543.Location.X : NU4 = LB544.Location.X
            LB543.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB544.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB542_Click(sender As Object, e As EventArgs) Handles LB542.Click
        PA = LB542.Text : 合約內文修改視窗.ShowDialog() : LB542.Text = PA : LB542_移動()
    End Sub
    Private Sub LB542_LocationChanged(sender As Object, e As EventArgs) Handles LB542.LocationChanged
        LB542_移動()
    End Sub
    Private Sub LB542_TextChanged(sender As Object, e As EventArgs) Handles LB542.TextChanged
        LB542_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB543_Click(sender As Object, e As EventArgs) Handles LB543.Click
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            NU5 = LB543.Location.X : BL1 = True : PA = LB543.Text : 合約內文修改視窗.ShowDialog() : LB543.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB543.Location.Y : LB543.Location = New Drawing.Point(syy1, sxx)
            sxx = LB544.Location.Y : LB544.Location = New Drawing.Point(syy2, sxx) : sxx = LB545.Location.Y : LB545.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB544_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB544.Size.Height : sxx = LB544.Location.Y : NU4 = LB545.Location.X : LB545.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB544_Click(sender As Object, e As EventArgs) Handles LB544.Click
        PA = LB544.Text : 合約內文修改視窗.ShowDialog() : LB544.Text = PA : LB544_移動()
    End Sub
    Private Sub LB544_LocationChanged(sender As Object, e As EventArgs) Handles LB544.LocationChanged
        LB544_移動()
    End Sub
    Private Sub LB544_TextChanged(sender As Object, e As EventArgs) Handles LB544.TextChanged
        LB544_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB545_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB545.Size.Height : sxx = LB545.Location.Y : NU3 = LB546.Location.X : NU4 = LB547.Location.X
            LB546.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB547.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB545_Click(sender As Object, e As EventArgs) Handles LB545.Click
        PA = LB545.Text : 合約內文修改視窗.ShowDialog() : LB545.Text = PA : LB545_移動()
    End Sub
    Private Sub LB545_LocationChanged(sender As Object, e As EventArgs) Handles LB545.LocationChanged
        LB545_移動()
    End Sub
    Private Sub LB545_TextChanged(sender As Object, e As EventArgs) Handles LB545.TextChanged
        LB545_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB546_Click(sender As Object, e As EventArgs) Handles LB546.Click
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            NU5 = LB546.Location.X : BL1 = True : PA = LB546.Text : 合約內文修改視窗.ShowDialog() : LB546.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB546.Location.Y : LB546.Location = New Drawing.Point(syy1, sxx)
            sxx = LB547.Location.Y : LB547.Location = New Drawing.Point(syy2, sxx) : sxx = LB548.Location.Y : LB548.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB547_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB547.Size.Height : sxx = LB547.Location.Y : NU4 = LB548.Location.X : LB548.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB547_Click(sender As Object, e As EventArgs) Handles LB547.Click
        PA = LB547.Text : 合約內文修改視窗.ShowDialog() : LB547.Text = PA : LB547_移動()
    End Sub
    Private Sub LB547_LocationChanged(sender As Object, e As EventArgs) Handles LB547.LocationChanged
        LB547_移動()
    End Sub
    Private Sub LB547_TextChanged(sender As Object, e As EventArgs) Handles LB547.TextChanged
        LB547_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB548_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB548.Size.Height : sxx = LB548.Location.Y : NU3 = LB549.Location.X : NU4 = LB550.Location.X
            LB549.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB550.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB548_Click(sender As Object, e As EventArgs) Handles LB548.Click
        PA = LB548.Text : 合約內文修改視窗.ShowDialog() : LB548.Text = PA : LB548_移動()
    End Sub
    Private Sub LB548_LocationChanged(sender As Object, e As EventArgs) Handles LB548.LocationChanged
        LB548_移動()
    End Sub
    Private Sub LB548_TextChanged(sender As Object, e As EventArgs) Handles LB548.TextChanged
        LB548_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB549_Click(sender As Object, e As EventArgs) Handles LB549.Click
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            NU5 = LB549.Location.X : BL1 = True : PA = LB549.Text : 合約內文修改視窗.ShowDialog() : LB549.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB549.Location.Y : LB549.Location = New Drawing.Point(syy1, sxx)
            sxx = LB550.Location.Y : LB550.Location = New Drawing.Point(syy2, sxx) : sxx = LB551.Location.Y : LB551.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB550_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB550.Size.Height : sxx = LB550.Location.Y : NU4 = LB551.Location.X : LB551.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB550_Click(sender As Object, e As EventArgs) Handles LB550.Click
        PA = LB550.Text : 合約內文修改視窗.ShowDialog() : LB550.Text = PA : LB550_移動()
    End Sub
    Private Sub LB550_LocationChanged(sender As Object, e As EventArgs) Handles LB550.LocationChanged
        LB550_移動()
    End Sub
    Private Sub LB550_TextChanged(sender As Object, e As EventArgs) Handles LB550.TextChanged
        LB550_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB551_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB551.Size.Height : sxx = LB551.Location.Y : NU3 = LB552.Location.X : NU4 = LB553.Location.X
            LB552.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB553.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB551_Click(sender As Object, e As EventArgs) Handles LB551.Click
        PA = LB551.Text : 合約內文修改視窗.ShowDialog() : LB551.Text = PA : LB551_移動()
    End Sub
    Private Sub LB551_LocationChanged(sender As Object, e As EventArgs) Handles LB551.LocationChanged
        LB551_移動()
    End Sub
    Private Sub LB551_TextChanged(sender As Object, e As EventArgs) Handles LB551.TextChanged
        LB551_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB552_Click(sender As Object, e As EventArgs) Handles LB552.Click
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            NU5 = LB552.Location.X : BL1 = True : PA = LB552.Text : 合約內文修改視窗.ShowDialog() : LB552.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB552.Location.Y : LB552.Location = New Drawing.Point(syy1, sxx)
            sxx = LB553.Location.Y : LB553.Location = New Drawing.Point(syy2, sxx) : sxx = LB554.Location.Y : LB554.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB553_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB553.Size.Height : sxx = LB553.Location.Y : NU4 = LB554.Location.X : LB554.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB553_Click(sender As Object, e As EventArgs) Handles LB553.Click
        PA = LB553.Text : 合約內文修改視窗.ShowDialog() : LB553.Text = PA : LB553_移動()
    End Sub
    Private Sub LB553_LocationChanged(sender As Object, e As EventArgs) Handles LB553.LocationChanged
        LB553_移動()
    End Sub
    Private Sub LB553_TextChanged(sender As Object, e As EventArgs) Handles LB553.TextChanged
        LB553_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB554_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB554.Size.Height : sxx = LB554.Location.Y : NU3 = LB555.Location.X : NU4 = LB556.Location.X
            LB555.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB556.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB554_Click(sender As Object, e As EventArgs) Handles LB554.Click
        PA = LB554.Text : 合約內文修改視窗.ShowDialog() : LB554.Text = PA : LB554_移動()
    End Sub
    Private Sub LB554_LocationChanged(sender As Object, e As EventArgs) Handles LB554.LocationChanged
        LB554_移動()
    End Sub
    Private Sub LB554_TextChanged(sender As Object, e As EventArgs) Handles LB554.TextChanged
        LB554_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB555_Click(sender As Object, e As EventArgs) Handles LB555.Click
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            NU5 = LB555.Location.X : BL1 = True : PA = LB555.Text : 合約內文修改視窗.ShowDialog() : LB555.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB555.Location.Y : LB555.Location = New Drawing.Point(syy1, sxx)
            sxx = LB556.Location.Y : LB556.Location = New Drawing.Point(syy2, sxx) : sxx = LB557.Location.Y : LB557.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB556_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB556.Size.Height : sxx = LB556.Location.Y : NU4 = LB557.Location.X : LB557.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB556_Click(sender As Object, e As EventArgs) Handles LB556.Click
        PA = LB556.Text : 合約內文修改視窗.ShowDialog() : LB556.Text = PA : LB556_移動()
    End Sub
    Private Sub LB556_LocationChanged(sender As Object, e As EventArgs) Handles LB556.LocationChanged
        LB556_移動()
    End Sub
    Private Sub LB556_TextChanged(sender As Object, e As EventArgs) Handles LB556.TextChanged
        LB556_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB557_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB557.Size.Height : sxx = LB557.Location.Y : NU3 = LB558.Location.X : NU4 = LB559.Location.X
            LB558.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB559.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB557_Click(sender As Object, e As EventArgs) Handles LB557.Click
        PA = LB557.Text : 合約內文修改視窗.ShowDialog() : LB557.Text = PA : LB557_移動()
    End Sub
    Private Sub LB557_LocationChanged(sender As Object, e As EventArgs) Handles LB557.LocationChanged
        LB557_移動()
    End Sub
    Private Sub LB557_TextChanged(sender As Object, e As EventArgs) Handles LB557.TextChanged
        LB557_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB558_Click(sender As Object, e As EventArgs) Handles LB558.Click
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            NU5 = LB558.Location.X : BL1 = True : PA = LB558.Text : 合約內文修改視窗.ShowDialog() : LB558.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB558.Location.Y : LB558.Location = New Drawing.Point(syy1, sxx)
            sxx = LB559.Location.Y : LB559.Location = New Drawing.Point(syy2, sxx) : sxx = LB560.Location.Y : LB560.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB559_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB559.Size.Height : sxx = LB559.Location.Y : NU4 = LB560.Location.X : LB560.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB559_Click(sender As Object, e As EventArgs) Handles LB559.Click
        PA = LB559.Text : 合約內文修改視窗.ShowDialog() : LB559.Text = PA : LB559_移動()
    End Sub
    Private Sub LB559_LocationChanged(sender As Object, e As EventArgs) Handles LB559.LocationChanged
        LB559_移動()
    End Sub
    Private Sub LB559_TextChanged(sender As Object, e As EventArgs) Handles LB559.TextChanged
        LB559_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB560_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB560.Size.Height : sxx = LB560.Location.Y : NU3 = LB561.Location.X : NU4 = LB562.Location.X
            LB561.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB562.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB560_Click(sender As Object, e As EventArgs) Handles LB560.Click
        PA = LB560.Text : 合約內文修改視窗.ShowDialog() : LB560.Text = PA : LB560_移動()
    End Sub
    Private Sub LB560_LocationChanged(sender As Object, e As EventArgs) Handles LB560.LocationChanged
        LB560_移動()
    End Sub
    Private Sub LB560_TextChanged(sender As Object, e As EventArgs) Handles LB560.TextChanged
        LB560_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB561_Click(sender As Object, e As EventArgs) Handles LB561.Click
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            NU5 = LB561.Location.X : BL1 = True : PA = LB561.Text : 合約內文修改視窗.ShowDialog() : LB561.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB561.Location.Y : LB561.Location = New Drawing.Point(syy1, sxx)
            sxx = LB562.Location.Y : LB562.Location = New Drawing.Point(syy2, sxx) : sxx = LB563.Location.Y : LB563.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB562_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB562.Size.Height : sxx = LB562.Location.Y : NU4 = LB563.Location.X : LB563.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB562_Click(sender As Object, e As EventArgs) Handles LB562.Click
        PA = LB562.Text : 合約內文修改視窗.ShowDialog() : LB562.Text = PA : LB562_移動()
    End Sub
    Private Sub LB562_LocationChanged(sender As Object, e As EventArgs) Handles LB562.LocationChanged
        LB562_移動()
    End Sub
    Private Sub LB562_TextChanged(sender As Object, e As EventArgs) Handles LB562.TextChanged
        LB562_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB563_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB563.Size.Height : sxx = LB563.Location.Y : NU3 = LB564.Location.X : NU4 = LB565.Location.X
            LB564.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB565.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB563_Click(sender As Object, e As EventArgs) Handles LB563.Click
        PA = LB563.Text : 合約內文修改視窗.ShowDialog() : LB563.Text = PA : LB563_移動()
    End Sub
    Private Sub LB563_LocationChanged(sender As Object, e As EventArgs) Handles LB563.LocationChanged
        LB563_移動()
    End Sub
    Private Sub LB563_TextChanged(sender As Object, e As EventArgs) Handles LB563.TextChanged
        LB563_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB564_Click(sender As Object, e As EventArgs) Handles LB564.Click
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            NU5 = LB564.Location.X : BL1 = True : PA = LB564.Text : 合約內文修改視窗.ShowDialog() : LB564.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB564.Location.Y : LB564.Location = New Drawing.Point(syy1, sxx)
            sxx = LB565.Location.Y : LB565.Location = New Drawing.Point(syy2, sxx) : sxx = LB566.Location.Y : LB566.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB565_移動()
        If 翻頁_nud.Value = 10 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB565.Size.Height : sxx = LB565.Location.Y : NU4 = LB566.Location.X : LB566.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB565_Click(sender As Object, e As EventArgs) Handles LB565.Click
        PA = LB565.Text : 合約內文修改視窗.ShowDialog() : LB565.Text = PA : LB565_移動()
    End Sub
    Private Sub LB565_LocationChanged(sender As Object, e As EventArgs) Handles LB565.LocationChanged
        LB565_移動()
    End Sub
    Private Sub LB565_TextChanged(sender As Object, e As EventArgs) Handles LB565.TextChanged
        LB565_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB566_Click(sender As Object, e As EventArgs) Handles LB566.Click
        PA = LB566.Text : 合約內文修改視窗.ShowDialog() : LB566.Text = PA
    End Sub
    '---------------------------第9頁----------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub LB567_Click(sender As Object, e As EventArgs) Handles LB567.Click
        PA = LB567.Text : 合約內文修改視窗.ShowDialog() : LB567.Text = PA
    End Sub
    Private Sub LB568_Click(sender As Object, e As EventArgs) Handles LB568.Click
        PA = LB568.Text : 合約內文修改視窗.ShowDialog() : LB568.Text = PA
    End Sub
    Private Sub LB569_Click(sender As Object, e As EventArgs) Handles LB569.Click
        PA = LB569.Text : 合約內文修改視窗.ShowDialog() : LB569.Text = PA
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB570_Click(sender As Object, e As EventArgs) Handles LB570.Click
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            NU5 = LB570.Location.X : BL1 = True : PA = LB570.Text : 合約內文修改視窗.ShowDialog() : LB570.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB570.Location.Y : LB570.Location = New Drawing.Point(syy1, sxx)
            sxx = LB103.Location.Y : LB103.Location = New Drawing.Point(syy2, sxx) : sxx = LB104.Location.Y : LB104.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB103_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB103.Size.Height : sxx = LB103.Location.Y : NU4 = LB104.Location.X : LB104.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB103_Click(sender As Object, e As EventArgs) Handles LB103.Click
        PA = LB103.Text : 合約內文修改視窗.ShowDialog() : LB103.Text = PA : LB103_移動()
    End Sub
    Private Sub LB103_LocationChanged(sender As Object, e As EventArgs) Handles LB103.LocationChanged
        LB103_移動()
    End Sub
    Private Sub LB103_TextChanged(sender As Object, e As EventArgs) Handles LB103.TextChanged
        LB103_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB104_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB104.Size.Height : sxx = LB104.Location.Y : NU3 = LB571.Location.X : NU4 = LB105.Location.X
            LB571.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB105.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB104_Click(sender As Object, e As EventArgs) Handles LB104.Click
        PA = LB104.Text : 合約內文修改視窗.ShowDialog() : LB104.Text = PA : LB104_移動()
    End Sub
    Private Sub LB104_LocationChanged(sender As Object, e As EventArgs) Handles LB104.LocationChanged
        LB104_移動()
    End Sub
    Private Sub LB104_TextChanged(sender As Object, e As EventArgs) Handles LB104.TextChanged
        LB104_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB571_Click(sender As Object, e As EventArgs) Handles LB571.Click
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            NU5 = LB571.Location.X : BL1 = True : PA = LB571.Text : 合約內文修改視窗.ShowDialog() : LB571.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB571.Location.Y : LB571.Location = New Drawing.Point(syy1, sxx)
            sxx = LB105.Location.Y : LB105.Location = New Drawing.Point(syy2, sxx) : sxx = LB106.Location.Y : LB106.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB105_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB105.Size.Height : sxx = LB105.Location.Y : NU4 = LB106.Location.X : LB106.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB105_Click(sender As Object, e As EventArgs) Handles LB105.Click
        PA = LB105.Text : 合約內文修改視窗.ShowDialog() : LB105.Text = PA : LB105_移動()
    End Sub
    Private Sub LB105_LocationChanged(sender As Object, e As EventArgs) Handles LB105.LocationChanged
        LB105_移動()
    End Sub
    Private Sub LB105_TextChanged(sender As Object, e As EventArgs) Handles LB105.TextChanged
        LB105_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB106_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB106.Size.Height : sxx = LB106.Location.Y : NU3 = LB572.Location.X : NU4 = LB107.Location.X
            LB572.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB107.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB106_Click(sender As Object, e As EventArgs) Handles LB106.Click
        PA = LB106.Text : 合約內文修改視窗.ShowDialog() : LB106.Text = PA : LB106_移動()
    End Sub
    Private Sub LB106_LocationChanged(sender As Object, e As EventArgs) Handles LB106.LocationChanged
        LB106_移動()
    End Sub
    Private Sub LB106_TextChanged(sender As Object, e As EventArgs) Handles LB106.TextChanged
        LB106_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB572_Click(sender As Object, e As EventArgs) Handles LB572.Click
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            NU5 = LB572.Location.X : BL1 = True : PA = LB572.Text : 合約內文修改視窗.ShowDialog() : LB572.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB572.Location.Y : LB572.Location = New Drawing.Point(syy1, sxx)
            sxx = LB107.Location.Y : LB107.Location = New Drawing.Point(syy2, sxx) : sxx = LB108.Location.Y : LB108.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB107_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB107.Size.Height : sxx = LB107.Location.Y : NU4 = LB108.Location.X : LB108.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB107_Click(sender As Object, e As EventArgs) Handles LB107.Click
        PA = LB107.Text : 合約內文修改視窗.ShowDialog() : LB107.Text = PA : LB107_移動()
    End Sub
    Private Sub LB107_LocationChanged(sender As Object, e As EventArgs) Handles LB107.LocationChanged
        LB107_移動()
    End Sub
    Private Sub LB107_TextChanged(sender As Object, e As EventArgs) Handles LB107.TextChanged
        LB107_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB108_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB108.Size.Height : sxx = LB108.Location.Y : NU3 = LB573.Location.X : NU4 = LB109.Location.X
            LB573.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB109.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB108_Click(sender As Object, e As EventArgs) Handles LB108.Click
        PA = LB108.Text : 合約內文修改視窗.ShowDialog() : LB108.Text = PA : LB108_移動()
    End Sub
    Private Sub LB108_LocationChanged(sender As Object, e As EventArgs) Handles LB108.LocationChanged
        LB108_移動()
    End Sub
    Private Sub LB108_TextChanged(sender As Object, e As EventArgs) Handles LB108.TextChanged
        LB108_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB573_Click(sender As Object, e As EventArgs) Handles LB573.Click
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            NU5 = LB573.Location.X : BL1 = True : PA = LB573.Text : 合約內文修改視窗.ShowDialog() : LB573.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB573.Location.Y : LB573.Location = New Drawing.Point(syy1, sxx)
            sxx = LB109.Location.Y : LB109.Location = New Drawing.Point(syy2, sxx) : sxx = LB110.Location.Y : LB110.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB109_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB109.Size.Height : sxx = LB109.Location.Y : NU4 = LB110.Location.X : LB110.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB109_Click(sender As Object, e As EventArgs) Handles LB109.Click
        PA = LB109.Text : 合約內文修改視窗.ShowDialog() : LB109.Text = PA : LB109_移動()
    End Sub
    Private Sub LB109_LocationChanged(sender As Object, e As EventArgs) Handles LB109.LocationChanged
        LB109_移動()
    End Sub
    Private Sub LB109_TextChanged(sender As Object, e As EventArgs) Handles LB109.TextChanged
        LB109_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB110_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB110.Size.Height : sxx = LB110.Location.Y : NU3 = LB574.Location.X : NU4 = LB111.Location.X
            LB574.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB111.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB110_Click(sender As Object, e As EventArgs) Handles LB110.Click
        PA = LB110.Text : 合約內文修改視窗.ShowDialog() : LB110.Text = PA : LB110_移動()
    End Sub
    Private Sub LB110_LocationChanged(sender As Object, e As EventArgs) Handles LB110.LocationChanged
        LB110_移動()
    End Sub
    Private Sub LB110_TextChanged(sender As Object, e As EventArgs) Handles LB110.TextChanged
        LB110_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB574_Click(sender As Object, e As EventArgs) Handles LB574.Click
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            NU5 = LB574.Location.X : BL1 = True : PA = LB574.Text : 合約內文修改視窗.ShowDialog() : LB574.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB574.Location.Y : LB574.Location = New Drawing.Point(syy1, sxx)
            sxx = LB111.Location.Y : LB111.Location = New Drawing.Point(syy2, sxx) : sxx = LB112.Location.Y : LB112.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB111_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB111.Size.Height : sxx = LB111.Location.Y : NU4 = LB112.Location.X : LB112.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB111_Click(sender As Object, e As EventArgs) Handles LB111.Click
        PA = LB111.Text : 合約內文修改視窗.ShowDialog() : LB111.Text = PA : LB111_移動()
    End Sub
    Private Sub LB111_LocationChanged(sender As Object, e As EventArgs) Handles LB111.LocationChanged
        LB111_移動()
    End Sub
    Private Sub LB111_TextChanged(sender As Object, e As EventArgs) Handles LB111.TextChanged
        LB111_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB112_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB112.Size.Height : sxx = LB112.Location.Y : NU3 = LB575.Location.X : NU4 = LB113.Location.X
            LB575.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB113.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB112_Click(sender As Object, e As EventArgs) Handles LB112.Click
        PA = LB112.Text : 合約內文修改視窗.ShowDialog() : LB112.Text = PA : LB112_移動()
    End Sub
    Private Sub LB112_LocationChanged(sender As Object, e As EventArgs) Handles LB112.LocationChanged
        LB112_移動()
    End Sub
    Private Sub LB112_TextChanged(sender As Object, e As EventArgs) Handles LB112.TextChanged
        LB112_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB575_Click(sender As Object, e As EventArgs) Handles LB575.Click
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            NU5 = LB575.Location.X : BL1 = True : PA = LB575.Text : 合約內文修改視窗.ShowDialog() : LB575.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB575.Location.Y : LB575.Location = New Drawing.Point(syy1, sxx)
            sxx = LB113.Location.Y : LB113.Location = New Drawing.Point(syy2, sxx) : sxx = LB114.Location.Y : LB114.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB113_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB113.Size.Height : sxx = LB113.Location.Y : NU4 = LB114.Location.X : LB114.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB113_Click(sender As Object, e As EventArgs) Handles LB113.Click
        PA = LB113.Text : 合約內文修改視窗.ShowDialog() : LB113.Text = PA : LB113_移動()
    End Sub
    Private Sub LB113_LocationChanged(sender As Object, e As EventArgs) Handles LB113.LocationChanged
        LB113_移動()
    End Sub
    Private Sub LB113_TextChanged(sender As Object, e As EventArgs) Handles LB113.TextChanged
        LB113_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB114_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB114.Size.Height : sxx = LB114.Location.Y : NU3 = LB576.Location.X : NU4 = LB577.Location.X
            LB576.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB577.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB114_Click(sender As Object, e As EventArgs) Handles LB114.Click
        PA = LB114.Text : 合約內文修改視窗.ShowDialog() : LB114.Text = PA : LB114_移動()
    End Sub
    Private Sub LB114_LocationChanged(sender As Object, e As EventArgs) Handles LB114.LocationChanged
        LB114_移動()
    End Sub
    Private Sub LB114_TextChanged(sender As Object, e As EventArgs) Handles LB114.TextChanged
        LB114_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB576_Click(sender As Object, e As EventArgs) Handles LB576.Click
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            NU5 = LB576.Location.X : BL1 = True : PA = LB576.Text : 合約內文修改視窗.ShowDialog() : LB576.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB576.Location.Y : LB576.Location = New Drawing.Point(syy1, sxx)
            sxx = LB577.Location.Y : LB577.Location = New Drawing.Point(syy2, sxx) : sxx = LB578.Location.Y : LB578.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB577_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB577.Size.Height : sxx = LB577.Location.Y : NU4 = LB578.Location.X : LB578.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB577_Click(sender As Object, e As EventArgs) Handles LB577.Click
        PA = LB577.Text : 合約內文修改視窗.ShowDialog() : LB577.Text = PA : LB577_移動()
    End Sub
    Private Sub LB577_LocationChanged(sender As Object, e As EventArgs) Handles LB577.LocationChanged
        LB577_移動()
    End Sub
    Private Sub LB577_TextChanged(sender As Object, e As EventArgs) Handles LB577.TextChanged
        LB577_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB578_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB578.Size.Height : sxx = LB578.Location.Y : NU3 = LB579.Location.X : NU4 = LB580.Location.X
            LB579.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB580.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB578_Click(sender As Object, e As EventArgs) Handles LB578.Click
        PA = LB578.Text : 合約內文修改視窗.ShowDialog() : LB578.Text = PA : LB578_移動()
    End Sub
    Private Sub LB578_LocationChanged(sender As Object, e As EventArgs) Handles LB578.LocationChanged
        LB578_移動()
    End Sub
    Private Sub LB578_TextChanged(sender As Object, e As EventArgs) Handles LB578.TextChanged
        LB578_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB579_Click(sender As Object, e As EventArgs) Handles LB579.Click
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            NU5 = LB579.Location.X : BL1 = True : PA = LB579.Text : 合約內文修改視窗.ShowDialog() : LB579.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB579.Location.Y : LB579.Location = New Drawing.Point(syy1, sxx)
            sxx = LB580.Location.Y : LB580.Location = New Drawing.Point(syy2, sxx) : sxx = LB581.Location.Y : LB581.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB580_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB580.Size.Height : sxx = LB580.Location.Y : NU4 = LB581.Location.X : LB581.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB580_Click(sender As Object, e As EventArgs) Handles LB580.Click
        PA = LB580.Text : 合約內文修改視窗.ShowDialog() : LB580.Text = PA : LB580_移動()
    End Sub
    Private Sub LB580_LocationChanged(sender As Object, e As EventArgs) Handles LB580.LocationChanged
        LB580_移動()
    End Sub
    Private Sub LB580_TextChanged(sender As Object, e As EventArgs) Handles LB580.TextChanged
        LB580_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB581_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB581.Size.Height : sxx = LB581.Location.Y : NU3 = LB582.Location.X : NU4 = LB583.Location.X
            LB582.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB583.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB581_Click(sender As Object, e As EventArgs) Handles LB581.Click
        PA = LB581.Text : 合約內文修改視窗.ShowDialog() : LB581.Text = PA : LB581_移動()
    End Sub
    Private Sub LB581_LocationChanged(sender As Object, e As EventArgs) Handles LB581.LocationChanged
        LB581_移動()
    End Sub
    Private Sub LB581_TextChanged(sender As Object, e As EventArgs) Handles LB581.TextChanged
        LB581_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB582_Click(sender As Object, e As EventArgs) Handles LB582.Click
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            NU5 = LB582.Location.X : BL1 = True : PA = LB582.Text : 合約內文修改視窗.ShowDialog() : LB582.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB582.Location.Y : LB582.Location = New Drawing.Point(syy1, sxx)
            sxx = LB583.Location.Y : LB583.Location = New Drawing.Point(syy2, sxx) : sxx = LB584.Location.Y : LB584.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB583_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB583.Size.Height : sxx = LB583.Location.Y : NU4 = LB584.Location.X : LB584.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB583_Click(sender As Object, e As EventArgs) Handles LB583.Click
        PA = LB583.Text : 合約內文修改視窗.ShowDialog() : LB583.Text = PA : LB583_移動()
    End Sub
    Private Sub LB583_LocationChanged(sender As Object, e As EventArgs) Handles LB583.LocationChanged
        LB583_移動()
    End Sub
    Private Sub LB583_TextChanged(sender As Object, e As EventArgs) Handles LB583.TextChanged
        LB583_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB584_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB584.Size.Height : sxx = LB584.Location.Y : NU3 = LB585.Location.X : NU4 = LB586.Location.X
            LB585.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB586.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB584_Click(sender As Object, e As EventArgs) Handles LB584.Click
        PA = LB584.Text : 合約內文修改視窗.ShowDialog() : LB584.Text = PA : LB584_移動()
    End Sub
    Private Sub LB584_LocationChanged(sender As Object, e As EventArgs) Handles LB584.LocationChanged
        LB584_移動()
    End Sub
    Private Sub LB584_TextChanged(sender As Object, e As EventArgs) Handles LB584.TextChanged
        LB584_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB585_Click(sender As Object, e As EventArgs) Handles LB585.Click
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            NU5 = LB585.Location.X : BL1 = True : PA = LB585.Text : 合約內文修改視窗.ShowDialog() : LB585.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB585.Location.Y : LB585.Location = New Drawing.Point(syy1, sxx)
            sxx = LB586.Location.Y : LB586.Location = New Drawing.Point(syy2, sxx) : sxx = LB587.Location.Y : LB587.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB586_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB586.Size.Height : sxx = LB586.Location.Y : NU4 = LB587.Location.X : LB587.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB586_Click(sender As Object, e As EventArgs) Handles LB586.Click
        PA = LB586.Text : 合約內文修改視窗.ShowDialog() : LB586.Text = PA : LB586_移動()
    End Sub
    Private Sub LB586_LocationChanged(sender As Object, e As EventArgs) Handles LB586.LocationChanged
        LB586_移動()
    End Sub
    Private Sub LB586_TextChanged(sender As Object, e As EventArgs) Handles LB586.TextChanged
        LB586_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB587_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB587.Size.Height : sxx = LB587.Location.Y : NU3 = LB588.Location.X : NU4 = LB589.Location.X
            LB588.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB589.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB587_Click(sender As Object, e As EventArgs) Handles LB587.Click
        PA = LB587.Text : 合約內文修改視窗.ShowDialog() : LB587.Text = PA : LB587_移動()
    End Sub
    Private Sub LB587_LocationChanged(sender As Object, e As EventArgs) Handles LB587.LocationChanged
        LB587_移動()
    End Sub
    Private Sub LB587_TextChanged(sender As Object, e As EventArgs) Handles LB587.TextChanged
        LB587_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB588_Click(sender As Object, e As EventArgs) Handles LB588.Click
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            NU5 = LB588.Location.X : BL1 = True : PA = LB588.Text : 合約內文修改視窗.ShowDialog() : LB588.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB588.Location.Y : LB588.Location = New Drawing.Point(syy1, sxx)
            sxx = LB589.Location.Y : LB589.Location = New Drawing.Point(syy2, sxx) : sxx = LB590.Location.Y : LB590.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB589_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB589.Size.Height : sxx = LB589.Location.Y : NU4 = LB590.Location.X : LB590.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB589_Click(sender As Object, e As EventArgs) Handles LB589.Click
        PA = LB589.Text : 合約內文修改視窗.ShowDialog() : LB589.Text = PA : LB589_移動()
    End Sub
    Private Sub LB589_LocationChanged(sender As Object, e As EventArgs) Handles LB589.LocationChanged
        LB589_移動()
    End Sub
    Private Sub LB589_TextChanged(sender As Object, e As EventArgs) Handles LB589.TextChanged
        LB589_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB590_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB590.Size.Height : sxx = LB590.Location.Y : NU3 = LB591.Location.X : NU4 = LB592.Location.X
            LB591.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB592.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB590_Click(sender As Object, e As EventArgs) Handles LB590.Click
        PA = LB590.Text : 合約內文修改視窗.ShowDialog() : LB590.Text = PA : LB590_移動()
    End Sub
    Private Sub LB590_LocationChanged(sender As Object, e As EventArgs) Handles LB590.LocationChanged
        LB590_移動()
    End Sub
    Private Sub LB590_TextChanged(sender As Object, e As EventArgs) Handles LB590.TextChanged
        LB590_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB591_Click(sender As Object, e As EventArgs) Handles LB591.Click
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            NU5 = LB591.Location.X : BL1 = True : PA = LB591.Text : 合約內文修改視窗.ShowDialog() : LB591.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB591.Location.Y : LB591.Location = New Drawing.Point(syy1, sxx)
            sxx = LB592.Location.Y : LB592.Location = New Drawing.Point(syy2, sxx) : sxx = LB593.Location.Y : LB593.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB592_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB592.Size.Height : sxx = LB592.Location.Y : NU4 = LB593.Location.X : LB593.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB592_Click(sender As Object, e As EventArgs) Handles LB592.Click
        PA = LB592.Text : 合約內文修改視窗.ShowDialog() : LB592.Text = PA : LB592_移動()
    End Sub
    Private Sub LB592_LocationChanged(sender As Object, e As EventArgs) Handles LB592.LocationChanged
        LB592_移動()
    End Sub
    Private Sub LB592_TextChanged(sender As Object, e As EventArgs) Handles LB592.TextChanged
        LB592_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB593_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB593.Size.Height : sxx = LB593.Location.Y : NU3 = LB594.Location.X : NU4 = LB595.Location.X
            LB594.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB595.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB593_Click(sender As Object, e As EventArgs) Handles LB593.Click
        PA = LB593.Text : 合約內文修改視窗.ShowDialog() : LB593.Text = PA : LB593_移動()
    End Sub
    Private Sub LB593_LocationChanged(sender As Object, e As EventArgs) Handles LB593.LocationChanged
        LB593_移動()
    End Sub
    Private Sub LB593_TextChanged(sender As Object, e As EventArgs) Handles LB593.TextChanged
        LB593_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB594_Click(sender As Object, e As EventArgs) Handles LB594.Click
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            NU5 = LB594.Location.X : BL1 = True : PA = LB594.Text : 合約內文修改視窗.ShowDialog() : LB594.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB594.Location.Y : LB594.Location = New Drawing.Point(syy1, sxx)
            sxx = LB595.Location.Y : LB595.Location = New Drawing.Point(syy2, sxx) : sxx = LB596.Location.Y : LB596.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB595_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB595.Size.Height : sxx = LB595.Location.Y : NU4 = LB596.Location.X : LB596.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB595_Click(sender As Object, e As EventArgs) Handles LB595.Click
        PA = LB595.Text : 合約內文修改視窗.ShowDialog() : LB595.Text = PA : LB595_移動()
    End Sub
    Private Sub LB595_LocationChanged(sender As Object, e As EventArgs) Handles LB595.LocationChanged
        LB595_移動()
    End Sub
    Private Sub LB595_TextChanged(sender As Object, e As EventArgs) Handles LB595.TextChanged
        LB595_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB596_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB596.Size.Height : sxx = LB596.Location.Y : NU3 = LB597.Location.X : NU4 = LB598.Location.X
            LB597.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB598.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB596_Click(sender As Object, e As EventArgs) Handles LB596.Click
        PA = LB596.Text : 合約內文修改視窗.ShowDialog() : LB596.Text = PA : LB596_移動()
    End Sub
    Private Sub LB596_LocationChanged(sender As Object, e As EventArgs) Handles LB596.LocationChanged
        LB596_移動()
    End Sub
    Private Sub LB596_TextChanged(sender As Object, e As EventArgs) Handles LB596.TextChanged
        LB596_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB597_Click(sender As Object, e As EventArgs) Handles LB597.Click
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            NU5 = LB597.Location.X : BL1 = True : PA = LB597.Text : 合約內文修改視窗.ShowDialog() : LB597.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB597.Location.Y : LB597.Location = New Drawing.Point(syy1, sxx)
            sxx = LB598.Location.Y : LB598.Location = New Drawing.Point(syy2, sxx) : sxx = LB599.Location.Y : LB599.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB598_移動()
        If 翻頁_nud.Value = 9 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB598.Size.Height : sxx = LB598.Location.Y : NU4 = LB599.Location.X : LB599.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB598_Click(sender As Object, e As EventArgs) Handles LB598.Click
        PA = LB598.Text : 合約內文修改視窗.ShowDialog() : LB598.Text = PA : LB598_移動()
    End Sub
    Private Sub LB598_LocationChanged(sender As Object, e As EventArgs) Handles LB598.LocationChanged
        LB598_移動()
    End Sub
    Private Sub LB598_TextChanged(sender As Object, e As EventArgs) Handles LB598.TextChanged
        LB598_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB599_Click(sender As Object, e As EventArgs) Handles LB599.Click
        PA = LB599.Text : 合約內文修改視窗.ShowDialog() : LB599.Text = PA
    End Sub
    '---------------------------第8頁----------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub LB600_Click(sender As Object, e As EventArgs) Handles LB600.Click
        PA = LB600.Text : 合約內文修改視窗.ShowDialog() : LB600.Text = PA
    End Sub
    Private Sub LB601_Click(sender As Object, e As EventArgs) Handles LB601.Click
        PA = LB601.Text : 合約內文修改視窗.ShowDialog() : LB601.Text = PA
    End Sub
    Private Sub LB602_Click(sender As Object, e As EventArgs) Handles LB602.Click
        PA = LB602.Text : 合約內文修改視窗.ShowDialog() : LB602.Text = PA
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB603_Click(sender As Object, e As EventArgs) Handles LB603.Click
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            NU5 = LB603.Location.X : BL1 = True : PA = LB603.Text : 合約內文修改視窗.ShowDialog() : LB603.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB603.Location.Y : LB603.Location = New Drawing.Point(syy1, sxx)
            sxx = LB604.Location.Y : LB604.Location = New Drawing.Point(syy2, sxx) : sxx = LB605.Location.Y : LB605.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB604_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB604.Size.Height : sxx = LB604.Location.Y : NU4 = LB605.Location.X : LB605.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB604_Click(sender As Object, e As EventArgs) Handles LB604.Click
        PA = LB604.Text : 合約內文修改視窗.ShowDialog() : LB604.Text = PA : LB604_移動()
    End Sub
    Private Sub LB604_LocationChanged(sender As Object, e As EventArgs) Handles LB604.LocationChanged
        LB604_移動()
    End Sub
    Private Sub LB604_TextChanged(sender As Object, e As EventArgs) Handles LB604.TextChanged
        LB604_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB605_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB605.Size.Height : sxx = LB605.Location.Y : NU3 = LB606.Location.X : NU4 = LB607.Location.X
            LB606.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB607.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB605_Click(sender As Object, e As EventArgs) Handles LB605.Click
        PA = LB605.Text : 合約內文修改視窗.ShowDialog() : LB605.Text = PA : LB605_移動()
    End Sub
    Private Sub LB605_LocationChanged(sender As Object, e As EventArgs) Handles LB605.LocationChanged
        LB605_移動()
    End Sub
    Private Sub LB605_TextChanged(sender As Object, e As EventArgs) Handles LB605.TextChanged
        LB605_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB606_Click(sender As Object, e As EventArgs) Handles LB606.Click
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            NU5 = LB606.Location.X : BL1 = True : PA = LB606.Text : 合約內文修改視窗.ShowDialog() : LB606.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB606.Location.Y : LB606.Location = New Drawing.Point(syy1, sxx)
            sxx = LB607.Location.Y : LB607.Location = New Drawing.Point(syy2, sxx) : sxx = LB608.Location.Y : LB608.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB607_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB607.Size.Height : sxx = LB607.Location.Y : NU4 = LB608.Location.X : LB608.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB607_Click(sender As Object, e As EventArgs) Handles LB607.Click
        PA = LB607.Text : 合約內文修改視窗.ShowDialog() : LB607.Text = PA : LB607_移動()
    End Sub
    Private Sub LB607_LocationChanged(sender As Object, e As EventArgs) Handles LB607.LocationChanged
        LB607_移動()
    End Sub
    Private Sub LB607_TextChanged(sender As Object, e As EventArgs) Handles LB607.TextChanged
        LB607_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB608_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB608.Size.Height : sxx = LB608.Location.Y : NU3 = LB609.Location.X : NU4 = LB610.Location.X
            LB609.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB610.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB608_Click(sender As Object, e As EventArgs) Handles LB608.Click
        PA = LB608.Text : 合約內文修改視窗.ShowDialog() : LB608.Text = PA : LB608_移動()
    End Sub
    Private Sub LB608_LocationChanged(sender As Object, e As EventArgs) Handles LB608.LocationChanged
        LB608_移動()
    End Sub
    Private Sub LB608_TextChanged(sender As Object, e As EventArgs) Handles LB608.TextChanged
        LB608_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB609_Click(sender As Object, e As EventArgs) Handles LB609.Click
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            NU5 = LB609.Location.X : BL1 = True : PA = LB609.Text : 合約內文修改視窗.ShowDialog() : LB609.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB609.Location.Y : LB609.Location = New Drawing.Point(syy1, sxx)
            sxx = LB610.Location.Y : LB610.Location = New Drawing.Point(syy2, sxx) : sxx = LB611.Location.Y : LB611.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB610_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB610.Size.Height : sxx = LB610.Location.Y : NU4 = LB611.Location.X : LB611.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB610_Click(sender As Object, e As EventArgs) Handles LB610.Click
        PA = LB610.Text : 合約內文修改視窗.ShowDialog() : LB610.Text = PA : LB610_移動()
    End Sub
    Private Sub LB610_LocationChanged(sender As Object, e As EventArgs) Handles LB610.LocationChanged
        LB610_移動()
    End Sub
    Private Sub LB610_TextChanged(sender As Object, e As EventArgs) Handles LB610.TextChanged
        LB610_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB611_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB611.Size.Height : sxx = LB611.Location.Y : NU3 = LB612.Location.X : NU4 = LB613.Location.X
            LB612.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB613.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB611_Click(sender As Object, e As EventArgs) Handles LB611.Click
        PA = LB611.Text : 合約內文修改視窗.ShowDialog() : LB611.Text = PA : LB611_移動()
    End Sub
    Private Sub LB611_LocationChanged(sender As Object, e As EventArgs) Handles LB611.LocationChanged
        LB611_移動()
    End Sub
    Private Sub LB611_TextChanged(sender As Object, e As EventArgs) Handles LB611.TextChanged
        LB611_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB612_Click(sender As Object, e As EventArgs) Handles LB612.Click
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            NU5 = LB612.Location.X : BL1 = True : PA = LB612.Text : 合約內文修改視窗.ShowDialog() : LB612.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB612.Location.Y : LB612.Location = New Drawing.Point(syy1, sxx)
            sxx = LB613.Location.Y : LB613.Location = New Drawing.Point(syy2, sxx) : sxx = LB614.Location.Y : LB614.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB613_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB613.Size.Height : sxx = LB613.Location.Y : NU4 = LB614.Location.X : LB614.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB613_Click(sender As Object, e As EventArgs) Handles LB613.Click
        PA = LB613.Text : 合約內文修改視窗.ShowDialog() : LB613.Text = PA : LB613_移動()
    End Sub
    Private Sub LB613_LocationChanged(sender As Object, e As EventArgs) Handles LB613.LocationChanged
        LB613_移動()
    End Sub
    Private Sub LB613_TextChanged(sender As Object, e As EventArgs) Handles LB613.TextChanged
        LB613_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB614_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB614.Size.Height : sxx = LB614.Location.Y : NU3 = LB615.Location.X : NU4 = LB616.Location.X
            LB615.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB616.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB614_Click(sender As Object, e As EventArgs) Handles LB614.Click
        PA = LB614.Text : 合約內文修改視窗.ShowDialog() : LB614.Text = PA : LB614_移動()
    End Sub
    Private Sub LB614_LocationChanged(sender As Object, e As EventArgs) Handles LB614.LocationChanged
        LB614_移動()
    End Sub
    Private Sub LB614_TextChanged(sender As Object, e As EventArgs) Handles LB614.TextChanged
        LB614_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB615_Click(sender As Object, e As EventArgs) Handles LB615.Click
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            NU5 = LB615.Location.X : BL1 = True : PA = LB615.Text : 合約內文修改視窗.ShowDialog() : LB615.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB615.Location.Y : LB615.Location = New Drawing.Point(syy1, sxx)
            sxx = LB616.Location.Y : LB616.Location = New Drawing.Point(syy2, sxx) : sxx = LB617.Location.Y : LB617.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB616_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB616.Size.Height : sxx = LB616.Location.Y : NU4 = LB617.Location.X : LB617.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB616_Click(sender As Object, e As EventArgs) Handles LB616.Click
        PA = LB616.Text : 合約內文修改視窗.ShowDialog() : LB616.Text = PA : LB616_移動()
    End Sub
    Private Sub LB616_LocationChanged(sender As Object, e As EventArgs) Handles LB616.LocationChanged
        LB616_移動()
    End Sub
    Private Sub LB616_TextChanged(sender As Object, e As EventArgs) Handles LB616.TextChanged
        LB616_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB617_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB617.Size.Height : sxx = LB617.Location.Y : NU3 = LB618.Location.X : NU4 = LB619.Location.X
            LB618.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB619.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB617_Click(sender As Object, e As EventArgs) Handles LB617.Click
        PA = LB617.Text : 合約內文修改視窗.ShowDialog() : LB617.Text = PA : LB617_移動()
    End Sub
    Private Sub LB617_LocationChanged(sender As Object, e As EventArgs) Handles LB617.LocationChanged
        LB617_移動()
    End Sub
    Private Sub LB617_TextChanged(sender As Object, e As EventArgs) Handles LB617.TextChanged
        LB617_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB618_Click(sender As Object, e As EventArgs) Handles LB618.Click
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            NU5 = LB618.Location.X : BL1 = True : PA = LB618.Text : 合約內文修改視窗.ShowDialog() : LB618.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB618.Location.Y : LB618.Location = New Drawing.Point(syy1, sxx)
            sxx = LB619.Location.Y : LB619.Location = New Drawing.Point(syy2, sxx) : sxx = LB620.Location.Y : LB620.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB619_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB619.Size.Height : sxx = LB619.Location.Y : NU4 = LB620.Location.X : LB620.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB619_Click(sender As Object, e As EventArgs) Handles LB619.Click
        PA = LB619.Text : 合約內文修改視窗.ShowDialog() : LB619.Text = PA : LB619_移動()
    End Sub
    Private Sub LB619_LocationChanged(sender As Object, e As EventArgs) Handles LB619.LocationChanged
        LB619_移動()
    End Sub
    Private Sub LB619_TextChanged(sender As Object, e As EventArgs) Handles LB619.TextChanged
        LB619_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB620_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB620.Size.Height : sxx = LB620.Location.Y : NU3 = LB621.Location.X : NU4 = LB622.Location.X
            LB621.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB622.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB620_Click(sender As Object, e As EventArgs) Handles LB620.Click
        PA = LB620.Text : 合約內文修改視窗.ShowDialog() : LB620.Text = PA : LB620_移動()
    End Sub
    Private Sub LB620_LocationChanged(sender As Object, e As EventArgs) Handles LB620.LocationChanged
        LB620_移動()
    End Sub
    Private Sub LB620_TextChanged(sender As Object, e As EventArgs) Handles LB620.TextChanged
        LB620_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB621_Click(sender As Object, e As EventArgs) Handles LB621.Click
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            NU5 = LB621.Location.X : BL1 = True : PA = LB621.Text : 合約內文修改視窗.ShowDialog() : LB621.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB621.Location.Y : LB621.Location = New Drawing.Point(syy1, sxx)
            sxx = LB622.Location.Y : LB622.Location = New Drawing.Point(syy2, sxx) : sxx = LB623.Location.Y : LB623.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB622_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB622.Size.Height : sxx = LB622.Location.Y : NU4 = LB623.Location.X : LB623.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB622_Click(sender As Object, e As EventArgs) Handles LB622.Click
        PA = LB622.Text : 合約內文修改視窗.ShowDialog() : LB622.Text = PA : LB622_移動()
    End Sub
    Private Sub LB622_LocationChanged(sender As Object, e As EventArgs) Handles LB622.LocationChanged
        LB622_移動()
    End Sub
    Private Sub LB622_TextChanged(sender As Object, e As EventArgs) Handles LB622.TextChanged
        LB622_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB623_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB623.Size.Height : sxx = LB623.Location.Y : NU3 = LB624.Location.X : NU4 = LB625.Location.X
            LB624.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB625.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB623_Click(sender As Object, e As EventArgs) Handles LB623.Click
        PA = LB623.Text : 合約內文修改視窗.ShowDialog() : LB623.Text = PA : LB623_移動()
    End Sub
    Private Sub LB623_LocationChanged(sender As Object, e As EventArgs) Handles LB623.LocationChanged
        LB623_移動()
    End Sub
    Private Sub LB623_TextChanged(sender As Object, e As EventArgs) Handles LB623.TextChanged
        LB623_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB624_Click(sender As Object, e As EventArgs) Handles LB624.Click
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            NU5 = LB624.Location.X : BL1 = True : PA = LB624.Text : 合約內文修改視窗.ShowDialog() : LB624.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB624.Location.Y : LB624.Location = New Drawing.Point(syy1, sxx)
            sxx = LB625.Location.Y : LB625.Location = New Drawing.Point(syy2, sxx) : sxx = LB626.Location.Y : LB626.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB625_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB625.Size.Height : sxx = LB625.Location.Y : NU4 = LB626.Location.X : LB626.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB625_Click(sender As Object, e As EventArgs) Handles LB625.Click
        PA = LB625.Text : 合約內文修改視窗.ShowDialog() : LB625.Text = PA : LB625_移動()
    End Sub
    Private Sub LB625_LocationChanged(sender As Object, e As EventArgs) Handles LB625.LocationChanged
        LB625_移動()
    End Sub
    Private Sub LB625_TextChanged(sender As Object, e As EventArgs) Handles LB625.TextChanged
        LB625_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB626_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB626.Size.Height : sxx = LB626.Location.Y : NU3 = LB627.Location.X : NU4 = LB628.Location.X
            LB627.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB628.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB626_Click(sender As Object, e As EventArgs) Handles LB626.Click
        PA = LB626.Text : 合約內文修改視窗.ShowDialog() : LB626.Text = PA : LB626_移動()
    End Sub
    Private Sub LB626_LocationChanged(sender As Object, e As EventArgs) Handles LB626.LocationChanged
        LB626_移動()
    End Sub
    Private Sub LB626_TextChanged(sender As Object, e As EventArgs) Handles LB626.TextChanged
        LB626_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB627_Click(sender As Object, e As EventArgs) Handles LB627.Click
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            NU5 = LB627.Location.X : BL1 = True : PA = LB627.Text : 合約內文修改視窗.ShowDialog() : LB627.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB627.Location.Y : LB627.Location = New Drawing.Point(syy1, sxx)
            sxx = LB628.Location.Y : LB628.Location = New Drawing.Point(syy2, sxx) : sxx = LB629.Location.Y : LB629.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB628_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB628.Size.Height : sxx = LB628.Location.Y : NU4 = LB629.Location.X : LB629.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB628_Click(sender As Object, e As EventArgs) Handles LB628.Click
        PA = LB628.Text : 合約內文修改視窗.ShowDialog() : LB628.Text = PA : LB628_移動()
    End Sub
    Private Sub LB628_LocationChanged(sender As Object, e As EventArgs) Handles LB628.LocationChanged
        LB628_移動()
    End Sub
    Private Sub LB628_TextChanged(sender As Object, e As EventArgs) Handles LB628.TextChanged
        LB628_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB629_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB629.Size.Height : sxx = LB629.Location.Y : NU3 = LB630.Location.X : NU4 = LB631.Location.X
            LB630.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB631.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB629_Click(sender As Object, e As EventArgs) Handles LB629.Click
        PA = LB629.Text : 合約內文修改視窗.ShowDialog() : LB629.Text = PA : LB629_移動()
    End Sub
    Private Sub LB629_LocationChanged(sender As Object, e As EventArgs) Handles LB629.LocationChanged
        LB629_移動()
    End Sub
    Private Sub LB629_TextChanged(sender As Object, e As EventArgs) Handles LB629.TextChanged
        LB629_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB630_Click(sender As Object, e As EventArgs) Handles LB630.Click
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            NU5 = LB630.Location.X : BL1 = True : PA = LB630.Text : 合約內文修改視窗.ShowDialog() : LB630.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB630.Location.Y : LB630.Location = New Drawing.Point(syy1, sxx)
            sxx = LB631.Location.Y : LB631.Location = New Drawing.Point(syy2, sxx) : sxx = LB632.Location.Y : LB632.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB631_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB631.Size.Height : sxx = LB631.Location.Y : NU4 = LB632.Location.X : LB632.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB631_Click(sender As Object, e As EventArgs) Handles LB631.Click
        PA = LB631.Text : 合約內文修改視窗.ShowDialog() : LB631.Text = PA : LB631_移動()
    End Sub
    Private Sub LB631_LocationChanged(sender As Object, e As EventArgs) Handles LB631.LocationChanged
        LB631_移動()
    End Sub
    Private Sub LB631_TextChanged(sender As Object, e As EventArgs) Handles LB631.TextChanged
        LB631_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB632_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB632.Size.Height : sxx = LB632.Location.Y : NU3 = LB633.Location.X : NU4 = LB634.Location.X
            LB633.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB634.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB632_Click(sender As Object, e As EventArgs) Handles LB632.Click
        PA = LB632.Text : 合約內文修改視窗.ShowDialog() : LB632.Text = PA : LB632_移動()
    End Sub
    Private Sub LB632_LocationChanged(sender As Object, e As EventArgs) Handles LB632.LocationChanged
        LB632_移動()
    End Sub
    Private Sub LB632_TextChanged(sender As Object, e As EventArgs) Handles LB632.TextChanged
        LB632_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB633_Click(sender As Object, e As EventArgs) Handles LB633.Click
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            NU5 = LB633.Location.X : BL1 = True : PA = LB633.Text : 合約內文修改視窗.ShowDialog() : LB633.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB633.Location.Y : LB633.Location = New Drawing.Point(syy1, sxx)
            sxx = LB634.Location.Y : LB634.Location = New Drawing.Point(syy2, sxx) : sxx = LB635.Location.Y : LB635.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB634_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB634.Size.Height : sxx = LB634.Location.Y : NU4 = LB635.Location.X : LB635.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB634_Click(sender As Object, e As EventArgs) Handles LB634.Click
        PA = LB634.Text : 合約內文修改視窗.ShowDialog() : LB634.Text = PA : LB634_移動()
    End Sub
    Private Sub LB634_LocationChanged(sender As Object, e As EventArgs) Handles LB634.LocationChanged
        LB634_移動()
    End Sub
    Private Sub LB634_TextChanged(sender As Object, e As EventArgs) Handles LB634.TextChanged
        LB634_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB635_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB635.Size.Height : sxx = LB635.Location.Y : NU3 = LB636.Location.X : NU4 = LB637.Location.X
            LB636.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB637.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB635_Click(sender As Object, e As EventArgs) Handles LB635.Click
        PA = LB635.Text : 合約內文修改視窗.ShowDialog() : LB635.Text = PA : LB635_移動()
    End Sub
    Private Sub LB635_LocationChanged(sender As Object, e As EventArgs) Handles LB635.LocationChanged
        LB635_移動()
    End Sub
    Private Sub LB635_TextChanged(sender As Object, e As EventArgs) Handles LB635.TextChanged
        LB635_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB636_Click(sender As Object, e As EventArgs) Handles LB636.Click
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            NU5 = LB636.Location.X : BL1 = True : PA = LB636.Text : 合約內文修改視窗.ShowDialog() : LB636.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB636.Location.Y : LB636.Location = New Drawing.Point(syy1, sxx)
            sxx = LB637.Location.Y : LB637.Location = New Drawing.Point(syy2, sxx) : sxx = LB638.Location.Y : LB638.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB637_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB637.Size.Height : sxx = LB637.Location.Y : NU4 = LB638.Location.X : LB638.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB637_Click(sender As Object, e As EventArgs) Handles LB637.Click
        PA = LB637.Text : 合約內文修改視窗.ShowDialog() : LB637.Text = PA : LB637_移動()
    End Sub
    Private Sub LB637_LocationChanged(sender As Object, e As EventArgs) Handles LB637.LocationChanged
        LB637_移動()
    End Sub
    Private Sub LB637_TextChanged(sender As Object, e As EventArgs) Handles LB637.TextChanged
        LB637_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB638_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB638.Size.Height : sxx = LB638.Location.Y : NU3 = LB639.Location.X : NU4 = LB640.Location.X
            LB639.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB640.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB638_Click(sender As Object, e As EventArgs) Handles LB638.Click
        PA = LB638.Text : 合約內文修改視窗.ShowDialog() : LB638.Text = PA : LB638_移動()
    End Sub
    Private Sub LB638_LocationChanged(sender As Object, e As EventArgs) Handles LB638.LocationChanged
        LB638_移動()
    End Sub
    Private Sub LB638_TextChanged(sender As Object, e As EventArgs) Handles LB638.TextChanged
        LB638_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB639_Click(sender As Object, e As EventArgs) Handles LB639.Click
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            NU5 = LB639.Location.X : BL1 = True : PA = LB639.Text : 合約內文修改視窗.ShowDialog() : LB639.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB639.Location.Y : LB639.Location = New Drawing.Point(syy1, sxx)
            sxx = LB640.Location.Y : LB640.Location = New Drawing.Point(syy2, sxx) : sxx = LB641.Location.Y : LB641.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB640_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB640.Size.Height : sxx = LB640.Location.Y : NU4 = LB641.Location.X : LB641.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB640_Click(sender As Object, e As EventArgs) Handles LB640.Click
        PA = LB640.Text : 合約內文修改視窗.ShowDialog() : LB640.Text = PA : LB640_移動()
    End Sub
    Private Sub LB640_LocationChanged(sender As Object, e As EventArgs) Handles LB640.LocationChanged
        LB640_移動()
    End Sub
    Private Sub LB640_TextChanged(sender As Object, e As EventArgs) Handles LB640.TextChanged
        LB640_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB641_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB641.Size.Height : sxx = LB641.Location.Y : NU3 = LB642.Location.X : NU4 = LB643.Location.X
            LB642.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB643.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB641_Click(sender As Object, e As EventArgs) Handles LB641.Click
        PA = LB641.Text : 合約內文修改視窗.ShowDialog() : LB641.Text = PA : LB641_移動()
    End Sub
    Private Sub LB641_LocationChanged(sender As Object, e As EventArgs) Handles LB641.LocationChanged
        LB641_移動()
    End Sub
    Private Sub LB641_TextChanged(sender As Object, e As EventArgs) Handles LB641.TextChanged
        LB641_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB642_Click(sender As Object, e As EventArgs) Handles LB642.Click
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            NU5 = LB642.Location.X : BL1 = True : PA = LB642.Text : 合約內文修改視窗.ShowDialog() : LB642.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB642.Location.Y : LB642.Location = New Drawing.Point(syy1, sxx)
            sxx = LB643.Location.Y : LB643.Location = New Drawing.Point(syy2, sxx) : sxx = LB644.Location.Y : LB644.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB643_移動()
        If 翻頁_nud.Value = 8 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB643.Size.Height : sxx = LB643.Location.Y : NU4 = LB644.Location.X : LB644.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB643_Click(sender As Object, e As EventArgs) Handles LB643.Click
        PA = LB643.Text : 合約內文修改視窗.ShowDialog() : LB643.Text = PA : LB643_移動()
    End Sub
    Private Sub LB643_LocationChanged(sender As Object, e As EventArgs) Handles LB643.LocationChanged
        LB643_移動()
    End Sub
    Private Sub LB643_TextChanged(sender As Object, e As EventArgs) Handles LB643.TextChanged
        LB643_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB644_Click(sender As Object, e As EventArgs) Handles LB644.Click
        PA = LB644.Text : 合約內文修改視窗.ShowDialog() : LB644.Text = PA
    End Sub
    '---------------------------第7頁----------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub LB645_Click(sender As Object, e As EventArgs) Handles LB645.Click
        PA = LB645.Text : 合約內文修改視窗.ShowDialog() : LB645.Text = PA
    End Sub
    Private Sub LB646_Click(sender As Object, e As EventArgs) Handles LB646.Click
        PA = LB646.Text : 合約內文修改視窗.ShowDialog() : LB646.Text = PA
    End Sub
    Private Sub LB647_Click(sender As Object, e As EventArgs) Handles LB647.Click
        PA = LB647.Text : 合約內文修改視窗.ShowDialog() : LB647.Text = PA
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB648_Click(sender As Object, e As EventArgs) Handles LB648.Click
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then
            NU5 = LB648.Location.X : BL1 = True : PA = LB648.Text : 合約內文修改視窗.ShowDialog() : LB648.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB648.Location.Y : LB648.Location = New Drawing.Point(syy1, sxx)
            sxx = LB649.Location.Y : LB649.Location = New Drawing.Point(syy2, sxx) : sxx = LB650.Location.Y : LB650.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB649_移動()
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB649.Size.Height : sxx = LB649.Location.Y : NU4 = LB650.Location.X : LB650.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB649_Click(sender As Object, e As EventArgs) Handles LB649.Click
        PA = LB649.Text : 合約內文修改視窗.ShowDialog() : LB649.Text = PA : LB649_移動()
    End Sub
    Private Sub LB649_LocationChanged(sender As Object, e As EventArgs) Handles LB649.LocationChanged
        LB649_移動()
    End Sub
    Private Sub LB649_TextChanged(sender As Object, e As EventArgs) Handles LB649.TextChanged
        LB649_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB650_移動()
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB650.Size.Height : sxx = LB650.Location.Y : NU3 = LB651.Location.X : NU4 = LB652.Location.X
            LB651.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB652.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB650_Click(sender As Object, e As EventArgs) Handles LB650.Click
        PA = LB650.Text : 合約內文修改視窗.ShowDialog() : LB650.Text = PA : LB650_移動()
    End Sub
    Private Sub LB650_LocationChanged(sender As Object, e As EventArgs) Handles LB650.LocationChanged
        LB650_移動()
    End Sub
    Private Sub LB650_TextChanged(sender As Object, e As EventArgs) Handles LB650.TextChanged
        LB650_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB651_Click(sender As Object, e As EventArgs) Handles LB651.Click
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then
            NU5 = LB651.Location.X : BL1 = True : PA = LB651.Text : 合約內文修改視窗.ShowDialog() : LB651.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB651.Location.Y : LB651.Location = New Drawing.Point(syy1, sxx)
            sxx = LB652.Location.Y : LB652.Location = New Drawing.Point(syy2, sxx) : sxx = LB653.Location.Y : LB653.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB652_移動()
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB652.Size.Height : sxx = LB652.Location.Y : NU4 = LB653.Location.X : LB653.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB652_Click(sender As Object, e As EventArgs) Handles LB652.Click
        PA = LB652.Text : 合約內文修改視窗.ShowDialog() : LB652.Text = PA : LB652_移動()
    End Sub
    Private Sub LB652_LocationChanged(sender As Object, e As EventArgs) Handles LB652.LocationChanged
        LB652_移動()
    End Sub
    Private Sub LB652_TextChanged(sender As Object, e As EventArgs) Handles LB652.TextChanged
        LB652_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB653_移動()
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB653.Size.Height : sxx = LB653.Location.Y : NU3 = LB654.Location.X : NU4 = LB655.Location.X
            LB654.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB655.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB653_Click(sender As Object, e As EventArgs) Handles LB653.Click
        PA = LB653.Text : 合約內文修改視窗.ShowDialog() : LB653.Text = PA : LB653_移動()
    End Sub
    Private Sub LB653_LocationChanged(sender As Object, e As EventArgs) Handles LB653.LocationChanged
        LB653_移動()
    End Sub
    Private Sub LB653_TextChanged(sender As Object, e As EventArgs) Handles LB653.TextChanged
        LB653_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB654_Click(sender As Object, e As EventArgs) Handles LB654.Click
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then
            NU5 = LB654.Location.X : BL1 = True : PA = LB654.Text : 合約內文修改視窗.ShowDialog() : LB654.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB654.Location.Y : LB654.Location = New Drawing.Point(syy1, sxx)
            sxx = LB655.Location.Y : LB655.Location = New Drawing.Point(syy2, sxx) : sxx = LB656.Location.Y : LB656.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB655_移動()
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB655.Size.Height : sxx = LB655.Location.Y : NU4 = LB656.Location.X : LB656.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB655_Click(sender As Object, e As EventArgs) Handles LB655.Click
        PA = LB655.Text : 合約內文修改視窗.ShowDialog() : LB655.Text = PA : LB655_移動()
    End Sub
    Private Sub LB655_LocationChanged(sender As Object, e As EventArgs) Handles LB655.LocationChanged
        LB655_移動()
    End Sub
    Private Sub LB655_TextChanged(sender As Object, e As EventArgs) Handles LB655.TextChanged
        LB655_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB656_移動()
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB656.Size.Height : sxx = LB656.Location.Y : NU3 = LB657.Location.X : NU4 = LB658.Location.X
            LB657.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB658.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB656_Click(sender As Object, e As EventArgs) Handles LB656.Click
        PA = LB656.Text : 合約內文修改視窗.ShowDialog() : LB656.Text = PA : LB656_移動()
    End Sub
    Private Sub LB656_LocationChanged(sender As Object, e As EventArgs) Handles LB656.LocationChanged
        LB656_移動()
    End Sub
    Private Sub LB656_TextChanged(sender As Object, e As EventArgs) Handles LB656.TextChanged
        LB656_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB657_Click(sender As Object, e As EventArgs) Handles LB657.Click
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then
            NU5 = LB657.Location.X : BL1 = True : PA = LB657.Text : 合約內文修改視窗.ShowDialog() : LB657.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB657.Location.Y : LB657.Location = New Drawing.Point(syy1, sxx)
            sxx = LB658.Location.Y : LB658.Location = New Drawing.Point(syy2, sxx) : sxx = LB659.Location.Y : LB659.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB658_移動()
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB658.Size.Height : sxx = LB658.Location.Y : NU4 = LB659.Location.X : LB659.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB658_Click(sender As Object, e As EventArgs) Handles LB658.Click
        PA = LB658.Text : 合約內文修改視窗.ShowDialog() : LB658.Text = PA : LB658_移動()
    End Sub
    Private Sub LB658_LocationChanged(sender As Object, e As EventArgs) Handles LB658.LocationChanged
        LB658_移動()
    End Sub
    Private Sub LB658_TextChanged(sender As Object, e As EventArgs) Handles LB658.TextChanged
        LB658_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB659_移動()
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB659.Size.Height : sxx = LB659.Location.Y : NU3 = LB660.Location.X : NU4 = LB661.Location.X
            LB660.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB661.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB659_Click(sender As Object, e As EventArgs) Handles LB659.Click
        PA = LB659.Text : 合約內文修改視窗.ShowDialog() : LB659.Text = PA : LB659_移動()
    End Sub
    Private Sub LB659_LocationChanged(sender As Object, e As EventArgs) Handles LB659.LocationChanged
        LB659_移動()
    End Sub
    Private Sub LB659_TextChanged(sender As Object, e As EventArgs) Handles LB659.TextChanged
        LB659_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB660_Click(sender As Object, e As EventArgs) Handles LB660.Click
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then
            NU5 = LB660.Location.X : BL1 = True : PA = LB660.Text : 合約內文修改視窗.ShowDialog() : LB660.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB660.Location.Y : LB660.Location = New Drawing.Point(syy1, sxx)
            sxx = LB661.Location.Y : LB661.Location = New Drawing.Point(syy2, sxx) : sxx = LB662.Location.Y : LB662.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB661_移動()
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB661.Size.Height : sxx = LB661.Location.Y : NU4 = LB662.Location.X : LB662.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB661_Click(sender As Object, e As EventArgs) Handles LB661.Click
        PA = LB661.Text : 合約內文修改視窗.ShowDialog() : LB661.Text = PA : LB661_移動()
    End Sub
    Private Sub LB661_LocationChanged(sender As Object, e As EventArgs) Handles LB661.LocationChanged
        LB661_移動()
    End Sub
    Private Sub LB661_TextChanged(sender As Object, e As EventArgs) Handles LB661.TextChanged
        LB661_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB662_移動()
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB662.Size.Height : sxx = LB662.Location.Y : NU3 = LB663.Location.X : NU4 = LB664.Location.X
            LB663.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB664.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB662_Click(sender As Object, e As EventArgs) Handles LB662.Click
        PA = LB662.Text : 合約內文修改視窗.ShowDialog() : LB662.Text = PA : LB662_移動()
    End Sub
    Private Sub LB662_LocationChanged(sender As Object, e As EventArgs) Handles LB662.LocationChanged
        LB662_移動()
    End Sub
    Private Sub LB662_TextChanged(sender As Object, e As EventArgs) Handles LB662.TextChanged
        LB662_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB663_Click(sender As Object, e As EventArgs) Handles LB663.Click
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then
            NU5 = LB663.Location.X : BL1 = True : PA = LB663.Text : 合約內文修改視窗.ShowDialog() : LB663.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB663.Location.Y : LB663.Location = New Drawing.Point(syy1, sxx)
            sxx = LB664.Location.Y : LB664.Location = New Drawing.Point(syy2, sxx) : sxx = LB665.Location.Y : LB665.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB664_移動()
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB664.Size.Height : sxx = LB664.Location.Y : NU4 = LB665.Location.X : LB665.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB664_Click(sender As Object, e As EventArgs) Handles LB664.Click
        PA = LB664.Text : 合約內文修改視窗.ShowDialog() : LB664.Text = PA : LB664_移動()
    End Sub
    Private Sub LB664_LocationChanged(sender As Object, e As EventArgs) Handles LB664.LocationChanged
        LB664_移動()
    End Sub
    Private Sub LB664_TextChanged(sender As Object, e As EventArgs) Handles LB664.TextChanged
        LB664_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB665_移動()
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB665.Size.Height : sxx = LB665.Location.Y : NU3 = LB666.Location.X : NU4 = LB667.Location.X
            LB666.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB667.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB665_Click(sender As Object, e As EventArgs) Handles LB665.Click
        PA = LB665.Text : 合約內文修改視窗.ShowDialog() : LB665.Text = PA : LB665_移動()
    End Sub
    Private Sub LB665_LocationChanged(sender As Object, e As EventArgs) Handles LB665.LocationChanged
        LB665_移動()
    End Sub
    Private Sub LB665_TextChanged(sender As Object, e As EventArgs) Handles LB665.TextChanged
        LB665_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB666_Click(sender As Object, e As EventArgs) Handles LB666.Click
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then
            NU5 = LB666.Location.X : BL1 = True : PA = LB666.Text : 合約內文修改視窗.ShowDialog() : LB666.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB666.Location.Y : LB666.Location = New Drawing.Point(syy1, sxx)
            sxx = LB667.Location.Y : LB667.Location = New Drawing.Point(syy2, sxx) : sxx = LB668.Location.Y : LB668.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB667_移動()
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB667.Size.Height : sxx = LB667.Location.Y : NU4 = LB668.Location.X : LB668.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB667_Click(sender As Object, e As EventArgs) Handles LB667.Click
        PA = LB667.Text : 合約內文修改視窗.ShowDialog() : LB667.Text = PA : LB667_移動()
    End Sub
    Private Sub LB667_LocationChanged(sender As Object, e As EventArgs) Handles LB667.LocationChanged
        LB667_移動()
    End Sub
    Private Sub LB667_TextChanged(sender As Object, e As EventArgs) Handles LB667.TextChanged
        LB667_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB668_移動()
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB668.Size.Height : sxx = LB668.Location.Y : NU3 = LB669.Location.X : NU4 = LB670.Location.X
            LB669.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB670.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB668_Click(sender As Object, e As EventArgs) Handles LB668.Click
        PA = LB668.Text : 合約內文修改視窗.ShowDialog() : LB668.Text = PA : LB668_移動()
    End Sub
    Private Sub LB668_LocationChanged(sender As Object, e As EventArgs) Handles LB668.LocationChanged
        LB668_移動()
    End Sub
    Private Sub LB668_TextChanged(sender As Object, e As EventArgs) Handles LB668.TextChanged
        LB668_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB669_Click(sender As Object, e As EventArgs) Handles LB669.Click
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then
            NU5 = LB669.Location.X : BL1 = True : PA = LB669.Text : 合約內文修改視窗.ShowDialog() : LB669.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB669.Location.Y : LB669.Location = New Drawing.Point(syy1, sxx)
            sxx = LB670.Location.Y : LB670.Location = New Drawing.Point(syy2, sxx) : sxx = LB671.Location.Y : LB671.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB670_移動()
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB670.Size.Height : sxx = LB670.Location.Y : NU4 = LB671.Location.X : LB671.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB670_Click(sender As Object, e As EventArgs) Handles LB670.Click
        PA = LB670.Text : 合約內文修改視窗.ShowDialog() : LB670.Text = PA : LB670_移動()
    End Sub
    Private Sub LB670_LocationChanged(sender As Object, e As EventArgs) Handles LB670.LocationChanged
        LB670_移動()
    End Sub
    Private Sub LB670_TextChanged(sender As Object, e As EventArgs) Handles LB670.TextChanged
        LB670_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB671_移動()
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB671.Size.Height : sxx = LB671.Location.Y : NU3 = LB672.Location.X : NU4 = LB673.Location.X
            LB672.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB673.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB671_Click(sender As Object, e As EventArgs) Handles LB671.Click
        PA = LB671.Text : 合約內文修改視窗.ShowDialog() : LB671.Text = PA : LB671_移動()
    End Sub
    Private Sub LB671_LocationChanged(sender As Object, e As EventArgs) Handles LB671.LocationChanged
        LB671_移動()
    End Sub
    Private Sub LB671_TextChanged(sender As Object, e As EventArgs) Handles LB671.TextChanged
        LB671_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB672_Click(sender As Object, e As EventArgs) Handles LB672.Click
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then
            NU5 = LB672.Location.X : BL1 = True : PA = LB672.Text : 合約內文修改視窗.ShowDialog() : LB672.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB672.Location.Y : LB672.Location = New Drawing.Point(syy1, sxx)
            sxx = LB673.Location.Y : LB673.Location = New Drawing.Point(syy2, sxx) : sxx = LB674.Location.Y : LB674.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB673_移動()
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB673.Size.Height : sxx = LB673.Location.Y : NU4 = LB674.Location.X : LB674.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB673_Click(sender As Object, e As EventArgs) Handles LB673.Click
        PA = LB673.Text : 合約內文修改視窗.ShowDialog() : LB673.Text = PA : LB673_移動()
    End Sub
    Private Sub LB673_LocationChanged(sender As Object, e As EventArgs) Handles LB673.LocationChanged
        LB673_移動()
    End Sub
    Private Sub LB673_TextChanged(sender As Object, e As EventArgs) Handles LB673.TextChanged
        LB673_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB674_移動()
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB674.Size.Height : sxx = LB674.Location.Y : NU3 = LB675.Location.X : NU4 = LB676.Location.X
            LB675.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB676.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB674_Click(sender As Object, e As EventArgs) Handles LB674.Click
        PA = LB674.Text : 合約內文修改視窗.ShowDialog() : LB674.Text = PA : LB674_移動()
    End Sub
    Private Sub LB674_LocationChanged(sender As Object, e As EventArgs) Handles LB674.LocationChanged
        LB674_移動()
    End Sub
    Private Sub LB674_TextChanged(sender As Object, e As EventArgs) Handles LB674.TextChanged
        LB674_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB675_Click(sender As Object, e As EventArgs) Handles LB675.Click
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then
            NU5 = LB675.Location.X : BL1 = True : PA = LB675.Text : 合約內文修改視窗.ShowDialog() : LB675.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB675.Location.Y : LB675.Location = New Drawing.Point(syy1, sxx)
            sxx = LB676.Location.Y : LB676.Location = New Drawing.Point(syy2, sxx) : sxx = LB677.Location.Y : LB677.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB676_移動()
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB676.Size.Height : sxx = LB676.Location.Y : NU4 = LB677.Location.X : LB677.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB676_Click(sender As Object, e As EventArgs) Handles LB676.Click
        PA = LB676.Text : 合約內文修改視窗.ShowDialog() : LB676.Text = PA : LB676_移動()
    End Sub
    Private Sub LB676_LocationChanged(sender As Object, e As EventArgs) Handles LB676.LocationChanged
        LB676_移動()
    End Sub
    Private Sub LB676_TextChanged(sender As Object, e As EventArgs) Handles LB676.TextChanged
        LB676_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB677_移動()
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB677.Size.Height : sxx = LB677.Location.Y : NU3 = LB678.Location.X : NU4 = LB679.Location.X
            LB678.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB679.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB677_Click(sender As Object, e As EventArgs) Handles LB677.Click
        PA = LB677.Text : 合約內文修改視窗.ShowDialog() : LB677.Text = PA : LB677_移動()
    End Sub
    Private Sub LB677_LocationChanged(sender As Object, e As EventArgs) Handles LB677.LocationChanged
        LB677_移動()
    End Sub
    Private Sub LB677_TextChanged(sender As Object, e As EventArgs) Handles LB677.TextChanged
        LB677_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB678_Click(sender As Object, e As EventArgs) Handles LB678.Click
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then
            NU5 = LB678.Location.X : BL1 = True : PA = LB678.Text : 合約內文修改視窗.ShowDialog() : LB678.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB678.Location.Y : LB678.Location = New Drawing.Point(syy1, sxx)
            sxx = LB679.Location.Y : LB679.Location = New Drawing.Point(syy2, sxx) : sxx = LB680.Location.Y : LB680.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB679_移動()
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB679.Size.Height : sxx = LB679.Location.Y : NU4 = LB680.Location.X : LB680.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB679_Click(sender As Object, e As EventArgs) Handles LB679.Click
        PA = LB679.Text : 合約內文修改視窗.ShowDialog() : LB679.Text = PA : LB679_移動()
    End Sub
    Private Sub LB679_LocationChanged(sender As Object, e As EventArgs) Handles LB679.LocationChanged
        LB679_移動()
    End Sub
    Private Sub LB679_TextChanged(sender As Object, e As EventArgs) Handles LB679.TextChanged
        LB679_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB680_移動()
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB680.Size.Height : sxx = LB680.Location.Y : NU3 = LB681.Location.X : NU4 = LB682.Location.X
            LB681.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB682.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB680_Click(sender As Object, e As EventArgs) Handles LB680.Click
        PA = LB680.Text : 合約內文修改視窗.ShowDialog() : LB680.Text = PA : LB680_移動()
    End Sub
    Private Sub LB680_LocationChanged(sender As Object, e As EventArgs) Handles LB680.LocationChanged
        LB680_移動()
    End Sub
    Private Sub LB680_TextChanged(sender As Object, e As EventArgs) Handles LB680.TextChanged
        LB680_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB681_Click(sender As Object, e As EventArgs) Handles LB681.Click
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then : Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB681.Location.Y : LB681.Location = New Drawing.Point(syy1, sxx)
            sxx = LB682.Location.Y : LB682.Location = New Drawing.Point(syy2, sxx) : sxx = LB683.Location.Y : LB683.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB682_移動()
        If 翻頁_nud.Value = 7 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB682.Size.Height : sxx = LB682.Location.Y : NU4 = LB683.Location.X : LB683.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB682_Click(sender As Object, e As EventArgs) Handles LB682.Click
        PA = LB682.Text : 合約內文修改視窗.ShowDialog() : LB682.Text = PA : LB682_移動()
    End Sub
    Private Sub LB682_LocationChanged(sender As Object, e As EventArgs) Handles LB682.LocationChanged
        LB682_移動()
    End Sub
    Private Sub LB682_TextChanged(sender As Object, e As EventArgs) Handles LB682.TextChanged
        LB682_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB683_Click(sender As Object, e As EventArgs) Handles LB683.Click
        PA = LB683.Text : 合約內文修改視窗.ShowDialog() : LB683.Text = PA
    End Sub
    '---------------------------第6頁----------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub LB684_Click(sender As Object, e As EventArgs) Handles LB684.Click
        PA = LB684.Text : 合約內文修改視窗.ShowDialog() : LB684.Text = PA
    End Sub
    Private Sub LB685_Click(sender As Object, e As EventArgs) Handles LB685.Click
        PA = LB685.Text : 合約內文修改視窗.ShowDialog() : LB685.Text = PA
    End Sub
    Private Sub LB686_Click(sender As Object, e As EventArgs) Handles LB686.Click
        PA = LB686.Text : 合約內文修改視窗.ShowDialog() : LB686.Text = PA
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB687_Click(sender As Object, e As EventArgs) Handles LB687.Click
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            NU5 = LB687.Location.X : BL1 = True : PA = LB687.Text : 合約內文修改視窗.ShowDialog() : LB687.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB687.Location.Y : LB687.Location = New Drawing.Point(syy1, sxx)
            sxx = LB37.Location.Y : LB37.Location = New Drawing.Point(syy2, sxx) : sxx = LB38.Location.Y : LB38.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB37_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB37.Size.Height : sxx = LB37.Location.Y : NU4 = LB38.Location.X : LB38.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB37_Click(sender As Object, e As EventArgs) Handles LB37.Click
        PA = LB37.Text : 合約內文修改視窗.ShowDialog() : LB37.Text = PA : LB37_移動()
    End Sub
    Private Sub LB37_LocationChanged(sender As Object, e As EventArgs) Handles LB37.LocationChanged
        LB37_移動()
    End Sub
    Private Sub LB37_TextChanged(sender As Object, e As EventArgs) Handles LB37.TextChanged
        LB37_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB38_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB38.Size.Height : sxx = LB38.Location.Y : NU3 = LB688.Location.X : NU4 = LB86.Location.X
            LB688.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB86.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB38_Click(sender As Object, e As EventArgs) Handles LB38.Click
        PA = LB38.Text : 合約內文修改視窗.ShowDialog() : LB38.Text = PA : LB38_移動()
    End Sub
    Private Sub LB38_LocationChanged(sender As Object, e As EventArgs) Handles LB38.LocationChanged
        LB38_移動()
    End Sub
    Private Sub LB38_TextChanged(sender As Object, e As EventArgs) Handles LB38.TextChanged
        LB38_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB688_Click(sender As Object, e As EventArgs) Handles LB688.Click
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            NU5 = LB688.Location.X : BL1 = True : PA = LB688.Text : 合約內文修改視窗.ShowDialog() : LB688.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB688.Location.Y : LB688.Location = New Drawing.Point(syy1, sxx)
            sxx = LB86.Location.Y : LB86.Location = New Drawing.Point(syy2, sxx) : sxx = LB87.Location.Y : LB87.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB86_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB86.Size.Height : sxx = LB86.Location.Y : NU4 = LB87.Location.X : LB87.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB86_Click(sender As Object, e As EventArgs) Handles LB86.Click
        PA = LB86.Text : 合約內文修改視窗.ShowDialog() : LB86.Text = PA : LB86_移動()
    End Sub
    Private Sub LB86_LocationChanged(sender As Object, e As EventArgs) Handles LB86.LocationChanged
        LB86_移動()
    End Sub
    Private Sub LB86_TextChanged(sender As Object, e As EventArgs) Handles LB86.TextChanged
        LB86_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB87_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB87.Size.Height : sxx = LB87.Location.Y : NU3 = LB689.Location.X : NU4 = LB88.Location.X
            LB689.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB88.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB87_Click(sender As Object, e As EventArgs) Handles LB87.Click
        PA = LB87.Text : 合約內文修改視窗.ShowDialog() : LB87.Text = PA : LB87_移動()
    End Sub
    Private Sub LB87_LocationChanged(sender As Object, e As EventArgs) Handles LB87.LocationChanged
        LB87_移動()
    End Sub
    Private Sub LB87_TextChanged(sender As Object, e As EventArgs) Handles LB87.TextChanged
        LB87_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB689_Click(sender As Object, e As EventArgs) Handles LB689.Click
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            NU5 = LB689.Location.X : BL1 = True : PA = LB689.Text : 合約內文修改視窗.ShowDialog() : LB689.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB689.Location.Y : LB689.Location = New Drawing.Point(syy1, sxx)
            sxx = LB88.Location.Y : LB88.Location = New Drawing.Point(syy2, sxx) : sxx = LB89.Location.Y : LB89.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB88_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB88.Size.Height : sxx = LB88.Location.Y : NU4 = LB89.Location.X : LB89.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB88_Click(sender As Object, e As EventArgs) Handles LB88.Click
        PA = LB88.Text : 合約內文修改視窗.ShowDialog() : LB88.Text = PA : LB88_移動()
    End Sub
    Private Sub LB88_LocationChanged(sender As Object, e As EventArgs) Handles LB88.LocationChanged
        LB88_移動()
    End Sub
    Private Sub LB88_TextChanged(sender As Object, e As EventArgs) Handles LB88.TextChanged
        LB88_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB89_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB89.Size.Height : sxx = LB89.Location.Y : NU3 = LB690.Location.X : NU4 = LB90.Location.X
            LB690.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB90.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB89_Click(sender As Object, e As EventArgs) Handles LB89.Click
        PA = LB89.Text : 合約內文修改視窗.ShowDialog() : LB89.Text = PA : LB89_移動()
    End Sub
    Private Sub LB89_LocationChanged(sender As Object, e As EventArgs) Handles LB89.LocationChanged
        LB89_移動()
    End Sub
    Private Sub LB89_TextChanged(sender As Object, e As EventArgs) Handles LB89.TextChanged
        LB89_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB690_Click(sender As Object, e As EventArgs) Handles LB690.Click
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            NU5 = LB690.Location.X : BL1 = True : PA = LB690.Text : 合約內文修改視窗.ShowDialog() : LB690.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB690.Location.Y : LB690.Location = New Drawing.Point(syy1, sxx)
            sxx = LB90.Location.Y : LB90.Location = New Drawing.Point(syy2, sxx) : sxx = LB91.Location.Y : LB91.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB90_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB90.Size.Height : sxx = LB90.Location.Y : NU4 = LB91.Location.X : LB91.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB90_Click(sender As Object, e As EventArgs) Handles LB90.Click
        PA = LB90.Text : 合約內文修改視窗.ShowDialog() : LB90.Text = PA : LB90_移動()
    End Sub
    Private Sub LB90_LocationChanged(sender As Object, e As EventArgs) Handles LB90.LocationChanged
        LB90_移動()
    End Sub
    Private Sub LB90_TextChanged(sender As Object, e As EventArgs) Handles LB90.TextChanged
        LB90_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB91_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB91.Size.Height : sxx = LB91.Location.Y : NU3 = LB691.Location.X : NU4 = LB92.Location.X
            LB691.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB92.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB91_Click(sender As Object, e As EventArgs) Handles LB91.Click
        PA = LB91.Text : 合約內文修改視窗.ShowDialog() : LB91.Text = PA : LB91_移動()
    End Sub
    Private Sub LB91_LocationChanged(sender As Object, e As EventArgs) Handles LB91.LocationChanged
        LB91_移動()
    End Sub
    Private Sub LB91_TextChanged(sender As Object, e As EventArgs) Handles LB91.TextChanged
        LB91_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB691_Click(sender As Object, e As EventArgs) Handles LB691.Click
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            NU5 = LB691.Location.X : BL1 = True : PA = LB691.Text : 合約內文修改視窗.ShowDialog() : LB691.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB691.Location.Y : LB691.Location = New Drawing.Point(syy1, sxx)
            sxx = LB92.Location.Y : LB92.Location = New Drawing.Point(syy2, sxx) : sxx = LB93.Location.Y : LB93.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB92_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB92.Size.Height : sxx = LB92.Location.Y : NU4 = LB93.Location.X : LB93.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB92_Click(sender As Object, e As EventArgs) Handles LB92.Click
        PA = LB92.Text : 合約內文修改視窗.ShowDialog() : LB92.Text = PA : LB92_移動()
    End Sub
    Private Sub LB92_LocationChanged(sender As Object, e As EventArgs) Handles LB92.LocationChanged
        LB92_移動()
    End Sub
    Private Sub LB92_TextChanged(sender As Object, e As EventArgs) Handles LB92.TextChanged
        LB92_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB93_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB93.Size.Height : sxx = LB93.Location.Y : NU3 = LB692.Location.X : NU4 = LB693.Location.X
            LB692.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB693.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB93_Click(sender As Object, e As EventArgs) Handles LB93.Click
        PA = LB93.Text : 合約內文修改視窗.ShowDialog() : LB93.Text = PA : LB93_移動()
    End Sub
    Private Sub LB93_LocationChanged(sender As Object, e As EventArgs) Handles LB93.LocationChanged
        LB93_移動()
    End Sub
    Private Sub LB93_TextChanged(sender As Object, e As EventArgs) Handles LB93.TextChanged
        LB93_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB692_Click(sender As Object, e As EventArgs) Handles LB692.Click
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            NU5 = LB692.Location.X : BL1 = True : PA = LB692.Text : 合約內文修改視窗.ShowDialog() : LB692.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB692.Location.Y : LB692.Location = New Drawing.Point(syy1, sxx)
            sxx = LB693.Location.Y : LB693.Location = New Drawing.Point(syy2, sxx) : sxx = LB694.Location.Y : LB694.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB693_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB693.Size.Height : sxx = LB693.Location.Y : NU4 = LB694.Location.X : LB694.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB693_Click(sender As Object, e As EventArgs) Handles LB693.Click
        PA = LB693.Text : 合約內文修改視窗.ShowDialog() : LB693.Text = PA : LB693_移動()
    End Sub
    Private Sub LB693_LocationChanged(sender As Object, e As EventArgs) Handles LB693.LocationChanged
        LB693_移動()
    End Sub
    Private Sub LB693_TextChanged(sender As Object, e As EventArgs) Handles LB693.TextChanged
        LB693_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB694_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB694.Size.Height : sxx = LB694.Location.Y : NU3 = LB695.Location.X : NU4 = LB696.Location.X
            LB695.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB696.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB694_Click(sender As Object, e As EventArgs) Handles LB694.Click
        PA = LB694.Text : 合約內文修改視窗.ShowDialog() : LB694.Text = PA : LB694_移動()
    End Sub
    Private Sub LB694_LocationChanged(sender As Object, e As EventArgs) Handles LB694.LocationChanged
        LB694_移動()
    End Sub
    Private Sub LB694_TextChanged(sender As Object, e As EventArgs) Handles LB694.TextChanged
        LB694_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB695_Click(sender As Object, e As EventArgs) Handles LB695.Click
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            NU5 = LB695.Location.X : BL1 = True : PA = LB695.Text : 合約內文修改視窗.ShowDialog() : LB695.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB695.Location.Y : LB695.Location = New Drawing.Point(syy1, sxx)
            sxx = LB696.Location.Y : LB696.Location = New Drawing.Point(syy2, sxx) : sxx = LB697.Location.Y : LB697.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB696_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB696.Size.Height : sxx = LB696.Location.Y : NU4 = LB697.Location.X : LB697.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB696_Click(sender As Object, e As EventArgs) Handles LB696.Click
        PA = LB696.Text : 合約內文修改視窗.ShowDialog() : LB696.Text = PA : LB696_移動()
    End Sub
    Private Sub LB696_LocationChanged(sender As Object, e As EventArgs) Handles LB696.LocationChanged
        LB696_移動()
    End Sub
    Private Sub LB696_TextChanged(sender As Object, e As EventArgs) Handles LB696.TextChanged
        LB696_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB697_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB697.Size.Height : sxx = LB697.Location.Y : NU3 = LB698.Location.X : NU4 = LB699.Location.X
            LB698.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB699.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB697_Click(sender As Object, e As EventArgs) Handles LB697.Click
        PA = LB697.Text : 合約內文修改視窗.ShowDialog() : LB697.Text = PA : LB697_移動()
    End Sub
    Private Sub LB697_LocationChanged(sender As Object, e As EventArgs) Handles LB697.LocationChanged
        LB697_移動()
    End Sub
    Private Sub LB697_TextChanged(sender As Object, e As EventArgs) Handles LB697.TextChanged
        LB697_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB698_Click(sender As Object, e As EventArgs) Handles LB698.Click
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            NU5 = LB698.Location.X : BL1 = True : PA = LB698.Text : 合約內文修改視窗.ShowDialog() : LB698.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB698.Location.Y : LB698.Location = New Drawing.Point(syy1, sxx)
            sxx = LB699.Location.Y : LB699.Location = New Drawing.Point(syy2, sxx) : sxx = LB700.Location.Y : LB700.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB699_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB699.Size.Height : sxx = LB699.Location.Y : NU4 = LB700.Location.X : LB700.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB699_Click(sender As Object, e As EventArgs) Handles LB699.Click
        PA = LB699.Text : 合約內文修改視窗.ShowDialog() : LB699.Text = PA : LB699_移動()
    End Sub
    Private Sub LB699_LocationChanged(sender As Object, e As EventArgs) Handles LB699.LocationChanged
        LB699_移動()
    End Sub
    Private Sub LB699_TextChanged(sender As Object, e As EventArgs) Handles LB699.TextChanged
        LB699_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB700_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB700.Size.Height : sxx = LB700.Location.Y : NU3 = LB701.Location.X : NU4 = LB702.Location.X
            LB701.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB702.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB700_Click(sender As Object, e As EventArgs) Handles LB700.Click
        PA = LB700.Text : 合約內文修改視窗.ShowDialog() : LB700.Text = PA : LB700_移動()
    End Sub
    Private Sub LB700_LocationChanged(sender As Object, e As EventArgs) Handles LB700.LocationChanged
        LB700_移動()
    End Sub
    Private Sub LB700_TextChanged(sender As Object, e As EventArgs) Handles LB700.TextChanged
        LB700_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB701_Click(sender As Object, e As EventArgs) Handles LB701.Click
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            NU5 = LB701.Location.X : BL1 = True : PA = LB701.Text : 合約內文修改視窗.ShowDialog() : LB701.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB701.Location.Y : LB701.Location = New Drawing.Point(syy1, sxx)
            sxx = LB702.Location.Y : LB702.Location = New Drawing.Point(syy2, sxx) : sxx = LB703.Location.Y : LB703.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB702_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB702.Size.Height : sxx = LB702.Location.Y : NU4 = LB703.Location.X : LB703.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB702_Click(sender As Object, e As EventArgs) Handles LB702.Click
        PA = LB702.Text : 合約內文修改視窗.ShowDialog() : LB702.Text = PA : LB702_移動()
    End Sub
    Private Sub LB702_LocationChanged(sender As Object, e As EventArgs) Handles LB702.LocationChanged
        LB702_移動()
    End Sub
    Private Sub LB702_TextChanged(sender As Object, e As EventArgs) Handles LB702.TextChanged
        LB702_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB703_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB703.Size.Height : sxx = LB703.Location.Y : NU3 = LB704.Location.X : NU4 = LB705.Location.X
            LB704.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB705.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB703_Click(sender As Object, e As EventArgs) Handles LB703.Click
        PA = LB703.Text : 合約內文修改視窗.ShowDialog() : LB703.Text = PA : LB703_移動()
    End Sub
    Private Sub LB703_LocationChanged(sender As Object, e As EventArgs) Handles LB703.LocationChanged
        LB703_移動()
    End Sub
    Private Sub LB703_TextChanged(sender As Object, e As EventArgs) Handles LB703.TextChanged
        LB703_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB704_Click(sender As Object, e As EventArgs) Handles LB704.Click
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            NU5 = LB704.Location.X : BL1 = True : PA = LB704.Text : 合約內文修改視窗.ShowDialog() : LB704.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB704.Location.Y : LB704.Location = New Drawing.Point(syy1, sxx)
            sxx = LB705.Location.Y : LB705.Location = New Drawing.Point(syy2, sxx) : sxx = LB706.Location.Y : LB706.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB705_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB705.Size.Height : sxx = LB705.Location.Y : NU4 = LB706.Location.X : LB706.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB705_Click(sender As Object, e As EventArgs) Handles LB705.Click
        PA = LB705.Text : 合約內文修改視窗.ShowDialog() : LB705.Text = PA : LB705_移動()
    End Sub
    Private Sub LB705_LocationChanged(sender As Object, e As EventArgs) Handles LB705.LocationChanged
        LB705_移動()
    End Sub
    Private Sub LB705_TextChanged(sender As Object, e As EventArgs) Handles LB705.TextChanged
        LB705_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB706_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB706.Size.Height : sxx = LB706.Location.Y : NU3 = LB707.Location.X : NU4 = LB708.Location.X
            LB707.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB708.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB706_Click(sender As Object, e As EventArgs) Handles LB706.Click
        PA = LB706.Text : 合約內文修改視窗.ShowDialog() : LB706.Text = PA : LB706_移動()
    End Sub
    Private Sub LB706_LocationChanged(sender As Object, e As EventArgs) Handles LB706.LocationChanged
        LB706_移動()
    End Sub
    Private Sub LB706_TextChanged(sender As Object, e As EventArgs) Handles LB706.TextChanged
        LB706_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB707_Click(sender As Object, e As EventArgs) Handles LB707.Click
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            NU5 = LB707.Location.X : BL1 = True : PA = LB707.Text : 合約內文修改視窗.ShowDialog() : LB707.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB707.Location.Y : LB707.Location = New Drawing.Point(syy1, sxx)
            sxx = LB708.Location.Y : LB708.Location = New Drawing.Point(syy2, sxx) : sxx = LB709.Location.Y : LB709.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB708_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB708.Size.Height : sxx = LB708.Location.Y : NU4 = LB709.Location.X : LB709.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB708_Click(sender As Object, e As EventArgs) Handles LB708.Click
        PA = LB708.Text : 合約內文修改視窗.ShowDialog() : LB708.Text = PA : LB708_移動()
    End Sub
    Private Sub LB708_LocationChanged(sender As Object, e As EventArgs) Handles LB708.LocationChanged
        LB708_移動()
    End Sub
    Private Sub LB708_TextChanged(sender As Object, e As EventArgs) Handles LB708.TextChanged
        LB708_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB709_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB709.Size.Height : sxx = LB709.Location.Y : NU3 = LB710.Location.X : NU4 = LB711.Location.X
            LB710.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB711.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB709_Click(sender As Object, e As EventArgs) Handles LB709.Click
        PA = LB709.Text : 合約內文修改視窗.ShowDialog() : LB709.Text = PA : LB709_移動()
    End Sub
    Private Sub LB709_LocationChanged(sender As Object, e As EventArgs) Handles LB709.LocationChanged
        LB709_移動()
    End Sub
    Private Sub LB709_TextChanged(sender As Object, e As EventArgs) Handles LB709.TextChanged
        LB709_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB710_Click(sender As Object, e As EventArgs) Handles LB710.Click
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            NU5 = LB710.Location.X : BL1 = True : PA = LB710.Text : 合約內文修改視窗.ShowDialog() : LB710.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB710.Location.Y : LB710.Location = New Drawing.Point(syy1, sxx)
            sxx = LB711.Location.Y : LB711.Location = New Drawing.Point(syy2, sxx) : sxx = LB712.Location.Y : LB712.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB711_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB711.Size.Height : sxx = LB711.Location.Y : NU4 = LB712.Location.X : LB712.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB711_Click(sender As Object, e As EventArgs) Handles LB711.Click
        PA = LB711.Text : 合約內文修改視窗.ShowDialog() : LB711.Text = PA : LB711_移動()
    End Sub
    Private Sub LB711_LocationChanged(sender As Object, e As EventArgs) Handles LB711.LocationChanged
        LB711_移動()
    End Sub
    Private Sub LB711_TextChanged(sender As Object, e As EventArgs) Handles LB711.TextChanged
        LB711_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB712_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB712.Size.Height : sxx = LB712.Location.Y : NU3 = LB713.Location.X : NU4 = LB714.Location.X
            LB713.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB714.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB712_Click(sender As Object, e As EventArgs) Handles LB712.Click
        PA = LB712.Text : 合約內文修改視窗.ShowDialog() : LB712.Text = PA : LB712_移動()
    End Sub
    Private Sub LB712_LocationChanged(sender As Object, e As EventArgs) Handles LB712.LocationChanged
        LB712_移動()
    End Sub
    Private Sub LB712_TextChanged(sender As Object, e As EventArgs) Handles LB712.TextChanged
        LB712_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB713_Click(sender As Object, e As EventArgs) Handles LB713.Click
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            NU5 = LB713.Location.X : BL1 = True : PA = LB713.Text : 合約內文修改視窗.ShowDialog() : LB713.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB713.Location.Y : LB713.Location = New Drawing.Point(syy1, sxx)
            sxx = LB714.Location.Y : LB714.Location = New Drawing.Point(syy2, sxx) : sxx = LB715.Location.Y : LB715.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB714_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB714.Size.Height : sxx = LB714.Location.Y : NU4 = LB715.Location.X : LB715.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB714_Click(sender As Object, e As EventArgs) Handles LB714.Click
        PA = LB714.Text : 合約內文修改視窗.ShowDialog() : LB714.Text = PA : LB714_移動()
    End Sub
    Private Sub LB714_LocationChanged(sender As Object, e As EventArgs) Handles LB714.LocationChanged
        LB714_移動()
    End Sub
    Private Sub LB714_TextChanged(sender As Object, e As EventArgs) Handles LB714.TextChanged
        LB714_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB715_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB715.Size.Height : sxx = LB715.Location.Y : NU3 = LB716.Location.X : NU4 = LB717.Location.X
            LB716.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB717.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB715_Click(sender As Object, e As EventArgs) Handles LB715.Click
        PA = LB715.Text : 合約內文修改視窗.ShowDialog() : LB715.Text = PA : LB715_移動()
    End Sub
    Private Sub LB715_LocationChanged(sender As Object, e As EventArgs) Handles LB715.LocationChanged
        LB715_移動()
    End Sub
    Private Sub LB715_TextChanged(sender As Object, e As EventArgs) Handles LB715.TextChanged
        LB715_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB716_Click(sender As Object, e As EventArgs) Handles LB716.Click
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            NU5 = LB716.Location.X : BL1 = True : PA = LB716.Text : 合約內文修改視窗.ShowDialog() : LB716.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB716.Location.Y : LB716.Location = New Drawing.Point(syy1, sxx)
            sxx = LB717.Location.Y : LB717.Location = New Drawing.Point(syy2, sxx) : sxx = LB718.Location.Y : LB718.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB717_移動()
        If 翻頁_nud.Value = 6 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB717.Size.Height : sxx = LB717.Location.Y : NU4 = LB718.Location.X : LB718.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB717_Click(sender As Object, e As EventArgs) Handles LB717.Click
        PA = LB717.Text : 合約內文修改視窗.ShowDialog() : LB717.Text = PA : LB717_移動()
    End Sub
    Private Sub LB717_LocationChanged(sender As Object, e As EventArgs) Handles LB717.LocationChanged
        LB717_移動()
    End Sub
    Private Sub LB717_TextChanged(sender As Object, e As EventArgs) Handles LB717.TextChanged
        LB717_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB718_Click(sender As Object, e As EventArgs) Handles LB718.Click
        PA = LB718.Text : 合約內文修改視窗.ShowDialog() : LB718.Text = PA
    End Sub
    '---------------------------第4頁----------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub LB719_Click(sender As Object, e As EventArgs) Handles LB719.Click
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then
            NU5 = LB719.Location.X : BL1 = True : PA = LB719.Text : 合約內文修改視窗.ShowDialog() : LB719.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB719.Location.Y : LB719.Location = New Drawing.Point(syy1, sxx)
            sxx = LB31.Location.Y : LB31.Location = New Drawing.Point(syy2, sxx) : sxx = LB32.Location.Y : LB32.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB31_移動()
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB31.Size.Height : sxx = LB31.Location.Y : NU4 = LB32.Location.X : LB32.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB31_Click(sender As Object, e As EventArgs) Handles LB31.Click
        PA = LB31.Text : 合約內文修改視窗.ShowDialog() : LB31.Text = PA : LB31_移動()
    End Sub
    Private Sub LB31_LocationChanged(sender As Object, e As EventArgs) Handles LB31.LocationChanged
        LB31_移動()
    End Sub
    Private Sub LB31_TextChanged(sender As Object, e As EventArgs) Handles LB31.TextChanged
        LB31_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB32_移動()
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB32.Size.Height : sxx = LB32.Location.Y : NU3 = LB720.Location.X : NU4 = LB35.Location.X
            LB720.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB35.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB32_Click(sender As Object, e As EventArgs) Handles LB32.Click
        PA = LB32.Text : 合約內文修改視窗.ShowDialog() : LB32.Text = PA : LB32_移動()
    End Sub
    Private Sub LB32_LocationChanged(sender As Object, e As EventArgs) Handles LB32.LocationChanged
        LB32_移動()
    End Sub
    Private Sub LB32_TextChanged(sender As Object, e As EventArgs) Handles LB32.TextChanged
        LB32_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB720_Click(sender As Object, e As EventArgs) Handles LB720.Click
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then
            NU5 = LB720.Location.X : BL1 = True : PA = LB720.Text : 合約內文修改視窗.ShowDialog() : LB720.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB720.Location.Y : LB720.Location = New Drawing.Point(syy1, sxx)
            sxx = LB35.Location.Y : LB35.Location = New Drawing.Point(syy2, sxx) : sxx = LB36.Location.Y : LB36.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB35_移動()
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB35.Size.Height : sxx = LB35.Location.Y : NU4 = LB36.Location.X : LB36.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB35_Click(sender As Object, e As EventArgs) Handles LB35.Click
        PA = LB35.Text : 合約內文修改視窗.ShowDialog() : LB35.Text = PA : LB35_移動()
    End Sub
    Private Sub LB35_LocationChanged(sender As Object, e As EventArgs) Handles LB35.LocationChanged
        LB35_移動()
    End Sub
    Private Sub LB35_TextChanged(sender As Object, e As EventArgs) Handles LB35.TextChanged
        LB35_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB36_移動()
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB36.Size.Height : sxx = LB36.Location.Y : NU3 = LB721.Location.X : NU4 = LB722.Location.X
            LB721.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB722.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB36_Click(sender As Object, e As EventArgs) Handles LB36.Click
        PA = LB36.Text : 合約內文修改視窗.ShowDialog() : LB36.Text = PA : LB36_移動()
    End Sub
    Private Sub LB36_LocationChanged(sender As Object, e As EventArgs) Handles LB36.LocationChanged
        LB36_移動()
    End Sub
    Private Sub LB36_TextChanged(sender As Object, e As EventArgs) Handles LB36.TextChanged
        LB36_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB721_Click(sender As Object, e As EventArgs) Handles LB721.Click
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then
            NU5 = LB721.Location.X : BL1 = True : PA = LB721.Text : 合約內文修改視窗.ShowDialog() : LB721.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB721.Location.Y : LB721.Location = New Drawing.Point(syy1, sxx)
            sxx = LB722.Location.Y : LB722.Location = New Drawing.Point(syy2, sxx) : sxx = LB723.Location.Y : LB723.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB722_移動()
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB722.Size.Height : sxx = LB722.Location.Y : NU4 = LB723.Location.X : LB723.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB722_Click(sender As Object, e As EventArgs) Handles LB722.Click
        PA = LB722.Text : 合約內文修改視窗.ShowDialog() : LB722.Text = PA : LB722_移動()
    End Sub
    Private Sub LB722_LocationChanged(sender As Object, e As EventArgs) Handles LB722.LocationChanged
        LB722_移動()
    End Sub
    Private Sub LB722_TextChanged(sender As Object, e As EventArgs) Handles LB722.TextChanged
        LB722_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB723_移動()
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB723.Size.Height : sxx = LB723.Location.Y : NU3 = LB724.Location.X : NU4 = LB725.Location.X
            LB724.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB725.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB723_Click(sender As Object, e As EventArgs) Handles LB723.Click
        PA = LB723.Text : 合約內文修改視窗.ShowDialog() : LB723.Text = PA : LB723_移動()
    End Sub
    Private Sub LB723_LocationChanged(sender As Object, e As EventArgs) Handles LB723.LocationChanged
        LB723_移動()
    End Sub
    Private Sub LB723_TextChanged(sender As Object, e As EventArgs) Handles LB723.TextChanged
        LB723_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB724_Click(sender As Object, e As EventArgs) Handles LB724.Click
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then
            NU5 = LB724.Location.X : BL1 = True : PA = LB724.Text : 合約內文修改視窗.ShowDialog() : LB724.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB724.Location.Y : LB724.Location = New Drawing.Point(syy1, sxx)
            sxx = LB725.Location.Y : LB725.Location = New Drawing.Point(syy2, sxx) : sxx = LB726.Location.Y : LB726.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB725_移動()
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB725.Size.Height : sxx = LB725.Location.Y : NU4 = LB726.Location.X : LB726.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB725_Click(sender As Object, e As EventArgs) Handles LB725.Click
        PA = LB725.Text : 合約內文修改視窗.ShowDialog() : LB725.Text = PA : LB725_移動()
    End Sub
    Private Sub LB725_LocationChanged(sender As Object, e As EventArgs) Handles LB725.LocationChanged
        LB725_移動()
    End Sub
    Private Sub LB725_TextChanged(sender As Object, e As EventArgs) Handles LB725.TextChanged
        LB725_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB726_移動()
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB726.Size.Height : sxx = LB726.Location.Y : NU3 = LB727.Location.X : NU4 = LB728.Location.X
            LB727.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB728.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB726_Click(sender As Object, e As EventArgs) Handles LB726.Click
        PA = LB726.Text : 合約內文修改視窗.ShowDialog() : LB726.Text = PA : LB726_移動()
    End Sub
    Private Sub LB726_LocationChanged(sender As Object, e As EventArgs) Handles LB726.LocationChanged
        LB726_移動()
    End Sub
    Private Sub LB726_TextChanged(sender As Object, e As EventArgs) Handles LB726.TextChanged
        LB726_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB727_Click(sender As Object, e As EventArgs) Handles LB727.Click
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then
            NU5 = LB727.Location.X : BL1 = True : PA = LB727.Text : 合約內文修改視窗.ShowDialog() : LB727.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB727.Location.Y : LB727.Location = New Drawing.Point(syy1, sxx)
            sxx = LB728.Location.Y : LB728.Location = New Drawing.Point(syy2, sxx) : sxx = LB729.Location.Y : LB729.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB728_移動()
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB728.Size.Height : sxx = LB728.Location.Y : NU4 = LB729.Location.X : LB729.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB728_Click(sender As Object, e As EventArgs) Handles LB728.Click
        PA = LB728.Text : 合約內文修改視窗.ShowDialog() : LB728.Text = PA : LB728_移動()
    End Sub
    Private Sub LB728_LocationChanged(sender As Object, e As EventArgs) Handles LB728.LocationChanged
        LB728_移動()
    End Sub
    Private Sub LB728_TextChanged(sender As Object, e As EventArgs) Handles LB728.TextChanged
        LB728_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB729_移動()
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB729.Size.Height : sxx = LB729.Location.Y : NU3 = LB730.Location.X : NU4 = LB731.Location.X
            LB730.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB731.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB729_Click(sender As Object, e As EventArgs) Handles LB729.Click
        PA = LB729.Text : 合約內文修改視窗.ShowDialog() : LB729.Text = PA : LB729_移動()
    End Sub
    Private Sub LB729_LocationChanged(sender As Object, e As EventArgs) Handles LB729.LocationChanged
        LB729_移動()
    End Sub
    Private Sub LB729_TextChanged(sender As Object, e As EventArgs) Handles LB729.TextChanged
        LB729_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB730_Click(sender As Object, e As EventArgs) Handles LB730.Click
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then
            NU5 = LB730.Location.X : BL1 = True : PA = LB730.Text : 合約內文修改視窗.ShowDialog() : LB730.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB730.Location.Y : LB730.Location = New Drawing.Point(syy1, sxx)
            sxx = LB731.Location.Y : LB731.Location = New Drawing.Point(syy2, sxx) : sxx = LB732.Location.Y : LB732.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB731_移動()
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB731.Size.Height : sxx = LB731.Location.Y : NU4 = LB732.Location.X : LB732.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB731_Click(sender As Object, e As EventArgs) Handles LB731.Click
        PA = LB731.Text : 合約內文修改視窗.ShowDialog() : LB731.Text = PA : LB731_移動()
    End Sub
    Private Sub LB731_LocationChanged(sender As Object, e As EventArgs) Handles LB731.LocationChanged
        LB731_移動()
    End Sub
    Private Sub LB731_TextChanged(sender As Object, e As EventArgs) Handles LB731.TextChanged
        LB731_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB732_移動()
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB732.Size.Height : sxx = LB732.Location.Y : NU3 = LB733.Location.X : NU4 = LB734.Location.X
            LB733.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB734.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB732_Click(sender As Object, e As EventArgs) Handles LB732.Click
        PA = LB732.Text : 合約內文修改視窗.ShowDialog() : LB732.Text = PA : LB732_移動()
    End Sub
    Private Sub LB732_LocationChanged(sender As Object, e As EventArgs) Handles LB732.LocationChanged
        LB732_移動()
    End Sub
    Private Sub LB732_TextChanged(sender As Object, e As EventArgs) Handles LB732.TextChanged
        LB732_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB733_Click(sender As Object, e As EventArgs) Handles LB733.Click
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then
            NU5 = LB733.Location.X : BL1 = True : PA = LB733.Text : 合約內文修改視窗.ShowDialog() : LB733.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB733.Location.Y : LB733.Location = New Drawing.Point(syy1, sxx)
            sxx = LB734.Location.Y : LB734.Location = New Drawing.Point(syy2, sxx) : sxx = LB735.Location.Y : LB735.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB734_移動()
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB734.Size.Height : sxx = LB734.Location.Y : NU4 = LB735.Location.X : LB735.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB734_Click(sender As Object, e As EventArgs) Handles LB734.Click
        PA = LB734.Text : 合約內文修改視窗.ShowDialog() : LB734.Text = PA : LB734_移動()
    End Sub
    Private Sub LB734_LocationChanged(sender As Object, e As EventArgs) Handles LB734.LocationChanged
        LB734_移動()
    End Sub
    Private Sub LB734_TextChanged(sender As Object, e As EventArgs) Handles LB734.TextChanged
        LB734_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB735_移動()
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB735.Size.Height : sxx = LB735.Location.Y : NU3 = LB736.Location.X : NU4 = LB737.Location.X
            LB736.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB737.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB735_Click(sender As Object, e As EventArgs) Handles LB735.Click
        PA = LB735.Text : 合約內文修改視窗.ShowDialog() : LB735.Text = PA : LB735_移動()
    End Sub
    Private Sub LB735_LocationChanged(sender As Object, e As EventArgs) Handles LB735.LocationChanged
        LB735_移動()
    End Sub
    Private Sub LB735_TextChanged(sender As Object, e As EventArgs) Handles LB735.TextChanged
        LB735_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB736_Click(sender As Object, e As EventArgs) Handles LB736.Click
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then
            NU5 = LB736.Location.X : BL1 = True : PA = LB736.Text : 合約內文修改視窗.ShowDialog() : LB736.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB736.Location.Y : LB736.Location = New Drawing.Point(syy1, sxx)
            sxx = LB737.Location.Y : LB737.Location = New Drawing.Point(syy2, sxx) : sxx = LB738.Location.Y : LB738.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB737_移動()
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB737.Size.Height : sxx = LB737.Location.Y : NU4 = LB738.Location.X : LB738.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB737_Click(sender As Object, e As EventArgs) Handles LB737.Click
        PA = LB737.Text : 合約內文修改視窗.ShowDialog() : LB737.Text = PA : LB737_移動()
    End Sub
    Private Sub LB737_LocationChanged(sender As Object, e As EventArgs) Handles LB737.LocationChanged
        LB737_移動()
    End Sub
    Private Sub LB737_TextChanged(sender As Object, e As EventArgs) Handles LB737.TextChanged
        LB737_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB738_移動()
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB738.Size.Height : sxx = LB738.Location.Y : NU3 = LB739.Location.X : NU4 = LB740.Location.X
            LB739.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB740.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB738_Click(sender As Object, e As EventArgs) Handles LB738.Click
        PA = LB738.Text : 合約內文修改視窗.ShowDialog() : LB738.Text = PA : LB738_移動()
    End Sub
    Private Sub LB738_LocationChanged(sender As Object, e As EventArgs) Handles LB738.LocationChanged
        LB738_移動()
    End Sub
    Private Sub LB738_TextChanged(sender As Object, e As EventArgs) Handles LB738.TextChanged
        LB738_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB739_Click(sender As Object, e As EventArgs) Handles LB739.Click
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then
            NU5 = LB739.Location.X : BL1 = True : PA = LB739.Text : 合約內文修改視窗.ShowDialog() : LB739.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB739.Location.Y : LB739.Location = New Drawing.Point(syy1, sxx)
            sxx = LB740.Location.Y : LB740.Location = New Drawing.Point(syy2, sxx) : sxx = LB741.Location.Y : LB741.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB740_移動()
        If 翻頁_nud.Value = 4 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB740.Size.Height : sxx = LB740.Location.Y : NU4 = LB741.Location.X : LB741.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB740_Click(sender As Object, e As EventArgs) Handles LB740.Click
        PA = LB740.Text : 合約內文修改視窗.ShowDialog() : LB740.Text = PA : LB740_移動()
    End Sub
    Private Sub LB740_LocationChanged(sender As Object, e As EventArgs) Handles LB740.LocationChanged
        LB740_移動()
    End Sub
    Private Sub LB740_TextChanged(sender As Object, e As EventArgs) Handles LB740.TextChanged
        LB740_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB741_Click(sender As Object, e As EventArgs) Handles LB741.Click
        PA = LB741.Text : 合約內文修改視窗.ShowDialog() : LB741.Text = PA
    End Sub
    '---------------------------第3頁----------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub LB742_Click(sender As Object, e As EventArgs) Handles LB742.Click
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then
            NU5 = LB742.Location.X : BL1 = True : PA = LB742.Text : 合約內文修改視窗.ShowDialog() : LB742.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB742.Location.Y : LB742.Location = New Drawing.Point(syy1, sxx)
            sxx = LB7.Location.Y : LB7.Location = New Drawing.Point(syy2, sxx) : sxx = LB8.Location.Y : LB8.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB7_移動()
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB7.Size.Height : sxx = LB7.Location.Y : NU4 = LB8.Location.X : LB8.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB7_Click(sender As Object, e As EventArgs) Handles LB7.Click
        PA = LB7.Text : 合約內文修改視窗.ShowDialog() : LB7.Text = PA : LB7_移動()
    End Sub
    Private Sub LB7_LocationChanged(sender As Object, e As EventArgs) Handles LB7.LocationChanged
        LB7_移動()
    End Sub
    Private Sub LB7_TextChanged(sender As Object, e As EventArgs) Handles LB7.TextChanged
        LB7_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB8_移動()
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB8.Size.Height : sxx = LB8.Location.Y : NU3 = LB743.Location.X : NU4 = LB9.Location.X
            LB743.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB9.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB8_Click(sender As Object, e As EventArgs) Handles LB8.Click
        PA = LB8.Text : 合約內文修改視窗.ShowDialog() : LB8.Text = PA : LB8_移動()
    End Sub
    Private Sub LB8_LocationChanged(sender As Object, e As EventArgs) Handles LB8.LocationChanged
        LB8_移動()
    End Sub
    Private Sub LB8_TextChanged(sender As Object, e As EventArgs) Handles LB8.TextChanged
        LB8_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB743_Click(sender As Object, e As EventArgs) Handles LB743.Click
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then
            NU5 = LB743.Location.X : BL1 = True : PA = LB743.Text : 合約內文修改視窗.ShowDialog() : LB743.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB743.Location.Y : LB743.Location = New Drawing.Point(syy1, sxx)
            sxx = LB9.Location.Y : LB9.Location = New Drawing.Point(syy2, sxx) : sxx = LB10.Location.Y : LB10.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB9_移動()
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB9.Size.Height : sxx = LB9.Location.Y : NU4 = LB10.Location.X : LB10.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB9_Click(sender As Object, e As EventArgs) Handles LB9.Click
        PA = LB9.Text : 合約內文修改視窗.ShowDialog() : LB9.Text = PA : LB9_移動()
    End Sub
    Private Sub LB9_LocationChanged(sender As Object, e As EventArgs) Handles LB9.LocationChanged
        LB9_移動()
    End Sub
    Private Sub LB9_TextChanged(sender As Object, e As EventArgs) Handles LB9.TextChanged
        LB9_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB10_移動()
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB10.Size.Height : sxx = LB10.Location.Y : NU3 = LB744.Location.X : NU4 = LB11.Location.X
            LB744.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB11.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB10_Click(sender As Object, e As EventArgs) Handles LB10.Click
        PA = LB10.Text : 合約內文修改視窗.ShowDialog() : LB10.Text = PA : LB10_移動()
    End Sub
    Private Sub LB10_LocationChanged(sender As Object, e As EventArgs) Handles LB10.LocationChanged
        LB10_移動()
    End Sub
    Private Sub LB10_TextChanged(sender As Object, e As EventArgs) Handles LB10.TextChanged
        LB10_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB744_Click(sender As Object, e As EventArgs) Handles LB744.Click
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then
            NU5 = LB744.Location.X : BL1 = True : PA = LB744.Text : 合約內文修改視窗.ShowDialog() : LB744.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB744.Location.Y : LB744.Location = New Drawing.Point(syy1, sxx)
            sxx = LB11.Location.Y : LB11.Location = New Drawing.Point(syy2, sxx) : sxx = LB12.Location.Y : LB12.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB11_移動()
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB11.Size.Height : sxx = LB11.Location.Y : NU4 = LB12.Location.X : LB12.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB11_Click(sender As Object, e As EventArgs) Handles LB11.Click
        PA = LB11.Text : 合約內文修改視窗.ShowDialog() : LB11.Text = PA : LB11_移動()
    End Sub
    Private Sub LB11_LocationChanged(sender As Object, e As EventArgs) Handles LB11.LocationChanged
        LB11_移動()
    End Sub
    Private Sub LB11_TextChanged(sender As Object, e As EventArgs) Handles LB11.TextChanged
        LB11_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB12_移動()
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB12.Size.Height : sxx = LB12.Location.Y : NU3 = LB745.Location.X : NU4 = LB13.Location.X
            LB745.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB13.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB12_Click(sender As Object, e As EventArgs) Handles LB12.Click
        PA = LB12.Text : 合約內文修改視窗.ShowDialog() : LB12.Text = PA : LB12_移動()
    End Sub
    Private Sub LB12_LocationChanged(sender As Object, e As EventArgs) Handles LB12.LocationChanged
        LB12_移動()
    End Sub
    Private Sub LB12_TextChanged(sender As Object, e As EventArgs) Handles LB12.TextChanged
        LB12_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB745_Click(sender As Object, e As EventArgs) Handles LB745.Click
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then
            NU5 = LB745.Location.X : BL1 = True : PA = LB745.Text : 合約內文修改視窗.ShowDialog() : LB745.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB745.Location.Y : LB745.Location = New Drawing.Point(syy1, sxx)
            sxx = LB13.Location.Y : LB13.Location = New Drawing.Point(syy2, sxx) : sxx = LB14.Location.Y : LB14.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB13_移動()
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB13.Size.Height : sxx = LB13.Location.Y : NU4 = LB14.Location.X : LB14.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB13_Click(sender As Object, e As EventArgs) Handles LB13.Click
        PA = LB13.Text : 合約內文修改視窗.ShowDialog() : LB13.Text = PA : LB13_移動()
    End Sub
    Private Sub LB13_LocationChanged(sender As Object, e As EventArgs) Handles LB13.LocationChanged
        LB13_移動()
    End Sub
    Private Sub LB13_TextChanged(sender As Object, e As EventArgs) Handles LB13.TextChanged
        LB13_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB14_移動()
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB14.Size.Height : sxx = LB14.Location.Y : NU3 = LB746.Location.X : NU4 = LB15.Location.X
            LB746.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB15.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB14_Click(sender As Object, e As EventArgs) Handles LB14.Click
        PA = LB14.Text : 合約內文修改視窗.ShowDialog() : LB14.Text = PA : LB14_移動()
    End Sub
    Private Sub LB14_LocationChanged(sender As Object, e As EventArgs) Handles LB14.LocationChanged
        LB14_移動()
    End Sub
    Private Sub LB14_TextChanged(sender As Object, e As EventArgs) Handles LB14.TextChanged
        LB14_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB746_Click(sender As Object, e As EventArgs) Handles LB746.Click
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then
            NU5 = LB746.Location.X : BL1 = True : PA = LB746.Text : 合約內文修改視窗.ShowDialog() : LB746.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB746.Location.Y : LB746.Location = New Drawing.Point(syy1, sxx)
            sxx = LB15.Location.Y : LB15.Location = New Drawing.Point(syy2, sxx) : sxx = LB16.Location.Y : LB16.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB15_移動()
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB15.Size.Height : sxx = LB15.Location.Y : NU4 = LB16.Location.X : LB16.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB15_Click(sender As Object, e As EventArgs) Handles LB15.Click
        PA = LB15.Text : 合約內文修改視窗.ShowDialog() : LB15.Text = PA : LB15_移動()
    End Sub
    Private Sub LB15_LocationChanged(sender As Object, e As EventArgs) Handles LB15.LocationChanged
        LB15_移動()
    End Sub
    Private Sub LB15_TextChanged(sender As Object, e As EventArgs) Handles LB15.TextChanged
        LB15_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB16_移動()
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB16.Size.Height : sxx = LB16.Location.Y : NU3 = LB747.Location.X : NU4 = LB17.Location.X
            LB747.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB17.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB16_Click(sender As Object, e As EventArgs) Handles LB16.Click
        PA = LB16.Text : 合約內文修改視窗.ShowDialog() : LB16.Text = PA : LB16_移動()
    End Sub
    Private Sub LB16_LocationChanged(sender As Object, e As EventArgs) Handles LB16.LocationChanged
        LB16_移動()
    End Sub
    Private Sub LB16_TextChanged(sender As Object, e As EventArgs) Handles LB16.TextChanged
        LB16_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB747_Click(sender As Object, e As EventArgs) Handles LB747.Click
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then
            NU5 = LB747.Location.X : BL1 = True : PA = LB747.Text : 合約內文修改視窗.ShowDialog() : LB747.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB747.Location.Y : LB747.Location = New Drawing.Point(syy1, sxx)
            sxx = LB17.Location.Y : LB17.Location = New Drawing.Point(syy2, sxx) : sxx = LB18.Location.Y : LB18.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB17_移動()
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB17.Size.Height : sxx = LB17.Location.Y : NU4 = LB18.Location.X : LB18.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB17_Click(sender As Object, e As EventArgs) Handles LB17.Click
        PA = LB17.Text : 合約內文修改視窗.ShowDialog() : LB17.Text = PA : LB17_移動()
    End Sub
    Private Sub LB17_LocationChanged(sender As Object, e As EventArgs) Handles LB17.LocationChanged
        LB17_移動()
    End Sub
    Private Sub LB17_TextChanged(sender As Object, e As EventArgs) Handles LB17.TextChanged
        LB17_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB18_移動()
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB18.Size.Height : sxx = LB18.Location.Y : NU3 = LB748.Location.X : NU4 = LB19.Location.X
            LB748.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB19.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB18_Click(sender As Object, e As EventArgs) Handles LB18.Click
        PA = LB18.Text : 合約內文修改視窗.ShowDialog() : LB18.Text = PA : LB18_移動()
    End Sub
    Private Sub LB18_LocationChanged(sender As Object, e As EventArgs) Handles LB18.LocationChanged
        LB18_移動()
    End Sub
    Private Sub LB18_TextChanged(sender As Object, e As EventArgs) Handles LB18.TextChanged
        LB18_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB748_Click(sender As Object, e As EventArgs) Handles LB748.Click
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then
            NU5 = LB748.Location.X : BL1 = True : PA = LB748.Text : 合約內文修改視窗.ShowDialog() : LB748.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB748.Location.Y : LB748.Location = New Drawing.Point(syy1, sxx)
            sxx = LB19.Location.Y : LB19.Location = New Drawing.Point(syy2, sxx) : sxx = LB20.Location.Y : LB20.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB19_移動()
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB19.Size.Height : sxx = LB19.Location.Y : NU4 = LB20.Location.X : LB20.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB19_Click(sender As Object, e As EventArgs) Handles LB19.Click
        PA = LB19.Text : 合約內文修改視窗.ShowDialog() : LB19.Text = PA : LB19_移動()
    End Sub
    Private Sub LB19_LocationChanged(sender As Object, e As EventArgs) Handles LB19.LocationChanged
        LB19_移動()
    End Sub
    Private Sub LB19_TextChanged(sender As Object, e As EventArgs) Handles LB19.TextChanged
        LB19_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB20_移動()
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB20.Size.Height : sxx = LB20.Location.Y : NU3 = LB749.Location.X : NU4 = LB750.Location.X
            LB749.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB750.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB20_Click(sender As Object, e As EventArgs) Handles LB20.Click
        PA = LB20.Text : 合約內文修改視窗.ShowDialog() : LB20.Text = PA : LB20_移動()
    End Sub
    Private Sub LB20_LocationChanged(sender As Object, e As EventArgs) Handles LB20.LocationChanged
        LB20_移動()
    End Sub
    Private Sub LB20_TextChanged(sender As Object, e As EventArgs) Handles LB20.TextChanged
        LB20_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB749_Click(sender As Object, e As EventArgs) Handles LB749.Click
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then
            NU5 = LB749.Location.X : BL1 = True : PA = LB749.Text : 合約內文修改視窗.ShowDialog() : LB749.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB749.Location.Y : LB749.Location = New Drawing.Point(syy1, sxx)
            sxx = LB750.Location.Y : LB750.Location = New Drawing.Point(syy2, sxx) : sxx = LB751.Location.Y : LB751.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB750_移動()
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB750.Size.Height : sxx = LB750.Location.Y : NU4 = LB751.Location.X : LB751.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB750_Click(sender As Object, e As EventArgs) Handles LB750.Click
        PA = LB750.Text : 合約內文修改視窗.ShowDialog() : LB750.Text = PA : LB750_移動()
    End Sub
    Private Sub LB750_LocationChanged(sender As Object, e As EventArgs) Handles LB750.LocationChanged
        LB750_移動()
    End Sub
    Private Sub LB750_TextChanged(sender As Object, e As EventArgs) Handles LB750.TextChanged
        LB750_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB751_移動()
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB751.Size.Height : sxx = LB751.Location.Y : NU3 = LB752.Location.X : NU4 = LB753.Location.X
            LB752.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB753.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB751_Click(sender As Object, e As EventArgs) Handles LB751.Click
        PA = LB751.Text : 合約內文修改視窗.ShowDialog() : LB751.Text = PA : LB751_移動()
    End Sub
    Private Sub LB751_LocationChanged(sender As Object, e As EventArgs) Handles LB751.LocationChanged
        LB751_移動()
    End Sub
    Private Sub LB751_TextChanged(sender As Object, e As EventArgs) Handles LB751.TextChanged
        LB751_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB752_Click(sender As Object, e As EventArgs) Handles LB752.Click
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then
            NU5 = LB752.Location.X : BL1 = True : PA = LB752.Text : 合約內文修改視窗.ShowDialog() : LB752.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB752.Location.Y : LB752.Location = New Drawing.Point(syy1, sxx)
            sxx = LB753.Location.Y : LB753.Location = New Drawing.Point(syy2, sxx) : sxx = LB754.Location.Y : LB754.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB753_移動()
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB753.Size.Height : sxx = LB753.Location.Y : NU4 = LB754.Location.X : LB754.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB753_Click(sender As Object, e As EventArgs) Handles LB753.Click
        PA = LB753.Text : 合約內文修改視窗.ShowDialog() : LB753.Text = PA : LB753_移動()
    End Sub
    Private Sub LB753_LocationChanged(sender As Object, e As EventArgs) Handles LB753.LocationChanged
        LB753_移動()
    End Sub
    Private Sub LB753_TextChanged(sender As Object, e As EventArgs) Handles LB753.TextChanged
        LB753_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB754_移動()
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then : Dim sx, sxx As Integer : sx = LB754.Size.Height : sxx = LB754.Location.Y : NU3 = LB755.Location.X : NU4 = LB756.Location.X
            LB755.Location = New Drawing.Point(NU3, sxx + sx + 10) : LB756.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB754_Click(sender As Object, e As EventArgs) Handles LB754.Click
        PA = LB754.Text : 合約內文修改視窗.ShowDialog() : LB754.Text = PA : LB754_移動()
    End Sub
    Private Sub LB754_LocationChanged(sender As Object, e As EventArgs) Handles LB754.LocationChanged
        LB754_移動()
    End Sub
    Private Sub LB754_TextChanged(sender As Object, e As EventArgs) Handles LB754.TextChanged
        LB754_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB755_Click(sender As Object, e As EventArgs) Handles LB755.Click
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then
            NU5 = LB755.Location.X : BL1 = True : PA = LB755.Text : 合約內文修改視窗.ShowDialog() : LB755.Text = PA : BL1 = False : NU5 = 0
            Dim sxx, syy1, syy2 As Integer : syy1 = NU3 : syy2 = NU4 : sxx = LB755.Location.Y : LB755.Location = New Drawing.Point(syy1, sxx)
            sxx = LB756.Location.Y : LB756.Location = New Drawing.Point(syy2, sxx) : sxx = LB757.Location.Y : LB757.Location = New Drawing.Point(syy2, sxx) : End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB756_移動()
        If 翻頁_nud.Value = 3 Or 自動移動 = True Then
            Dim sx, sxx As Integer : sx = LB756.Size.Height : sxx = LB756.Location.Y : NU4 = LB757.Location.X : LB757.Location = New Drawing.Point(NU4, sxx + sx + 10) : End If
    End Sub
    Private Sub LB756_Click(sender As Object, e As EventArgs) Handles LB756.Click
        PA = LB756.Text : 合約內文修改視窗.ShowDialog() : LB756.Text = PA : LB756_移動()
    End Sub
    Private Sub LB756_LocationChanged(sender As Object, e As EventArgs) Handles LB756.LocationChanged
        LB756_移動()
    End Sub
    Private Sub LB756_TextChanged(sender As Object, e As EventArgs) Handles LB756.TextChanged
        LB756_移動()
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Private Sub LB757_Click(sender As Object, e As EventArgs) Handles LB757.Click
        PA = LB757.Text : 合約內文修改視窗.ShowDialog() : LB757.Text = PA
    End Sub
    '-----------------------------------------------------------------------------------------------------------------
    Dim Oword As Application
    Dim Odoc As Document
    Dim Opara(500) As Paragraph : Dim Otable(500) As Table : Dim AN, BN, CN As Integer : Dim SSTR As String
    Private Sub 列印成Word_bt_Click(sender As Object, e As EventArgs) Handles 列印成Word_bt.Click
        If 合約編號_cb.Text = "" Or 合約編號1_tb.Text = "" Or 合約編號2_tb.Text = "" Or 合約編號3_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : MsgBox("合約編號不齊全，請先確定合約的完整性!!")
            Else : MsgBox("Nomor kontrak tidak lengkap, harap konfirmasikan integritas kontrak terlebih dahulu!!") : End If
        Else
            Try
                Oword = CreateObject("Word.application")
                Oword.Visible = True
                'Odoc = Oword.Documents.Add
                Dim Str2 As String = System.Windows.Forms.Application.StartupPath
                If 合約編號_cb.Text = "HX" Then
                    Odoc = Oword.Documents.Open(Str2 & "\HX01.docx")
                Else
                    Odoc = Oword.Documents.Open(Str2 & "\PGS01.docx")
                End If
                Odoc.PageSetup.Orientation = Word.WdOrientation.wdOrientPortrait     '直向显示，试用于横向打印
                '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------
                AN = 0 : BN = 0 : CN = 0 : SSTR = ""
                '------系統第一頁------------------------------------------------------------------
                Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = A中02_lb.Text
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 18 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = A中04_lb.Text : Opara(BN).Range.InsertParagraphAfter() : BN += 1
                Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = A英04_lb.Text
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 14 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = A英02_lb.Text : Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線() : AN = BN
                For i As Integer = AN To AN + 4
                    Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = ""
                    Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 18 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                    Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
                    Opara(BN).Range.InsertParagraphAfter() : BN += 1
                Next
                Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = A中01_lb.Text
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 24 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = A英01_lb.Text
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
                Opara(BN).Range.InsertParagraphAfter() : BN += 1 : AN = BN
                For i As Integer = AN To AN + 4
                    Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = ""
                    Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 18 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                    Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
                    Opara(BN).Range.InsertParagraphAfter() : BN += 1
                Next
                Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = 合約編號中_lb.Text
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = 合約編號英_lb.Text
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = ""
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label25.Text
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label24.Text
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                '------系統第二頁------------------------------------------------------------------
                Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label50.Text
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 14 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線()
                SSTR = Replace(A中05_lb.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label26.Text & "    : " & SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                SSTR = Replace(A英05_lb.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label31.Text & " : " & SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                SSTR = Replace(A中06_lb.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label37.Text & "      : " & SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                SSTR = Replace(A英06_lb.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label34.Text & " : " & SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                SSTR = Replace(A中03_lb.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label43.Text & "      : " & SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                SSTR = Replace(A英03_lb.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label40.Text & " : " & SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                SSTR = Replace(A中07_lb.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label49.Text & " : " & SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                SSTR = Replace(A英07_lb.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label46.Text & "   : " & SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label56.Text
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 14 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線()
                SSTR = Replace(b中01_lb.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label55.Text & "      : " & SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlue
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                SSTR = Replace(b英01_lb.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label52.Text & " : " & SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlue
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                SSTR = Replace(A13_lb.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label61.Text & "   : " & SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlue
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                SSTR = Replace(A14_lb.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = Label58.Text & " : " & SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlue
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = "" : Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 5
                Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack : Opara(BN).Format.SpaceAfter = 0 : Opara(BN).Format.SpaceBefore = 0
                Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft : Opara(BN).Range.InsertParagraphAfter() : BN += 1
                SSTR = Replace(LB1.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                SSTR = Replace(LB2.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                For i As Integer = AN To AN + 1
                    Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = "" : Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 5
                    Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack : Opara(BN).Format.SpaceAfter = 0 : Opara(BN).Format.SpaceBefore = 0
                    Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft : Opara(BN).Range.InsertParagraphAfter() : BN += 1
                Next
                '------系統第三頁------------------------------------------------------------------
                SSTR = Replace(Label65.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                SSTR = Replace(Label66.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線()
                Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                Otable(CN).Cell(1, 1).Range.Text = Label67.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                SSTR = Replace(LB3.Text & " " & A01_lb.Text & " " & LB4.Text & " " & A02_lb.Text, vbCrLf, "")
                Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                SSTR = Replace(LB5.Text & " " & A03_lb.Text & " " & LB6.Text & " " & A04_lb.Text, vbCrLf, "")
                Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn) : CN += 1
                Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = "" : Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 5
                Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack : Opara(BN).Format.SpaceAfter = 0 : Opara(BN).Format.SpaceBefore = 0
                Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft : Opara(BN).Range.InsertParagraphAfter() : BN += 1
                If LB742.Text = "" And LB7.Text = "" And LB8.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB742.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB7.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB8.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB742.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB743.Text = "" And LB9.Text = "" And LB10.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB743.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB9.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB10.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB743.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB744.Text = "" And LB11.Text = "" And LB12.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB744.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB11.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB12.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB744.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB745.Text = "" And LB13.Text = "" And LB14.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB745.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB13.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB14.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB745.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB746.Text = "" And LB15.Text = "" And LB16.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB746.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB15.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB16.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB746.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB747.Text = "" And LB17.Text = "" And LB18.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB747.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB17.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB18.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB747.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB748.Text = "" And LB19.Text = "" And LB20.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB748.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB19.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB20.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB748.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB749.Text = "" And LB750.Text = "" And LB751.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB749.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB750.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB751.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB749.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB752.Text = "" And LB753.Text = "" And LB754.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB752.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB753.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB754.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB752.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB755.Text = "" And LB756.Text = "" And LB757.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB755.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB756.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB757.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB755.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                列印成Word補空()
                '------系統第四頁------------------------------------------------------------------
                SSTR = Replace(Label97.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                SSTR = Replace(Label96.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線()
                If Label100.Text = "" And LB21.Text = "" And LB22.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = Label100.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB21.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB22.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If Label100.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If Label112.Text = "" And LB23.Text = "" And LB24.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = Label112.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB23.Text & " " & A中08_lb.Text & " " & LB33.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB24.Text & " " & A英08_lb.Text & " " & LB34.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If Label112.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If Label109.Text = "" And LB25.Text = "" And LB26.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = Label109.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB25.Text & " " & A中09_lb.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB26.Text & " " & A英09_lb.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If Label109.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1
                    Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = "" : Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 5
                    Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack : Opara(BN).Format.SpaceAfter = 0 : Opara(BN).Format.SpaceBefore = 0
                    Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft : Opara(BN).Range.InsertParagraphAfter() : BN += 1 : End If
                If Label106.Text = "" And LB27.Text = "" And LB28.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = Label106.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB27.Text & " " & A中10_lb.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB28.Text & " " & A英10_lb.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If Label106.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If Label103.Text = "" And LB29.Text = "" And LB30.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = Label103.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB29.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB30.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If Label103.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB719.Text = "" And LB31.Text = "" And LB32.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB719.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB31.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB32.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB719.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB720.Text = "" And LB35.Text = "" And LB36.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB720.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB35.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB36.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB720.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB721.Text = "" And LB722.Text = "" And LB723.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB721.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB722.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB723.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB721.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB724.Text = "" And LB725.Text = "" And LB726.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB724.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB725.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB726.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB724.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB727.Text = "" And LB728.Text = "" And LB729.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB726.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB727.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB728.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB727.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB730.Text = "" And LB731.Text = "" And LB732.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB730.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB731.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB732.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB730.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB733.Text = "" And LB734.Text = "" And LB735.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB733.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB734.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB735.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB733.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB736.Text = "" And LB737.Text = "" And LB738.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB736.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB737.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB738.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB736.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB739.Text = "" And LB740.Text = "" And LB741.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB739.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB740.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB741.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB739.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                列印成Word補空()
                '------系統第五頁------------------------------------------------------------------
                SSTR = Replace(Label64.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                SSTR = Replace(Label63.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線()
                If Label136.Text = "" And LB39.Text = "" And LB40.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = Label136.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB39.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB40.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If Label136.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB45.Text = "" And LB41.Text = "" And LB42.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB45.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB41.Text & " " & LB46.Text & " " & LB47.Text & " " & LB43.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB42.Text & " " & LB48.Text & " " & LB49.Text & " " & LB44.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB45.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If 第1期_dgv.Rows.Count > 0 Then
                    Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 第1期_dgv.Rows.Count, 2) : Dim ZNX As Integer
                    If 第1期_dgv.Rows.Count >= 1 Then : ZNX = 1 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB1.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB2.Text & " " & NLB3.Text & " " & NLB4.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第1期_dgv.Rows.Count >= 2 Then : ZNX = 2 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB5.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB6.Text & " " & NLB7.Text & " " & NLB8.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第1期_dgv.Rows.Count >= 3 Then : ZNX = 3 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB9.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB10.Text & " " & NLB11.Text & " " & NLB12.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第1期_dgv.Rows.Count >= 4 Then : ZNX = 4 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB13.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB14.Text & " " & NLB15.Text & " " & NLB16.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第1期_dgv.Rows.Count >= 5 Then : ZNX = 5 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB17.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB18.Text & " " & NLB19.Text & " " & NLB20.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第1期_dgv.Rows.Count >= 6 Then : ZNX = 6 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB21.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB22.Text & " " & NLB23.Text & " " & NLB24.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第1期_dgv.Rows.Count >= 7 Then : ZNX = 7 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB25.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB26.Text & " " & NLB27.Text & " " & NLB28.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第1期_dgv.Rows.Count >= 8 Then : ZNX = 8 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB29.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB30.Text & " " & NLB31.Text & " " & NLB32.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第1期_dgv.Rows.Count >= 9 Then : ZNX = 9 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB33.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB34.Text & " " & NLB35.Text & " " & NLB36.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第1期_dgv.Rows.Count = 10 Then : ZNX = 10 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB37.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB38.Text & " " & NLB39.Text & " " & NLB40.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If : 列印成Word補空() : End If
                If LB54.Text = "" And LB53.Text = "" And LB52.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB54.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB53.Text & " " & LB55.Text & " " & LB56.Text & " " & LB51.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB52.Text & " " & LB57.Text & " " & LB58.Text & " " & LB50.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB54.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If 第2期_dgv.Rows.Count > 0 Then
                    Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 第2期_dgv.Rows.Count, 2) : Dim ZNX As Integer
                    If 第2期_dgv.Rows.Count >= 1 Then : ZNX = 1 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB41.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB42.Text & " " & NLB43.Text & " " & NLB44.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第2期_dgv.Rows.Count >= 2 Then : ZNX = 2 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB45.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB46.Text & " " & NLB47.Text & " " & NLB48.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第2期_dgv.Rows.Count >= 3 Then : ZNX = 3 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB49.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB50.Text & " " & NLB51.Text & " " & NLB52.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第2期_dgv.Rows.Count >= 4 Then : ZNX = 4 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB53.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB54.Text & " " & NLB55.Text & " " & NLB56.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第2期_dgv.Rows.Count >= 5 Then : ZNX = 5 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB57.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB58.Text & " " & NLB59.Text & " " & NLB60.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第2期_dgv.Rows.Count >= 6 Then : ZNX = 6 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB61.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB62.Text & " " & NLB63.Text & " " & NLB64.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第2期_dgv.Rows.Count >= 7 Then : ZNX = 7 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB65.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB66.Text & " " & NLB67.Text & " " & NLB68.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第2期_dgv.Rows.Count >= 8 Then : ZNX = 8 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB69.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB70.Text & " " & NLB71.Text & " " & NLB72.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第2期_dgv.Rows.Count >= 9 Then : ZNX = 9 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB73.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB74.Text & " " & NLB75.Text & " " & NLB76.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第2期_dgv.Rows.Count = 10 Then : ZNX = 10 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB77.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB78.Text & " " & NLB79.Text & " " & NLB80.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If : 列印成Word補空() : End If
                If LB63.Text = "" And LB62.Text = "" And LB61.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB63.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB62.Text & " " & LB64.Text & " " & LB65.Text & " " & LB60.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB61.Text & " " & LB66.Text & " " & LB67.Text & " " & LB59.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB63.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If 第3期_dgv.Rows.Count > 0 Then
                    Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 第3期_dgv.Rows.Count, 2) : Dim ZNX As Integer
                    If 第3期_dgv.Rows.Count >= 1 Then : ZNX = 1 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB81.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB82.Text & " " & NLB83.Text & " " & NLB84.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第3期_dgv.Rows.Count >= 2 Then : ZNX = 2 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB85.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB86.Text & " " & NLB87.Text & " " & NLB88.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第3期_dgv.Rows.Count >= 3 Then : ZNX = 3 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB89.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB90.Text & " " & NLB91.Text & " " & NLB92.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第3期_dgv.Rows.Count >= 4 Then : ZNX = 4 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB93.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB94.Text & " " & NLB95.Text & " " & NLB96.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第3期_dgv.Rows.Count >= 5 Then : ZNX = 5 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB97.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB98.Text & " " & NLB99.Text & " " & NLB100.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第3期_dgv.Rows.Count >= 6 Then : ZNX = 6 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB101.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB102.Text & " " & NLB103.Text & " " & NLB104.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第3期_dgv.Rows.Count >= 7 Then : ZNX = 7 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB105.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB106.Text & " " & NLB107.Text & " " & NLB108.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第3期_dgv.Rows.Count >= 8 Then : ZNX = 8 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB109.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB110.Text & " " & NLB111.Text & " " & NLB112.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第3期_dgv.Rows.Count >= 9 Then : ZNX = 9 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB113.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB114.Text & " " & NLB115.Text & " " & NLB116.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第3期_dgv.Rows.Count = 10 Then : ZNX = 10 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB117.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB118.Text & " " & NLB119.Text & " " & NLB120.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If : 列印成Word補空() : End If
                If LB72.Text = "" And LB71.Text = "" And LB70.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB72.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB71.Text & " " & LB73.Text & " " & LB74.Text & " " & LB69.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB70.Text & " " & LB75.Text & " " & LB76.Text & " " & LB68.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB72.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If 第4期_dgv.Rows.Count > 0 Then
                    Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 第4期_dgv.Rows.Count, 2) : Dim ZNX As Integer
                    If 第4期_dgv.Rows.Count >= 1 Then : ZNX = 1 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB121.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB122.Text & " " & NLB123.Text & " " & NLB124.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第4期_dgv.Rows.Count >= 2 Then : ZNX = 2 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB125.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB126.Text & " " & NLB127.Text & " " & NLB128.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第4期_dgv.Rows.Count >= 3 Then : ZNX = 3 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB129.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB130.Text & " " & NLB131.Text & " " & NLB132.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第4期_dgv.Rows.Count >= 4 Then : ZNX = 4 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB133.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB134.Text & " " & NLB135.Text & " " & NLB136.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第4期_dgv.Rows.Count >= 5 Then : ZNX = 5 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB137.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB138.Text & " " & NLB139.Text & " " & NLB140.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第4期_dgv.Rows.Count >= 6 Then : ZNX = 6 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB141.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB142.Text & " " & NLB143.Text & " " & NLB144.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第4期_dgv.Rows.Count >= 7 Then : ZNX = 7 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB145.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB146.Text & " " & NLB147.Text & " " & NLB148.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第4期_dgv.Rows.Count >= 8 Then : ZNX = 8 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB149.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB150.Text & " " & NLB151.Text & " " & NLB152.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第4期_dgv.Rows.Count >= 9 Then : ZNX = 9 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB153.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB154.Text & " " & NLB155.Text & " " & NLB156.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第4期_dgv.Rows.Count = 10 Then : ZNX = 10 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB157.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB158.Text & " " & NLB159.Text & " " & NLB160.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If : 列印成Word補空() : End If
                If LB81.Text = "" And LB80.Text = "" And LB79.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB81.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB80.Text & " " & LB82.Text & " " & LB83.Text & " " & LB78.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB79.Text & " " & LB84.Text & " " & LB85.Text & " " & LB77.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB81.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If 第5期_dgv.Rows.Count > 0 Then
                    Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 第5期_dgv.Rows.Count, 2) : Dim ZNX As Integer
                    If 第5期_dgv.Rows.Count >= 1 Then : ZNX = 1 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB161.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB162.Text & " " & NLB163.Text & " " & NLB164.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第5期_dgv.Rows.Count >= 2 Then : ZNX = 2 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB165.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB166.Text & " " & NLB167.Text & " " & NLB168.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第5期_dgv.Rows.Count >= 3 Then : ZNX = 3 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB169.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB170.Text & " " & NLB171.Text & " " & NLB172.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第5期_dgv.Rows.Count >= 4 Then : ZNX = 4 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB173.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB174.Text & " " & NLB175.Text & " " & NLB176.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第5期_dgv.Rows.Count >= 5 Then : ZNX = 5 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB177.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB178.Text & " " & NLB179.Text & " " & NLB180.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第5期_dgv.Rows.Count >= 6 Then : ZNX = 6 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB181.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB182.Text & " " & NLB183.Text & " " & NLB184.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第5期_dgv.Rows.Count >= 7 Then : ZNX = 7 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB185.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB186.Text & " " & NLB187.Text & " " & NLB188.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第5期_dgv.Rows.Count >= 8 Then : ZNX = 8 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB189.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB190.Text & " " & NLB191.Text & " " & NLB192.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第5期_dgv.Rows.Count >= 9 Then : ZNX = 9 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB193.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB194.Text & " " & NLB195.Text & " " & NLB196.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If
                    If 第5期_dgv.Rows.Count = 10 Then : ZNX = 10 : Otable(CN).Cell(ZNX, 1).Range.Text = NLB197.Text : Otable(CN).Cell(ZNX, 1).Range.Font.Color = WdColor.wdColorBlue
                        SSTR = Replace(NLB198.Text & " " & NLB199.Text & " " & NLB200.Text, vbCrLf, "") : Otable(CN).Cell(ZNX, 2).Range.Text = SSTR : End If : 列印成Word補空() : End If
                '------系統第六頁------------------------------------------------------------------
                If LB687.Text = "" And LB37.Text = "" And LB38.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB687.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB37.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB38.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB687.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB688.Text = "" And LB86.Text = "" And LB87.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB688.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB86.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB87.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB688.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB689.Text = "" And LB88.Text = "" And LB89.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB689.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB88.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB89.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB689.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB690.Text = "" And LB90.Text = "" And LB91.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB690.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB90.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB91.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB690.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB691.Text = "" And LB92.Text = "" And LB93.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB691.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB92.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB93.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB691.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB692.Text = "" And LB693.Text = "" And LB694.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB692.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB693.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB694.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB692.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB695.Text = "" And LB696.Text = "" And LB697.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB695.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB696.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB697.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB695.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB698.Text = "" And LB699.Text = "" And LB700.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB698.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB699.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB700.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB698.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB701.Text = "" And LB702.Text = "" And LB703.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB701.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB702.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB703.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB701.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB704.Text = "" And LB705.Text = "" And LB706.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB704.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB705.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB706.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB704.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB707.Text = "" And LB708.Text = "" And LB709.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB707.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB708.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB709.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB707.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB710.Text = "" And LB711.Text = "" And LB712.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB710.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB711.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB712.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB710.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB713.Text = "" And LB714.Text = "" And LB715.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB713.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB714.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB715.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB713.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB716.Text = "" And LB717.Text = "" And LB718.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB716.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB717.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB718.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB716.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                列印成Word補空()
                '------系統第七頁------------------------------------------------------------------
                SSTR = Replace(LB645.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                SSTR = Replace(LB646.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線()
                If Label200.Text = "" And LB94.Text = "" And LB97.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = Label200.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB94.Text & " " & A19_lb.Text & " " & LB95.Text & " " & LB96.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB97.Text & " " & A20_lb.Text & " " & LB98.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If Label200.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If Label208.Text = "" And LB99.Text = "" And LB101.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = Label208.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB99.Text & " " & A21_lb.Text & " " & LB100.Text & " " & A22_lb.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB101.Text & " " & A23_lb.Text & " " & LB102.Text & " " & A24_lb.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If Label208.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB648.Text = "" And LB649.Text = "" And LB650.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB648.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB649.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB650.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB648.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB651.Text = "" And LB652.Text = "" And LB653.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB651.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB652.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB653.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB651.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB654.Text = "" And LB655.Text = "" And LB656.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB654.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB655.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB656.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB654.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB657.Text = "" And LB658.Text = "" And LB659.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB657.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB658.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB659.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB657.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB660.Text = "" And LB661.Text = "" And LB662.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB660.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB661.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB662.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB660.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB663.Text = "" And LB664.Text = "" And LB665.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB663.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB664.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB665.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB663.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB666.Text = "" And LB667.Text = "" And LB668.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB666.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB667.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB668.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB666.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB669.Text = "" And LB670.Text = "" And LB671.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB669.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB670.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB671.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB669.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB672.Text = "" And LB673.Text = "" And LB674.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB672.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB673.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB674.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB672.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB675.Text = "" And LB676.Text = "" And LB677.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB675.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB676.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB677.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB675.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB678.Text = "" And LB679.Text = "" And LB680.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB678.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB679.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB680.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB678.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB681.Text = "" And LB682.Text = "" And LB683.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB681.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB682.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB683.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB681.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                '------系統第八頁------------------------------------------------------------------
                If LB645.Text = LB600.Text Or LB646.Text = LB601.Text Or (LB600.Text = "" And LB601.Text = "") Then : Else : 列印成Word補空()
                    SSTR = Replace(LB600.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                    Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                    Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                    Opara(BN).Range.InsertParagraphAfter() : BN += 1
                    SSTR = Replace(LB601.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                    Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                    Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                    Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線()
                End If
                If LB603.Text = "" And LB604.Text = "" And LB605.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB603.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB604.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB605.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB603.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB606.Text = "" And LB607.Text = "" And LB608.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB606.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB607.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB608.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB606.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB609.Text = "" And LB610.Text = "" And LB611.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB609.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB610.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB611.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB609.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB612.Text = "" And LB613.Text = "" And LB614.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB612.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB613.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB614.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB612.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB615.Text = "" And LB616.Text = "" And LB617.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB615.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB616.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB617.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB615.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB618.Text = "" And LB619.Text = "" And LB620.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB618.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB619.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB620.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB618.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB621.Text = "" And LB622.Text = "" And LB623.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB621.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB622.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB623.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB621.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB624.Text = "" And LB625.Text = "" And LB626.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB624.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB625.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB626.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB624.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB627.Text = "" And LB628.Text = "" And LB629.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB627.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB628.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB629.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB627.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB630.Text = "" And LB631.Text = "" And LB632.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB630.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB631.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB632.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB630.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB633.Text = "" And LB634.Text = "" And LB635.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB633.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB634.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB635.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB633.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB636.Text = "" And LB637.Text = "" And LB638.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB636.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB637.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB638.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB636.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB639.Text = "" And LB640.Text = "" And LB641.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB639.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB640.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB641.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB639.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB642.Text = "" And LB643.Text = "" And LB644.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB642.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB643.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB644.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB642.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                '------系統第九頁------------------------------------------------------------------
                If LB600.Text = LB567.Text Or LB601.Text = LB568.Text Or (LB567.Text = "" And LB568.Text = "") Then : Else : 列印成Word補空()
                    SSTR = Replace(LB567.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                    Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                    Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                    Opara(BN).Range.InsertParagraphAfter() : BN += 1
                    SSTR = Replace(LB568.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                    Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                    Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                    Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線()
                End If
                If LB570.Text = "" And LB103.Text = "" And LB104.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB570.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB103.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB104.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB570.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB571.Text = "" And LB105.Text = "" And LB106.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB571.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB105.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB106.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB571.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB572.Text = "" And LB107.Text = "" And LB108.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB572.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB107.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB108.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB572.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB573.Text = "" And LB109.Text = "" And LB110.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB573.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB109.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB110.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB573.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB574.Text = "" And LB111.Text = "" And LB112.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB574.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB111.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB112.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB574.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB575.Text = "" And LB113.Text = "" And LB114.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB575.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB113.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB114.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB575.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB576.Text = "" And LB577.Text = "" And LB578.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB576.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB577.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB578.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB576.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB579.Text = "" And LB580.Text = "" And LB581.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB579.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB580.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB581.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB579.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB582.Text = "" And LB583.Text = "" And LB584.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB582.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB583.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB584.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB582.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB585.Text = "" And LB586.Text = "" And LB587.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB585.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB586.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB587.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB585.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB588.Text = "" And LB589.Text = "" And LB590.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB588.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB589.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB590.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB588.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB591.Text = "" And LB592.Text = "" And LB593.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB591.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB592.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB593.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB591.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB594.Text = "" And LB595.Text = "" And LB596.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB594.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB595.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB596.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB594.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB597.Text = "" And LB598.Text = "" And LB599.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB597.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB598.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB599.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB597.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                '------系統第十頁------------------------------------------------------------------
                If LB567.Text = LB524.Text Or LB568.Text = LB525.Text Or (LB524.Text = "" And LB525.Text = "") Then : Else : 列印成Word補空()
                    SSTR = Replace(LB524.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                    Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                    Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                    Opara(BN).Range.InsertParagraphAfter() : BN += 1
                    SSTR = Replace(LB525.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                    Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                    Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                    Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線()
                End If
                If LB527.Text = "" And LB115.Text = "" And LB116.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB527.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB115.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB116.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB527.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB528.Text = "" And LB529.Text = "" And LB530.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB528.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB529.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB530.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB528.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB531.Text = "" And LB532.Text = "" And LB533.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB531.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB532.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB533.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB531.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB534.Text = "" And LB535.Text = "" And LB536.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB534.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB535.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB536.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB534.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB537.Text = "" And LB538.Text = "" And LB539.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB537.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB538.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB539.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB537.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB540.Text = "" And LB541.Text = "" And LB542.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB540.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB541.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB542.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB540.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB543.Text = "" And LB544.Text = "" And LB545.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB543.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB544.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB545.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB543.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB546.Text = "" And LB547.Text = "" And LB548.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB546.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB547.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB548.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB546.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB549.Text = "" And LB550.Text = "" And LB551.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB549.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB550.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB551.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB549.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB552.Text = "" And LB553.Text = "" And LB554.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB552.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB553.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB554.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB552.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB555.Text = "" And LB556.Text = "" And LB557.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB555.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB556.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB557.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB555.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB558.Text = "" And LB559.Text = "" And LB560.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB558.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB559.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB560.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB558.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB561.Text = "" And LB562.Text = "" And LB563.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB561.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB562.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB561.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB561.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB564.Text = "" And LB565.Text = "" And LB566.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB564.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB565.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB566.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB564.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                '------系統第十一頁------------------------------------------------------------------
                If LB524.Text = LB483.Text Or LB525.Text = LB484.Text Or (LB483.Text = "" And LB484.Text = "") Then : Else : 列印成Word補空()
                    SSTR = Replace(LB483.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                    Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                    Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                    Opara(BN).Range.InsertParagraphAfter() : BN += 1
                    SSTR = Replace(LB484.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                    Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                    Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                    Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線()
                End If
                If LB486.Text = "" And LB117.Text = "" And LB118.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB486.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB117.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB118.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB486.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB487.Text = "" And LB119.Text = "" And LB120.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB487.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB119.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB120.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB487.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB488.Text = "" And LB489.Text = "" And LB490.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB488.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB489.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB490.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB488.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB491.Text = "" And LB492.Text = "" And LB493.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB491.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB492.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB493.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB491.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB494.Text = "" And LB495.Text = "" And LB496.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB494.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB495.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB496.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB494.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB497.Text = "" And LB498.Text = "" And LB499.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB497.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB498.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB499.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB497.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB500.Text = "" And LB501.Text = "" And LB502.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB500.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB501.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB502.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB500.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB503.Text = "" And LB504.Text = "" And LB505.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB503.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB504.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB505.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB503.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB506.Text = "" And LB507.Text = "" And LB508.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB506.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB507.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB508.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB506.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB509.Text = "" And LB510.Text = "" And LB511.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB509.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB510.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB511.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB509.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB512.Text = "" And LB513.Text = "" And LB514.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB512.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB513.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB514.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB512.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB515.Text = "" And LB516.Text = "" And LB517.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB515.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB516.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB517.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB515.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB518.Text = "" And LB519.Text = "" And LB520.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB518.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB519.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB520.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB518.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB521.Text = "" And LB522.Text = "" And LB523.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB521.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB522.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB523.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB521.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                '------系統第十二頁------------------------------------------------------------------
                If LB483.Text = LB438.Text Or LB484.Text = LB439.Text Or (LB438.Text = "" And LB439.Text = "") Then : Else : 列印成Word補空()
                    SSTR = Replace(LB438.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                    Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                    Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                    Opara(BN).Range.InsertParagraphAfter() : BN += 1
                    SSTR = Replace(LB439.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                    Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                    Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                    Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線()
                End If
                If LB441.Text = "" And LB442.Text = "" And LB443.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB441.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB442.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB443.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB441.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB444.Text = "" And LB445.Text = "" And LB446.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB444.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB445.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB446.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB444.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB447.Text = "" And LB448.Text = "" And LB449.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB447.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB448.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB449.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB447.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB450.Text = "" And LB451.Text = "" And LB452.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB450.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB451.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB452.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB450.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB453.Text = "" And LB454.Text = "" And LB455.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB453.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB454.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB455.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB453.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB456.Text = "" And LB457.Text = "" And LB458.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB456.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB457.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB458.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB456.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB459.Text = "" And LB460.Text = "" And LB461.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB459.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB460.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB461.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB459.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB462.Text = "" And LB463.Text = "" And LB464.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB462.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB463.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB464.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB462.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB465.Text = "" And LB466.Text = "" And LB467.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB465.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB466.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB467.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB465.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB468.Text = "" And LB469.Text = "" And LB470.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB468.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB469.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB470.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB468.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB471.Text = "" And LB472.Text = "" And LB473.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB471.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB472.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB473.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB471.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB474.Text = "" And LB475.Text = "" And LB476.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB474.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB475.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB476.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB474.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB477.Text = "" And LB478.Text = "" And LB479.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB477.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB478.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB479.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB477.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB480.Text = "" And LB481.Text = "" And LB482.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB480.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB481.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB482.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB480.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                '------系統第十三頁------------------------------------------------------------------
                If LB438.Text = LB393.Text Or LB439.Text = LB394.Text Or (LB393.Text = "" And LB394.Text = "") Then : Else : 列印成Word補空()
                    SSTR = Replace(LB393.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                    Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                    Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                    Opara(BN).Range.InsertParagraphAfter() : BN += 1
                    SSTR = Replace(LB394.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                    Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                    Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                    Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線()
                End If
                If LB396.Text = "" And LB397.Text = "" And LB398.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB396.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB397.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB398.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB396.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB399.Text = "" And LB400.Text = "" And LB401.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB399.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB400.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB401.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB399.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB402.Text = "" And LB403.Text = "" And LB404.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB402.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB403.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB404.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB402.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB405.Text = "" And LB406.Text = "" And LB407.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB405.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB406.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB407.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB405.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB408.Text = "" And LB409.Text = "" And LB410.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB408.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB409.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB410.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB408.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB411.Text = "" And LB412.Text = "" And LB413.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB411.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB412.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB413.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB411.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB414.Text = "" And LB415.Text = "" And LB416.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB414.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB415.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB416.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB414.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB417.Text = "" And LB418.Text = "" And LB419.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB417.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB418.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB419.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB417.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB420.Text = "" And LB421.Text = "" And LB422.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB420.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB421.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB422.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB420.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB423.Text = "" And LB424.Text = "" And LB425.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB423.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB424.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB425.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB423.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB426.Text = "" And LB427.Text = "" And LB428.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB426.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB427.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB428.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB426.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB429.Text = "" And LB430.Text = "" And LB431.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB429.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB430.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB431.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB429.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB432.Text = "" And LB433.Text = "" And LB434.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB432.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB433.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB434.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB432.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB435.Text = "" And LB436.Text = "" And LB437.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB435.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB436.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB437.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB435.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                '------系統第十四頁------------------------------------------------------------------
                If LB393.Text = LB348.Text Or LB394.Text = LB349.Text Or (LB348.Text = "" And LB349.Text = "") Then : Else : 列印成Word補空()
                    SSTR = Replace(LB348.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                    Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                    Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                    Opara(BN).Range.InsertParagraphAfter() : BN += 1
                    SSTR = Replace(LB349.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                    Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                    Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                    Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線()
                End If
                If LB351.Text = "" And LB352.Text = "" And LB353.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB351.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB352.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB353.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB351.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB354.Text = "" And LB355.Text = "" And LB356.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB354.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB355.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB356.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB354.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB357.Text = "" And LB358.Text = "" And LB359.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB357.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB358.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB359.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB357.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB360.Text = "" And LB361.Text = "" And LB362.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB360.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB361.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB362.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB360.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB363.Text = "" And LB364.Text = "" And LB365.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB363.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB364.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB365.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB363.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB366.Text = "" And LB367.Text = "" And LB368.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB366.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB367.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB368.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB366.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB369.Text = "" And LB370.Text = "" And LB371.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB369.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB370.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB371.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB369.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB372.Text = "" And LB373.Text = "" And LB374.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB372.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB373.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB374.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB372.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB375.Text = "" And LB376.Text = "" And LB377.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB375.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB376.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB377.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB375.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB378.Text = "" And LB379.Text = "" And LB380.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB378.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB379.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB380.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB378.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB381.Text = "" And LB382.Text = "" And LB383.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB381.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB382.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB383.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB381.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB384.Text = "" And LB385.Text = "" And LB386.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB384.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB385.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB386.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB384.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB387.Text = "" And LB388.Text = "" And LB389.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB387.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB388.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB389.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB387.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB390.Text = "" And LB391.Text = "" And LB392.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB390.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB391.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB392.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB390.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                '------系統第十五頁------------------------------------------------------------------
                If LB348.Text = LB303.Text Or LB349.Text = LB304.Text Or (LB303.Text = "" And LB304.Text = "") Then : Else : 列印成Word補空()
                    SSTR = Replace(LB303.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                    Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                    Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                    Opara(BN).Range.InsertParagraphAfter() : BN += 1
                    SSTR = Replace(LB304.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                    Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                    Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                    Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線()
                End If
                If LB306.Text = "" And LB307.Text = "" And LB308.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB306.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB307.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB308.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB306.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB309.Text = "" And LB310.Text = "" And LB311.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB309.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB310.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB311.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB309.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB312.Text = "" And LB313.Text = "" And LB314.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB312.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB313.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB314.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB312.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB315.Text = "" And LB316.Text = "" And LB317.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB315.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB316.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB317.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB315.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB318.Text = "" And LB319.Text = "" And LB320.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB318.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB319.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB320.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB318.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB321.Text = "" And LB322.Text = "" And LB323.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB321.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB322.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB323.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB321.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB324.Text = "" And LB325.Text = "" And LB326.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB324.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB325.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB326.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB324.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB327.Text = "" And LB328.Text = "" And LB329.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB327.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB328.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB329.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB327.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB330.Text = "" And LB331.Text = "" And LB332.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB330.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB331.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB332.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB330.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB333.Text = "" And LB334.Text = "" And LB335.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB333.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB334.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB335.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB333.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB336.Text = "" And LB337.Text = "" And LB338.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB336.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB337.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB338.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB336.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB339.Text = "" And LB340.Text = "" And LB341.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB339.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB340.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB341.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB339.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB342.Text = "" And LB343.Text = "" And LB344.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB342.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB343.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB344.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB342.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB345.Text = "" And LB346.Text = "" And LB347.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB345.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB346.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB347.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB345.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                '------系統第十六頁------------------------------------------------------------------
                列印成Word補空()
                SSTR = Replace(LB267.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                SSTR = Replace(LB268.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線()
                If LB270.Text = "" And LB121.Text = "" And LB122.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB270.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB121.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB122.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB270.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB271.Text = "" And LB123.Text = "" And LB124.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB271.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB123.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB124.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB271.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB272.Text = "" And LB125.Text = "" And LB126.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB272.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB125.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB126.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB272.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB273.Text = "" And LB127.Text = "" And LB126.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB273.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB127.Text & " " & LB274.Text & " " & LB128.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB129.Text & " " & LB275.Text & " " & LB130.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB273.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB276.Text = "" And LB277.Text = "" And LB278.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB276.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB277.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB278.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB276.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB279.Text = "" And LB280.Text = "" And LB281.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB279.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB280.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB281.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB279.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB282.Text = "" And LB283.Text = "" And LB284.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB282.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB283.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB284.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB282.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB285.Text = "" And LB286.Text = "" And LB287.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB285.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB286.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB287.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB285.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB288.Text = "" And LB289.Text = "" And LB290.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB288.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB289.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB290.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB288.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB291.Text = "" And LB292.Text = "" And LB293.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB291.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB292.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB293.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB291.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB294.Text = "" And LB295.Text = "" And LB296.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB294.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB295.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB296.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB294.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB297.Text = "" And LB298.Text = "" And LB299.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB297.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB298.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB299.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB297.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB300.Text = "" And LB301.Text = "" And LB302.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB300.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB301.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB302.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB300.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                '------系統第十七頁------------------------------------------------------------------
                If LB267.Text = LB228.Text Or LB268.Text = LB229.Text Or (LB228.Text = "" And LB229.Text = "") Then : Else : 列印成Word補空()
                    SSTR = Replace(LB228.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                    Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                    Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                    Opara(BN).Range.InsertParagraphAfter() : BN += 1
                    SSTR = Replace(LB229.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                    Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                    Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                    Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線()
                End If
                If LB231.Text = "" And LB131.Text = "" And LB132.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB231.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB131.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB132.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB231.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB232.Text = "" And LB133.Text = "" And LB134.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB232.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB133.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB134.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB232.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB233.Text = "" And LB135.Text = "" And LB136.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB233.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB135.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB136.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB233.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB234.Text = "" And LB235.Text = "" And LB236.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB233.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB235.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB236.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB234.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB237.Text = "" And LB238.Text = "" And LB239.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB237.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB238.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB239.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB237.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB240.Text = "" And LB241.Text = "" And LB242.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB240.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB241.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB242.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB240.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB243.Text = "" And LB244.Text = "" And LB245.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB243.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB244.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB245.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB243.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB246.Text = "" And LB247.Text = "" And LB248.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB246.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB247.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB248.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB246.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB249.Text = "" And LB250.Text = "" And LB251.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB249.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB250.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB251.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB249.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB252.Text = "" And LB253.Text = "" And LB254.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB252.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB253.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB254.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB252.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB255.Text = "" And LB256.Text = "" And LB257.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB255.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB256.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB257.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB255.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB258.Text = "" And LB259.Text = "" And LB260.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB258.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB259.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB260.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB258.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB261.Text = "" And LB262.Text = "" And LB263.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB261.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB262.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB263.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB261.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB264.Text = "" And LB265.Text = "" And LB266.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB264.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB265.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB266.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB264.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                '------系統第十八頁------------------------------------------------------------------
                If LB228.Text = LB187.Text Or LB229.Text = LB188.Text Or (LB187.Text = "" And LB188.Text = "") Then : Else : 列印成Word補空()
                    SSTR = Replace(LB187.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                    Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                    Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                    Opara(BN).Range.InsertParagraphAfter() : BN += 1
                    SSTR = Replace(LB188.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                    Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                    Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                    Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線()
                End If
                If LB226.Text = "" And LB137.Text = "" And LB138.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB226.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB137.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB138.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB226.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB227.Text = "" And LB139.Text = "" And LB140.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB227.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB139.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB140.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB227.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB190.Text = "" And LB191.Text = "" And LB192.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB190.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB191.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB192.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB190.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB193.Text = "" And LB194.Text = "" And LB195.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB193.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB194.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB195.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB193.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB196.Text = "" And LB197.Text = "" And LB198.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB196.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB197.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB198.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB196.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB199.Text = "" And LB200.Text = "" And LB201.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB199.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB200.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB201.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB199.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB202.Text = "" And LB203.Text = "" And LB204.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB202.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB203.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB204.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB202.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB205.Text = "" And LB206.Text = "" And LB207.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB205.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB206.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB207.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB205.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB208.Text = "" And LB209.Text = "" And LB210.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB208.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB209.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB210.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB208.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB211.Text = "" And LB212.Text = "" And LB213.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB211.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB212.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB213.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB211.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB214.Text = "" And LB215.Text = "" And LB216.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB214.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB215.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB216.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB214.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB217.Text = "" And LB218.Text = "" And LB219.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB217.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB218.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB219.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB217.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB220.Text = "" And LB221.Text = "" And LB222.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB220.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB221.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB222.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB220.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB222.Text = "" And LB224.Text = "" And LB225.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB222.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB224.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB225.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB222.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                '------系統第十九頁------------------------------------------------------------------
                列印成Word補空()
                SSTR = Replace(LB153.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                SSTR = Replace(LB154.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線()
                If LB156.Text = "" And LB141.Text = "" And LB142.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB156.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB141.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB142.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB156.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB157.Text = "" And LB143.Text = "" And LB144.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB157.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB143.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB144.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB157.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB158.Text = "" And LB159.Text = "" And LB148.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB158.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB159.Text & " " & LB160.Text & " " & LB161.Text & " " & LB145.Text & " " & LB162.Text & " " & LB146.Text & " " & LB147.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB148.Text & " " & LB163.Text & " " & LB149.Text & " " & LB164.Text & " " & LB150.Text & " " & LB165.Text & " " & LB151.Text & " " & LB152.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB158.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB166.Text = "" And LB167.Text = "" And LB168.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB166.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB167.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB168.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB166.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB169.Text = "" And LB170.Text = "" And LB171.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB169.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB170.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB171.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB169.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB172.Text = "" And LB173.Text = "" And LB174.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB172.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB173.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB174.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB172.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB175.Text = "" And LB176.Text = "" And LB177.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB175.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB176.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB177.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB175.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB178.Text = "" And LB179.Text = "" And LB180.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB178.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB179.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB180.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB178.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB181.Text = "" And LB182.Text = "" And LB183.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB181.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB182.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB183.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB181.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                If LB184.Text = "" And LB185.Text = "" And LB186.Text = "" Then : Else : Otable(CN) = Odoc.Tables.Add(Odoc.Bookmarks.Item("\endofdoc").Range, 2, 2)
                    Otable(CN).Cell(1, 1).Range.Text = LB184.Text : Otable(CN).Cell(1, 1).Range.Font.Size = 8 : Otable(CN).Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB185.Text, vbCrLf, "")
                    Otable(CN).Cell(1, 2).Range.Text = SSTR : Otable(CN).Cell(1, 2).Range.Font.Size = 8 : Otable(CN).Cell(1, 2).Range.Font.Color = WdColor.wdColorBlack
                    SSTR = Replace(LB186.Text, vbCrLf, "")
                    Otable(CN).Cell(2, 2).Range.Text = SSTR : Otable(CN).Cell(2, 2).Range.Font.Size = 8 : Otable(CN).Cell(2, 2).Range.Font.Color = WdColor.wdColorBrown
                    Otable(CN).Columns(1).SetWidth(ColumnWidth:=28.35, RulerStyle:=WdRulerStyle.wdAdjustFirstColumn)
                    If LB184.Location.X > 10 Then : Otable(CN).Rows.SetLeftIndent(LeftIndent:=36.85, RulerStyle:=WdRulerStyle.wdAdjustNone) : End If : CN += 1 : 列印成Word補空() : End If
                '------系統第二十頁------------------------------------------------------------------
                列印成Word補空()
                SSTR = Replace(SLB1.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                SSTR = Replace(SLB2.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 12 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBrown
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word畫線()
                SSTR = Replace(SLB6.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SLB4.Text & " : " & SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                SSTR = Replace(SLB9.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SLB7.Text & " : " & SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                SSTR = Replace(SLB12.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SLB10.Text & " : " & SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                SSTR = Replace(SLB15.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SLB13.Text & " : " & SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1 : 列印成Word補空() : 列印成Word補空()
                SSTR = Replace(SLB18.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SLB16.Text & " : " & SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlue
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                SSTR = Replace(SLB21.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SLB19.Text & " : " & SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlue
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                SSTR = Replace(SLB24.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SLB22.Text & " : " & SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlue
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                SSTR = Replace(SLB27.Text, vbCrLf, "") : Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = SLB25.Text & " : " & SSTR
                Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlue
                Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
                Opara(BN).Range.InsertParagraphAfter() : BN += 1
                '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------
                'Oword.ActiveDocument.Protect(Password:="0911274990", NoReset:=False, Type:=WdProtectionType.wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=True)
                Dim Str3 As String
                Str3 = My.Computer.FileSystem.SpecialDirectories.Desktop & "\" & 合約編號_cb.Text & "-" & 合約編號1_tb.Text & " " & 合約編號2_tb.Text & "-" & 合約編號3_tb.Text & "合約.docx"
                Oword.ActiveDocument.SaveAs(Str3)
                Dim SS, SS1, SS2 As String
                If 系統語言 = "繁體中文" Then : SS = "存檔成功 !!!" : SS1 = "檔案儲存於 : 您的電腦桌面。" : SS2 = "檔存檔資訊"
                Else : SS = "Silakan masukkan kode otorisasi!!" : SS1 = "File disimpan di : desktop komputer Anda." : SS2 = "informasi arsip file" : End If
                MessageBox.Show(SS & vbCrLf & SS1, SS2, MessageBoxButtons.OK, MessageBoxIcon.Information)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
    End Sub
    Private Sub 列印成Word畫線()
        Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = "_____________________________________________________________________________________________________________"
        Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 9 : Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack
        Opara(BN).Format.SpaceAfter = 2 : Opara(BN).Format.SpaceBefore = 2 : Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
        Opara(BN).Range.InsertParagraphAfter() : BN += 1
    End Sub
    Private Sub 列印成Word補空()
        Opara(BN) = Odoc.Content.Paragraphs.Add : Opara(BN).Range.Text = "" : Opara(BN).Range.Font.Name = "新明細體" : Opara(BN).Range.Font.Size = 5
        Opara(BN).Range.Font.Bold = True : Opara(BN).Range.Font.Color = WdColor.wdColorBlack : Opara(BN).Format.SpaceAfter = 0 : Opara(BN).Format.SpaceBefore = 0
        Opara(BN).Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft : Opara(BN).Range.InsertParagraphAfter() : BN += 1
    End Sub
End Class