GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/01-人事系統管理_新/個人班表.vb

Option Strict Off
Public Class 個人班表
    ReadOnly ds, ds1 As New DataSet
    Private X1 As Double
    Private XX As Double
    Private XXX As Double
    Private ReadOnly AA As Double

    Private Sub 讀取排班資料表()
        排班明細_dgv.DataSource = Nothing : ds1.Clear()
        排班明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        排班明細_dgv.ColumnHeadersHeight = 25
        排班明細_dgv.AllowUserToAddRows = False
        SQL_排班系統_個人整月排班()
        da.Fill(ds1) : 排班明細_dgv.DataSource = ds1.Tables(0) : conn.Close()
    End Sub
    Private Sub 讀取星期()
        星期_dgv.DataSource = Nothing : ds.Clear()
        星期_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        星期_dgv.ColumnHeadersHeight = 25
        星期_dgv.AllowUserToAddRows = False
        SQL_排班系統_個人整月星期()
        da.Fill(ds) : 星期_dgv.DataSource = ds.Tables(0) : conn.Close()
    End Sub
    Private Sub 班別圖示計算載入()
        XX = (XX - 480) * 1.41666
    End Sub
    Private Sub 班條長度()
        If Do2 = 4 Or Do2 = 6.5 Or Do2 = 7 Or Do2 = 7.5 Or Do2 = 8 Then : XXX = 0
        ElseIf Do2 = 2 Then : XXX = -(85 * 2)
        ElseIf Do2 = 2.5 Then : XXX = -(85) + (-(85 / 2))
        ElseIf Do2 = 3 Then : XXX = -(85)
        ElseIf Do2 = 3.5 Then : XXX = -(85 / 2)
        ElseIf Do2 = 4.5 Then : XXX = 85 / 2
        ElseIf Do2 = 5 Then : XXX = 85
        ElseIf Do2 = 5.5 Then : XXX = 85 + (85 / 2)
        ElseIf Do2 = 6 Then : XXX = 85 * 2
        End If
    End Sub
    Private Sub 休息長度()
        X1 = (X1 - 1) * 8.4 * 10
    End Sub
    Private Sub 進度條變化1()
        If 姓名_tb1.Text <> "" Or 班別_cb1.Text <> "休" Then
            Do2 = NumericUpDown1.Value : 班條長度()
            A_pb1.Size = New Size(340 + XXX, 27) : A_pb2.Size = New Size(340 - XXX, 27)
            ComboBox1.Size = New Size(340 + XXX, 25) : ComboBox2.Size = New Size(340 - XXX, 25)
            If CheckBox1.Checked = False And Val(Strings.Left(班別_cb1.Text, 2)) < 17 Then : A_pb2.Visible = True : ComboBox2.Visible = True
            ElseIf CheckBox1.Checked = False And Val(Strings.Left(班別_cb1.Text, 2)) >= 17 Then : A_pb2.Visible = False : ComboBox2.Visible = False
            ElseIf CheckBox1.Checked = True Then : A_pb2.Visible = False : ComboBox2.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化2()
        Do2 = NumericUpDown2.Value : 班條長度()
        If 姓名_tb2.Text <> "" Or 班別_cb2.Text <> "休" Then
            A_pb3.Size = New Size(340 + XXX, 27) : A_pb4.Size = New Size(340 - XXX, 27)
            ComboBox3.Size = New Size(340 + XXX, 25) : ComboBox4.Size = New Size(340 - XXX, 25)
            If CheckBox2.Checked = False And Val(Strings.Left(班別_cb2.Text, 2)) < 17 Then : A_pb4.Visible = True : ComboBox4.Visible = True
            ElseIf CheckBox2.Checked = False And Val(Strings.Left(班別_cb2.Text, 2)) >= 17 Then : A_pb4.Visible = False : ComboBox4.Visible = False
            ElseIf CheckBox2.Checked = True Then : A_pb4.Visible = False : ComboBox4.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化3()
        If 姓名_tb3.Text <> "" Or 班別_cb3.Text <> "休" Then
            Do2 = NumericUpDown3.Value : 班條長度()
            A_pb5.Size = New Size(340 + XXX, 27) : A_pb6.Size = New Size(340 - XXX, 27)
            ComboBox5.Size = New Size(340 + XXX, 25) : ComboBox6.Size = New Size(340 - XXX, 25)
            If CheckBox3.Checked = False And Val(Strings.Left(班別_cb3.Text, 2)) < 17 Then : A_pb6.Visible = True : ComboBox6.Visible = True
            ElseIf CheckBox3.Checked = False And Val(Strings.Left(班別_cb3.Text, 2)) >= 17 Then : A_pb6.Visible = False : ComboBox6.Visible = False
            ElseIf CheckBox3.Checked = True Then : A_pb6.Visible = False : ComboBox6.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化4()
        If 姓名_tb4.Text <> "" Or 班別_cb4.Text <> "休" Then
            Do2 = NumericUpDown4.Value : 班條長度()
            A_pb7.Size = New Size(340 + XXX, 27) : A_pb8.Size = New Size(340 - XXX, 27)
            ComboBox7.Size = New Size(340 + XXX, 25) : ComboBox8.Size = New Size(340 - XXX, 25)
            If CheckBox4.Checked = False And Val(Strings.Left(班別_cb4.Text, 2)) < 17 Then : A_pb8.Visible = True : ComboBox8.Visible = True
            ElseIf CheckBox4.Checked = False And Val(Strings.Left(班別_cb4.Text, 2)) >= 17 Then : A_pb8.Visible = False : ComboBox8.Visible = False
            ElseIf CheckBox4.Checked = True Then : A_pb8.Visible = False : ComboBox8.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化5()
        If 姓名_tb5.Text <> "" Or 班別_cb5.Text <> "休" Then
            Do2 = NumericUpDown5.Value : 班條長度()
            A_pb9.Size = New Size(340 + XXX, 27) : A_pb10.Size = New Size(340 - XXX, 27)
            ComboBox9.Size = New Size(340 + XXX, 25) : ComboBox10.Size = New Size(340 - XXX, 25)
            If CheckBox5.Checked = False And Val(Strings.Left(班別_cb5.Text, 2)) < 17 Then : A_pb10.Visible = True : ComboBox10.Visible = True
            ElseIf CheckBox5.Checked = False And Val(Strings.Left(班別_cb5.Text, 2)) >= 17 Then : A_pb10.Visible = False : ComboBox10.Visible = False
            ElseIf CheckBox5.Checked = True Then : A_pb10.Visible = False : ComboBox10.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化6()
        If 姓名_tb6.Text <> "" Or 班別_cb6.Text <> "休" Then
            Do2 = NumericUpDown6.Value : 班條長度()
            A_pb11.Size = New Size(340 + XXX, 27) : A_pb12.Size = New Size(340 - XXX, 27)
            ComboBox11.Size = New Size(340 + XXX, 25) : ComboBox12.Size = New Size(340 - XXX, 25)
            If CheckBox6.Checked = False And Val(Strings.Left(班別_cb6.Text, 2)) < 17 Then : A_pb12.Visible = True : ComboBox12.Visible = True
            ElseIf CheckBox6.Checked = False And Val(Strings.Left(班別_cb6.Text, 2)) >= 17 Then : A_pb12.Visible = False : ComboBox12.Visible = False
            ElseIf CheckBox6.Checked = True Then : A_pb12.Visible = False : ComboBox12.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化7()
        If 姓名_tb7.Text <> "" Or 班別_cb7.Text <> "休" Then
            Do2 = NumericUpDown7.Value : 班條長度()
            A_pb13.Size = New Size(340 + XXX, 27) : A_pb14.Size = New Size(340 - XXX, 27)
            ComboBox13.Size = New Size(340 + XXX, 25) : ComboBox14.Size = New Size(340 - XXX, 25)
            If CheckBox7.Checked = False And Val(Strings.Left(班別_cb7.Text, 2)) < 17 Then : A_pb14.Visible = True : ComboBox14.Visible = True
            ElseIf CheckBox7.Checked = False And Val(Strings.Left(班別_cb7.Text, 2)) >= 17 Then : A_pb14.Visible = False : ComboBox14.Visible = False
            ElseIf CheckBox7.Checked = True Then : A_pb14.Visible = False : ComboBox14.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化8()
        If 姓名_tb8.Text <> "" Or 班別_cb8.Text <> "休" Then
            Do2 = NumericUpDown8.Value : 班條長度()
            A_pb15.Size = New Size(340 + XXX, 27) : A_pb16.Size = New Size(340 - XXX, 27)
            ComboBox15.Size = New Size(340 + XXX, 25) : ComboBox16.Size = New Size(340 - XXX, 25)
            If CheckBox8.Checked = False And Val(Strings.Left(班別_cb8.Text, 2)) < 17 Then : A_pb16.Visible = True : ComboBox16.Visible = True
            ElseIf CheckBox8.Checked = False And Val(Strings.Left(班別_cb8.Text, 2)) >= 17 Then : A_pb16.Visible = False : ComboBox16.Visible = False
            ElseIf CheckBox8.Checked = True Then : A_pb16.Visible = False : ComboBox16.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化9()
        If 姓名_tb9.Text <> "" Or 班別_cb9.Text <> "休" Then
            Do2 = NumericUpDown9.Value : 班條長度()
            A_pb17.Size = New Size(340 + XXX, 27) : A_pb18.Size = New Size(340 - XXX, 27)
            ComboBox17.Size = New Size(340 + XXX, 25) : ComboBox18.Size = New Size(340 - XXX, 25)
            If CheckBox9.Checked = False And Val(Strings.Left(班別_cb9.Text, 2)) < 17 Then : A_pb18.Visible = True : ComboBox18.Visible = True
            ElseIf CheckBox9.Checked = False And Val(Strings.Left(班別_cb9.Text, 2)) >= 17 Then : A_pb18.Visible = False : ComboBox18.Visible = False
            ElseIf CheckBox9.Checked = True Then : A_pb18.Visible = False : ComboBox18.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化10()
        If 姓名_tb10.Text <> "" Or 班別_cb10.Text <> "休" Then
            Do2 = NumericUpDown10.Value : 班條長度()
            A_pb19.Size = New Size(340 + XXX, 27) : A_pb20.Size = New Size(340 - XXX, 27)
            ComboBox19.Size = New Size(340 + XXX, 25) : ComboBox20.Size = New Size(340 - XXX, 25)
            If CheckBox10.Checked = False And Val(Strings.Left(班別_cb10.Text, 2)) < 17 Then : A_pb20.Visible = True : ComboBox20.Visible = True
            ElseIf CheckBox10.Checked = False And Val(Strings.Left(班別_cb10.Text, 2)) >= 17 Then : A_pb20.Visible = False : ComboBox20.Visible = False
            ElseIf CheckBox10.Checked = True Then : A_pb20.Visible = False : ComboBox20.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化11()
        If 姓名_tb11.Text <> "" Or 班別_cb11.Text <> "休" Then
            Do2 = NumericUpDown11.Value : 班條長度()
            A_pb21.Size = New Size(340 + XXX, 27) : A_pb22.Size = New Size(340 - XXX, 27)
            ComboBox21.Size = New Size(340 + XXX, 25) : ComboBox22.Size = New Size(340 - XXX, 25)
            If CheckBox11.Checked = False And Val(Strings.Left(班別_cb11.Text, 2)) < 17 Then : A_pb22.Visible = True : ComboBox22.Visible = True
            ElseIf CheckBox11.Checked = False And Val(Strings.Left(班別_cb11.Text, 2)) >= 17 Then : A_pb22.Visible = False : ComboBox22.Visible = False
            ElseIf CheckBox11.Checked = True Then : A_pb22.Visible = False : ComboBox22.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化12()
        If 姓名_tb12.Text <> "" Or 班別_cb12.Text <> "休" Then
            Do2 = NumericUpDown12.Value : 班條長度()
            A_pb23.Size = New Size(340 + XXX, 27) : A_pb24.Size = New Size(340 - XXX, 27)
            ComboBox23.Size = New Size(340 + XXX, 25) : ComboBox24.Size = New Size(340 - XXX, 25)
            If CheckBox12.Checked = False And Val(Strings.Left(班別_cb12.Text, 2)) < 17 Then : A_pb24.Visible = True : ComboBox24.Visible = True
            ElseIf CheckBox12.Checked = False And Val(Strings.Left(班別_cb12.Text, 2)) >= 17 Then : A_pb24.Visible = False : ComboBox24.Visible = False
            ElseIf CheckBox12.Checked = True Then : A_pb24.Visible = False : ComboBox24.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化13()
        If 姓名_tb13.Text <> "" Or 班別_cb13.Text <> "休" Then
            Do2 = NumericUpDown13.Value : 班條長度()
            A_pb25.Size = New Size(340 + XXX, 27) : A_pb26.Size = New Size(340 - XXX, 27)
            ComboBox25.Size = New Size(340 + XXX, 25) : ComboBox26.Size = New Size(340 - XXX, 25)
            If CheckBox13.Checked = False And Val(Strings.Left(班別_cb13.Text, 2)) < 17 Then : A_pb26.Visible = True : ComboBox26.Visible = True
            ElseIf CheckBox13.Checked = False And Val(Strings.Left(班別_cb13.Text, 2)) >= 17 Then : A_pb26.Visible = False : ComboBox26.Visible = False
            ElseIf CheckBox13.Checked = True Then : A_pb26.Visible = False : ComboBox26.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化14()
        If 姓名_tb14.Text <> "" Or 班別_cb14.Text <> "休" Then
            Do2 = NumericUpDown14.Value : 班條長度()
            A_pb27.Size = New Size(340 + XXX, 27) : A_pb28.Size = New Size(340 - XXX, 27)
            ComboBox27.Size = New Size(340 + XXX, 25) : ComboBox28.Size = New Size(340 - XXX, 25)
            If CheckBox14.Checked = False And Val(Strings.Left(班別_cb14.Text, 2)) < 17 Then : A_pb28.Visible = True : ComboBox28.Visible = True
            ElseIf CheckBox14.Checked = False And Val(Strings.Left(班別_cb14.Text, 2)) >= 17 Then : A_pb28.Visible = False : ComboBox28.Visible = False
            ElseIf CheckBox14.Checked = True Then : A_pb28.Visible = False : ComboBox28.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化15()
        If 姓名_tb15.Text <> "" Or 班別_cb15.Text <> "休" Then
            Do2 = NumericUpDown15.Value : 班條長度()
            A_pb29.Size = New Size(340 + XXX, 27) : A_pb30.Size = New Size(340 - XXX, 27)
            ComboBox29.Size = New Size(340 + XXX, 25) : ComboBox30.Size = New Size(340 - XXX, 25)
            If CheckBox15.Checked = False And Val(Strings.Left(班別_cb15.Text, 2)) < 17 Then : A_pb30.Visible = True : ComboBox30.Visible = True
            ElseIf CheckBox15.Checked = False And Val(Strings.Left(班別_cb15.Text, 2)) >= 17 Then : A_pb30.Visible = False : ComboBox30.Visible = False
            ElseIf CheckBox15.Checked = True Then : A_pb30.Visible = False : ComboBox30.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化16()
        If 姓名_tb16.Text <> "" Or 班別_cb16.Text <> "休" Then
            Do2 = NumericUpDown16.Value : 班條長度()
            A_pb31.Size = New Size(340 + XXX, 27) : A_pb32.Size = New Size(340 - XXX, 27)
            ComboBox31.Size = New Size(340 + XXX, 25) : ComboBox32.Size = New Size(340 - XXX, 25)
            If CheckBox16.Checked = False And Val(Strings.Left(班別_cb16.Text, 2)) < 17 Then : A_pb32.Visible = True : ComboBox32.Visible = True
            ElseIf CheckBox16.Checked = False And Val(Strings.Left(班別_cb16.Text, 2)) >= 17 Then : A_pb32.Visible = False : ComboBox32.Visible = False
            ElseIf CheckBox16.Checked = True Then : A_pb32.Visible = False : ComboBox32.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化17()
        If 姓名_tb17.Text <> "" Or 班別_cb17.Text <> "休" Then
            Do2 = NumericUpDown17.Value : 班條長度()
            A_pb33.Size = New Size(340 + XXX, 27) : A_pb34.Size = New Size(340 - XXX, 27)
            ComboBox33.Size = New Size(340 + XXX, 25) : ComboBox34.Size = New Size(340 - XXX, 25)
            If CheckBox17.Checked = False And Val(Strings.Left(班別_cb17.Text, 2)) < 17 Then : A_pb34.Visible = True : ComboBox34.Visible = True
            ElseIf CheckBox17.Checked = False And Val(Strings.Left(班別_cb17.Text, 2)) >= 17 Then : A_pb34.Visible = False : ComboBox34.Visible = False
            ElseIf CheckBox17.Checked = True Then : A_pb34.Visible = False : ComboBox34.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化18()
        If 姓名_tb18.Text <> "" Or 班別_cb18.Text <> "休" Then
            Do2 = NumericUpDown18.Value : 班條長度()
            A_pb35.Size = New Size(340 + XXX, 27) : A_pb36.Size = New Size(340 - XXX, 27)
            ComboBox35.Size = New Size(340 + XXX, 25) : ComboBox36.Size = New Size(340 - XXX, 25)
            If CheckBox18.Checked = False And Val(Strings.Left(班別_cb18.Text, 2)) < 17 Then : A_pb36.Visible = True : ComboBox36.Visible = True
            ElseIf CheckBox18.Checked = False And Val(Strings.Left(班別_cb18.Text, 2)) >= 17 Then : A_pb36.Visible = False : ComboBox36.Visible = False
            ElseIf CheckBox18.Checked = True Then : A_pb36.Visible = False : ComboBox36.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化19()
        If 姓名_tb19.Text <> "" Or 班別_cb19.Text <> "休" Then
            Do2 = NumericUpDown19.Value : 班條長度()
            A_pb37.Size = New Size(340 + XXX, 27) : A_pb38.Size = New Size(340 - XXX, 27)
            ComboBox37.Size = New Size(340 + XXX, 25) : ComboBox38.Size = New Size(340 - XXX, 25)
            If CheckBox19.Checked = False And Val(Strings.Left(班別_cb19.Text, 2)) < 17 Then : A_pb38.Visible = True : ComboBox38.Visible = True
            ElseIf CheckBox19.Checked = False And Val(Strings.Left(班別_cb19.Text, 2)) >= 17 Then : A_pb38.Visible = False : ComboBox38.Visible = False
            ElseIf CheckBox19.Checked = True Then : A_pb38.Visible = False : ComboBox38.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化20()
        If 姓名_tb20.Text <> "" Or 班別_cb20.Text <> "休" Then
            Do2 = NumericUpDown20.Value : 班條長度()
            A_pb39.Size = New Size(340 + XXX, 27) : A_pb40.Size = New Size(340 - XXX, 27)
            ComboBox39.Size = New Size(340 + XXX, 25) : ComboBox40.Size = New Size(340 - XXX, 25)
            If CheckBox20.Checked = False And Val(Strings.Left(班別_cb20.Text, 2)) < 17 Then : A_pb40.Visible = True : ComboBox40.Visible = True
            ElseIf CheckBox20.Checked = False And Val(Strings.Left(班別_cb20.Text, 2)) >= 17 Then : A_pb40.Visible = False : ComboBox40.Visible = False
            ElseIf CheckBox20.Checked = True Then : A_pb40.Visible = False : ComboBox40.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化21()
        If 姓名_tb21.Text <> "" Or 班別_cb21.Text <> "休" Then
            Do2 = NumericUpDown21.Value : 班條長度()
            A_pb41.Size = New Size(340 + XXX, 27) : A_pb42.Size = New Size(340 - XXX, 27)
            ComboBox41.Size = New Size(340 + XXX, 25) : ComboBox42.Size = New Size(340 - XXX, 25)
            If CheckBox21.Checked = False And Val(Strings.Left(班別_cb21.Text, 2)) < 17 Then : A_pb42.Visible = True : ComboBox42.Visible = True
            ElseIf CheckBox21.Checked = False And Val(Strings.Left(班別_cb21.Text, 2)) >= 17 Then : A_pb42.Visible = False : ComboBox42.Visible = False
            ElseIf CheckBox21.Checked = True Then : A_pb42.Visible = False : ComboBox42.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化22()
        If 姓名_tb22.Text <> "" Or 班別_cb22.Text <> "休" Then
            Do2 = NumericUpDown22.Value : 班條長度()
            A_pb43.Size = New Size(340 + XXX, 27) : A_pb44.Size = New Size(340 - XXX, 27)
            ComboBox43.Size = New Size(340 + XXX, 25) : ComboBox44.Size = New Size(340 - XXX, 25)
            If CheckBox22.Checked = False And Val(Strings.Left(班別_cb22.Text, 2)) < 17 Then : A_pb44.Visible = True : ComboBox44.Visible = True
            ElseIf CheckBox22.Checked = False And Val(Strings.Left(班別_cb22.Text, 2)) >= 17 Then : A_pb44.Visible = False : ComboBox44.Visible = False
            ElseIf CheckBox22.Checked = True Then : A_pb44.Visible = False : ComboBox44.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化23()
        If 姓名_tb23.Text <> "" Or 班別_cb23.Text <> "休" Then
            Do2 = NumericUpDown23.Value : 班條長度()
            A_pb45.Size = New Size(340 + XXX, 27) : A_pb46.Size = New Size(340 - XXX, 27)
            ComboBox45.Size = New Size(340 + XXX, 25) : ComboBox46.Size = New Size(340 - XXX, 25)
            If CheckBox23.Checked = False And Val(Strings.Left(班別_cb23.Text, 2)) < 17 Then : A_pb46.Visible = True : ComboBox46.Visible = True
            ElseIf CheckBox23.Checked = False And Val(Strings.Left(班別_cb23.Text, 2)) >= 17 Then : A_pb46.Visible = False : ComboBox46.Visible = False
            ElseIf CheckBox23.Checked = True Then : A_pb46.Visible = False : ComboBox46.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化24()
        If 姓名_tb24.Text <> "" Or 班別_cb24.Text <> "休" Then
            Do2 = NumericUpDown24.Value : 班條長度()
            A_pb47.Size = New Size(340 + XXX, 27) : A_pb48.Size = New Size(340 - XXX, 27)
            ComboBox47.Size = New Size(340 + XXX, 25) : ComboBox48.Size = New Size(340 - XXX, 25)
            If CheckBox24.Checked = False And Val(Strings.Left(班別_cb24.Text, 2)) < 17 Then : A_pb48.Visible = True : ComboBox48.Visible = True
            ElseIf CheckBox24.Checked = False And Val(Strings.Left(班別_cb24.Text, 2)) >= 17 Then : A_pb48.Visible = False : ComboBox48.Visible = False
            ElseIf CheckBox24.Checked = True Then : A_pb48.Visible = False : ComboBox48.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化25()
        If 姓名_tb25.Text <> "" Or 班別_cb25.Text <> "休" Then
            Do2 = NumericUpDown25.Value : 班條長度()
            A_pb49.Size = New Size(340 + XXX, 27) : A_pb50.Size = New Size(340 - XXX, 27)
            ComboBox49.Size = New Size(340 + XXX, 25) : ComboBox50.Size = New Size(340 - XXX, 25)
            If CheckBox25.Checked = False And Val(Strings.Left(班別_cb25.Text, 2)) < 17 Then : A_pb50.Visible = True : ComboBox50.Visible = True
            ElseIf CheckBox25.Checked = False And Val(Strings.Left(班別_cb25.Text, 2)) >= 17 Then : A_pb50.Visible = False : ComboBox50.Visible = False
            ElseIf CheckBox25.Checked = True Then : A_pb50.Visible = False : ComboBox50.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化26()
        If 姓名_tb26.Text <> "" Or 班別_cb26.Text <> "休" Then
            Do2 = NumericUpDown26.Value : 班條長度()
            A_pb51.Size = New Size(340 + XXX, 27) : A_pb52.Size = New Size(340 - XXX, 27)
            ComboBox51.Size = New Size(340 + XXX, 25) : ComboBox52.Size = New Size(340 - XXX, 25)
            If CheckBox26.Checked = False And Val(Strings.Left(班別_cb26.Text, 2)) < 17 Then : A_pb52.Visible = True : ComboBox52.Visible = True
            ElseIf CheckBox26.Checked = False And Val(Strings.Left(班別_cb26.Text, 2)) >= 17 Then : A_pb52.Visible = False : ComboBox52.Visible = False
            ElseIf CheckBox26.Checked = True Then : A_pb52.Visible = False : ComboBox52.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化27()
        If 姓名_tb27.Text <> "" Or 班別_cb27.Text <> "休" Then
            Do2 = NumericUpDown27.Value : 班條長度()
            A_pb53.Size = New Size(340 + XXX, 27) : A_pb54.Size = New Size(340 - XXX, 27)
            ComboBox53.Size = New Size(340 + XXX, 25) : ComboBox54.Size = New Size(340 - XXX, 25)
            If CheckBox27.Checked = False And Val(Strings.Left(班別_cb27.Text, 2)) < 17 Then : A_pb54.Visible = True : ComboBox54.Visible = True
            ElseIf CheckBox27.Checked = False And Val(Strings.Left(班別_cb27.Text, 2)) >= 17 Then : A_pb54.Visible = False : ComboBox54.Visible = False
            ElseIf CheckBox27.Checked = True Then : A_pb54.Visible = False : ComboBox54.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化28()
        If 姓名_tb28.Text <> "" Or 班別_cb28.Text <> "休" Then
            Do2 = NumericUpDown28.Value : 班條長度()
            A_pb55.Size = New Size(340 + XXX, 27) : A_pb56.Size = New Size(340 - XXX, 27)
            ComboBox55.Size = New Size(340 + XXX, 25) : ComboBox56.Size = New Size(340 - XXX, 25)
            If CheckBox28.Checked = False And Val(Strings.Left(班別_cb28.Text, 2)) < 17 Then : A_pb56.Visible = True : ComboBox56.Visible = True
            ElseIf CheckBox28.Checked = False And Val(Strings.Left(班別_cb28.Text, 2)) >= 17 Then : A_pb56.Visible = False : ComboBox56.Visible = False
            ElseIf CheckBox28.Checked = True Then : A_pb56.Visible = False : ComboBox56.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化29()
        If 姓名_tb29.Text <> "" Or 班別_cb29.Text <> "休" Then
            Do2 = NumericUpDown29.Value : 班條長度()
            A_pb57.Size = New Size(340 + XXX, 27) : A_pb58.Size = New Size(340 - XXX, 27)
            ComboBox57.Size = New Size(340 + XXX, 25) : ComboBox58.Size = New Size(340 - XXX, 25)
            If CheckBox29.Checked = False And Val(Strings.Left(班別_cb29.Text, 2)) < 17 Then : A_pb58.Visible = True : ComboBox58.Visible = True
            ElseIf CheckBox29.Checked = False And Val(Strings.Left(班別_cb29.Text, 2)) >= 17 Then : A_pb58.Visible = False : ComboBox58.Visible = False
            ElseIf CheckBox29.Checked = True Then : A_pb58.Visible = False : ComboBox58.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化30()
        If 姓名_tb30.Text <> "" Or 班別_cb30.Text <> "休" Then
            Do2 = NumericUpDown30.Value : 班條長度()
            A_pb59.Size = New Size(340 + XXX, 27) : A_pb60.Size = New Size(340 - XXX, 27)
            ComboBox59.Size = New Size(340 + XXX, 25) : ComboBox60.Size = New Size(340 - XXX, 25)
            If CheckBox30.Checked = False And Val(Strings.Left(班別_cb30.Text, 2)) < 17 Then : A_pb60.Visible = True : ComboBox60.Visible = True
            ElseIf CheckBox30.Checked = False And Val(Strings.Left(班別_cb30.Text, 2)) >= 17 Then : A_pb60.Visible = False : ComboBox60.Visible = False
            ElseIf CheckBox30.Checked = True Then : A_pb60.Visible = False : ComboBox60.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化31()
        If 姓名_tb31.Text <> "" Or 班別_cb31.Text <> "休" Then
            Do2 = NumericUpDown31.Value : 班條長度()
            A_pb61.Size = New Size(340 + XXX, 27) : A_pb62.Size = New Size(340 - XXX, 27)
            ComboBox61.Size = New Size(340 + XXX, 25) : ComboBox62.Size = New Size(340 - XXX, 25)
            If CheckBox31.Checked = False And Val(Strings.Left(班別_cb31.Text, 2)) < 17 Then : A_pb62.Visible = True : ComboBox62.Visible = True
            ElseIf CheckBox31.Checked = False And Val(Strings.Left(班別_cb31.Text, 2)) >= 17 Then : A_pb62.Visible = False : ComboBox62.Visible = False
            ElseIf CheckBox31.Checked = True Then : A_pb62.Visible = False : ComboBox62.Visible = False
            End If
        End If
    End Sub
    Private Sub 休息變化1()
        XX = Val(Strings.Left(班別_cb1.Text, 2)) * 60 + Val(Strings.Mid(班別_cb1.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP1.Value : 休息長度() : Do2 = NumericUpDown1.Value : 班條長度()
        A_pb1.Location = New Point(454 + XX, 57 - 14) : A_pb2.Location = New Point(879 + XX + X1 + XXX, 57 - 14)
        ComboBox1.Location = New Point(454 + XX, 58 - 14) : ComboBox2.Location = New Point(879 + XX + X1 + XXX, 58 - 14)
        進度條變化1()
    End Sub
    Private Sub 休息變化2()
        XX = Val(Strings.Left(班別_cb2.Text, 2)) * 60 + Val(Strings.Mid(班別_cb2.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP2.Value : 休息長度() : Do2 = NumericUpDown2.Value : 班條長度()
        A_pb3.Location = New Point(454 + XX, 88 - 14) : A_pb4.Location = New Point(879 + XX + X1 + XXX, 88 - 14)
        ComboBox3.Location = New Point(454 + XX, 89 - 14) : ComboBox4.Location = New Point(879 + XX + X1 + XXX, 89 - 14)
        進度條變化2()
    End Sub
    Private Sub 休息變化3()
        XX = Val(Strings.Left(班別_cb3.Text, 2)) * 60 + Val(Strings.Mid(班別_cb3.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP3.Value : 休息長度() : Do2 = NumericUpDown3.Value : 班條長度()
        A_pb5.Location = New Point(454 + XX, 119 - 14) : A_pb6.Location = New Point(879 + XX + X1 + XXX, 119 - 14)
        ComboBox5.Location = New Point(454 + XX, 120 - 14) : ComboBox6.Location = New Point(879 + XX + X1 + XXX, 120 - 14)
        進度條變化3()
    End Sub
    Private Sub 休息變化4()
        XX = Val(Strings.Left(班別_cb4.Text, 2)) * 60 + Val(Strings.Mid(班別_cb4.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP4.Value : 休息長度() : Do2 = NumericUpDown4.Value : 班條長度()
        A_pb7.Location = New Point(454 + XX, 150 - 14) : A_pb8.Location = New Point(879 + XX + X1 + XXX, 150 - 14)
        ComboBox7.Location = New Point(454 + XX, 151 - 14) : ComboBox8.Location = New Point(879 + XX + X1 + XXX, 151 - 14)
        進度條變化4()
    End Sub
    Private Sub 休息變化5()
        XX = Val(Strings.Left(班別_cb5.Text, 2)) * 60 + Val(Strings.Mid(班別_cb5.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP5.Value : 休息長度() : Do2 = NumericUpDown5.Value : 班條長度()
        A_pb9.Location = New Point(454 + XX, 181 - 14) : A_pb10.Location = New Point(879 + XX + X1 + XXX, 181 - 14)
        ComboBox9.Location = New Point(454 + XX, 182 - 14) : ComboBox10.Location = New Point(879 + XX + X1 + XXX, 182 - 14)
        進度條變化5()
    End Sub
    Private Sub 休息變化6()
        XX = Val(Strings.Left(班別_cb6.Text, 2)) * 60 + Val(Strings.Mid(班別_cb6.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP6.Value : 休息長度() : Do2 = NumericUpDown6.Value : 班條長度()
        A_pb11.Location = New Point(454 + XX, 212 - 14) : A_pb12.Location = New Point(879 + XX + X1 + XXX, 212 - 14)
        ComboBox11.Location = New Point(454 + XX, 213 - 14) : ComboBox12.Location = New Point(879 + XX + X1 + XXX, 213 - 14)
        進度條變化6()
    End Sub
    Private Sub 休息變化7()
        XX = Val(Strings.Left(班別_cb7.Text, 2)) * 60 + Val(Strings.Mid(班別_cb7.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP7.Value : 休息長度() : Do2 = NumericUpDown7.Value : 班條長度()
        A_pb13.Location = New Point(454 + XX, 243 - 14) : A_pb14.Location = New Point(879 + XX + X1 + XXX, 243 - 14)
        ComboBox13.Location = New Point(454 + XX, 244 - 14) : ComboBox14.Location = New Point(879 + XX + X1 + XXX, 244 - 14)
        進度條變化7()
    End Sub
    Private Sub 休息變化8()
        XX = Val(Strings.Left(班別_cb8.Text, 2)) * 60 + Val(Strings.Mid(班別_cb8.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP8.Value : 休息長度() : Do2 = NumericUpDown8.Value : 班條長度()
        A_pb15.Location = New Point(454 + XX, 274 - 14) : A_pb16.Location = New Point(879 + XX + X1 + XXX, 274 - 14)
        ComboBox15.Location = New Point(454 + XX, 275 - 14) : ComboBox16.Location = New Point(879 + XX + X1 + XXX, 275 - 14)
        進度條變化8()
    End Sub
    Private Sub 休息變化9()
        XX = Val(Strings.Left(班別_cb9.Text, 2)) * 60 + Val(Strings.Mid(班別_cb9.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP9.Value : 休息長度() : Do2 = NumericUpDown9.Value : 班條長度()
        A_pb17.Location = New Point(454 + XX, 305 - 14) : A_pb18.Location = New Point(879 + XX + X1 + XXX, 305 - 14)
        ComboBox17.Location = New Point(454 + XX, 306 - 14) : ComboBox18.Location = New Point(879 + XX + X1 + XXX, 306 - 14)
        進度條變化9()
    End Sub
    Private Sub 休息變化10()
        XX = Val(Strings.Left(班別_cb10.Text, 2)) * 60 + Val(Strings.Mid(班別_cb10.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP10.Value : 休息長度() : Do2 = NumericUpDown10.Value : 班條長度()
        A_pb19.Location = New Point(454 + XX, 336 - 14) : A_pb20.Location = New Point(879 + XX + X1 + XXX, 336 - 14)
        ComboBox19.Location = New Point(454 + XX, 337 - 14) : ComboBox20.Location = New Point(879 + XX + X1 + XXX, 336 - 14)
        進度條變化10()
    End Sub
    Private Sub 休息變化11()
        XX = Val(Strings.Left(班別_cb11.Text, 2)) * 60 + Val(Strings.Mid(班別_cb11.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP11.Value : 休息長度() : Do2 = NumericUpDown11.Value : 班條長度()
        A_pb21.Location = New Point(454 + XX, 367 - 14) : A_pb22.Location = New Point(879 + XX + X1 + XXX, 367 - 14)
        ComboBox21.Location = New Point(454 + XX, 368 - 14) : ComboBox22.Location = New Point(879 + XX + X1 + XXX, 368 - 14)
        進度條變化11()
    End Sub
    Private Sub 休息變化12()
        XX = Val(Strings.Left(班別_cb12.Text, 2)) * 60 + Val(Strings.Mid(班別_cb12.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP12.Value : 休息長度() : Do2 = NumericUpDown12.Value : 班條長度()
        A_pb23.Location = New Point(454 + XX, 398 - 14) : A_pb24.Location = New Point(879 + XX + X1 + XXX, 398 - 14)
        ComboBox23.Location = New Point(454 + XX, 399 - 14) : ComboBox24.Location = New Point(879 + XX + X1 + XXX, 399 - 14)
        進度條變化12()
    End Sub
    Private Sub 休息變化13()
        XX = Val(Strings.Left(班別_cb13.Text, 2)) * 60 + Val(Strings.Mid(班別_cb13.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP13.Value : 休息長度() : Do2 = NumericUpDown13.Value : 班條長度()
        A_pb25.Location = New Point(454 + XX, 429 - 14) : A_pb26.Location = New Point(879 + XX + X1 + XXX, 429 - 14)
        ComboBox25.Location = New Point(454 + XX, 430 - 14) : ComboBox26.Location = New Point(879 + XX + X1 + XXX, 430 - 14)
        進度條變化13()
    End Sub
    Private Sub 休息變化14()
        XX = Val(Strings.Left(班別_cb14.Text, 2)) * 60 + Val(Strings.Mid(班別_cb14.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP14.Value : 休息長度() : Do2 = NumericUpDown14.Value : 班條長度()
        A_pb27.Location = New Point(454 + XX, 460 - 14) : A_pb28.Location = New Point(879 + XX + X1 + XXX, 460 - 14)
        ComboBox27.Location = New Point(454 + XX, 461 - 14) : ComboBox28.Location = New Point(879 + XX + X1 + XXX, 461 - 14)
        進度條變化14()
    End Sub
    Private Sub 休息變化15()
        XX = Val(Strings.Left(班別_cb15.Text, 2)) * 60 + Val(Strings.Mid(班別_cb15.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP15.Value : 休息長度() : Do2 = NumericUpDown15.Value : 班條長度()
        A_pb29.Location = New Point(454 + XX, 491 - 14) : A_pb30.Location = New Point(879 + XX + X1 + XXX, 491 - 14)
        ComboBox29.Location = New Point(454 + XX, 492 - 14) : ComboBox30.Location = New Point(879 + XX + X1 + XXX, 492 - 14)
        進度條變化15()
    End Sub
    Private Sub 休息變化16()
        XX = Val(Strings.Left(班別_cb16.Text, 2)) * 60 + Val(Strings.Mid(班別_cb16.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP16.Value : 休息長度() : Do2 = NumericUpDown16.Value : 班條長度()
        A_pb31.Location = New Point(454 + XX, 522 - 14) : A_pb32.Location = New Point(879 + XX + X1 + XXX, 522 - 14)
        ComboBox31.Location = New Point(454 + XX, 523 - 14) : ComboBox32.Location = New Point(879 + XX + X1 + XXX, 523 - 14)
        進度條變化16()
    End Sub
    Private Sub 休息變化17()
        XX = Val(Strings.Left(班別_cb17.Text, 2)) * 60 + Val(Strings.Mid(班別_cb17.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP17.Value : 休息長度() : Do2 = NumericUpDown17.Value : 班條長度()
        A_pb33.Location = New Point(454 + XX, 553 - 14) : A_pb34.Location = New Point(879 + XX + X1 + XXX, 553 - 14)
        ComboBox33.Location = New Point(454 + XX, 554 - 14) : ComboBox34.Location = New Point(879 + XX + X1 + XXX, 554 - 14)
        進度條變化17()
    End Sub
    Private Sub 休息變化18()
        XX = Val(Strings.Left(班別_cb18.Text, 2)) * 60 + Val(Strings.Mid(班別_cb18.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP18.Value : 休息長度() : Do2 = NumericUpDown18.Value : 班條長度()
        A_pb35.Location = New Point(454 + XX, 584 - 14) : A_pb36.Location = New Point(879 + XX + X1 + XXX, 584 - 14)
        ComboBox35.Location = New Point(454 + XX, 585 - 14) : ComboBox36.Location = New Point(879 + XX + X1 + XXX, 585 - 14)
        進度條變化18()
    End Sub
    Private Sub 休息變化19()
        XX = Val(Strings.Left(班別_cb19.Text, 2)) * 60 + Val(Strings.Mid(班別_cb19.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP19.Value : 休息長度() : Do2 = NumericUpDown19.Value : 班條長度()
        A_pb37.Location = New Point(454 + XX, 615 - 14) : A_pb38.Location = New Point(879 + XX + X1 + XXX, 615 - 14)
        ComboBox37.Location = New Point(454 + XX, 616 - 14) : ComboBox38.Location = New Point(879 + XX + X1 + XXX, 616 - 14)
        進度條變化19()
    End Sub
    Private Sub 休息變化20()
        XX = Val(Strings.Left(班別_cb20.Text, 2)) * 60 + Val(Strings.Mid(班別_cb20.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP20.Value : 休息長度() : Do2 = NumericUpDown20.Value : 班條長度()
        A_pb39.Location = New Point(454 + XX, 646 - 14) : A_pb40.Location = New Point(879 + XX + X1 + XXX, 646 - 14)
        ComboBox39.Location = New Point(454 + XX, 647 - 14) : ComboBox40.Location = New Point(879 + XX + X1 + XXX, 647 - 14)
        進度條變化20()
    End Sub
    Private Sub 休息變化21()
        XX = Val(Strings.Left(班別_cb21.Text, 2)) * 60 + Val(Strings.Mid(班別_cb21.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP21.Value : 休息長度() : Do2 = NumericUpDown21.Value : 班條長度()
        A_pb41.Location = New Point(454 + XX, 677 - 14) : A_pb42.Location = New Point(879 + XX + X1 + XXX, 677 - 14)
        ComboBox41.Location = New Point(454 + XX, 678 - 14) : ComboBox42.Location = New Point(879 + XX + X1 + XXX, 678 - 14)
        進度條變化21()
    End Sub
    Private Sub 休息變化22()
        XX = Val(Strings.Left(班別_cb22.Text, 2)) * 60 + Val(Strings.Mid(班別_cb22.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP22.Value : 休息長度() : Do2 = NumericUpDown22.Value : 班條長度()
        A_pb43.Location = New Point(454 + XX, 708 - 14) : A_pb44.Location = New Point(879 + XX + X1 + XXX, 708 - 14)
        ComboBox43.Location = New Point(454 + XX, 709 - 14) : ComboBox44.Location = New Point(879 + XX + X1 + XXX, 709 - 14)
        進度條變化22()
    End Sub
    Private Sub 休息變化23()
        XX = Val(Strings.Left(班別_cb23.Text, 2)) * 60 + Val(Strings.Mid(班別_cb23.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP23.Value : 休息長度() : Do2 = NumericUpDown23.Value : 班條長度()
        A_pb45.Location = New Point(454 + XX, 739 - 14) : A_pb46.Location = New Point(879 + XX + X1 + XXX, 739 - 14)
        ComboBox45.Location = New Point(454 + XX, 740 - 14) : ComboBox46.Location = New Point(879 + XX + X1 + XXX, 740 - 14)
        進度條變化23()
    End Sub
    Private Sub 休息變化24()
        XX = Val(Strings.Left(班別_cb24.Text, 2)) * 60 + Val(Strings.Mid(班別_cb24.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP24.Value : 休息長度() : Do2 = NumericUpDown24.Value : 班條長度()
        A_pb47.Location = New Point(454 + XX, 770 - 14) : A_pb48.Location = New Point(879 + XX + X1 + XXX, 770 - 14)
        ComboBox47.Location = New Point(454 + XX, 771 - 14) : ComboBox48.Location = New Point(879 + XX + X1 + XXX, 771 - 14)
        進度條變化24()
    End Sub
    Private Sub 休息變化25()
        XX = Val(Strings.Left(班別_cb25.Text, 2)) * 60 + Val(Strings.Mid(班別_cb25.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP25.Value : 休息長度() : Do2 = NumericUpDown25.Value : 班條長度()
        A_pb49.Location = New Point(454 + XX, 801 - 14) : A_pb50.Location = New Point(879 + XX + X1 + XXX, 801 - 14)
        ComboBox49.Location = New Point(454 + XX, 802 - 14) : ComboBox50.Location = New Point(879 + XX + X1 + XXX, 802 - 14)
        進度條變化25()
    End Sub
    Private Sub 休息變化26()
        XX = Val(Strings.Left(班別_cb26.Text, 2)) * 60 + Val(Strings.Mid(班別_cb26.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP26.Value : 休息長度() : Do2 = NumericUpDown26.Value : 班條長度()
        A_pb51.Location = New Point(454 + XX, 832 - 14) : A_pb52.Location = New Point(879 + XX + X1 + XXX, 832 - 14)
        ComboBox51.Location = New Point(454 + XX, 833 - 14) : ComboBox52.Location = New Point(879 + XX + X1 + XXX, 833 - 14)
        進度條變化26()
    End Sub
    Private Sub 休息變化27()
        XX = Val(Strings.Left(班別_cb27.Text, 2)) * 60 + Val(Strings.Mid(班別_cb27.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP27.Value : 休息長度() : Do2 = NumericUpDown27.Value : 班條長度()
        A_pb53.Location = New Point(454 + XX, 863 - 14) : A_pb54.Location = New Point(879 + XX + X1 + XXX, 863 - 14)
        ComboBox53.Location = New Point(454 + XX, 864 - 14) : ComboBox54.Location = New Point(879 + XX + X1 + XXX, 864 - 14)
        進度條變化27()
    End Sub
    Private Sub 休息變化28()
        XX = Val(Strings.Left(班別_cb28.Text, 2)) * 60 + Val(Strings.Mid(班別_cb28.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP28.Value : 休息長度() : Do2 = NumericUpDown28.Value : 班條長度()
        A_pb55.Location = New Point(454 + XX, 894 - 14) : A_pb56.Location = New Point(879 + XX + X1 + XXX, 894 - 14)
        ComboBox55.Location = New Point(454 + XX, 895 - 14) : ComboBox56.Location = New Point(879 + XX + X1 + XXX, 895 - 14)
        進度條變化28()
    End Sub
    Private Sub 休息變化29()
        XX = Val(Strings.Left(班別_cb29.Text, 2)) * 60 + Val(Strings.Mid(班別_cb29.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP29.Value : 休息長度() : Do2 = NumericUpDown29.Value : 班條長度()
        A_pb57.Location = New Point(454 + XX, 925 - 14) : A_pb58.Location = New Point(879 + XX + X1 + XXX, 925 - 14)
        ComboBox57.Location = New Point(454 + XX, 926 - 14) : ComboBox58.Location = New Point(879 + XX + X1 + XXX, 926 - 14)
        進度條變化29()
    End Sub
    Private Sub 休息變化30()
        XX = Val(Strings.Left(班別_cb30.Text, 2)) * 60 + Val(Strings.Mid(班別_cb30.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP30.Value : 休息長度() : Do2 = NumericUpDown30.Value : 班條長度()
        A_pb59.Location = New Point(454 + XX, 956 - 14) : A_pb60.Location = New Point(879 + XX + X1 + XXX, 956 - 14)
        ComboBox59.Location = New Point(454 + XX, 957 - 14) : ComboBox60.Location = New Point(879 + XX + X1 + XXX, 957 - 14)
        進度條變化30()
    End Sub
    Private Sub 休息變化31()
        XX = Val(Strings.Left(班別_cb31.Text, 2)) * 60 + Val(Strings.Mid(班別_cb31.Text, 4, 2)) : 班別圖示計算載入()
        X1 = NUP31.Value : 休息長度() : Do2 = NumericUpDown31.Value : 班條長度()
        A_pb61.Location = New Point(454 + XX, 987 - 14) : A_pb62.Location = New Point(879 + XX + X1 + XXX, 987 - 14)
        ComboBox61.Location = New Point(454 + XX, 988 - 14) : ComboBox62.Location = New Point(879 + XX + X1 + XXX, 988 - 14)
        進度條變化31()
    End Sub
    Private Sub 班別_下拉表單資料載入()
        SQL_排班系統_班別_下拉()
        For no As Integer = 1 To 31
            Dim 班別_cbS As ComboBox = CType(Me.Controls.Find("班別_cb" + no.ToString(), True)(0), ComboBox)
            班別_cbS.Items.Clear()
        Next
        While (dr.Read())
            For no As Integer = 1 To 31
                Dim 班別_cbS As ComboBox = CType(Me.Controls.Find("班別_cb" + no.ToString(), True)(0), ComboBox)
                班別_cbS.Items.Add(dr("時段"))
            Next
        End While
        conn.Close()
    End Sub
    Private Sub 職務_下拉表單資料載入()
        SQL_排班系統_職務_下拉()
        For no As Integer = 1 To 62
            Dim ComboBoxs As ComboBox = CType(Me.Controls.Find("ComboBox" + no.ToString(), True)(0), ComboBox)
            ComboBoxs.Items.Clear()
        Next
        While (dr.Read())
            For no As Integer = 1 To 62
                Dim ComboBoxs As ComboBox = CType(Me.Controls.Find("ComboBox" + no.ToString(), True)(0), ComboBox)
                ComboBoxs.Items.Add(dr("職務"))
            Next
        End While
        conn.Close()
    End Sub
    Private Sub 個人班表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        年_lb.Text = PA : 月_lb.Text = PA1
        班別_下拉表單資料載入() : 職務_下拉表單資料載入()
        XX = 0 : Dim Q As Integer
        For no As Integer = 1 To 31
            Dim 姓名_tbS As TextBox = CType(Me.Controls.Find("姓名_tb" + no.ToString(), True)(0), TextBox)
            Dim 班別_cbS As ComboBox = CType(Me.Controls.Find("班別_cb" + no.ToString(), True)(0), ComboBox)
            Dim ComboBoxsS1 As ComboBox = CType(Me.Controls.Find("ComboBox" + (no + 62 + Q).ToString(), True)(0), ComboBox)
            Dim ComboBoxsS2 As ComboBox = CType(Me.Controls.Find("ComboBox" + (no + 62 + 1 + Q).ToString(), True)(0), ComboBox)
            Dim ComboBoxs1 As ComboBox = CType(Me.Controls.Find("ComboBox" + (no + Q).ToString(), True)(0), ComboBox)
            Dim ComboBoxs2 As ComboBox = CType(Me.Controls.Find("ComboBox" + (no + 1 + Q).ToString(), True)(0), ComboBox)
            Dim A_pbS1 As ProgressBar = CType(Me.Controls.Find("A_pb" + (no + Q).ToString(), True)(0), ProgressBar)
            Dim A_pbS2 As ProgressBar = CType(Me.Controls.Find("A_pb" + (no + 1 + Q).ToString(), True)(0), ProgressBar) : Q += 1
            姓名_tbS.Text = "" : 班別_cbS.Text = "休"
            A_pbS1.Visible = False : A_pbS2.Visible = False : ComboBoxs1.Visible = False : ComboBoxs2.Visible = False
            ComboBoxsS1.SelectedIndex = 0 : ComboBoxsS2.SelectedIndex = 0
        Next
        A_pb1.Location = New Point(454 + XX, 57 - 14) : A_pb2.Location = New Point(879 + XX, 57 - 14)
        ComboBox1.Location = New Point(454 + XX, 58 - 14) : ComboBox2.Location = New Point(879 + XX, 58 - 14)
        A_pb3.Location = New Point(454 + XX, 88 - 14) : A_pb4.Location = New Point(879 + XX, 88 - 14)
        ComboBox3.Location = New Point(454 + XX, 89 - 14) : ComboBox4.Location = New Point(879 + XX, 89 - 14)
        A_pb5.Location = New Point(454 + XX, 119 - 14) : A_pb6.Location = New Point(879 + XX, 119 - 14)
        ComboBox5.Location = New Point(454 + XX, 120 - 14) : ComboBox6.Location = New Point(879 + XX, 120 - 14)
        A_pb7.Location = New Point(454 + XX, 150 - 14) : A_pb8.Location = New Point(879 + XX, 150 - 14)
        ComboBox7.Location = New Point(454 + XX, 151 - 14) : ComboBox8.Location = New Point(879 + XX, 151 - 14)
        A_pb9.Location = New Point(454 + XX, 181 - 14) : A_pb10.Location = New Point(879 + XX, 181 - 14)
        ComboBox9.Location = New Point(454 + XX, 182 - 14) : ComboBox10.Location = New Point(879 + XX, 182 - 14)
        A_pb11.Location = New Point(454 + XX, 212 - 14) : A_pb12.Location = New Point(879 + XX, 212 - 14)
        ComboBox11.Location = New Point(454 + XX, 213 - 14) : ComboBox12.Location = New Point(879 + XX, 213 - 14)
        A_pb13.Location = New Point(454 + XX, 243 - 14) : A_pb14.Location = New Point(879 + XX, 243 - 14)
        ComboBox13.Location = New Point(454 + XX, 244 - 14) : ComboBox14.Location = New Point(879 + XX, 244 - 14)
        A_pb15.Location = New Point(454 + XX, 274 - 14) : A_pb16.Location = New Point(879 + XX, 274 - 14)
        ComboBox15.Location = New Point(454 + XX, 275 - 14) : ComboBox16.Location = New Point(879 + XX, 275 - 14)
        A_pb17.Location = New Point(454 + XX, 305 - 14) : A_pb18.Location = New Point(879 + XX, 305 - 14)
        ComboBox17.Location = New Point(454 + XX, 306 - 14) : ComboBox18.Location = New Point(879 + XX, 306 - 14)
        A_pb19.Location = New Point(454 + XX, 336 - 14) : A_pb20.Location = New Point(879 + XX, 336 - 14)
        ComboBox19.Location = New Point(454 + XX, 337 - 14) : ComboBox20.Location = New Point(879 + XX, 337 - 14)
        A_pb21.Location = New Point(454 + XX, 367 - 14) : A_pb22.Location = New Point(879 + XX, 367 - 14)
        ComboBox21.Location = New Point(454 + XX, 368 - 14) : ComboBox22.Location = New Point(879 + XX, 368 - 14)
        A_pb23.Location = New Point(454 + XX, 398 - 14) : A_pb24.Location = New Point(879 + XX, 398 - 14)
        ComboBox23.Location = New Point(454 + XX, 399 - 14) : ComboBox24.Location = New Point(879 + XX, 399 - 14)
        A_pb25.Location = New Point(454 + XX, 429 - 14) : A_pb26.Location = New Point(879 + XX, 429 - 14)
        ComboBox25.Location = New Point(454 + XX, 430 - 14) : ComboBox26.Location = New Point(879 + XX, 430 - 14)
        A_pb27.Location = New Point(454 + XX, 460 - 14) : A_pb28.Location = New Point(879 + XX, 460 - 14)
        ComboBox27.Location = New Point(454 + XX, 461 - 14) : ComboBox28.Location = New Point(879 + XX, 461 - 14)
        A_pb29.Location = New Point(454 + XX, 491 - 14) : A_pb30.Location = New Point(879 + XX, 491 - 14)
        ComboBox29.Location = New Point(454 + XX, 492 - 14) : ComboBox30.Location = New Point(879 + XX, 492 - 14)
        A_pb31.Location = New Point(454 + XX, 522 - 14) : A_pb32.Location = New Point(879 + XX, 522 - 14)
        ComboBox31.Location = New Point(454 + XX, 523 - 14) : ComboBox32.Location = New Point(879 + XX, 523 - 14)
        A_pb33.Location = New Point(454 + XX, 553 - 14) : A_pb34.Location = New Point(879 + XX, 553 - 14)
        ComboBox33.Location = New Point(454 + XX, 554 - 14) : ComboBox34.Location = New Point(879 + XX, 554 - 14)
        A_pb35.Location = New Point(454 + XX, 584 - 14) : A_pb36.Location = New Point(879 + XX, 584 - 14)
        ComboBox35.Location = New Point(454 + XX, 585 - 14) : ComboBox36.Location = New Point(879 + XX, 585 - 14)
        A_pb37.Location = New Point(454 + XX, 615 - 14) : A_pb38.Location = New Point(879 + XX, 615 - 14)
        ComboBox37.Location = New Point(454 + XX, 616 - 14) : ComboBox38.Location = New Point(879 + XX, 616 - 14)
        A_pb39.Location = New Point(454 + XX, 646 - 14) : A_pb40.Location = New Point(879 + XX, 646 - 14)
        ComboBox39.Location = New Point(454 + XX, 647 - 14) : ComboBox40.Location = New Point(879 + XX, 647 - 14)
        A_pb41.Location = New Point(454 + XX, 677 - 14) : A_pb42.Location = New Point(879 + XX, 677 - 14)
        ComboBox41.Location = New Point(454 + XX, 678 - 14) : ComboBox42.Location = New Point(879 + XX, 678 - 14)
        A_pb43.Location = New Point(454 + XX, 708 - 14) : A_pb44.Location = New Point(879 + XX, 708 - 14)
        ComboBox43.Location = New Point(454 + XX, 709 - 14) : ComboBox44.Location = New Point(879 + XX, 709 - 14)
        A_pb45.Location = New Point(454 + XX, 739 - 14) : A_pb46.Location = New Point(879 + XX, 739 - 14)
        ComboBox45.Location = New Point(454 + XX, 740 - 14) : ComboBox46.Location = New Point(879 + XX, 740 - 14)
        A_pb47.Location = New Point(454 + XX, 770 - 14) : A_pb48.Location = New Point(879 + XX, 770 - 14)
        ComboBox47.Location = New Point(454 + XX, 771 - 14) : ComboBox48.Location = New Point(879 + XX, 771 - 14)
        A_pb49.Location = New Point(454 + XX, 801 - 14) : A_pb50.Location = New Point(879 + XX, 801 - 14)
        ComboBox49.Location = New Point(454 + XX, 802 - 14) : ComboBox50.Location = New Point(879 + XX, 802 - 14)
        A_pb51.Location = New Point(454 + XX, 832 - 14) : A_pb52.Location = New Point(879 + XX, 832 - 14)
        ComboBox51.Location = New Point(454 + XX, 833 - 14) : ComboBox52.Location = New Point(879 + XX, 833 - 14)
        A_pb53.Location = New Point(454 + XX, 863 - 14) : A_pb54.Location = New Point(879 + XX, 863 - 14)
        ComboBox53.Location = New Point(454 + XX, 864 - 14) : ComboBox54.Location = New Point(879 + XX, 864 - 14)
        A_pb55.Location = New Point(454 + XX, 894 - 14) : A_pb56.Location = New Point(879 + XX, 894 - 14)
        ComboBox55.Location = New Point(454 + XX, 895 - 14) : ComboBox56.Location = New Point(879 + XX, 895 - 14)
        A_pb57.Location = New Point(454 + XX, 925 - 14) : A_pb58.Location = New Point(879 + XX, 925 - 14)
        ComboBox57.Location = New Point(454 + XX, 926 - 14) : ComboBox58.Location = New Point(879 + XX, 926 - 14)
        A_pb59.Location = New Point(454 + XX, 956 - 14) : A_pb60.Location = New Point(879 + XX, 956 - 14)
        ComboBox59.Location = New Point(454 + XX, 957 - 14) : ComboBox60.Location = New Point(879 + XX, 957 - 14)
        A_pb61.Location = New Point(454 + XX, 987 - 14) : A_pb62.Location = New Point(879 + XX, 987 - 14)
        ComboBox61.Location = New Point(454 + XX, 988 - 14) : ComboBox62.Location = New Point(879 + XX, 988 - 14)

        PA = 年_lb.Text & "/" & 月_lb.Text
        讀取排班資料表() : 讀取星期()

        If 排班明細_dgv.Rows.Count > 0 Then
            Q = 0 : Dim WW As Integer = 0
            For no As Integer = 1 To 31
                Dim TextBoxS As TextBox = CType(Me.Controls.Find("TextBox" + no.ToString(), True)(0), TextBox)
                Dim TextBoxS1 As TextBox = CType(Me.Controls.Find("TextBox" + (no + 31).ToString(), True)(0), TextBox)
                Dim 姓名_tbS As TextBox = CType(Me.Controls.Find("姓名_tb" + no.ToString(), True)(0), TextBox)
                Dim 班別_cbS As ComboBox = CType(Me.Controls.Find("班別_cb" + no.ToString(), True)(0), ComboBox)
                Dim A_lbS As Label = CType(Me.Controls.Find("A_lb" + no.ToString(), True)(0), Label)
                Dim CheckBoxS As CheckBox = CType(Me.Controls.Find("CheckBox" + no.ToString(), True)(0), CheckBox)
                Dim NumericUpDownS As NumericUpDown = CType(Me.Controls.Find("NumericUpDown" + no.ToString(), True)(0), NumericUpDown)
                Dim NUPS As NumericUpDown = CType(Me.Controls.Find("NUP" + no.ToString(), True)(0), NumericUpDown)
                Dim ComboBoxsS1 As ComboBox = CType(Me.Controls.Find("ComboBox" + (no + 62 + Q).ToString(), True)(0), ComboBox)
                Dim ComboBoxsS2 As ComboBox = CType(Me.Controls.Find("ComboBox" + (no + 62 + 1 + Q).ToString(), True)(0), ComboBox)
                Dim ComboBoxs1 As ComboBox = CType(Me.Controls.Find("ComboBox" + (no + Q).ToString(), True)(0), ComboBox)
                Dim ComboBoxs2 As ComboBox = CType(Me.Controls.Find("ComboBox" + (no + 1 + Q).ToString(), True)(0), ComboBox) : Q += 1

                If no - 1 <= 星期_dgv.Rows.Count - 1 Then '班表簽認
                    TextBoxS.Text = 星期_dgv.Rows(no - 1).Cells("星期").Value
                    If 星期_dgv.Rows(no - 1).Cells("班表簽認").Value.ToString = "Y" Then
                        TextBoxS1.Text = "已鎖定" : TextBoxS1.BackColor = Color.PaleGreen
                    Else
                        TextBoxS1.Text = "會變動" : TextBoxS1.BackColor = Color.Pink
                    End If
                Else
                    TextBoxS.Text = ""
                End If
                If WW <= 排班明細_dgv.Rows.Count - 1 Then
                    If Val(排班明細_dgv.Rows(WW).Cells("項次").Value.ToString) = Val(A_lbS.Text) Then
                        If 排班明細_dgv.Rows(WW).Cells("班別").Value.ToString <> "休" Then
                            ComboBoxs1.Text = 排班明細_dgv.Rows(WW).Cells("一段").Value
                            ComboBoxs2.Text = 排班明細_dgv.Rows(WW).Cells("二段").Value
                            ComboBoxsS1.Text = 排班明細_dgv.Rows(WW).Cells("顏色1").Value
                            ComboBoxsS2.Text = 排班明細_dgv.Rows(WW).Cells("顏色2").Value
                            NUPS.Value = 排班明細_dgv.Rows(WW).Cells("休息").Value
                            NumericUpDownS.Value = 排班明細_dgv.Rows(WW).Cells("時數").Value
                            姓名_tbS.Text = 排班明細_dgv.Rows(WW).Cells("姓名").Value.ToString
                            班別_cbS.Text = 排班明細_dgv.Rows(WW).Cells("班別").Value.ToString
                            CheckBoxS.Checked = 排班明細_dgv.Rows(WW).Cells("半天").Value
                            WW += 1
                        Else
                            ComboBoxs1.Text = "" : ComboBoxs2.Text = "" : NUPS.Value = 0.5 : NumericUpDownS.Value = 4
                            姓名_tbS.Text = "" : 班別_cbS.Text = "休" : CheckBoxS.Checked = False
                            WW += 1
                        End If
                    Else
                        ComboBoxs1.Text = "" : ComboBoxs2.Text = "" : NUPS.Value = 0.5 : NumericUpDownS.Value = 4
                        姓名_tbS.Text = "" : 班別_cbS.Text = "休" : CheckBoxS.Checked = False
                    End If
                Else
                    ComboBoxs1.Text = "" : ComboBoxs2.Text = "" : NUPS.Value = 0.5 : NumericUpDownS.Value = 4
                    姓名_tbS.Text = "" : 班別_cbS.Text = "休" : CheckBoxS.Checked = False
                End If
            Next
        End If
    End Sub
    Private Sub 個人班表_Closing(sender As Object, e As EventArgs) Handles MyBase.Closing
    End Sub
    Private Sub 姓名1_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb1.TextChanged
        If 姓名_tb1.Text = "" Or 班別_cb1.Text = "休" Then : A_pb1.Visible = False : A_pb2.Visible = False : ComboBox1.Visible = False : ComboBox2.Visible = False : Else
            A_pb1.Visible = True : A_pb2.Visible = True : ComboBox1.Visible = True : ComboBox2.Visible = True : XX = 0
            If 班別_cb1.Text = "" Or 班別_cb1.Text = "休" Then
                A_pb1.Location = New Point(454 + XX, 57 - 14) : A_pb2.Location = New Point(879 + XX, 57 - 14)
                ComboBox1.Location = New Point(454 + XX, 58 - 14) : ComboBox2.Location = New Point(879 + XX, 58 - 14)
            End If
            進度條變化1()
        End If
    End Sub
    Private Sub 姓名2_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb2.TextChanged
        If 姓名_tb2.Text = "" Or 班別_cb2.Text = "休" Then : A_pb3.Visible = False : A_pb4.Visible = False : ComboBox3.Visible = False : ComboBox4.Visible = False : Else
            A_pb3.Visible = True : A_pb4.Visible = True : ComboBox3.Visible = True : ComboBox4.Visible = True : XX = 0
            If 班別_cb2.Text = "" Or 班別_cb2.Text = "休" Then
                A_pb3.Location = New Point(454 + XX, 88 - 14) : A_pb4.Location = New Point(879 + XX, 88 - 14)
                ComboBox3.Location = New Point(454 + XX, 89 - 14) : ComboBox4.Location = New Point(879 + XX, 89 - 14)
            End If
            進度條變化2()
        End If
    End Sub
    Private Sub 姓名3_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb3.TextChanged
        If 姓名_tb3.Text = "" Or 班別_cb3.Text = "休" Then : A_pb5.Visible = False : A_pb6.Visible = False : ComboBox5.Visible = False : ComboBox6.Visible = False : Else
            A_pb5.Visible = True : A_pb6.Visible = True : ComboBox5.Visible = True : ComboBox6.Visible = True : XX = 0
            If 班別_cb3.Text = "" Or 班別_cb3.Text = "休" Then
                A_pb5.Location = New Point(454 + XX, 119 - 14) : A_pb6.Location = New Point(879 + XX, 119 - 14)
                ComboBox5.Location = New Point(454 + XX, 120 - 14) : ComboBox6.Location = New Point(879 + XX, 120 - 14)
            End If
            進度條變化3()
        End If
    End Sub
    Private Sub 姓名4_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb4.TextChanged
        If 姓名_tb4.Text = "" Or 班別_cb4.Text = "休" Then : A_pb7.Visible = False : A_pb8.Visible = False : ComboBox7.Visible = False : ComboBox8.Visible = False : Else
            A_pb7.Visible = True : A_pb8.Visible = True : ComboBox7.Visible = True : ComboBox8.Visible = True : XX = 0
            If 班別_cb4.Text = "" Or 班別_cb4.Text = "休" Then
                A_pb7.Location = New Point(454 + XX, 150 - 14) : A_pb8.Location = New Point(879 + XX, 150 - 14)
                ComboBox7.Location = New Point(454 + XX, 151 - 14) : ComboBox8.Location = New Point(879 + XX, 151 - 14)
            End If
            進度條變化4()
        End If
    End Sub
    Private Sub 姓名5_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb5.TextChanged
        If 姓名_tb5.Text = "" Or 班別_cb5.Text = "休" Then : A_pb9.Visible = False : A_pb10.Visible = False : ComboBox9.Visible = False : ComboBox10.Visible = False : Else
            A_pb9.Visible = True : A_pb10.Visible = True : ComboBox9.Visible = True : ComboBox10.Visible = True : XX = 0
            If 班別_cb5.Text = "" Or 班別_cb5.Text = "休" Then
                A_pb9.Location = New Point(454 + XX, 181 - 14) : A_pb10.Location = New Point(879 + XX, 181 - 14)
                ComboBox9.Location = New Point(454 + XX, 182 - 14) : ComboBox10.Location = New Point(879 + XX, 182 - 14)
            End If
            進度條變化5()
        End If
    End Sub
    Private Sub 姓名6_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb6.TextChanged
        If 姓名_tb6.Text = "" Or 班別_cb6.Text = "休" Then : A_pb11.Visible = False : A_pb12.Visible = False : ComboBox11.Visible = False : ComboBox12.Visible = False : Else
            A_pb11.Visible = True : A_pb12.Visible = True : ComboBox11.Visible = True : ComboBox12.Visible = True : XX = 0
            If 班別_cb6.Text = "" Or 班別_cb6.Text = "休" Then
                A_pb11.Location = New Point(454 + XX, 212 - 14) : A_pb12.Location = New Point(879 + XX, 212 - 14)
                ComboBox11.Location = New Point(454 + XX, 213 - 14) : ComboBox12.Location = New Point(879 + XX, 213 - 14)
            End If
            進度條變化6()
        End If
    End Sub
    Private Sub 姓名7_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb7.TextChanged
        If 姓名_tb7.Text = "" Or 班別_cb7.Text = "休" Then : A_pb13.Visible = False : A_pb14.Visible = False : ComboBox13.Visible = False : ComboBox14.Visible = False : Else
            A_pb13.Visible = True : A_pb14.Visible = True : ComboBox13.Visible = True : ComboBox14.Visible = True : XX = 0
            If 班別_cb7.Text = "" Or 班別_cb7.Text = "休" Then
                A_pb13.Location = New Point(454 + XX, 243 - 14) : A_pb14.Location = New Point(879 + XX, 243 - 14)
                ComboBox13.Location = New Point(454 + XX, 244 - 14) : ComboBox14.Location = New Point(879 + XX, 244 - 14)
            End If
            進度條變化7()
        End If
    End Sub
    Private Sub 姓名8_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb8.TextChanged
        If 姓名_tb8.Text = "" Or 班別_cb8.Text = "休" Then : A_pb15.Visible = False : A_pb16.Visible = False : ComboBox15.Visible = False : ComboBox16.Visible = False : Else
            A_pb15.Visible = True : A_pb16.Visible = True : ComboBox15.Visible = True : ComboBox16.Visible = True : XX = 0
            If 班別_cb8.Text = "" Or 班別_cb8.Text = "休" Then
                A_pb15.Location = New Point(454 + XX, 274 - 14) : A_pb16.Location = New Point(879 + XX, 274 - 14)
                ComboBox15.Location = New Point(454 + XX, 275 - 14) : ComboBox16.Location = New Point(879 + XX, 275 - 14)
            End If
            進度條變化8()
        End If
    End Sub
    Private Sub 姓名9_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb9.TextChanged
        If 姓名_tb9.Text = "" Or 班別_cb9.Text = "休" Then : A_pb17.Visible = False : A_pb18.Visible = False : ComboBox17.Visible = False : ComboBox18.Visible = False : Else
            A_pb17.Visible = True : A_pb18.Visible = True : ComboBox17.Visible = True : ComboBox18.Visible = True : XX = 0
            If 班別_cb9.Text = "" Or 班別_cb9.Text = "休" Then
                A_pb17.Location = New Point(454 + XX, 305 - 14) : A_pb18.Location = New Point(879 + XX, 305 - 14)
                ComboBox17.Location = New Point(454 + XX, 306 - 14) : ComboBox18.Location = New Point(879 + XX, 306 - 14)
            End If
            進度條變化9()
        End If
    End Sub
    Private Sub 姓名10_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb10.TextChanged
        If 姓名_tb10.Text = "" Or 班別_cb10.Text = "休" Then : A_pb19.Visible = False : A_pb20.Visible = False : ComboBox19.Visible = False : ComboBox20.Visible = False : Else
            A_pb19.Visible = True : A_pb20.Visible = True : ComboBox19.Visible = True : ComboBox20.Visible = True : XX = 0
            If 班別_cb10.Text = "" Or 班別_cb10.Text = "休" Then
                A_pb19.Location = New Point(454 + XX, 336 - 14) : A_pb20.Location = New Point(879 + XX, 336 - 14)
                ComboBox19.Location = New Point(454 + XX, 337 - 14) : ComboBox20.Location = New Point(879 + XX, 337 - 14)
            End If
            進度條變化10()
        End If
    End Sub
    Private Sub 姓名11_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb11.TextChanged
        If 姓名_tb11.Text = "" Or 班別_cb11.Text = "休" Then : A_pb21.Visible = False : A_pb22.Visible = False : ComboBox21.Visible = False : ComboBox22.Visible = False : Else
            A_pb21.Visible = True : A_pb22.Visible = True : ComboBox21.Visible = True : ComboBox22.Visible = True : XX = 0
            If 班別_cb11.Text = "" Or 班別_cb11.Text = "休" Then
                A_pb21.Location = New Point(454 + XX, 367 - 14) : A_pb22.Location = New Point(879 + XX, 367 - 14)
                ComboBox21.Location = New Point(454 + XX, 368 - 14) : ComboBox22.Location = New Point(879 + XX, 368 - 14)
            End If
            進度條變化11()
        End If
    End Sub
    Private Sub 姓名12_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb12.TextChanged
        If 姓名_tb12.Text = "" Or 班別_cb12.Text = "休" Then : A_pb23.Visible = False : A_pb24.Visible = False : ComboBox23.Visible = False : ComboBox24.Visible = False : Else
            A_pb23.Visible = True : A_pb24.Visible = True : ComboBox23.Visible = True : ComboBox24.Visible = True : XX = 0
            If 班別_cb12.Text = "" Or 班別_cb12.Text = "休" Then
                A_pb23.Location = New Point(454 + XX, 398 - 14) : A_pb24.Location = New Point(879 + XX, 398 - 14)
                ComboBox23.Location = New Point(454 + XX, 399 - 14) : ComboBox24.Location = New Point(879 + XX, 399 - 14)
            End If
            進度條變化12()
        End If
    End Sub
    Private Sub 姓名13_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb13.TextChanged
        If 姓名_tb13.Text = "" Or 班別_cb13.Text = "休" Then : A_pb25.Visible = False : A_pb26.Visible = False : ComboBox25.Visible = False : ComboBox26.Visible = False : Else
            A_pb25.Visible = True : A_pb26.Visible = True : ComboBox25.Visible = True : ComboBox26.Visible = True : XX = 0
            If 班別_cb13.Text = "" Or 班別_cb13.Text = "休" Then
                A_pb25.Location = New Point(454 + XX, 429 - 14) : A_pb26.Location = New Point(879 + XX, 429 - 14)
                ComboBox25.Location = New Point(454 + XX, 430 - 14) : ComboBox26.Location = New Point(879 + XX, 430 - 14)
            End If
            進度條變化13()
        End If
    End Sub
    Private Sub 姓名14_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb14.TextChanged
        If 姓名_tb14.Text = "" Or 班別_cb14.Text = "休" Then : A_pb27.Visible = False : A_pb28.Visible = False : ComboBox27.Visible = False : ComboBox28.Visible = False : Else
            A_pb27.Visible = True : A_pb28.Visible = True : ComboBox27.Visible = True : ComboBox28.Visible = True : XX = 0
            If 班別_cb14.Text = "" Or 班別_cb14.Text = "休" Then
                A_pb27.Location = New Point(454 + XX, 460 - 14) : A_pb28.Location = New Point(879 + XX, 460 - 14)
                ComboBox27.Location = New Point(454 + XX, 461 - 14) : ComboBox28.Location = New Point(879 + XX, 461 - 14)
            End If
            進度條變化14()
        End If
    End Sub
    Private Sub 姓名15_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb15.TextChanged
        If 姓名_tb15.Text = "" Or 班別_cb15.Text = "休" Then : A_pb29.Visible = False : A_pb30.Visible = False : ComboBox29.Visible = False : ComboBox30.Visible = False : Else
            A_pb29.Visible = True : A_pb30.Visible = True : ComboBox29.Visible = True : ComboBox30.Visible = True : XX = 0
            If 班別_cb15.Text = "" Or 班別_cb15.Text = "休" Then
                A_pb29.Location = New Point(454 + XX, 491 - 14) : A_pb30.Location = New Point(879 + XX, 491 - 14)
                ComboBox29.Location = New Point(454 + XX, 492 - 14) : ComboBox30.Location = New Point(879 + XX, 492 - 14)
            End If
            進度條變化15()
        End If
    End Sub
    Private Sub 姓名16_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb16.TextChanged
        If 姓名_tb16.Text = "" Or 班別_cb16.Text = "休" Then : A_pb31.Visible = False : A_pb32.Visible = False : ComboBox31.Visible = False : ComboBox32.Visible = False : Else
            A_pb31.Visible = True : A_pb32.Visible = True : ComboBox31.Visible = True : ComboBox32.Visible = True : XX = 0
            If 班別_cb16.Text = "" Or 班別_cb16.Text = "休" Then
                A_pb31.Location = New Point(454 + XX, 522 - 14) : A_pb32.Location = New Point(879 + XX, 522 - 14)
                ComboBox31.Location = New Point(454 + XX, 523 - 14) : ComboBox32.Location = New Point(879 + XX, 523 - 14)
            End If
            進度條變化16()
        End If
    End Sub
    Private Sub 姓名17_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb17.TextChanged
        If 姓名_tb17.Text = "" Or 班別_cb17.Text = "休" Then : A_pb33.Visible = False : A_pb34.Visible = False : ComboBox33.Visible = False : ComboBox34.Visible = False : Else
            A_pb33.Visible = True : A_pb34.Visible = True : ComboBox33.Visible = True : ComboBox34.Visible = True : XX = 0
            If 班別_cb17.Text = "" Or 班別_cb17.Text = "休" Then
                A_pb33.Location = New Point(454 + XX, 553 - 14) : A_pb34.Location = New Point(879 + XX, 553 - 14)
                ComboBox33.Location = New Point(454 + XX, 554 - 14) : ComboBox34.Location = New Point(879 + XX, 554 - 14)
            End If
            進度條變化17()
        End If
    End Sub
    Private Sub 姓名18_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb18.TextChanged
        If 姓名_tb18.Text = "" Or 班別_cb18.Text = "休" Then : A_pb35.Visible = False : A_pb36.Visible = False : ComboBox35.Visible = False : ComboBox36.Visible = False : Else
            A_pb35.Visible = True : A_pb36.Visible = True : ComboBox35.Visible = True : ComboBox36.Visible = True : XX = 0
            If 班別_cb18.Text = "" Or 班別_cb18.Text = "休" Then
                A_pb35.Location = New Point(454 + XX, 584 - 14) : A_pb36.Location = New Point(879 + XX, 584 - 14)
                ComboBox35.Location = New Point(454 + XX, 585 - 14) : ComboBox36.Location = New Point(879 + XX, 585 - 14)
            End If
            進度條變化18()
        End If
    End Sub
    Private Sub 姓名19_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb19.TextChanged
        If 姓名_tb19.Text = "" Or 班別_cb19.Text = "休" Then : A_pb37.Visible = False : A_pb38.Visible = False : ComboBox37.Visible = False : ComboBox38.Visible = False : Else
            A_pb37.Visible = True : A_pb38.Visible = True : ComboBox37.Visible = True : ComboBox38.Visible = True : XX = 0
            If 班別_cb19.Text = "" Or 班別_cb19.Text = "休" Then
                A_pb37.Location = New Point(454 + XX, 615 - 14) : A_pb38.Location = New Point(879 + XX, 615 - 14)
                ComboBox37.Location = New Point(454 + XX, 616 - 14) : ComboBox38.Location = New Point(879 + XX, 616 - 14)
            End If
            進度條變化19()
        End If
    End Sub
    Private Sub 姓名20_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb20.TextChanged
        If 姓名_tb20.Text = "" Or 班別_cb20.Text = "休" Then : A_pb39.Visible = False : A_pb40.Visible = False : ComboBox39.Visible = False : ComboBox40.Visible = False : Else
            A_pb39.Visible = True : A_pb40.Visible = True : ComboBox39.Visible = True : ComboBox40.Visible = True : XX = 0
            If 班別_cb20.Text = "" Or 班別_cb20.Text = "休" Then
                A_pb39.Location = New Point(454 + XX, 646 - 14) : A_pb40.Location = New Point(879 + XX, 646 - 14)
                ComboBox39.Location = New Point(454 + XX, 647 - 14) : ComboBox40.Location = New Point(879 + XX, 647 - 14)
            End If
            進度條變化20()
        End If
    End Sub
    Private Sub 姓名21_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb21.TextChanged
        If 姓名_tb21.Text = "" Or 姓名_tb21.Text = "休" Then : A_pb41.Visible = False : A_pb42.Visible = False : ComboBox41.Visible = False : ComboBox42.Visible = False : Else
            A_pb41.Visible = True : A_pb42.Visible = True : ComboBox41.Visible = True : ComboBox42.Visible = True : XX = 0
            If 姓名_tb21.Text = "" Or 姓名_tb21.Text = "休" Then
                A_pb41.Location = New Point(454 + XX, 677 - 14) : A_pb42.Location = New Point(879 + XX, 677 - 14)
                ComboBox41.Location = New Point(454 + XX, 678 - 14) : ComboBox42.Location = New Point(879 + XX, 678 - 14)
            End If
            進度條變化21()
        End If
    End Sub
    Private Sub 姓名22_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb22.TextChanged
        If 姓名_tb22.Text = "" Or 姓名_tb22.Text = "休" Then : A_pb43.Visible = False : A_pb44.Visible = False : ComboBox43.Visible = False : ComboBox44.Visible = False : Else
            A_pb43.Visible = True : A_pb44.Visible = True : ComboBox43.Visible = True : ComboBox44.Visible = True : XX = 0
            If 姓名_tb22.Text = "" Or 姓名_tb22.Text = "休" Then
                A_pb43.Location = New Point(454 + XX, 708 - 14) : A_pb44.Location = New Point(879 + XX, 708 - 14)
                ComboBox43.Location = New Point(454 + XX, 709 - 14) : ComboBox44.Location = New Point(879 + XX, 709 - 14)
            End If
            進度條變化22()
        End If
    End Sub
    Private Sub 姓名23_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb23.TextChanged
        If 姓名_tb23.Text = "" Or 姓名_tb23.Text = "休" Then : A_pb45.Visible = False : A_pb46.Visible = False : ComboBox45.Visible = False : ComboBox46.Visible = False : Else
            A_pb45.Visible = True : A_pb46.Visible = True : ComboBox45.Visible = True : ComboBox46.Visible = True : XX = 0
            If 姓名_tb23.Text = "" Or 姓名_tb23.Text = "休" Then
                A_pb45.Location = New Point(454 + XX, 739 - 14) : A_pb46.Location = New Point(879 + XX, 739 - 14)
                ComboBox45.Location = New Point(454 + XX, 740 - 14) : ComboBox46.Location = New Point(879 + XX, 740 - 14)
            End If
            進度條變化23()
        End If
    End Sub
    Private Sub 姓名24_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb24.TextChanged
        If 姓名_tb24.Text = "" Or 姓名_tb24.Text = "休" Then : A_pb47.Visible = False : A_pb48.Visible = False : ComboBox47.Visible = False : ComboBox48.Visible = False : Else
            A_pb47.Visible = True : A_pb48.Visible = True : ComboBox47.Visible = True : ComboBox48.Visible = True : XX = 0
            If 姓名_tb24.Text = "" Or 姓名_tb24.Text = "休" Then
                A_pb47.Location = New Point(454 + XX, 770 - 14) : A_pb48.Location = New Point(879 + XX, 770 - 14)
                ComboBox47.Location = New Point(454 + XX, 771 - 14) : ComboBox48.Location = New Point(879 + XX, 771 - 14)
            End If
            進度條變化24()
        End If
    End Sub
    Private Sub 姓名25_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb25.TextChanged
        If 姓名_tb25.Text = "" Or 姓名_tb25.Text = "休" Then : A_pb49.Visible = False : A_pb50.Visible = False : ComboBox49.Visible = False : ComboBox50.Visible = False : Else
            A_pb49.Visible = True : A_pb50.Visible = True : ComboBox49.Visible = True : ComboBox50.Visible = True : XX = 0
            If 姓名_tb25.Text = "" Or 姓名_tb25.Text = "休" Then
                A_pb49.Location = New Point(454 + XX, 801 - 14) : A_pb50.Location = New Point(879 + XX, 801 - 14)
                ComboBox49.Location = New Point(454 + XX, 802 - 14) : ComboBox50.Location = New Point(879 + XX, 802 - 14)
            End If
            進度條變化25()
        End If
    End Sub
    Private Sub 姓名26_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb26.TextChanged
        If 姓名_tb26.Text = "" Or 姓名_tb26.Text = "休" Then : A_pb51.Visible = False : A_pb52.Visible = False : ComboBox51.Visible = False : ComboBox52.Visible = False : Else
            A_pb51.Visible = True : A_pb52.Visible = True : ComboBox51.Visible = True : ComboBox52.Visible = True : XX = 0
            If 姓名_tb26.Text = "" Or 姓名_tb26.Text = "休" Then
                A_pb51.Location = New Point(454 + XX, 832 - 14) : A_pb52.Location = New Point(879 + XX, 832 - 14)
                ComboBox51.Location = New Point(454 + XX, 833 - 14) : ComboBox52.Location = New Point(879 + XX, 833 - 14)
            End If
            進度條變化26()
        End If
    End Sub
    Private Sub 姓名27_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb27.TextChanged
        If 姓名_tb27.Text = "" Or 姓名_tb27.Text = "休" Then : A_pb53.Visible = False : A_pb54.Visible = False : ComboBox53.Visible = False : ComboBox54.Visible = False : Else
            A_pb53.Visible = True : A_pb54.Visible = True : ComboBox53.Visible = True : ComboBox54.Visible = True : XX = 0
            If 姓名_tb27.Text = "" Or 姓名_tb27.Text = "休" Then
                A_pb53.Location = New Point(454 + XX, 863 - 14) : A_pb54.Location = New Point(879 + XX, 863 - 14)
                ComboBox53.Location = New Point(454 + XX, 864 - 14) : ComboBox54.Location = New Point(879 + XX, 864 - 14)
            End If
            進度條變化27()
        End If
    End Sub
    Private Sub 姓名28_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb28.TextChanged
        If 姓名_tb28.Text = "" Or 姓名_tb28.Text = "休" Then : A_pb55.Visible = False : A_pb56.Visible = False : ComboBox55.Visible = False : ComboBox56.Visible = False : Else
            A_pb55.Visible = True : A_pb56.Visible = True : ComboBox55.Visible = True : ComboBox56.Visible = True : XX = 0
            If 姓名_tb28.Text = "" Or 姓名_tb28.Text = "休" Then
                A_pb55.Location = New Point(454 + XX, 894 - 14) : A_pb56.Location = New Point(879 + XX, 894 - 14)
                ComboBox55.Location = New Point(454 + XX, 895 - 14) : ComboBox56.Location = New Point(879 + XX, 895 - 14)
            End If
            進度條變化28()
        End If
    End Sub
    Private Sub 姓名29_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb29.TextChanged
        If 姓名_tb29.Text = "" Or 姓名_tb29.Text = "休" Then : A_pb57.Visible = False : A_pb58.Visible = False : ComboBox57.Visible = False : ComboBox58.Visible = False : Else
            A_pb57.Visible = True : A_pb58.Visible = True : ComboBox57.Visible = True : ComboBox58.Visible = True : XX = 0
            If 姓名_tb29.Text = "" Or 姓名_tb29.Text = "休" Then
                A_pb57.Location = New Point(454 + XX, 925 - 14) : A_pb58.Location = New Point(879 + XX, 925 - 14)
                ComboBox57.Location = New Point(454 + XX, 926 - 14) : ComboBox58.Location = New Point(879 + XX, 926 - 14)
            End If
            進度條變化29()
        End If
    End Sub
    Private Sub 姓名30_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb30.TextChanged
        If 姓名_tb30.Text = "" Or 姓名_tb30.Text = "休" Then : A_pb59.Visible = False : A_pb60.Visible = False : ComboBox59.Visible = False : ComboBox60.Visible = False : Else
            A_pb59.Visible = True : A_pb60.Visible = True : ComboBox59.Visible = True : ComboBox60.Visible = True : XX = 0
            If 姓名_tb30.Text = "" Or 姓名_tb30.Text = "休" Then
                A_pb59.Location = New Point(454 + XX, 956 - 14) : A_pb60.Location = New Point(879 + XX, 956 - 14)
                ComboBox59.Location = New Point(454 + XX, 957 - 14) : ComboBox60.Location = New Point(879 + XX, 957 - 14)
            End If
            進度條變化30()
        End If
    End Sub
    Private Sub 姓名31_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb31.TextChanged
        If 姓名_tb31.Text = "" Or 姓名_tb31.Text = "休" Then : A_pb61.Visible = False : A_pb62.Visible = False : ComboBox61.Visible = False : ComboBox62.Visible = False : Else
            A_pb61.Visible = True : A_pb62.Visible = True : ComboBox61.Visible = True : ComboBox62.Visible = True : XX = 0
            If 姓名_tb31.Text = "" Or 姓名_tb31.Text = "休" Then
                A_pb61.Location = New Point(454 + XX, 987 - 14) : A_pb62.Location = New Point(879 + XX, 987 - 14)
                ComboBox61.Location = New Point(454 + XX, 988 - 14) : ComboBox62.Location = New Point(879 + XX, 988 - 14)
            End If
            進度條變化31()
        End If
    End Sub
    Private Sub 班別01_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb1.SelectedIndexChanged
        If 班別_cb1.Text <> "休" Then : 休息變化1() : A_pb1.Visible = True : A_pb2.Visible = True : ComboBox1.Visible = True : ComboBox2.Visible = True
        Else : A_pb1.Visible = False : A_pb2.Visible = False : ComboBox1.Visible = False : ComboBox2.Visible = False : End If
    End Sub
    Private Sub 班別02_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb2.SelectedIndexChanged
        If 班別_cb2.Text <> "休" Then : 休息變化2() : A_pb3.Visible = True : A_pb4.Visible = True : ComboBox3.Visible = True : ComboBox4.Visible = True
        Else : A_pb3.Visible = False : A_pb4.Visible = False : ComboBox3.Visible = False : ComboBox4.Visible = False : End If
    End Sub
    Private Sub 班別03_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb3.SelectedIndexChanged
        If 班別_cb3.Text <> "休" Then : 休息變化3() : A_pb5.Visible = True : A_pb6.Visible = True : ComboBox5.Visible = True : ComboBox6.Visible = True
        Else : A_pb5.Visible = False : A_pb6.Visible = False : ComboBox5.Visible = False : ComboBox6.Visible = False : End If
    End Sub
    Private Sub 班別04_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb4.SelectedIndexChanged
        If 班別_cb4.Text <> "休" Then : 休息變化4() : A_pb7.Visible = True : A_pb8.Visible = True : ComboBox7.Visible = True : ComboBox8.Visible = True
        Else : A_pb7.Visible = False : A_pb8.Visible = False : ComboBox7.Visible = False : ComboBox8.Visible = False : End If
    End Sub
    Private Sub 班別05_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb5.SelectedIndexChanged
        If 班別_cb5.Text <> "休" Then : 休息變化5() : A_pb9.Visible = True : A_pb10.Visible = True : ComboBox9.Visible = True : ComboBox10.Visible = True
        Else : A_pb9.Visible = False : A_pb10.Visible = False : ComboBox9.Visible = False : ComboBox10.Visible = False : End If
    End Sub
    Private Sub 班別06_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb6.SelectedIndexChanged
        If 班別_cb6.Text <> "休" Then : 休息變化6() : A_pb11.Visible = True : A_pb12.Visible = True : ComboBox11.Visible = True : ComboBox12.Visible = True
        Else : A_pb11.Visible = False : A_pb12.Visible = False : ComboBox11.Visible = False : ComboBox12.Visible = False : End If
    End Sub
    Private Sub 班別07_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb7.SelectedIndexChanged
        If 班別_cb7.Text <> "休" Then : 休息變化7() : A_pb13.Visible = True : A_pb14.Visible = True : ComboBox13.Visible = True : ComboBox14.Visible = True
        Else : A_pb13.Visible = False : A_pb14.Visible = False : ComboBox13.Visible = False : ComboBox14.Visible = False : End If
    End Sub
    Private Sub 班別08_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb8.SelectedIndexChanged
        If 班別_cb8.Text <> "休" Then : 休息變化8() : A_pb15.Visible = True : A_pb16.Visible = True : ComboBox15.Visible = True : ComboBox16.Visible = True
        Else : A_pb15.Visible = False : A_pb16.Visible = False : ComboBox15.Visible = False : ComboBox16.Visible = False : End If
    End Sub
    Private Sub 班別09_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb9.SelectedIndexChanged
        If 班別_cb9.Text <> "休" Then : 休息變化9() : A_pb17.Visible = True : A_pb18.Visible = True : ComboBox17.Visible = True : ComboBox18.Visible = True
        Else : A_pb17.Visible = False : A_pb18.Visible = False : ComboBox17.Visible = False : ComboBox18.Visible = False : End If
    End Sub
    Private Sub 班別10_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb10.SelectedIndexChanged
        If 班別_cb10.Text <> "休" Then : 休息變化10() : A_pb19.Visible = True : A_pb20.Visible = True : ComboBox19.Visible = True : ComboBox20.Visible = True
        Else : A_pb19.Visible = False : A_pb20.Visible = False : ComboBox19.Visible = False : ComboBox20.Visible = False : End If
    End Sub
    Private Sub 班別11_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb11.SelectedIndexChanged
        If 班別_cb11.Text <> "休" Then : 休息變化11() : A_pb21.Visible = True : A_pb22.Visible = True : ComboBox21.Visible = True : ComboBox22.Visible = True
        Else : A_pb21.Visible = False : A_pb22.Visible = False : ComboBox21.Visible = False : ComboBox22.Visible = False : End If
    End Sub
    Private Sub 班別12_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb12.SelectedIndexChanged
        If 班別_cb12.Text <> "休" Then : 休息變化12() : A_pb23.Visible = True : A_pb24.Visible = True : ComboBox23.Visible = True : ComboBox24.Visible = True
        Else : A_pb23.Visible = False : A_pb24.Visible = False : ComboBox23.Visible = False : ComboBox24.Visible = False : End If
    End Sub
    Private Sub 班別13_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb13.SelectedIndexChanged
        If 班別_cb13.Text <> "休" Then : 休息變化13() : A_pb25.Visible = True : A_pb26.Visible = True : ComboBox25.Visible = True : ComboBox26.Visible = True
        Else : A_pb25.Visible = False : A_pb26.Visible = False : ComboBox25.Visible = False : ComboBox26.Visible = False : End If
    End Sub
    Private Sub 班別14_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb14.SelectedIndexChanged
        If 班別_cb14.Text <> "休" Then : 休息變化14() : A_pb27.Visible = True : A_pb28.Visible = True : ComboBox27.Visible = True : ComboBox28.Visible = True
        Else : A_pb27.Visible = False : A_pb28.Visible = False : ComboBox27.Visible = False : ComboBox28.Visible = False : End If
    End Sub
    Private Sub 班別15_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb15.SelectedIndexChanged
        If 班別_cb15.Text <> "休" Then : 休息變化15() : A_pb29.Visible = True : A_pb30.Visible = True : ComboBox29.Visible = True : ComboBox30.Visible = True
        Else : A_pb29.Visible = False : A_pb30.Visible = False : ComboBox29.Visible = False : ComboBox30.Visible = False : End If
    End Sub
    Private Sub 班別16_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb16.SelectedIndexChanged
        If 班別_cb16.Text <> "休" Then : 休息變化16() : A_pb31.Visible = True : A_pb32.Visible = True : ComboBox31.Visible = True : ComboBox32.Visible = True
        Else : A_pb31.Visible = False : A_pb32.Visible = False : ComboBox31.Visible = False : ComboBox32.Visible = False : End If
    End Sub
    Private Sub 班別17_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb17.SelectedIndexChanged
        If 班別_cb17.Text <> "休" Then : 休息變化17() : A_pb33.Visible = True : A_pb34.Visible = True : ComboBox33.Visible = True : ComboBox34.Visible = True
        Else : A_pb33.Visible = False : A_pb34.Visible = False : ComboBox33.Visible = False : ComboBox34.Visible = False : End If
    End Sub
    Private Sub 班別18_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb18.SelectedIndexChanged
        If 班別_cb18.Text <> "休" Then : 休息變化18() : A_pb35.Visible = True : A_pb36.Visible = True : ComboBox35.Visible = True : ComboBox36.Visible = True
        Else : A_pb35.Visible = False : A_pb36.Visible = False : ComboBox35.Visible = False : ComboBox36.Visible = False : End If
    End Sub
    Private Sub 班別19_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb19.SelectedIndexChanged
        If 班別_cb19.Text <> "休" Then : 休息變化19() : A_pb37.Visible = True : A_pb38.Visible = True : ComboBox37.Visible = True : ComboBox38.Visible = True
        Else : A_pb37.Visible = False : A_pb38.Visible = False : ComboBox37.Visible = False : ComboBox38.Visible = False : End If
    End Sub
    Private Sub 班別20_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb20.SelectedIndexChanged
        If 班別_cb20.Text <> "休" Then : 休息變化20() : A_pb39.Visible = True : A_pb40.Visible = True : ComboBox39.Visible = True : ComboBox40.Visible = True
        Else : A_pb39.Visible = False : A_pb40.Visible = False : ComboBox39.Visible = False : ComboBox40.Visible = False : End If
    End Sub
    Private Sub 班別21_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb21.SelectedIndexChanged
        If 班別_cb21.Text <> "休" Then : 休息變化21() : A_pb41.Visible = True : A_pb42.Visible = True : ComboBox41.Visible = True : ComboBox42.Visible = True
        Else : A_pb41.Visible = False : A_pb42.Visible = False : ComboBox41.Visible = False : ComboBox42.Visible = False : End If
    End Sub
    Private Sub 班別22_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb22.SelectedIndexChanged
        If 班別_cb22.Text <> "休" Then : 休息變化22() : A_pb43.Visible = True : A_pb44.Visible = True : ComboBox43.Visible = True : ComboBox44.Visible = True
        Else : A_pb43.Visible = False : A_pb44.Visible = False : ComboBox43.Visible = False : ComboBox44.Visible = False : End If
    End Sub
    Private Sub 班別23_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb23.SelectedIndexChanged
        If 班別_cb23.Text <> "休" Then : 休息變化23() : A_pb45.Visible = True : A_pb46.Visible = True : ComboBox45.Visible = True : ComboBox46.Visible = True
        Else : A_pb45.Visible = False : A_pb46.Visible = False : ComboBox45.Visible = False : ComboBox46.Visible = False : End If
    End Sub
    Private Sub 班別24_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb24.SelectedIndexChanged
        If 班別_cb24.Text <> "休" Then : 休息變化24() : A_pb47.Visible = True : A_pb48.Visible = True : ComboBox47.Visible = True : ComboBox48.Visible = True
        Else : A_pb47.Visible = False : A_pb48.Visible = False : ComboBox47.Visible = False : ComboBox48.Visible = False : End If
    End Sub
    Private Sub 班別25_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb25.SelectedIndexChanged
        If 班別_cb25.Text <> "休" Then : 休息變化25() : A_pb49.Visible = True : A_pb50.Visible = True : ComboBox49.Visible = True : ComboBox50.Visible = True
        Else : A_pb49.Visible = False : A_pb50.Visible = False : ComboBox49.Visible = False : ComboBox50.Visible = False : End If
    End Sub
    Private Sub 班別26_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb26.SelectedIndexChanged
        If 班別_cb26.Text <> "休" Then : 休息變化26() : A_pb51.Visible = True : A_pb52.Visible = True : ComboBox51.Visible = True : ComboBox52.Visible = True
        Else : A_pb51.Visible = False : A_pb52.Visible = False : ComboBox51.Visible = False : ComboBox52.Visible = False : End If
    End Sub
    Private Sub 班別27_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb27.SelectedIndexChanged
        If 班別_cb27.Text <> "休" Then : 休息變化27() : A_pb53.Visible = True : A_pb54.Visible = True : ComboBox53.Visible = True : ComboBox54.Visible = True
        Else : A_pb53.Visible = False : A_pb54.Visible = False : ComboBox53.Visible = False : ComboBox54.Visible = False : End If
    End Sub
    Private Sub 班別28_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb28.SelectedIndexChanged
        If 班別_cb28.Text <> "休" Then : 休息變化28() : A_pb55.Visible = True : A_pb56.Visible = True : ComboBox55.Visible = True : ComboBox56.Visible = True
        Else : A_pb55.Visible = False : A_pb56.Visible = False : ComboBox55.Visible = False : ComboBox56.Visible = False : End If
    End Sub
    Private Sub 班別29_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb29.SelectedIndexChanged
        If 班別_cb29.Text <> "休" Then : 休息變化29() : A_pb57.Visible = True : A_pb58.Visible = True : ComboBox57.Visible = True : ComboBox58.Visible = True
        Else : A_pb57.Visible = False : A_pb58.Visible = False : ComboBox57.Visible = False : ComboBox58.Visible = False : End If
    End Sub
    Private Sub 班別30_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb30.SelectedIndexChanged
        If 班別_cb30.Text <> "休" Then : 休息變化30() : A_pb59.Visible = True : A_pb60.Visible = True : ComboBox59.Visible = True : ComboBox60.Visible = True
        Else : A_pb59.Visible = False : A_pb60.Visible = False : ComboBox59.Visible = False : ComboBox60.Visible = False : End If
    End Sub
    Private Sub 班別31_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 班別_cb31.SelectedIndexChanged
        If 班別_cb31.Text <> "休" Then : 休息變化31() : A_pb61.Visible = True : A_pb62.Visible = True : ComboBox61.Visible = True : ComboBox62.Visible = True
        Else : A_pb61.Visible = False : A_pb62.Visible = False : ComboBox61.Visible = False : ComboBox62.Visible = False : End If
    End Sub
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If 班別_cb1.Text <> "休" Then
            休息變化1() : End If
    End Sub
    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
        If 班別_cb2.Text <> "休" Then
            休息變化2() : End If
    End Sub
    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
        If 班別_cb3.Text <> "休" Then
            休息變化3() : End If
    End Sub
    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.CheckedChanged
        If 班別_cb4.Text <> "休" Then
            休息變化4() : End If
    End Sub
    Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox5.CheckedChanged
        If 班別_cb5.Text <> "休" Then
            休息變化5() : End If
    End Sub
    Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox6.CheckedChanged
        If 班別_cb6.Text <> "休" Then
            休息變化6() : End If
    End Sub
    Private Sub CheckBox7_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox7.CheckedChanged
        If 班別_cb7.Text <> "休" Then
            休息變化7() : End If
    End Sub
    Private Sub CheckBox8_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox8.CheckedChanged
        If 班別_cb8.Text <> "休" Then
            休息變化8() : End If
    End Sub
    Private Sub CheckBox9_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox9.CheckedChanged
        If 班別_cb9.Text <> "休" Then
            休息變化9() : End If
    End Sub
    Private Sub CheckBox10_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox10.CheckedChanged
        If 班別_cb10.Text <> "休" Then
            休息變化10() : End If
    End Sub
    Private Sub CheckBox11_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox11.CheckedChanged
        If 班別_cb11.Text <> "休" Then
            休息變化11() : End If
    End Sub
    Private Sub CheckBox12_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox12.CheckedChanged
        If 班別_cb12.Text <> "休" Then
            休息變化12() : End If
    End Sub
    Private Sub CheckBox13_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox13.CheckedChanged
        If 班別_cb13.Text <> "休" Then
            休息變化13() : End If
    End Sub
    Private Sub CheckBox14_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox14.CheckedChanged
        If 班別_cb14.Text <> "休" Then
            休息變化14() : End If
    End Sub
    Private Sub CheckBox15_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox15.CheckedChanged
        If 班別_cb15.Text <> "休" Then
            休息變化15() : End If
    End Sub
    Private Sub CheckBox16_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox16.CheckedChanged
        If 班別_cb16.Text <> "休" Then
            休息變化16() : End If
    End Sub
    Private Sub CheckBox17_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox17.CheckedChanged
        If 班別_cb17.Text <> "休" Then
            休息變化17() : End If
    End Sub
    Private Sub CheckBox18_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox18.CheckedChanged
        If 班別_cb18.Text <> "休" Then
            休息變化18() : End If
    End Sub
    Private Sub CheckBox19_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox19.CheckedChanged
        If 班別_cb19.Text <> "休" Then
            休息變化19() : End If
    End Sub
    Private Sub CheckBox20_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox20.CheckedChanged
        If 班別_cb20.Text <> "休" Then
            休息變化20() : End If
    End Sub
    Private Sub CheckBox21_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox21.CheckedChanged
        If 班別_cb21.Text <> "休" Then
            休息變化21() : End If
    End Sub
    Private Sub CheckBox22_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox22.CheckedChanged
        If 班別_cb22.Text <> "休" Then
            休息變化22() : End If
    End Sub
    Private Sub CheckBox23_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox23.CheckedChanged
        If 班別_cb23.Text <> "休" Then
            休息變化23() : End If
    End Sub
    Private Sub CheckBox24_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox24.CheckedChanged
        If 班別_cb24.Text <> "休" Then
            休息變化24() : End If
    End Sub
    Private Sub CheckBox25_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox25.CheckedChanged
        If 班別_cb25.Text <> "休" Then
            休息變化25() : End If
    End Sub
    Private Sub CheckBox26_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox26.CheckedChanged
        If 班別_cb26.Text <> "休" Then
            休息變化26() : End If
    End Sub
    Private Sub CheckBox27_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox27.CheckedChanged
        If 班別_cb27.Text <> "休" Then
            休息變化27() : End If
    End Sub
    Private Sub CheckBox28_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox28.CheckedChanged
        If 班別_cb28.Text <> "休" Then
            休息變化28() : End If
    End Sub
    Private Sub CheckBox29_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox29.CheckedChanged
        If 班別_cb29.Text <> "休" Then
            休息變化29() : End If
    End Sub
    Private Sub CheckBox30_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox30.CheckedChanged
        If 班別_cb30.Text <> "休" Then
            休息變化30() : End If
    End Sub
    Private Sub CheckBox31_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox31.CheckedChanged
        If 班別_cb31.Text <> "休" Then
            休息變化31() : End If
    End Sub
    Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown1.ValueChanged
        If 班別_cb1.Text <> "休" Then
            休息變化1() : End If
    End Sub
    Private Sub NumericUpDown2_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown2.ValueChanged
        If 班別_cb2.Text <> "休" Then
            休息變化2() : End If
    End Sub
    Private Sub NumericUpDown3_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown3.ValueChanged
        If 班別_cb3.Text <> "休" Then
            休息變化3() : End If
    End Sub
    Private Sub NumericUpDown4_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown4.ValueChanged
        If 班別_cb4.Text <> "休" Then
            休息變化4() : End If
    End Sub
    Private Sub NumericUpDown5_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown5.ValueChanged
        If 班別_cb5.Text <> "休" Then
            休息變化5() : End If
    End Sub
    Private Sub NumericUpDown6_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown6.ValueChanged
        If 班別_cb6.Text <> "休" Then
            休息變化6() : End If
    End Sub
    Private Sub NumericUpDown7_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown7.ValueChanged
        If 班別_cb7.Text <> "休" Then
            休息變化7() : End If
    End Sub
    Private Sub NumericUpDown8_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown8.ValueChanged
        If 班別_cb8.Text <> "休" Then
            休息變化8() : End If
    End Sub
    Private Sub NumericUpDown9_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown9.ValueChanged
        If 班別_cb9.Text <> "休" Then
            休息變化9() : End If
    End Sub
    Private Sub NumericUpDown10_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown10.ValueChanged
        If 班別_cb10.Text <> "休" Then
            休息變化10() : End If
    End Sub
    Private Sub NumericUpDown11_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown11.ValueChanged
        If 班別_cb11.Text <> "休" Then
            休息變化11() : End If
    End Sub
    Private Sub NumericUpDown12_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown12.ValueChanged
        If 班別_cb12.Text <> "休" Then
            休息變化12() : End If
    End Sub
    Private Sub NumericUpDown13_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown13.ValueChanged
        If 班別_cb13.Text <> "休" Then
            休息變化13() : End If
    End Sub
    Private Sub NumericUpDown14_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown14.ValueChanged
        If 班別_cb14.Text <> "休" Then
            休息變化14() : End If
    End Sub
    Private Sub NumericUpDown15_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown15.ValueChanged
        If 班別_cb15.Text <> "休" Then
            休息變化15() : End If
    End Sub
    Private Sub NumericUpDown16_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown16.ValueChanged
        If 班別_cb16.Text <> "休" Then
            休息變化16() : End If
    End Sub
    Private Sub NumericUpDown17_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown17.ValueChanged
        If 班別_cb17.Text <> "休" Then
            休息變化17() : End If
    End Sub
    Private Sub NumericUpDown18_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown18.ValueChanged
        If 班別_cb18.Text <> "休" Then
            休息變化18() : End If
    End Sub
    Private Sub NumericUpDown19_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown19.ValueChanged
        If 班別_cb19.Text <> "休" Then
            休息變化19() : End If
    End Sub
    Private Sub NumericUpDown20_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown20.ValueChanged
        If 班別_cb20.Text <> "休" Then
            休息變化20() : End If
    End Sub
    Private Sub NumericUpDown21_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown21.ValueChanged
        If 班別_cb21.Text <> "休" Then
            休息變化21() : End If
    End Sub
    Private Sub NumericUpDown22_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown22.ValueChanged
        If 班別_cb22.Text <> "休" Then
            休息變化22() : End If
    End Sub
    Private Sub NumericUpDown23_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown23.ValueChanged
        If 班別_cb23.Text <> "休" Then
            休息變化23() : End If
    End Sub
    Private Sub NumericUpDown24_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown24.ValueChanged
        If 班別_cb24.Text <> "休" Then
            休息變化24() : End If
    End Sub
    Private Sub NumericUpDown25_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown25.ValueChanged
        If 班別_cb25.Text <> "休" Then
            休息變化25() : End If
    End Sub
    Private Sub NumericUpDown26_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown26.ValueChanged
        If 班別_cb26.Text <> "休" Then
            休息變化26() : End If
    End Sub
    Private Sub NumericUpDown27_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown27.ValueChanged
        If 班別_cb27.Text <> "休" Then
            休息變化27() : End If
    End Sub
    Private Sub NumericUpDown28_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown28.ValueChanged
        If 班別_cb28.Text <> "休" Then
            休息變化28() : End If
    End Sub
    Private Sub NumericUpDown29_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown29.ValueChanged
        If 班別_cb29.Text <> "休" Then
            休息變化29() : End If
    End Sub
    Private Sub NumericUpDown30_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown30.ValueChanged
        If 班別_cb30.Text <> "休" Then
            休息變化30() : End If
    End Sub
    Private Sub NumericUpDown31_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown31.ValueChanged
        If 班別_cb31.Text <> "休" Then
            休息變化31() : End If
    End Sub
    Private Sub NUP1_ValueChanged(sender As Object, e As EventArgs) Handles NUP1.ValueChanged
        If 班別_cb1.Text <> "休" Then : 休息變化1() : A_pb1.Visible = True : A_pb2.Visible = True : ComboBox1.Visible = True : ComboBox2.Visible = True
        Else : A_pb1.Visible = False : A_pb2.Visible = False : ComboBox1.Visible = False : ComboBox2.Visible = False : End If
    End Sub
    Private Sub NUP2_ValueChanged(sender As Object, e As EventArgs) Handles NUP2.ValueChanged
        If 班別_cb2.Text <> "休" Then : 休息變化2() : A_pb3.Visible = True : A_pb4.Visible = True : ComboBox3.Visible = True : ComboBox4.Visible = True
        Else : A_pb3.Visible = False : A_pb4.Visible = False : ComboBox3.Visible = False : ComboBox4.Visible = False : End If
    End Sub
    Private Sub NUP3_ValueChanged(sender As Object, e As EventArgs) Handles NUP3.ValueChanged
        If 班別_cb3.Text <> "休" Then : 休息變化3() : A_pb5.Visible = True : A_pb6.Visible = True : ComboBox5.Visible = True : ComboBox6.Visible = True
        Else : A_pb5.Visible = False : A_pb6.Visible = False : ComboBox5.Visible = False : ComboBox6.Visible = False : End If
    End Sub
    Private Sub NUP4_ValueChanged(sender As Object, e As EventArgs) Handles NUP4.ValueChanged
        If 班別_cb4.Text <> "休" Then : 休息變化4() : A_pb7.Visible = True : A_pb8.Visible = True : ComboBox7.Visible = True : ComboBox8.Visible = True
        Else : A_pb7.Visible = False : A_pb8.Visible = False : ComboBox7.Visible = False : ComboBox8.Visible = False : End If
    End Sub
    Private Sub NUP5_ValueChanged(sender As Object, e As EventArgs) Handles NUP5.ValueChanged
        If 班別_cb5.Text <> "休" Then : 休息變化5() : A_pb9.Visible = True : A_pb10.Visible = True : ComboBox9.Visible = True : ComboBox10.Visible = True
        Else : A_pb9.Visible = False : A_pb10.Visible = False : ComboBox9.Visible = False : ComboBox10.Visible = False : End If
    End Sub
    Private Sub NUP6_ValueChanged(sender As Object, e As EventArgs) Handles NUP6.ValueChanged
        If 班別_cb6.Text <> "休" Then : 休息變化6() : A_pb11.Visible = True : A_pb12.Visible = True : ComboBox11.Visible = True : ComboBox12.Visible = True
        Else : A_pb11.Visible = False : A_pb12.Visible = False : ComboBox11.Visible = False : ComboBox12.Visible = False : End If
    End Sub
    Private Sub NUP7_ValueChanged(sender As Object, e As EventArgs) Handles NUP7.ValueChanged
        If 班別_cb7.Text <> "休" Then : 休息變化7() : A_pb13.Visible = True : A_pb14.Visible = True : ComboBox13.Visible = True : ComboBox14.Visible = True
        Else : A_pb13.Visible = False : A_pb14.Visible = False : ComboBox13.Visible = False : ComboBox14.Visible = False : End If
    End Sub
    Private Sub NUP8_ValueChanged(sender As Object, e As EventArgs) Handles NUP8.ValueChanged
        If 班別_cb8.Text <> "休" Then : 休息變化8() : A_pb15.Visible = True : A_pb16.Visible = True : ComboBox15.Visible = True : ComboBox16.Visible = True
        Else : A_pb15.Visible = False : A_pb16.Visible = False : ComboBox15.Visible = False : ComboBox16.Visible = False : End If
    End Sub
    Private Sub NUP9_ValueChanged(sender As Object, e As EventArgs) Handles NUP9.ValueChanged
        If 班別_cb9.Text <> "休" Then : 休息變化9() : A_pb17.Visible = True : A_pb18.Visible = True : ComboBox17.Visible = True : ComboBox18.Visible = True
        Else : A_pb17.Visible = False : A_pb18.Visible = False : ComboBox17.Visible = False : ComboBox18.Visible = False : End If
    End Sub
    Private Sub NUP10_ValueChanged(sender As Object, e As EventArgs) Handles NUP10.ValueChanged
        If 班別_cb10.Text <> "休" Then : 休息變化10() : A_pb19.Visible = True : A_pb20.Visible = True : ComboBox19.Visible = True : ComboBox20.Visible = True
        Else : A_pb19.Visible = False : A_pb20.Visible = False : ComboBox19.Visible = False : ComboBox20.Visible = False : End If
    End Sub
    Private Sub NUP11_ValueChanged(sender As Object, e As EventArgs) Handles NUP11.ValueChanged
        If 班別_cb11.Text <> "休" Then : 休息變化11() : A_pb21.Visible = True : A_pb22.Visible = True : ComboBox21.Visible = True : ComboBox22.Visible = True
        Else : A_pb21.Visible = False : A_pb22.Visible = False : ComboBox21.Visible = False : ComboBox22.Visible = False : End If
    End Sub
    Private Sub NUP12_ValueChanged(sender As Object, e As EventArgs) Handles NUP12.ValueChanged
        If 班別_cb12.Text <> "休" Then : 休息變化12() : A_pb23.Visible = True : A_pb24.Visible = True : ComboBox23.Visible = True : ComboBox24.Visible = True
        Else : A_pb23.Visible = False : A_pb24.Visible = False : ComboBox23.Visible = False : ComboBox24.Visible = False : End If
    End Sub
    Private Sub NUP13_ValueChanged(sender As Object, e As EventArgs) Handles NUP13.ValueChanged
        If 班別_cb13.Text <> "休" Then : 休息變化13() : A_pb25.Visible = True : A_pb26.Visible = True : ComboBox25.Visible = True : ComboBox26.Visible = True
        Else : A_pb25.Visible = False : A_pb26.Visible = False : ComboBox25.Visible = False : ComboBox26.Visible = False : End If
    End Sub
    Private Sub NUP14_ValueChanged(sender As Object, e As EventArgs) Handles NUP14.ValueChanged
        If 班別_cb14.Text <> "休" Then : 休息變化14() : A_pb27.Visible = True : A_pb28.Visible = True : ComboBox27.Visible = True : ComboBox28.Visible = True
        Else : A_pb27.Visible = False : A_pb28.Visible = False : ComboBox27.Visible = False : ComboBox28.Visible = False : End If
    End Sub
    Private Sub NUP15_ValueChanged(sender As Object, e As EventArgs) Handles NUP15.ValueChanged
        If 班別_cb15.Text <> "休" Then : 休息變化15() : A_pb29.Visible = True : A_pb30.Visible = True : ComboBox29.Visible = True : ComboBox30.Visible = True
        Else : A_pb29.Visible = False : A_pb30.Visible = False : ComboBox29.Visible = False : ComboBox30.Visible = False : End If
    End Sub
    Private Sub NUP16_ValueChanged(sender As Object, e As EventArgs) Handles NUP16.ValueChanged
        If 班別_cb16.Text <> "休" Then : 休息變化16() : A_pb31.Visible = True : A_pb32.Visible = True : ComboBox31.Visible = True : ComboBox32.Visible = True
        Else : A_pb31.Visible = False : A_pb32.Visible = False : ComboBox31.Visible = False : ComboBox32.Visible = False : End If
    End Sub
    Private Sub NUP17_ValueChanged(sender As Object, e As EventArgs) Handles NUP17.ValueChanged
        If 班別_cb17.Text <> "休" Then : 休息變化17() : A_pb33.Visible = True : A_pb34.Visible = True : ComboBox33.Visible = True : ComboBox34.Visible = True
        Else : A_pb33.Visible = False : A_pb34.Visible = False : ComboBox33.Visible = False : ComboBox34.Visible = False : End If
    End Sub
    Private Sub NUP18_ValueChanged(sender As Object, e As EventArgs) Handles NUP18.ValueChanged
        If 班別_cb18.Text <> "休" Then : 休息變化18() : A_pb35.Visible = True : A_pb36.Visible = True : ComboBox35.Visible = True : ComboBox36.Visible = True
        Else : A_pb35.Visible = False : A_pb36.Visible = False : ComboBox35.Visible = False : ComboBox36.Visible = False : End If
    End Sub
    Private Sub NUP19_ValueChanged(sender As Object, e As EventArgs) Handles NUP19.ValueChanged
        If 班別_cb19.Text <> "休" Then : 休息變化19() : A_pb37.Visible = True : A_pb38.Visible = True : ComboBox37.Visible = True : ComboBox38.Visible = True
        Else : A_pb37.Visible = False : A_pb38.Visible = False : ComboBox37.Visible = False : ComboBox38.Visible = False : End If
    End Sub
    Private Sub NUP20_ValueChanged(sender As Object, e As EventArgs) Handles NUP20.ValueChanged
        If 班別_cb20.Text <> "休" Then : 休息變化20() : A_pb39.Visible = True : A_pb40.Visible = True : ComboBox39.Visible = True : ComboBox40.Visible = True
        Else : A_pb39.Visible = False : A_pb40.Visible = False : ComboBox39.Visible = False : ComboBox40.Visible = False : End If
    End Sub
    Private Sub NUP21_ValueChanged(sender As Object, e As EventArgs) Handles NUP21.ValueChanged
        If 班別_cb21.Text <> "休" Then : 休息變化21() : A_pb41.Visible = True : A_pb42.Visible = True : ComboBox41.Visible = True : ComboBox42.Visible = True
        Else : A_pb41.Visible = False : A_pb42.Visible = False : ComboBox41.Visible = False : ComboBox42.Visible = False : End If
    End Sub
    Private Sub NUP22_ValueChanged(sender As Object, e As EventArgs) Handles NUP22.ValueChanged
        If 班別_cb22.Text <> "休" Then : 休息變化22() : A_pb43.Visible = True : A_pb44.Visible = True : ComboBox43.Visible = True : ComboBox44.Visible = True
        Else : A_pb43.Visible = False : A_pb44.Visible = False : ComboBox43.Visible = False : ComboBox44.Visible = False : End If
    End Sub
    Private Sub NUP23_ValueChanged(sender As Object, e As EventArgs) Handles NUP23.ValueChanged
        If 班別_cb23.Text <> "休" Then : 休息變化23() : A_pb45.Visible = True : A_pb46.Visible = True : ComboBox45.Visible = True : ComboBox46.Visible = True
        Else : A_pb45.Visible = False : A_pb46.Visible = False : ComboBox45.Visible = False : ComboBox46.Visible = False : End If
    End Sub
    Private Sub NUP24_ValueChanged(sender As Object, e As EventArgs) Handles NUP24.ValueChanged
        If 班別_cb24.Text <> "休" Then : 休息變化24() : A_pb47.Visible = True : A_pb48.Visible = True : ComboBox47.Visible = True : ComboBox48.Visible = True
        Else : A_pb47.Visible = False : A_pb48.Visible = False : ComboBox47.Visible = False : ComboBox48.Visible = False : End If
    End Sub
    Private Sub NUP25_ValueChanged(sender As Object, e As EventArgs) Handles NUP25.ValueChanged
        If 班別_cb25.Text <> "休" Then : 休息變化25() : A_pb49.Visible = True : A_pb50.Visible = True : ComboBox49.Visible = True : ComboBox50.Visible = True
        Else : A_pb49.Visible = False : A_pb50.Visible = False : ComboBox49.Visible = False : ComboBox50.Visible = False : End If
    End Sub
    Private Sub NUP26_ValueChanged(sender As Object, e As EventArgs) Handles NUP26.ValueChanged
        If 班別_cb26.Text <> "休" Then : 休息變化26() : A_pb51.Visible = True : A_pb52.Visible = True : ComboBox51.Visible = True : ComboBox52.Visible = True
        Else : A_pb51.Visible = False : A_pb52.Visible = False : ComboBox51.Visible = False : ComboBox52.Visible = False : End If
    End Sub
    Private Sub NUP27_ValueChanged(sender As Object, e As EventArgs) Handles NUP27.ValueChanged
        If 班別_cb27.Text <> "休" Then : 休息變化27() : A_pb53.Visible = True : A_pb54.Visible = True : ComboBox53.Visible = True : ComboBox54.Visible = True
        Else : A_pb53.Visible = False : A_pb54.Visible = False : ComboBox53.Visible = False : ComboBox54.Visible = False : End If
    End Sub
    Private Sub NUP28_ValueChanged(sender As Object, e As EventArgs) Handles NUP28.ValueChanged
        If 班別_cb28.Text <> "休" Then : 休息變化28() : A_pb55.Visible = True : A_pb56.Visible = True : ComboBox55.Visible = True : ComboBox56.Visible = True
        Else : A_pb55.Visible = False : A_pb56.Visible = False : ComboBox55.Visible = False : ComboBox56.Visible = False : End If
    End Sub
    Private Sub NUP29_ValueChanged(sender As Object, e As EventArgs) Handles NUP29.ValueChanged
        If 班別_cb29.Text <> "休" Then : 休息變化29() : A_pb57.Visible = True : A_pb58.Visible = True : ComboBox57.Visible = True : ComboBox58.Visible = True
        Else : A_pb57.Visible = False : A_pb58.Visible = False : ComboBox57.Visible = False : ComboBox58.Visible = False : End If
    End Sub
    Private Sub NUP30_ValueChanged(sender As Object, e As EventArgs) Handles NUP30.ValueChanged
        If 班別_cb30.Text <> "休" Then : 休息變化30() : A_pb59.Visible = True : A_pb60.Visible = True : ComboBox59.Visible = True : ComboBox60.Visible = True
        Else : A_pb59.Visible = False : A_pb60.Visible = False : ComboBox59.Visible = False : ComboBox60.Visible = False : End If
    End Sub
    Private Sub NUP31_ValueChanged(sender As Object, e As EventArgs) Handles NUP31.ValueChanged
        If 班別_cb31.Text <> "休" Then : 休息變化31() : A_pb61.Visible = True : A_pb62.Visible = True : ComboBox61.Visible = True : ComboBox62.Visible = True
        Else : A_pb61.Visible = False : A_pb62.Visible = False : ComboBox61.Visible = False : ComboBox62.Visible = False : End If
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.TextChanged
        If ComboBox1.Text = "" Then : ComboBox1.DropDownStyle = 1 : Else : ComboBox1.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.TextChanged
        If ComboBox2.Text = "" Then : ComboBox2.DropDownStyle = 1 : Else : ComboBox2.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.TextChanged
        If ComboBox3.Text = "" Then : ComboBox3.DropDownStyle = 1 : Else : ComboBox3.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.TextChanged
        If ComboBox4.Text = "" Then : ComboBox4.DropDownStyle = 1 : Else : ComboBox4.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.TextChanged
        If ComboBox5.Text = "" Then : ComboBox5.DropDownStyle = 1 : Else : ComboBox5.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox6.TextChanged
        If ComboBox6.Text = "" Then : ComboBox6.DropDownStyle = 1 : Else : ComboBox6.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox7_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox7.TextChanged
        If ComboBox7.Text = "" Then : ComboBox7.DropDownStyle = 1 : Else : ComboBox7.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox8_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox8.TextChanged
        If ComboBox8.Text = "" Then : ComboBox8.DropDownStyle = 1 : Else : ComboBox8.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox9_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox9.TextChanged
        If ComboBox9.Text = "" Then : ComboBox9.DropDownStyle = 1 : Else : ComboBox9.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox10_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox10.TextChanged
        If ComboBox10.Text = "" Then : ComboBox10.DropDownStyle = 1 : Else : ComboBox10.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox11_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox11.TextChanged
        If ComboBox11.Text = "" Then : ComboBox11.DropDownStyle = 1 : Else : ComboBox11.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox12_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox12.TextChanged
        If ComboBox12.Text = "" Then : ComboBox12.DropDownStyle = 1 : Else : ComboBox12.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox13_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox13.TextChanged
        If ComboBox13.Text = "" Then : ComboBox13.DropDownStyle = 1 : Else : ComboBox13.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox14_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox14.TextChanged
        If ComboBox14.Text = "" Then : ComboBox14.DropDownStyle = 1 : Else : ComboBox14.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox15_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox15.TextChanged
        If ComboBox15.Text = "" Then : ComboBox15.DropDownStyle = 1 : Else : ComboBox15.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox16_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox16.TextChanged
        If ComboBox16.Text = "" Then : ComboBox16.DropDownStyle = 1 : Else : ComboBox16.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox17_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox17.TextChanged
        If ComboBox17.Text = "" Then : ComboBox17.DropDownStyle = 1 : Else : ComboBox17.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox18_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox18.TextChanged
        If ComboBox18.Text = "" Then : ComboBox18.DropDownStyle = 1 : Else : ComboBox18.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox19_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox19.TextChanged
        If ComboBox19.Text = "" Then : ComboBox19.DropDownStyle = 1 : Else : ComboBox19.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox20_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox20.TextChanged
        If ComboBox20.Text = "" Then : ComboBox20.DropDownStyle = 1 : Else : ComboBox20.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox21_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox21.TextChanged
        If ComboBox21.Text = "" Then : ComboBox21.DropDownStyle = 1 : Else : ComboBox21.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox22_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox22.TextChanged
        If ComboBox22.Text = "" Then : ComboBox22.DropDownStyle = 1 : Else : ComboBox22.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox23_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox23.TextChanged
        If ComboBox23.Text = "" Then : ComboBox23.DropDownStyle = 1 : Else : ComboBox23.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox24_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox24.TextChanged
        If ComboBox24.Text = "" Then : ComboBox24.DropDownStyle = 1 : Else : ComboBox24.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox25_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox25.TextChanged
        If ComboBox25.Text = "" Then : ComboBox25.DropDownStyle = 1 : Else : ComboBox25.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox26_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox26.TextChanged
        If ComboBox26.Text = "" Then : ComboBox26.DropDownStyle = 1 : Else : ComboBox26.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox27_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox27.TextChanged
        If ComboBox27.Text = "" Then : ComboBox27.DropDownStyle = 1 : Else : ComboBox27.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox28_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox28.TextChanged
        If ComboBox28.Text = "" Then : ComboBox28.DropDownStyle = 1 : Else : ComboBox28.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox29_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox29.TextChanged
        If ComboBox29.Text = "" Then : ComboBox29.DropDownStyle = 1 : Else : ComboBox29.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox30_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox30.TextChanged
        If ComboBox30.Text = "" Then : ComboBox30.DropDownStyle = 1 : Else : ComboBox30.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox31_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox31.TextChanged
        If ComboBox31.Text = "" Then : ComboBox31.DropDownStyle = 1 : Else : ComboBox31.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox32_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox32.TextChanged
        If ComboBox32.Text = "" Then : ComboBox32.DropDownStyle = 1 : Else : ComboBox32.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox33_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox33.TextChanged
        If ComboBox33.Text = "" Then : ComboBox33.DropDownStyle = 1 : Else : ComboBox33.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox34_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox34.TextChanged
        If ComboBox34.Text = "" Then : ComboBox34.DropDownStyle = 1 : Else : ComboBox34.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox35_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox35.TextChanged
        If ComboBox35.Text = "" Then : ComboBox35.DropDownStyle = 1 : Else : ComboBox35.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox36_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox36.TextChanged
        If ComboBox36.Text = "" Then : ComboBox36.DropDownStyle = 1 : Else : ComboBox36.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox37_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox37.TextChanged
        If ComboBox37.Text = "" Then : ComboBox37.DropDownStyle = 1 : Else : ComboBox37.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox38_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox38.TextChanged
        If ComboBox38.Text = "" Then : ComboBox38.DropDownStyle = 1 : Else : ComboBox38.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox39_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox39.TextChanged
        If ComboBox39.Text = "" Then : ComboBox39.DropDownStyle = 1 : Else : ComboBox39.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox40_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox40.TextChanged
        If ComboBox40.Text = "" Then : ComboBox40.DropDownStyle = 1 : Else : ComboBox40.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox41_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox41.TextChanged
        If ComboBox41.Text = "" Then : ComboBox41.DropDownStyle = 1 : Else : ComboBox41.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox42_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox42.TextChanged
        If ComboBox42.Text = "" Then : ComboBox42.DropDownStyle = 1 : Else : ComboBox42.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox43_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox43.TextChanged
        If ComboBox43.Text = "" Then : ComboBox43.DropDownStyle = 1 : Else : ComboBox43.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox44_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox44.TextChanged
        If ComboBox44.Text = "" Then : ComboBox44.DropDownStyle = 1 : Else : ComboBox44.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox45_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox45.TextChanged
        If ComboBox45.Text = "" Then : ComboBox45.DropDownStyle = 1 : Else : ComboBox45.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox46_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox46.TextChanged
        If ComboBox46.Text = "" Then : ComboBox46.DropDownStyle = 1 : Else : ComboBox46.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox47_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox47.TextChanged
        If ComboBox47.Text = "" Then : ComboBox47.DropDownStyle = 1 : Else : ComboBox47.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox48_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox48.TextChanged
        If ComboBox48.Text = "" Then : ComboBox48.DropDownStyle = 1 : Else : ComboBox48.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox49_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox49.TextChanged
        If ComboBox49.Text = "" Then : ComboBox49.DropDownStyle = 1 : Else : ComboBox49.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox50_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox50.TextChanged
        If ComboBox50.Text = "" Then : ComboBox50.DropDownStyle = 1 : Else : ComboBox50.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox51_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox51.TextChanged
        If ComboBox51.Text = "" Then : ComboBox51.DropDownStyle = 1 : Else : ComboBox51.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox52_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox52.TextChanged
        If ComboBox52.Text = "" Then : ComboBox52.DropDownStyle = 1 : Else : ComboBox52.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox53_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox53.TextChanged
        If ComboBox53.Text = "" Then : ComboBox53.DropDownStyle = 1 : Else : ComboBox53.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox54_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox54.TextChanged
        If ComboBox54.Text = "" Then : ComboBox54.DropDownStyle = 1 : Else : ComboBox54.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox55_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox55.TextChanged
        If ComboBox55.Text = "" Then : ComboBox55.DropDownStyle = 1 : Else : ComboBox55.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox56_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox56.TextChanged
        If ComboBox56.Text = "" Then : ComboBox56.DropDownStyle = 1 : Else : ComboBox56.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox57_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox57.TextChanged
        If ComboBox57.Text = "" Then : ComboBox57.DropDownStyle = 1 : Else : ComboBox57.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox58_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox58.TextChanged
        If ComboBox58.Text = "" Then : ComboBox58.DropDownStyle = 1 : Else : ComboBox58.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox59_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox59.TextChanged
        If ComboBox59.Text = "" Then : ComboBox59.DropDownStyle = 1 : Else : ComboBox59.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox60_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox60.TextChanged
        If ComboBox60.Text = "" Then : ComboBox60.DropDownStyle = 1 : Else : ComboBox60.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox61_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox61.TextChanged
        If ComboBox61.Text = "" Then : ComboBox61.DropDownStyle = 1 : Else : ComboBox61.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox62_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox62.TextChanged
        If ComboBox62.Text = "" Then : ComboBox62.DropDownStyle = 1 : Else : ComboBox62.DropDownStyle = 0 : End If
    End Sub
    Private Sub ComboBox63_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox63.SelectedIndexChanged
        If ComboBox63.Text = 1 Then : ComboBox1.BackColor = Color.LawnGreen
        ElseIf ComboBox63.Text = 2 Then : ComboBox1.BackColor = Color.LightBlue
        ElseIf ComboBox63.Text = 3 Then : ComboBox1.BackColor = Color.LightCoral
        ElseIf ComboBox63.Text = 4 Then : ComboBox1.BackColor = Color.LightCyan
        ElseIf ComboBox63.Text = 5 Then : ComboBox1.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox63.Text = 6 Then : ComboBox1.BackColor = Color.LightGray
        ElseIf ComboBox63.Text = 7 Then : ComboBox1.BackColor = Color.LightGreen
        ElseIf ComboBox63.Text = 8 Then : ComboBox1.BackColor = Color.LightPink
        ElseIf ComboBox63.Text = 9 Then : ComboBox1.BackColor = Color.LightSalmon
        ElseIf ComboBox63.Text = 0 Then : ComboBox1.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox64_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox64.SelectedIndexChanged
        If ComboBox64.Text = 1 Then : ComboBox2.BackColor = Color.LawnGreen
        ElseIf ComboBox64.Text = 2 Then : ComboBox2.BackColor = Color.LightBlue
        ElseIf ComboBox64.Text = 3 Then : ComboBox2.BackColor = Color.LightCoral
        ElseIf ComboBox64.Text = 4 Then : ComboBox2.BackColor = Color.LightCyan
        ElseIf ComboBox64.Text = 5 Then : ComboBox2.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox64.Text = 6 Then : ComboBox2.BackColor = Color.LightGray
        ElseIf ComboBox64.Text = 7 Then : ComboBox2.BackColor = Color.LightGreen
        ElseIf ComboBox64.Text = 8 Then : ComboBox2.BackColor = Color.LightPink
        ElseIf ComboBox64.Text = 9 Then : ComboBox2.BackColor = Color.LightSalmon
        ElseIf ComboBox64.Text = 0 Then : ComboBox2.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox65_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox65.SelectedIndexChanged
        If ComboBox65.Text = 1 Then : ComboBox3.BackColor = Color.LawnGreen
        ElseIf ComboBox65.Text = 2 Then : ComboBox3.BackColor = Color.LightBlue
        ElseIf ComboBox65.Text = 3 Then : ComboBox3.BackColor = Color.LightCoral
        ElseIf ComboBox65.Text = 4 Then : ComboBox3.BackColor = Color.LightCyan
        ElseIf ComboBox65.Text = 5 Then : ComboBox3.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox65.Text = 6 Then : ComboBox3.BackColor = Color.LightGray
        ElseIf ComboBox65.Text = 7 Then : ComboBox3.BackColor = Color.LightGreen
        ElseIf ComboBox65.Text = 8 Then : ComboBox3.BackColor = Color.LightPink
        ElseIf ComboBox65.Text = 9 Then : ComboBox3.BackColor = Color.LightSalmon
        ElseIf ComboBox65.Text = 0 Then : ComboBox3.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox66_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox66.SelectedIndexChanged
        If ComboBox66.Text = 1 Then : ComboBox4.BackColor = Color.LawnGreen
        ElseIf ComboBox66.Text = 2 Then : ComboBox4.BackColor = Color.LightBlue
        ElseIf ComboBox66.Text = 3 Then : ComboBox4.BackColor = Color.LightCoral
        ElseIf ComboBox66.Text = 4 Then : ComboBox4.BackColor = Color.LightCyan
        ElseIf ComboBox66.Text = 5 Then : ComboBox4.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox66.Text = 6 Then : ComboBox4.BackColor = Color.LightGray
        ElseIf ComboBox66.Text = 7 Then : ComboBox4.BackColor = Color.LightGreen
        ElseIf ComboBox66.Text = 8 Then : ComboBox4.BackColor = Color.LightPink
        ElseIf ComboBox66.Text = 9 Then : ComboBox4.BackColor = Color.LightSalmon
        ElseIf ComboBox66.Text = 0 Then : ComboBox4.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox67_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox67.SelectedIndexChanged
        If ComboBox67.Text = 1 Then : ComboBox5.BackColor = Color.LawnGreen
        ElseIf ComboBox67.Text = 2 Then : ComboBox5.BackColor = Color.LightBlue
        ElseIf ComboBox67.Text = 3 Then : ComboBox5.BackColor = Color.LightCoral
        ElseIf ComboBox67.Text = 4 Then : ComboBox5.BackColor = Color.LightCyan
        ElseIf ComboBox67.Text = 5 Then : ComboBox5.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox67.Text = 6 Then : ComboBox5.BackColor = Color.LightGray
        ElseIf ComboBox67.Text = 7 Then : ComboBox5.BackColor = Color.LightGreen
        ElseIf ComboBox67.Text = 8 Then : ComboBox5.BackColor = Color.LightPink
        ElseIf ComboBox67.Text = 9 Then : ComboBox5.BackColor = Color.LightSalmon
        ElseIf ComboBox67.Text = 0 Then : ComboBox5.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox68_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox68.SelectedIndexChanged
        If ComboBox68.Text = 1 Then : ComboBox6.BackColor = Color.LawnGreen
        ElseIf ComboBox68.Text = 2 Then : ComboBox6.BackColor = Color.LightBlue
        ElseIf ComboBox68.Text = 3 Then : ComboBox6.BackColor = Color.LightCoral
        ElseIf ComboBox68.Text = 4 Then : ComboBox6.BackColor = Color.LightCyan
        ElseIf ComboBox68.Text = 5 Then : ComboBox6.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox68.Text = 6 Then : ComboBox6.BackColor = Color.LightGray
        ElseIf ComboBox68.Text = 7 Then : ComboBox6.BackColor = Color.LightGreen
        ElseIf ComboBox68.Text = 8 Then : ComboBox6.BackColor = Color.LightPink
        ElseIf ComboBox68.Text = 9 Then : ComboBox6.BackColor = Color.LightSalmon
        ElseIf ComboBox68.Text = 0 Then : ComboBox6.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox69_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox69.SelectedIndexChanged
        If ComboBox69.Text = 1 Then : ComboBox7.BackColor = Color.LawnGreen
        ElseIf ComboBox69.Text = 2 Then : ComboBox7.BackColor = Color.LightBlue
        ElseIf ComboBox69.Text = 3 Then : ComboBox7.BackColor = Color.LightCoral
        ElseIf ComboBox69.Text = 4 Then : ComboBox7.BackColor = Color.LightCyan
        ElseIf ComboBox69.Text = 5 Then : ComboBox7.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox69.Text = 6 Then : ComboBox7.BackColor = Color.LightGray
        ElseIf ComboBox69.Text = 7 Then : ComboBox7.BackColor = Color.LightGreen
        ElseIf ComboBox69.Text = 8 Then : ComboBox7.BackColor = Color.LightPink
        ElseIf ComboBox69.Text = 9 Then : ComboBox7.BackColor = Color.LightSalmon
        ElseIf ComboBox69.Text = 0 Then : ComboBox7.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox70_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox70.SelectedIndexChanged
        If ComboBox70.Text = 1 Then : ComboBox8.BackColor = Color.LawnGreen
        ElseIf ComboBox70.Text = 2 Then : ComboBox8.BackColor = Color.LightBlue
        ElseIf ComboBox70.Text = 3 Then : ComboBox8.BackColor = Color.LightCoral
        ElseIf ComboBox70.Text = 4 Then : ComboBox8.BackColor = Color.LightCyan
        ElseIf ComboBox70.Text = 5 Then : ComboBox8.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox70.Text = 6 Then : ComboBox8.BackColor = Color.LightGray
        ElseIf ComboBox70.Text = 7 Then : ComboBox8.BackColor = Color.LightGreen
        ElseIf ComboBox70.Text = 8 Then : ComboBox8.BackColor = Color.LightPink
        ElseIf ComboBox70.Text = 9 Then : ComboBox8.BackColor = Color.LightSalmon
        ElseIf ComboBox70.Text = 0 Then : ComboBox8.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox71_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox71.SelectedIndexChanged
        If ComboBox71.Text = 1 Then : ComboBox9.BackColor = Color.LawnGreen
        ElseIf ComboBox71.Text = 2 Then : ComboBox9.BackColor = Color.LightBlue
        ElseIf ComboBox71.Text = 3 Then : ComboBox9.BackColor = Color.LightCoral
        ElseIf ComboBox71.Text = 4 Then : ComboBox9.BackColor = Color.LightCyan
        ElseIf ComboBox71.Text = 5 Then : ComboBox9.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox71.Text = 6 Then : ComboBox9.BackColor = Color.LightGray
        ElseIf ComboBox71.Text = 7 Then : ComboBox9.BackColor = Color.LightGreen
        ElseIf ComboBox71.Text = 8 Then : ComboBox9.BackColor = Color.LightPink
        ElseIf ComboBox71.Text = 9 Then : ComboBox9.BackColor = Color.LightSalmon
        ElseIf ComboBox71.Text = 0 Then : ComboBox9.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox72_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox72.SelectedIndexChanged
        If ComboBox72.Text = 1 Then : ComboBox10.BackColor = Color.LawnGreen
        ElseIf ComboBox72.Text = 2 Then : ComboBox10.BackColor = Color.LightBlue
        ElseIf ComboBox72.Text = 3 Then : ComboBox10.BackColor = Color.LightCoral
        ElseIf ComboBox72.Text = 4 Then : ComboBox10.BackColor = Color.LightCyan
        ElseIf ComboBox72.Text = 5 Then : ComboBox10.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox72.Text = 6 Then : ComboBox10.BackColor = Color.LightGray
        ElseIf ComboBox72.Text = 7 Then : ComboBox10.BackColor = Color.LightGreen
        ElseIf ComboBox72.Text = 8 Then : ComboBox10.BackColor = Color.LightPink
        ElseIf ComboBox72.Text = 9 Then : ComboBox10.BackColor = Color.LightSalmon
        ElseIf ComboBox72.Text = 0 Then : ComboBox10.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox73_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox73.SelectedIndexChanged
        If ComboBox73.Text = 1 Then : ComboBox11.BackColor = Color.LawnGreen
        ElseIf ComboBox73.Text = 2 Then : ComboBox11.BackColor = Color.LightBlue
        ElseIf ComboBox73.Text = 3 Then : ComboBox11.BackColor = Color.LightCoral
        ElseIf ComboBox73.Text = 4 Then : ComboBox11.BackColor = Color.LightCyan
        ElseIf ComboBox73.Text = 5 Then : ComboBox11.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox73.Text = 6 Then : ComboBox11.BackColor = Color.LightGray
        ElseIf ComboBox73.Text = 7 Then : ComboBox11.BackColor = Color.LightGreen
        ElseIf ComboBox73.Text = 8 Then : ComboBox11.BackColor = Color.LightPink
        ElseIf ComboBox73.Text = 9 Then : ComboBox11.BackColor = Color.LightSalmon
        ElseIf ComboBox73.Text = 0 Then : ComboBox11.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox74_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox74.SelectedIndexChanged
        If ComboBox74.Text = 1 Then : ComboBox12.BackColor = Color.LawnGreen
        ElseIf ComboBox74.Text = 2 Then : ComboBox12.BackColor = Color.LightBlue
        ElseIf ComboBox74.Text = 3 Then : ComboBox12.BackColor = Color.LightCoral
        ElseIf ComboBox74.Text = 4 Then : ComboBox12.BackColor = Color.LightCyan
        ElseIf ComboBox74.Text = 5 Then : ComboBox12.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox74.Text = 6 Then : ComboBox12.BackColor = Color.LightGray
        ElseIf ComboBox74.Text = 7 Then : ComboBox12.BackColor = Color.LightGreen
        ElseIf ComboBox74.Text = 8 Then : ComboBox12.BackColor = Color.LightPink
        ElseIf ComboBox74.Text = 9 Then : ComboBox12.BackColor = Color.LightSalmon
        ElseIf ComboBox74.Text = 0 Then : ComboBox12.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox75_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox75.SelectedIndexChanged
        If ComboBox75.Text = 1 Then : ComboBox13.BackColor = Color.LawnGreen
        ElseIf ComboBox75.Text = 2 Then : ComboBox13.BackColor = Color.LightBlue
        ElseIf ComboBox75.Text = 3 Then : ComboBox13.BackColor = Color.LightCoral
        ElseIf ComboBox75.Text = 4 Then : ComboBox13.BackColor = Color.LightCyan
        ElseIf ComboBox75.Text = 5 Then : ComboBox13.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox75.Text = 6 Then : ComboBox13.BackColor = Color.LightGray
        ElseIf ComboBox75.Text = 7 Then : ComboBox13.BackColor = Color.LightGreen
        ElseIf ComboBox75.Text = 8 Then : ComboBox13.BackColor = Color.LightPink
        ElseIf ComboBox75.Text = 9 Then : ComboBox13.BackColor = Color.LightSalmon
        ElseIf ComboBox75.Text = 0 Then : ComboBox13.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox76_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox76.SelectedIndexChanged
        If ComboBox76.Text = 1 Then : ComboBox14.BackColor = Color.LawnGreen
        ElseIf ComboBox76.Text = 2 Then : ComboBox14.BackColor = Color.LightBlue
        ElseIf ComboBox76.Text = 3 Then : ComboBox14.BackColor = Color.LightCoral
        ElseIf ComboBox76.Text = 4 Then : ComboBox14.BackColor = Color.LightCyan
        ElseIf ComboBox76.Text = 5 Then : ComboBox14.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox76.Text = 6 Then : ComboBox14.BackColor = Color.LightGray
        ElseIf ComboBox76.Text = 7 Then : ComboBox14.BackColor = Color.LightGreen
        ElseIf ComboBox76.Text = 8 Then : ComboBox14.BackColor = Color.LightPink
        ElseIf ComboBox76.Text = 9 Then : ComboBox14.BackColor = Color.LightSalmon
        ElseIf ComboBox76.Text = 0 Then : ComboBox14.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox77_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox77.SelectedIndexChanged
        If ComboBox77.Text = 1 Then : ComboBox15.BackColor = Color.LawnGreen
        ElseIf ComboBox77.Text = 2 Then : ComboBox15.BackColor = Color.LightBlue
        ElseIf ComboBox77.Text = 3 Then : ComboBox15.BackColor = Color.LightCoral
        ElseIf ComboBox77.Text = 4 Then : ComboBox15.BackColor = Color.LightCyan
        ElseIf ComboBox77.Text = 5 Then : ComboBox15.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox77.Text = 6 Then : ComboBox15.BackColor = Color.LightGray
        ElseIf ComboBox77.Text = 7 Then : ComboBox15.BackColor = Color.LightGreen
        ElseIf ComboBox77.Text = 8 Then : ComboBox15.BackColor = Color.LightPink
        ElseIf ComboBox77.Text = 9 Then : ComboBox15.BackColor = Color.LightSalmon
        ElseIf ComboBox77.Text = 0 Then : ComboBox15.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox78_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox78.SelectedIndexChanged
        If ComboBox78.Text = 1 Then : ComboBox16.BackColor = Color.LawnGreen
        ElseIf ComboBox78.Text = 2 Then : ComboBox16.BackColor = Color.LightBlue
        ElseIf ComboBox78.Text = 3 Then : ComboBox16.BackColor = Color.LightCoral
        ElseIf ComboBox78.Text = 4 Then : ComboBox16.BackColor = Color.LightCyan
        ElseIf ComboBox78.Text = 5 Then : ComboBox16.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox78.Text = 6 Then : ComboBox16.BackColor = Color.LightGray
        ElseIf ComboBox78.Text = 7 Then : ComboBox16.BackColor = Color.LightGreen
        ElseIf ComboBox78.Text = 8 Then : ComboBox16.BackColor = Color.LightPink
        ElseIf ComboBox78.Text = 9 Then : ComboBox16.BackColor = Color.LightSalmon
        ElseIf ComboBox78.Text = 0 Then : ComboBox16.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox79_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox79.SelectedIndexChanged
        If ComboBox79.Text = 1 Then : ComboBox17.BackColor = Color.LawnGreen
        ElseIf ComboBox79.Text = 2 Then : ComboBox17.BackColor = Color.LightBlue
        ElseIf ComboBox79.Text = 3 Then : ComboBox17.BackColor = Color.LightCoral
        ElseIf ComboBox79.Text = 4 Then : ComboBox17.BackColor = Color.LightCyan
        ElseIf ComboBox79.Text = 5 Then : ComboBox17.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox79.Text = 6 Then : ComboBox17.BackColor = Color.LightGray
        ElseIf ComboBox79.Text = 7 Then : ComboBox17.BackColor = Color.LightGreen
        ElseIf ComboBox79.Text = 8 Then : ComboBox17.BackColor = Color.LightPink
        ElseIf ComboBox79.Text = 9 Then : ComboBox17.BackColor = Color.LightSalmon
        ElseIf ComboBox79.Text = 0 Then : ComboBox17.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox80_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox80.SelectedIndexChanged
        If ComboBox80.Text = 1 Then : ComboBox18.BackColor = Color.LawnGreen
        ElseIf ComboBox80.Text = 2 Then : ComboBox18.BackColor = Color.LightBlue
        ElseIf ComboBox80.Text = 3 Then : ComboBox18.BackColor = Color.LightCoral
        ElseIf ComboBox80.Text = 4 Then : ComboBox18.BackColor = Color.LightCyan
        ElseIf ComboBox80.Text = 5 Then : ComboBox18.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox80.Text = 6 Then : ComboBox18.BackColor = Color.LightGray
        ElseIf ComboBox80.Text = 7 Then : ComboBox18.BackColor = Color.LightGreen
        ElseIf ComboBox80.Text = 8 Then : ComboBox18.BackColor = Color.LightPink
        ElseIf ComboBox80.Text = 9 Then : ComboBox18.BackColor = Color.LightSalmon
        ElseIf ComboBox80.Text = 0 Then : ComboBox18.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox81_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox81.SelectedIndexChanged
        If ComboBox81.Text = 1 Then : ComboBox19.BackColor = Color.LawnGreen
        ElseIf ComboBox81.Text = 2 Then : ComboBox19.BackColor = Color.LightBlue
        ElseIf ComboBox81.Text = 3 Then : ComboBox19.BackColor = Color.LightCoral
        ElseIf ComboBox81.Text = 4 Then : ComboBox19.BackColor = Color.LightCyan
        ElseIf ComboBox81.Text = 5 Then : ComboBox19.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox81.Text = 6 Then : ComboBox19.BackColor = Color.LightGray
        ElseIf ComboBox81.Text = 7 Then : ComboBox19.BackColor = Color.LightGreen
        ElseIf ComboBox81.Text = 8 Then : ComboBox19.BackColor = Color.LightPink
        ElseIf ComboBox81.Text = 9 Then : ComboBox19.BackColor = Color.LightSalmon
        ElseIf ComboBox81.Text = 0 Then : ComboBox19.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox82_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox82.SelectedIndexChanged
        If ComboBox82.Text = 1 Then : ComboBox20.BackColor = Color.LawnGreen
        ElseIf ComboBox82.Text = 2 Then : ComboBox20.BackColor = Color.LightBlue
        ElseIf ComboBox82.Text = 3 Then : ComboBox20.BackColor = Color.LightCoral
        ElseIf ComboBox82.Text = 4 Then : ComboBox20.BackColor = Color.LightCyan
        ElseIf ComboBox82.Text = 5 Then : ComboBox20.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox82.Text = 6 Then : ComboBox20.BackColor = Color.LightGray
        ElseIf ComboBox82.Text = 7 Then : ComboBox20.BackColor = Color.LightGreen
        ElseIf ComboBox82.Text = 8 Then : ComboBox20.BackColor = Color.LightPink
        ElseIf ComboBox82.Text = 9 Then : ComboBox20.BackColor = Color.LightSalmon
        ElseIf ComboBox82.Text = 0 Then : ComboBox20.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox83_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox83.SelectedIndexChanged
        If ComboBox83.Text = 1 Then : ComboBox21.BackColor = Color.LawnGreen
        ElseIf ComboBox83.Text = 2 Then : ComboBox21.BackColor = Color.LightBlue
        ElseIf ComboBox83.Text = 3 Then : ComboBox21.BackColor = Color.LightCoral
        ElseIf ComboBox83.Text = 4 Then : ComboBox21.BackColor = Color.LightCyan
        ElseIf ComboBox83.Text = 5 Then : ComboBox21.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox83.Text = 6 Then : ComboBox21.BackColor = Color.LightGray
        ElseIf ComboBox83.Text = 7 Then : ComboBox21.BackColor = Color.LightGreen
        ElseIf ComboBox83.Text = 8 Then : ComboBox21.BackColor = Color.LightPink
        ElseIf ComboBox83.Text = 9 Then : ComboBox21.BackColor = Color.LightSalmon
        ElseIf ComboBox83.Text = 0 Then : ComboBox21.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox84_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox84.SelectedIndexChanged
        If ComboBox84.Text = 1 Then : ComboBox22.BackColor = Color.LawnGreen
        ElseIf ComboBox84.Text = 2 Then : ComboBox22.BackColor = Color.LightBlue
        ElseIf ComboBox84.Text = 3 Then : ComboBox22.BackColor = Color.LightCoral
        ElseIf ComboBox84.Text = 4 Then : ComboBox22.BackColor = Color.LightCyan
        ElseIf ComboBox84.Text = 5 Then : ComboBox22.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox84.Text = 6 Then : ComboBox22.BackColor = Color.LightGray
        ElseIf ComboBox84.Text = 7 Then : ComboBox22.BackColor = Color.LightGreen
        ElseIf ComboBox84.Text = 8 Then : ComboBox22.BackColor = Color.LightPink
        ElseIf ComboBox84.Text = 9 Then : ComboBox22.BackColor = Color.LightSalmon
        ElseIf ComboBox84.Text = 0 Then : ComboBox22.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox85_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox85.SelectedIndexChanged
        If ComboBox85.Text = 1 Then : ComboBox23.BackColor = Color.LawnGreen
        ElseIf ComboBox85.Text = 2 Then : ComboBox23.BackColor = Color.LightBlue
        ElseIf ComboBox85.Text = 3 Then : ComboBox23.BackColor = Color.LightCoral
        ElseIf ComboBox85.Text = 4 Then : ComboBox23.BackColor = Color.LightCyan
        ElseIf ComboBox85.Text = 5 Then : ComboBox23.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox85.Text = 6 Then : ComboBox23.BackColor = Color.LightGray
        ElseIf ComboBox85.Text = 7 Then : ComboBox23.BackColor = Color.LightGreen
        ElseIf ComboBox85.Text = 8 Then : ComboBox23.BackColor = Color.LightPink
        ElseIf ComboBox85.Text = 9 Then : ComboBox23.BackColor = Color.LightSalmon
        ElseIf ComboBox85.Text = 0 Then : ComboBox23.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox86_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox86.SelectedIndexChanged
        If ComboBox86.Text = 1 Then : ComboBox24.BackColor = Color.LawnGreen
        ElseIf ComboBox86.Text = 2 Then : ComboBox24.BackColor = Color.LightBlue
        ElseIf ComboBox86.Text = 3 Then : ComboBox24.BackColor = Color.LightCoral
        ElseIf ComboBox86.Text = 4 Then : ComboBox24.BackColor = Color.LightCyan
        ElseIf ComboBox86.Text = 5 Then : ComboBox24.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox86.Text = 6 Then : ComboBox24.BackColor = Color.LightGray
        ElseIf ComboBox86.Text = 7 Then : ComboBox24.BackColor = Color.LightGreen
        ElseIf ComboBox86.Text = 8 Then : ComboBox24.BackColor = Color.LightPink
        ElseIf ComboBox86.Text = 9 Then : ComboBox24.BackColor = Color.LightSalmon
        ElseIf ComboBox86.Text = 0 Then : ComboBox24.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox87_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox87.SelectedIndexChanged
        If ComboBox87.Text = 1 Then : ComboBox25.BackColor = Color.LawnGreen
        ElseIf ComboBox87.Text = 2 Then : ComboBox25.BackColor = Color.LightBlue
        ElseIf ComboBox87.Text = 3 Then : ComboBox25.BackColor = Color.LightCoral
        ElseIf ComboBox87.Text = 4 Then : ComboBox25.BackColor = Color.LightCyan
        ElseIf ComboBox87.Text = 5 Then : ComboBox25.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox87.Text = 6 Then : ComboBox25.BackColor = Color.LightGray
        ElseIf ComboBox87.Text = 7 Then : ComboBox25.BackColor = Color.LightGreen
        ElseIf ComboBox87.Text = 8 Then : ComboBox25.BackColor = Color.LightPink
        ElseIf ComboBox87.Text = 9 Then : ComboBox25.BackColor = Color.LightSalmon
        ElseIf ComboBox87.Text = 0 Then : ComboBox25.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox88_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox88.SelectedIndexChanged
        If ComboBox88.Text = 1 Then : ComboBox26.BackColor = Color.LawnGreen
        ElseIf ComboBox88.Text = 2 Then : ComboBox26.BackColor = Color.LightBlue
        ElseIf ComboBox88.Text = 3 Then : ComboBox26.BackColor = Color.LightCoral
        ElseIf ComboBox88.Text = 4 Then : ComboBox26.BackColor = Color.LightCyan
        ElseIf ComboBox88.Text = 5 Then : ComboBox26.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox88.Text = 6 Then : ComboBox26.BackColor = Color.LightGray
        ElseIf ComboBox88.Text = 7 Then : ComboBox26.BackColor = Color.LightGreen
        ElseIf ComboBox88.Text = 8 Then : ComboBox26.BackColor = Color.LightPink
        ElseIf ComboBox88.Text = 9 Then : ComboBox26.BackColor = Color.LightSalmon
        ElseIf ComboBox88.Text = 0 Then : ComboBox26.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox89_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox89.SelectedIndexChanged
        If ComboBox89.Text = 1 Then : ComboBox27.BackColor = Color.LawnGreen
        ElseIf ComboBox89.Text = 2 Then : ComboBox27.BackColor = Color.LightBlue
        ElseIf ComboBox89.Text = 3 Then : ComboBox27.BackColor = Color.LightCoral
        ElseIf ComboBox89.Text = 4 Then : ComboBox27.BackColor = Color.LightCyan
        ElseIf ComboBox89.Text = 5 Then : ComboBox27.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox89.Text = 6 Then : ComboBox27.BackColor = Color.LightGray
        ElseIf ComboBox89.Text = 7 Then : ComboBox27.BackColor = Color.LightGreen
        ElseIf ComboBox89.Text = 8 Then : ComboBox27.BackColor = Color.LightPink
        ElseIf ComboBox89.Text = 9 Then : ComboBox27.BackColor = Color.LightSalmon
        ElseIf ComboBox89.Text = 0 Then : ComboBox27.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox90_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox90.SelectedIndexChanged
        If ComboBox90.Text = 1 Then : ComboBox28.BackColor = Color.LawnGreen
        ElseIf ComboBox90.Text = 2 Then : ComboBox28.BackColor = Color.LightBlue
        ElseIf ComboBox90.Text = 3 Then : ComboBox28.BackColor = Color.LightCoral
        ElseIf ComboBox90.Text = 4 Then : ComboBox28.BackColor = Color.LightCyan
        ElseIf ComboBox90.Text = 5 Then : ComboBox28.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox90.Text = 6 Then : ComboBox28.BackColor = Color.LightGray
        ElseIf ComboBox90.Text = 7 Then : ComboBox28.BackColor = Color.LightGreen
        ElseIf ComboBox90.Text = 8 Then : ComboBox28.BackColor = Color.LightPink
        ElseIf ComboBox90.Text = 9 Then : ComboBox28.BackColor = Color.LightSalmon
        ElseIf ComboBox90.Text = 0 Then : ComboBox28.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox91_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox91.SelectedIndexChanged
        If ComboBox91.Text = 1 Then : ComboBox29.BackColor = Color.LawnGreen
        ElseIf ComboBox91.Text = 2 Then : ComboBox29.BackColor = Color.LightBlue
        ElseIf ComboBox91.Text = 3 Then : ComboBox29.BackColor = Color.LightCoral
        ElseIf ComboBox91.Text = 4 Then : ComboBox29.BackColor = Color.LightCyan
        ElseIf ComboBox91.Text = 5 Then : ComboBox29.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox91.Text = 6 Then : ComboBox29.BackColor = Color.LightGray
        ElseIf ComboBox91.Text = 7 Then : ComboBox29.BackColor = Color.LightGreen
        ElseIf ComboBox91.Text = 8 Then : ComboBox29.BackColor = Color.LightPink
        ElseIf ComboBox91.Text = 9 Then : ComboBox29.BackColor = Color.LightSalmon
        ElseIf ComboBox91.Text = 0 Then : ComboBox29.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox92_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox92.SelectedIndexChanged
        If ComboBox92.Text = 1 Then : ComboBox30.BackColor = Color.LawnGreen
        ElseIf ComboBox92.Text = 2 Then : ComboBox30.BackColor = Color.LightBlue
        ElseIf ComboBox92.Text = 3 Then : ComboBox30.BackColor = Color.LightCoral
        ElseIf ComboBox92.Text = 4 Then : ComboBox30.BackColor = Color.LightCyan
        ElseIf ComboBox92.Text = 5 Then : ComboBox30.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox92.Text = 6 Then : ComboBox30.BackColor = Color.LightGray
        ElseIf ComboBox92.Text = 7 Then : ComboBox30.BackColor = Color.LightGreen
        ElseIf ComboBox92.Text = 8 Then : ComboBox30.BackColor = Color.LightPink
        ElseIf ComboBox92.Text = 9 Then : ComboBox30.BackColor = Color.LightSalmon
        ElseIf ComboBox92.Text = 0 Then : ComboBox30.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox93_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox93.SelectedIndexChanged
        If ComboBox93.Text = 1 Then : ComboBox31.BackColor = Color.LawnGreen
        ElseIf ComboBox93.Text = 2 Then : ComboBox31.BackColor = Color.LightBlue
        ElseIf ComboBox93.Text = 3 Then : ComboBox31.BackColor = Color.LightCoral
        ElseIf ComboBox93.Text = 4 Then : ComboBox31.BackColor = Color.LightCyan
        ElseIf ComboBox93.Text = 5 Then : ComboBox31.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox93.Text = 6 Then : ComboBox31.BackColor = Color.LightGray
        ElseIf ComboBox93.Text = 7 Then : ComboBox31.BackColor = Color.LightGreen
        ElseIf ComboBox93.Text = 8 Then : ComboBox31.BackColor = Color.LightPink
        ElseIf ComboBox93.Text = 9 Then : ComboBox31.BackColor = Color.LightSalmon
        ElseIf ComboBox93.Text = 0 Then : ComboBox31.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox94_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox94.SelectedIndexChanged
        If ComboBox94.Text = 1 Then : ComboBox32.BackColor = Color.LawnGreen
        ElseIf ComboBox94.Text = 2 Then : ComboBox32.BackColor = Color.LightBlue
        ElseIf ComboBox94.Text = 3 Then : ComboBox32.BackColor = Color.LightCoral
        ElseIf ComboBox94.Text = 4 Then : ComboBox32.BackColor = Color.LightCyan
        ElseIf ComboBox94.Text = 5 Then : ComboBox32.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox94.Text = 6 Then : ComboBox32.BackColor = Color.LightGray
        ElseIf ComboBox94.Text = 7 Then : ComboBox32.BackColor = Color.LightGreen
        ElseIf ComboBox94.Text = 8 Then : ComboBox32.BackColor = Color.LightPink
        ElseIf ComboBox94.Text = 9 Then : ComboBox32.BackColor = Color.LightSalmon
        ElseIf ComboBox94.Text = 0 Then : ComboBox32.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox95_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox95.SelectedIndexChanged
        If ComboBox95.Text = 1 Then : ComboBox33.BackColor = Color.LawnGreen
        ElseIf ComboBox95.Text = 2 Then : ComboBox33.BackColor = Color.LightBlue
        ElseIf ComboBox95.Text = 3 Then : ComboBox33.BackColor = Color.LightCoral
        ElseIf ComboBox95.Text = 4 Then : ComboBox33.BackColor = Color.LightCyan
        ElseIf ComboBox95.Text = 5 Then : ComboBox33.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox95.Text = 6 Then : ComboBox33.BackColor = Color.LightGray
        ElseIf ComboBox95.Text = 7 Then : ComboBox33.BackColor = Color.LightGreen
        ElseIf ComboBox95.Text = 8 Then : ComboBox33.BackColor = Color.LightPink
        ElseIf ComboBox95.Text = 9 Then : ComboBox33.BackColor = Color.LightSalmon
        ElseIf ComboBox95.Text = 0 Then : ComboBox33.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox96_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox96.SelectedIndexChanged
        If ComboBox96.Text = 1 Then : ComboBox34.BackColor = Color.LawnGreen
        ElseIf ComboBox96.Text = 2 Then : ComboBox34.BackColor = Color.LightBlue
        ElseIf ComboBox96.Text = 3 Then : ComboBox34.BackColor = Color.LightCoral
        ElseIf ComboBox96.Text = 4 Then : ComboBox34.BackColor = Color.LightCyan
        ElseIf ComboBox96.Text = 5 Then : ComboBox34.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox96.Text = 6 Then : ComboBox34.BackColor = Color.LightGray
        ElseIf ComboBox96.Text = 7 Then : ComboBox34.BackColor = Color.LightGreen
        ElseIf ComboBox96.Text = 8 Then : ComboBox34.BackColor = Color.LightPink
        ElseIf ComboBox96.Text = 9 Then : ComboBox34.BackColor = Color.LightSalmon
        ElseIf ComboBox96.Text = 0 Then : ComboBox34.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox97_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox97.SelectedIndexChanged
        If ComboBox97.Text = 1 Then : ComboBox35.BackColor = Color.LawnGreen
        ElseIf ComboBox97.Text = 2 Then : ComboBox35.BackColor = Color.LightBlue
        ElseIf ComboBox97.Text = 3 Then : ComboBox35.BackColor = Color.LightCoral
        ElseIf ComboBox97.Text = 4 Then : ComboBox35.BackColor = Color.LightCyan
        ElseIf ComboBox97.Text = 5 Then : ComboBox35.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox97.Text = 6 Then : ComboBox35.BackColor = Color.LightGray
        ElseIf ComboBox97.Text = 7 Then : ComboBox35.BackColor = Color.LightGreen
        ElseIf ComboBox97.Text = 8 Then : ComboBox35.BackColor = Color.LightPink
        ElseIf ComboBox97.Text = 9 Then : ComboBox35.BackColor = Color.LightSalmon
        ElseIf ComboBox97.Text = 0 Then : ComboBox35.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox98_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox98.SelectedIndexChanged
        If ComboBox98.Text = 1 Then : ComboBox36.BackColor = Color.LawnGreen
        ElseIf ComboBox98.Text = 2 Then : ComboBox36.BackColor = Color.LightBlue
        ElseIf ComboBox98.Text = 3 Then : ComboBox36.BackColor = Color.LightCoral
        ElseIf ComboBox98.Text = 4 Then : ComboBox36.BackColor = Color.LightCyan
        ElseIf ComboBox98.Text = 5 Then : ComboBox36.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox98.Text = 6 Then : ComboBox36.BackColor = Color.LightGray
        ElseIf ComboBox98.Text = 7 Then : ComboBox36.BackColor = Color.LightGreen
        ElseIf ComboBox98.Text = 8 Then : ComboBox36.BackColor = Color.LightPink
        ElseIf ComboBox98.Text = 9 Then : ComboBox36.BackColor = Color.LightSalmon
        ElseIf ComboBox98.Text = 0 Then : ComboBox36.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox99_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox99.SelectedIndexChanged
        If ComboBox99.Text = 1 Then : ComboBox37.BackColor = Color.LawnGreen
        ElseIf ComboBox99.Text = 2 Then : ComboBox37.BackColor = Color.LightBlue
        ElseIf ComboBox99.Text = 3 Then : ComboBox37.BackColor = Color.LightCoral
        ElseIf ComboBox99.Text = 4 Then : ComboBox37.BackColor = Color.LightCyan
        ElseIf ComboBox99.Text = 5 Then : ComboBox37.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox99.Text = 6 Then : ComboBox37.BackColor = Color.LightGray
        ElseIf ComboBox99.Text = 7 Then : ComboBox37.BackColor = Color.LightGreen
        ElseIf ComboBox99.Text = 8 Then : ComboBox37.BackColor = Color.LightPink
        ElseIf ComboBox99.Text = 9 Then : ComboBox37.BackColor = Color.LightSalmon
        ElseIf ComboBox99.Text = 0 Then : ComboBox37.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox3800_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox100.SelectedIndexChanged
        If ComboBox100.Text = 1 Then : ComboBox38.BackColor = Color.LawnGreen
        ElseIf ComboBox100.Text = 2 Then : ComboBox38.BackColor = Color.LightBlue
        ElseIf ComboBox100.Text = 3 Then : ComboBox38.BackColor = Color.LightCoral
        ElseIf ComboBox100.Text = 4 Then : ComboBox38.BackColor = Color.LightCyan
        ElseIf ComboBox100.Text = 5 Then : ComboBox38.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox100.Text = 6 Then : ComboBox38.BackColor = Color.LightGray
        ElseIf ComboBox100.Text = 7 Then : ComboBox38.BackColor = Color.LightGreen
        ElseIf ComboBox100.Text = 8 Then : ComboBox38.BackColor = Color.LightPink
        ElseIf ComboBox100.Text = 9 Then : ComboBox38.BackColor = Color.LightSalmon
        ElseIf ComboBox100.Text = 0 Then : ComboBox38.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox101_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox101.SelectedIndexChanged
        If ComboBox101.Text = 1 Then : ComboBox39.BackColor = Color.LawnGreen
        ElseIf ComboBox101.Text = 2 Then : ComboBox39.BackColor = Color.LightBlue
        ElseIf ComboBox101.Text = 3 Then : ComboBox39.BackColor = Color.LightCoral
        ElseIf ComboBox101.Text = 4 Then : ComboBox39.BackColor = Color.LightCyan
        ElseIf ComboBox101.Text = 5 Then : ComboBox39.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox101.Text = 6 Then : ComboBox39.BackColor = Color.LightGray
        ElseIf ComboBox101.Text = 7 Then : ComboBox39.BackColor = Color.LightGreen
        ElseIf ComboBox101.Text = 8 Then : ComboBox39.BackColor = Color.LightPink
        ElseIf ComboBox101.Text = 9 Then : ComboBox39.BackColor = Color.LightSalmon
        ElseIf ComboBox101.Text = 0 Then : ComboBox39.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox102_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox102.SelectedIndexChanged
        If ComboBox102.Text = 1 Then : ComboBox40.BackColor = Color.LawnGreen
        ElseIf ComboBox102.Text = 2 Then : ComboBox40.BackColor = Color.LightBlue
        ElseIf ComboBox102.Text = 3 Then : ComboBox40.BackColor = Color.LightCoral
        ElseIf ComboBox102.Text = 4 Then : ComboBox40.BackColor = Color.LightCyan
        ElseIf ComboBox102.Text = 5 Then : ComboBox40.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox102.Text = 6 Then : ComboBox40.BackColor = Color.LightGray
        ElseIf ComboBox102.Text = 7 Then : ComboBox40.BackColor = Color.LightGreen
        ElseIf ComboBox102.Text = 8 Then : ComboBox40.BackColor = Color.LightPink
        ElseIf ComboBox102.Text = 9 Then : ComboBox40.BackColor = Color.LightSalmon
        ElseIf ComboBox102.Text = 0 Then : ComboBox40.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox103_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox103.SelectedIndexChanged
        If ComboBox103.Text = 1 Then : ComboBox41.BackColor = Color.LawnGreen
        ElseIf ComboBox103.Text = 2 Then : ComboBox41.BackColor = Color.LightBlue
        ElseIf ComboBox103.Text = 3 Then : ComboBox41.BackColor = Color.LightCoral
        ElseIf ComboBox103.Text = 4 Then : ComboBox41.BackColor = Color.LightCyan
        ElseIf ComboBox103.Text = 5 Then : ComboBox41.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox103.Text = 6 Then : ComboBox41.BackColor = Color.LightGray
        ElseIf ComboBox103.Text = 7 Then : ComboBox41.BackColor = Color.LightGreen
        ElseIf ComboBox103.Text = 8 Then : ComboBox41.BackColor = Color.LightPink
        ElseIf ComboBox103.Text = 9 Then : ComboBox41.BackColor = Color.LightSalmon
        ElseIf ComboBox103.Text = 0 Then : ComboBox41.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox104_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox104.SelectedIndexChanged
        If ComboBox104.Text = 1 Then : ComboBox42.BackColor = Color.LawnGreen
        ElseIf ComboBox104.Text = 2 Then : ComboBox42.BackColor = Color.LightBlue
        ElseIf ComboBox104.Text = 3 Then : ComboBox42.BackColor = Color.LightCoral
        ElseIf ComboBox104.Text = 4 Then : ComboBox42.BackColor = Color.LightCyan
        ElseIf ComboBox104.Text = 5 Then : ComboBox42.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox104.Text = 6 Then : ComboBox42.BackColor = Color.LightGray
        ElseIf ComboBox104.Text = 7 Then : ComboBox42.BackColor = Color.LightGreen
        ElseIf ComboBox104.Text = 8 Then : ComboBox42.BackColor = Color.LightPink
        ElseIf ComboBox104.Text = 9 Then : ComboBox42.BackColor = Color.LightSalmon
        ElseIf ComboBox104.Text = 0 Then : ComboBox42.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox105_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox105.SelectedIndexChanged
        If ComboBox105.Text = 1 Then : ComboBox43.BackColor = Color.LawnGreen
        ElseIf ComboBox105.Text = 2 Then : ComboBox43.BackColor = Color.LightBlue
        ElseIf ComboBox105.Text = 3 Then : ComboBox43.BackColor = Color.LightCoral
        ElseIf ComboBox105.Text = 4 Then : ComboBox43.BackColor = Color.LightCyan
        ElseIf ComboBox105.Text = 5 Then : ComboBox43.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox105.Text = 6 Then : ComboBox43.BackColor = Color.LightGray
        ElseIf ComboBox105.Text = 7 Then : ComboBox43.BackColor = Color.LightGreen
        ElseIf ComboBox105.Text = 8 Then : ComboBox43.BackColor = Color.LightPink
        ElseIf ComboBox105.Text = 9 Then : ComboBox43.BackColor = Color.LightSalmon
        ElseIf ComboBox105.Text = 0 Then : ComboBox43.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox106_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox106.SelectedIndexChanged
        If ComboBox106.Text = 1 Then : ComboBox44.BackColor = Color.LawnGreen
        ElseIf ComboBox106.Text = 2 Then : ComboBox44.BackColor = Color.LightBlue
        ElseIf ComboBox106.Text = 3 Then : ComboBox44.BackColor = Color.LightCoral
        ElseIf ComboBox106.Text = 4 Then : ComboBox44.BackColor = Color.LightCyan
        ElseIf ComboBox106.Text = 5 Then : ComboBox44.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox106.Text = 6 Then : ComboBox44.BackColor = Color.LightGray
        ElseIf ComboBox106.Text = 7 Then : ComboBox44.BackColor = Color.LightGreen
        ElseIf ComboBox106.Text = 8 Then : ComboBox44.BackColor = Color.LightPink
        ElseIf ComboBox106.Text = 9 Then : ComboBox44.BackColor = Color.LightSalmon
        ElseIf ComboBox106.Text = 0 Then : ComboBox44.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox107_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox107.SelectedIndexChanged
        If ComboBox107.Text = 1 Then : ComboBox45.BackColor = Color.LawnGreen
        ElseIf ComboBox107.Text = 2 Then : ComboBox45.BackColor = Color.LightBlue
        ElseIf ComboBox107.Text = 3 Then : ComboBox45.BackColor = Color.LightCoral
        ElseIf ComboBox107.Text = 4 Then : ComboBox45.BackColor = Color.LightCyan
        ElseIf ComboBox107.Text = 5 Then : ComboBox45.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox107.Text = 6 Then : ComboBox45.BackColor = Color.LightGray
        ElseIf ComboBox107.Text = 7 Then : ComboBox45.BackColor = Color.LightGreen
        ElseIf ComboBox107.Text = 8 Then : ComboBox45.BackColor = Color.LightPink
        ElseIf ComboBox107.Text = 9 Then : ComboBox45.BackColor = Color.LightSalmon
        ElseIf ComboBox107.Text = 0 Then : ComboBox45.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox108_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox108.SelectedIndexChanged
        If ComboBox108.Text = 1 Then : ComboBox46.BackColor = Color.LawnGreen
        ElseIf ComboBox108.Text = 2 Then : ComboBox46.BackColor = Color.LightBlue
        ElseIf ComboBox108.Text = 3 Then : ComboBox46.BackColor = Color.LightCoral
        ElseIf ComboBox108.Text = 4 Then : ComboBox46.BackColor = Color.LightCyan
        ElseIf ComboBox108.Text = 5 Then : ComboBox46.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox108.Text = 6 Then : ComboBox46.BackColor = Color.LightGray
        ElseIf ComboBox108.Text = 7 Then : ComboBox46.BackColor = Color.LightGreen
        ElseIf ComboBox108.Text = 8 Then : ComboBox46.BackColor = Color.LightPink
        ElseIf ComboBox108.Text = 9 Then : ComboBox46.BackColor = Color.LightSalmon
        ElseIf ComboBox108.Text = 0 Then : ComboBox46.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox109_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox109.SelectedIndexChanged
        If ComboBox109.Text = 1 Then : ComboBox47.BackColor = Color.LawnGreen
        ElseIf ComboBox109.Text = 2 Then : ComboBox47.BackColor = Color.LightBlue
        ElseIf ComboBox109.Text = 3 Then : ComboBox47.BackColor = Color.LightCoral
        ElseIf ComboBox109.Text = 4 Then : ComboBox47.BackColor = Color.LightCyan
        ElseIf ComboBox109.Text = 5 Then : ComboBox47.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox109.Text = 6 Then : ComboBox47.BackColor = Color.LightGray
        ElseIf ComboBox109.Text = 7 Then : ComboBox47.BackColor = Color.LightGreen
        ElseIf ComboBox109.Text = 8 Then : ComboBox47.BackColor = Color.LightPink
        ElseIf ComboBox109.Text = 9 Then : ComboBox47.BackColor = Color.LightSalmon
        ElseIf ComboBox109.Text = 0 Then : ComboBox47.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox110_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox110.SelectedIndexChanged
        If ComboBox110.Text = 1 Then : ComboBox48.BackColor = Color.LawnGreen
        ElseIf ComboBox110.Text = 2 Then : ComboBox48.BackColor = Color.LightBlue
        ElseIf ComboBox110.Text = 3 Then : ComboBox48.BackColor = Color.LightCoral
        ElseIf ComboBox110.Text = 4 Then : ComboBox48.BackColor = Color.LightCyan
        ElseIf ComboBox110.Text = 5 Then : ComboBox48.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox110.Text = 6 Then : ComboBox48.BackColor = Color.LightGray
        ElseIf ComboBox110.Text = 7 Then : ComboBox48.BackColor = Color.LightGreen
        ElseIf ComboBox110.Text = 8 Then : ComboBox48.BackColor = Color.LightPink
        ElseIf ComboBox110.Text = 9 Then : ComboBox48.BackColor = Color.LightSalmon
        ElseIf ComboBox110.Text = 0 Then : ComboBox48.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox111_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox111.SelectedIndexChanged
        If ComboBox111.Text = 1 Then : ComboBox49.BackColor = Color.LawnGreen
        ElseIf ComboBox111.Text = 2 Then : ComboBox49.BackColor = Color.LightBlue
        ElseIf ComboBox111.Text = 3 Then : ComboBox49.BackColor = Color.LightCoral
        ElseIf ComboBox111.Text = 4 Then : ComboBox49.BackColor = Color.LightCyan
        ElseIf ComboBox111.Text = 5 Then : ComboBox49.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox111.Text = 6 Then : ComboBox49.BackColor = Color.LightGray
        ElseIf ComboBox111.Text = 7 Then : ComboBox49.BackColor = Color.LightGreen
        ElseIf ComboBox111.Text = 8 Then : ComboBox49.BackColor = Color.LightPink
        ElseIf ComboBox111.Text = 9 Then : ComboBox49.BackColor = Color.LightSalmon
        ElseIf ComboBox111.Text = 0 Then : ComboBox49.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox112_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox112.SelectedIndexChanged
        If ComboBox112.Text = 1 Then : ComboBox50.BackColor = Color.LawnGreen
        ElseIf ComboBox112.Text = 2 Then : ComboBox50.BackColor = Color.LightBlue
        ElseIf ComboBox112.Text = 3 Then : ComboBox50.BackColor = Color.LightCoral
        ElseIf ComboBox112.Text = 4 Then : ComboBox50.BackColor = Color.LightCyan
        ElseIf ComboBox112.Text = 5 Then : ComboBox50.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox112.Text = 6 Then : ComboBox50.BackColor = Color.LightGray
        ElseIf ComboBox112.Text = 7 Then : ComboBox50.BackColor = Color.LightGreen
        ElseIf ComboBox112.Text = 8 Then : ComboBox50.BackColor = Color.LightPink
        ElseIf ComboBox112.Text = 9 Then : ComboBox50.BackColor = Color.LightSalmon
        ElseIf ComboBox112.Text = 0 Then : ComboBox50.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox113_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox113.SelectedIndexChanged
        If ComboBox113.Text = 1 Then : ComboBox51.BackColor = Color.LawnGreen
        ElseIf ComboBox113.Text = 2 Then : ComboBox51.BackColor = Color.LightBlue
        ElseIf ComboBox113.Text = 3 Then : ComboBox51.BackColor = Color.LightCoral
        ElseIf ComboBox113.Text = 4 Then : ComboBox51.BackColor = Color.LightCyan
        ElseIf ComboBox113.Text = 5 Then : ComboBox51.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox113.Text = 6 Then : ComboBox51.BackColor = Color.LightGray
        ElseIf ComboBox113.Text = 7 Then : ComboBox51.BackColor = Color.LightGreen
        ElseIf ComboBox113.Text = 8 Then : ComboBox51.BackColor = Color.LightPink
        ElseIf ComboBox113.Text = 9 Then : ComboBox51.BackColor = Color.LightSalmon
        ElseIf ComboBox113.Text = 0 Then : ComboBox51.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox114_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox114.SelectedIndexChanged
        If ComboBox114.Text = 1 Then : ComboBox52.BackColor = Color.LawnGreen
        ElseIf ComboBox114.Text = 2 Then : ComboBox52.BackColor = Color.LightBlue
        ElseIf ComboBox114.Text = 3 Then : ComboBox52.BackColor = Color.LightCoral
        ElseIf ComboBox114.Text = 4 Then : ComboBox52.BackColor = Color.LightCyan
        ElseIf ComboBox114.Text = 5 Then : ComboBox52.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox114.Text = 6 Then : ComboBox52.BackColor = Color.LightGray
        ElseIf ComboBox114.Text = 7 Then : ComboBox52.BackColor = Color.LightGreen
        ElseIf ComboBox114.Text = 8 Then : ComboBox52.BackColor = Color.LightPink
        ElseIf ComboBox114.Text = 9 Then : ComboBox52.BackColor = Color.LightSalmon
        ElseIf ComboBox114.Text = 0 Then : ComboBox52.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox115_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox115.SelectedIndexChanged
        If ComboBox115.Text = 1 Then : ComboBox53.BackColor = Color.LawnGreen
        ElseIf ComboBox115.Text = 2 Then : ComboBox53.BackColor = Color.LightBlue
        ElseIf ComboBox115.Text = 3 Then : ComboBox53.BackColor = Color.LightCoral
        ElseIf ComboBox115.Text = 4 Then : ComboBox53.BackColor = Color.LightCyan
        ElseIf ComboBox115.Text = 5 Then : ComboBox53.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox115.Text = 6 Then : ComboBox53.BackColor = Color.LightGray
        ElseIf ComboBox115.Text = 7 Then : ComboBox53.BackColor = Color.LightGreen
        ElseIf ComboBox115.Text = 8 Then : ComboBox53.BackColor = Color.LightPink
        ElseIf ComboBox115.Text = 9 Then : ComboBox53.BackColor = Color.LightSalmon
        ElseIf ComboBox115.Text = 0 Then : ComboBox53.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox116_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox116.SelectedIndexChanged
        If ComboBox116.Text = 1 Then : ComboBox54.BackColor = Color.LawnGreen
        ElseIf ComboBox116.Text = 2 Then : ComboBox54.BackColor = Color.LightBlue
        ElseIf ComboBox116.Text = 3 Then : ComboBox54.BackColor = Color.LightCoral
        ElseIf ComboBox116.Text = 4 Then : ComboBox54.BackColor = Color.LightCyan
        ElseIf ComboBox116.Text = 5 Then : ComboBox54.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox116.Text = 6 Then : ComboBox54.BackColor = Color.LightGray
        ElseIf ComboBox116.Text = 7 Then : ComboBox54.BackColor = Color.LightGreen
        ElseIf ComboBox116.Text = 8 Then : ComboBox54.BackColor = Color.LightPink
        ElseIf ComboBox116.Text = 9 Then : ComboBox54.BackColor = Color.LightSalmon
        ElseIf ComboBox116.Text = 0 Then : ComboBox54.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox117_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox117.SelectedIndexChanged
        If ComboBox117.Text = 1 Then : ComboBox55.BackColor = Color.LawnGreen
        ElseIf ComboBox117.Text = 2 Then : ComboBox55.BackColor = Color.LightBlue
        ElseIf ComboBox117.Text = 3 Then : ComboBox55.BackColor = Color.LightCoral
        ElseIf ComboBox117.Text = 4 Then : ComboBox55.BackColor = Color.LightCyan
        ElseIf ComboBox117.Text = 5 Then : ComboBox55.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox117.Text = 6 Then : ComboBox55.BackColor = Color.LightGray
        ElseIf ComboBox117.Text = 7 Then : ComboBox55.BackColor = Color.LightGreen
        ElseIf ComboBox117.Text = 8 Then : ComboBox55.BackColor = Color.LightPink
        ElseIf ComboBox117.Text = 9 Then : ComboBox55.BackColor = Color.LightSalmon
        ElseIf ComboBox117.Text = 0 Then : ComboBox55.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox118_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox118.SelectedIndexChanged
        If ComboBox118.Text = 1 Then : ComboBox56.BackColor = Color.LawnGreen
        ElseIf ComboBox118.Text = 2 Then : ComboBox56.BackColor = Color.LightBlue
        ElseIf ComboBox118.Text = 3 Then : ComboBox56.BackColor = Color.LightCoral
        ElseIf ComboBox118.Text = 4 Then : ComboBox56.BackColor = Color.LightCyan
        ElseIf ComboBox118.Text = 5 Then : ComboBox56.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox118.Text = 6 Then : ComboBox56.BackColor = Color.LightGray
        ElseIf ComboBox118.Text = 7 Then : ComboBox56.BackColor = Color.LightGreen
        ElseIf ComboBox118.Text = 8 Then : ComboBox56.BackColor = Color.LightPink
        ElseIf ComboBox118.Text = 9 Then : ComboBox56.BackColor = Color.LightSalmon
        ElseIf ComboBox118.Text = 0 Then : ComboBox56.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox119_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox119.SelectedIndexChanged
        If ComboBox119.Text = 1 Then : ComboBox57.BackColor = Color.LawnGreen
        ElseIf ComboBox119.Text = 2 Then : ComboBox57.BackColor = Color.LightBlue
        ElseIf ComboBox119.Text = 3 Then : ComboBox57.BackColor = Color.LightCoral
        ElseIf ComboBox119.Text = 4 Then : ComboBox57.BackColor = Color.LightCyan
        ElseIf ComboBox119.Text = 5 Then : ComboBox57.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox119.Text = 6 Then : ComboBox57.BackColor = Color.LightGray
        ElseIf ComboBox119.Text = 7 Then : ComboBox57.BackColor = Color.LightGreen
        ElseIf ComboBox119.Text = 8 Then : ComboBox57.BackColor = Color.LightPink
        ElseIf ComboBox119.Text = 9 Then : ComboBox57.BackColor = Color.LightSalmon
        ElseIf ComboBox119.Text = 0 Then : ComboBox57.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox120_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox120.SelectedIndexChanged
        If ComboBox120.Text = 1 Then : ComboBox58.BackColor = Color.LawnGreen
        ElseIf ComboBox120.Text = 2 Then : ComboBox58.BackColor = Color.LightBlue
        ElseIf ComboBox120.Text = 3 Then : ComboBox58.BackColor = Color.LightCoral
        ElseIf ComboBox120.Text = 4 Then : ComboBox58.BackColor = Color.LightCyan
        ElseIf ComboBox120.Text = 5 Then : ComboBox58.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox120.Text = 6 Then : ComboBox58.BackColor = Color.LightGray
        ElseIf ComboBox120.Text = 7 Then : ComboBox58.BackColor = Color.LightGreen
        ElseIf ComboBox120.Text = 8 Then : ComboBox58.BackColor = Color.LightPink
        ElseIf ComboBox120.Text = 9 Then : ComboBox58.BackColor = Color.LightSalmon
        ElseIf ComboBox120.Text = 0 Then : ComboBox58.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox121_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox121.SelectedIndexChanged
        If ComboBox121.Text = 1 Then : ComboBox59.BackColor = Color.LawnGreen
        ElseIf ComboBox121.Text = 2 Then : ComboBox59.BackColor = Color.LightBlue
        ElseIf ComboBox121.Text = 3 Then : ComboBox59.BackColor = Color.LightCoral
        ElseIf ComboBox121.Text = 4 Then : ComboBox59.BackColor = Color.LightCyan
        ElseIf ComboBox121.Text = 5 Then : ComboBox59.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox121.Text = 6 Then : ComboBox59.BackColor = Color.LightGray
        ElseIf ComboBox121.Text = 7 Then : ComboBox59.BackColor = Color.LightGreen
        ElseIf ComboBox121.Text = 8 Then : ComboBox59.BackColor = Color.LightPink
        ElseIf ComboBox121.Text = 9 Then : ComboBox59.BackColor = Color.LightSalmon
        ElseIf ComboBox121.Text = 0 Then : ComboBox59.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox122_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox122.SelectedIndexChanged
        If ComboBox122.Text = 1 Then : ComboBox60.BackColor = Color.LawnGreen
        ElseIf ComboBox122.Text = 2 Then : ComboBox60.BackColor = Color.LightBlue
        ElseIf ComboBox122.Text = 3 Then : ComboBox60.BackColor = Color.LightCoral
        ElseIf ComboBox122.Text = 4 Then : ComboBox60.BackColor = Color.LightCyan
        ElseIf ComboBox122.Text = 5 Then : ComboBox60.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox122.Text = 6 Then : ComboBox60.BackColor = Color.LightGray
        ElseIf ComboBox122.Text = 7 Then : ComboBox60.BackColor = Color.LightGreen
        ElseIf ComboBox122.Text = 8 Then : ComboBox60.BackColor = Color.LightPink
        ElseIf ComboBox122.Text = 9 Then : ComboBox60.BackColor = Color.LightSalmon
        ElseIf ComboBox122.Text = 0 Then : ComboBox60.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox123_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox123.SelectedIndexChanged
        If ComboBox123.Text = 1 Then : ComboBox61.BackColor = Color.LawnGreen
        ElseIf ComboBox123.Text = 2 Then : ComboBox61.BackColor = Color.LightBlue
        ElseIf ComboBox123.Text = 3 Then : ComboBox61.BackColor = Color.LightCoral
        ElseIf ComboBox123.Text = 4 Then : ComboBox61.BackColor = Color.LightCyan
        ElseIf ComboBox123.Text = 5 Then : ComboBox61.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox123.Text = 6 Then : ComboBox61.BackColor = Color.LightGray
        ElseIf ComboBox123.Text = 7 Then : ComboBox61.BackColor = Color.LightGreen
        ElseIf ComboBox123.Text = 8 Then : ComboBox61.BackColor = Color.LightPink
        ElseIf ComboBox123.Text = 9 Then : ComboBox61.BackColor = Color.LightSalmon
        ElseIf ComboBox123.Text = 0 Then : ComboBox61.BackColor = Color.Gray
        End If
    End Sub
    Private Sub ComboBox124_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox124.SelectedIndexChanged
        If ComboBox124.Text = 1 Then : ComboBox62.BackColor = Color.LawnGreen
        ElseIf ComboBox124.Text = 2 Then : ComboBox62.BackColor = Color.LightBlue
        ElseIf ComboBox124.Text = 3 Then : ComboBox62.BackColor = Color.LightCoral
        ElseIf ComboBox124.Text = 4 Then : ComboBox62.BackColor = Color.LightCyan
        ElseIf ComboBox124.Text = 5 Then : ComboBox62.BackColor = Color.LightGoldenrodYellow
        ElseIf ComboBox124.Text = 6 Then : ComboBox62.BackColor = Color.LightGray
        ElseIf ComboBox124.Text = 7 Then : ComboBox62.BackColor = Color.LightGreen
        ElseIf ComboBox124.Text = 8 Then : ComboBox62.BackColor = Color.LightPink
        ElseIf ComboBox124.Text = 9 Then : ComboBox62.BackColor = Color.LightSalmon
        ElseIf ComboBox124.Text = 0 Then : ComboBox62.BackColor = Color.Gray
        End If
    End Sub
End Class