Public Class 合約內文修改視窗
    Private Sub 合約內文修改視窗_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If NU5 < 20 Then
            轉為子項_cb.Checked = False
        Else
            轉為子項_cb.Checked = True
        End If
        內文_tb.Text = PA : 轉為子項_cb.Enabled = BL1
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 確定_bt.Click
        If 轉為子項_cb.Checked = True Then
            NU3 = 40 : NU4 = 74
        Else
            NU3 = 6 : NU4 = 40
        End If
        PA = 內文_tb.Text : Me.Close()
    End Sub
End Class