HSKIN-MIS-SYS-LEEHSIEHJUI/GRAMS-SYS/01、排班管理/個人班表.vb

Option Strict Off
Imports System.Drawing.Imaging
Imports System.IO

Public Class 個人班表
    ReadOnly ds, ds1 As New DataSet
    Dim X1, XX, XXX, AA As Double
    Dim Q, 開始位置1, 開始位置2, 標準長度, 行(31) As Integer
    Private Sub 讀取排班()
        Dim ds43 As New DataSet
        人員彙總_dgv.DataSource = Nothing : ds43.Clear()
        人員彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        人員彙總_dgv.ColumnHeadersHeight = 40 : 人員彙總_dgv.AllowUserToAddRows = False
        SQL_排班系統_人員排班()
        da.Fill(ds43) : 人員彙總_dgv.DataSource = ds43.Tables(0) : conn.Close()
        人員彙總_dgv.Columns(0).ReadOnly = True : 人員彙總_dgv.Columns(1).ReadOnly = True : 人員彙總_dgv.Columns(2).ReadOnly = True
        人員彙總_dgv.Columns(3).ReadOnly = True : 人員彙總_dgv.Columns(4).ReadOnly = True
        人員彙總_dgv.Columns(3).DefaultCellStyle.Format = "#,##0.0"
        人員彙總_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.0"
    End Sub
    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 進度條變化1()
        If 姓名_tb1.Text <> "" Or 班別_cb1.Text <> "休" Then
            Do2 = NumericUpDown1.Value : 班條長度()
            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 : ComboBox2.Visible = True
            ElseIf CheckBox1.Checked = False And Val(Strings.Left(班別_cb1.Text, 2)) >= 17 Then : ComboBox2.Visible = False
            ElseIf CheckBox1.Checked = True Then : ComboBox2.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化2()
        Do2 = NumericUpDown2.Value : 班條長度()
        If 姓名_tb2.Text <> "" Or 班別_cb2.Text <> "休" Then
            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 : ComboBox4.Visible = True
            ElseIf CheckBox2.Checked = False And Val(Strings.Left(班別_cb2.Text, 2)) >= 17 Then : ComboBox4.Visible = False
            ElseIf CheckBox2.Checked = True Then : ComboBox4.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化3()
        If 姓名_tb3.Text <> "" Or 班別_cb3.Text <> "休" Then
            Do2 = NumericUpDown3.Value : 班條長度()
            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 : ComboBox6.Visible = True
            ElseIf CheckBox3.Checked = False And Val(Strings.Left(班別_cb3.Text, 2)) >= 17 Then : ComboBox6.Visible = False
            ElseIf CheckBox3.Checked = True Then : ComboBox6.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化4()
        If 姓名_tb4.Text <> "" Or 班別_cb4.Text <> "休" Then
            Do2 = NumericUpDown4.Value : 班條長度()
            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 : ComboBox8.Visible = True
            ElseIf CheckBox4.Checked = False And Val(Strings.Left(班別_cb4.Text, 2)) >= 17 Then : ComboBox8.Visible = False
            ElseIf CheckBox4.Checked = True Then : ComboBox8.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化5()
        If 姓名_tb5.Text <> "" Or 班別_cb5.Text <> "休" Then
            Do2 = NumericUpDown5.Value : 班條長度()
            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 : ComboBox10.Visible = True
            ElseIf CheckBox5.Checked = False And Val(Strings.Left(班別_cb5.Text, 2)) >= 17 Then : ComboBox10.Visible = False
            ElseIf CheckBox5.Checked = True Then : ComboBox10.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化6()
        If 姓名_tb6.Text <> "" Or 班別_cb6.Text <> "休" Then
            Do2 = NumericUpDown6.Value : 班條長度()
            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 : ComboBox12.Visible = True
            ElseIf CheckBox6.Checked = False And Val(Strings.Left(班別_cb6.Text, 2)) >= 17 Then : ComboBox12.Visible = False
            ElseIf CheckBox6.Checked = True Then : ComboBox12.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化7()
        If 姓名_tb7.Text <> "" Or 班別_cb7.Text <> "休" Then
            Do2 = NumericUpDown7.Value : 班條長度()
            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 : ComboBox14.Visible = True
            ElseIf CheckBox7.Checked = False And Val(Strings.Left(班別_cb7.Text, 2)) >= 17 Then : ComboBox14.Visible = False
            ElseIf CheckBox7.Checked = True Then : ComboBox14.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化8()
        If 姓名_tb8.Text <> "" Or 班別_cb8.Text <> "休" Then
            Do2 = NumericUpDown8.Value : 班條長度()
            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 : ComboBox16.Visible = True
            ElseIf CheckBox8.Checked = False And Val(Strings.Left(班別_cb8.Text, 2)) >= 17 Then : ComboBox16.Visible = False
            ElseIf CheckBox8.Checked = True Then : ComboBox16.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化9()
        If 姓名_tb9.Text <> "" Or 班別_cb9.Text <> "休" Then
            Do2 = NumericUpDown9.Value : 班條長度()
            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 : ComboBox18.Visible = True
            ElseIf CheckBox9.Checked = False And Val(Strings.Left(班別_cb9.Text, 2)) >= 17 Then : ComboBox18.Visible = False
            ElseIf CheckBox9.Checked = True Then : ComboBox18.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化10()
        If 姓名_tb10.Text <> "" Or 班別_cb10.Text <> "休" Then
            Do2 = NumericUpDown10.Value : 班條長度()
            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 : ComboBox20.Visible = True
            ElseIf CheckBox10.Checked = False And Val(Strings.Left(班別_cb10.Text, 2)) >= 17 Then : ComboBox20.Visible = False
            ElseIf CheckBox10.Checked = True Then : ComboBox20.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化11()
        If 姓名_tb11.Text <> "" Or 班別_cb11.Text <> "休" Then
            Do2 = NumericUpDown11.Value : 班條長度()
            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 : ComboBox22.Visible = True
            ElseIf CheckBox11.Checked = False And Val(Strings.Left(班別_cb11.Text, 2)) >= 17 Then : ComboBox22.Visible = False
            ElseIf CheckBox11.Checked = True Then : ComboBox22.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化12()
        If 姓名_tb12.Text <> "" Or 班別_cb12.Text <> "休" Then
            Do2 = NumericUpDown12.Value : 班條長度()
            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 : ComboBox24.Visible = True
            ElseIf CheckBox12.Checked = False And Val(Strings.Left(班別_cb12.Text, 2)) >= 17 Then : ComboBox24.Visible = False
            ElseIf CheckBox12.Checked = True Then : ComboBox24.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化13()
        If 姓名_tb13.Text <> "" Or 班別_cb13.Text <> "休" Then
            Do2 = NumericUpDown13.Value : 班條長度()
            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 : ComboBox26.Visible = True
            ElseIf CheckBox13.Checked = False And Val(Strings.Left(班別_cb13.Text, 2)) >= 17 Then : ComboBox26.Visible = False
            ElseIf CheckBox13.Checked = True Then : ComboBox26.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化14()
        If 姓名_tb14.Text <> "" Or 班別_cb14.Text <> "休" Then
            Do2 = NumericUpDown14.Value : 班條長度()
            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 : ComboBox28.Visible = True
            ElseIf CheckBox14.Checked = False And Val(Strings.Left(班別_cb14.Text, 2)) >= 17 Then : ComboBox28.Visible = False
            ElseIf CheckBox14.Checked = True Then : ComboBox28.Visible = False
            End If
        End If
    End Sub
    Private Sub 進度條變化15()
        If 姓名_tb15.Text <> "" Or 班別_cb15.Text <> "休" Then
            Do2 = NumericUpDown15.Value : 班條長度()
            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 : ComboBox30.Visible = True
            ElseIf CheckBox15.Checked = False And Val(Strings.Left(班別_cb15.Text, 2)) >= 17 Then : ComboBox30.Visible = False
            ElseIf CheckBox15.Checked = True Then : ComboBox30.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化16()
        If 姓名_tb16.Text <> "" Or 班別_cb16.Text <> "休" Then
            Do2 = NumericUpDown16.Value : 班條長度()
            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 : ComboBox32.Visible = True
            ElseIf CheckBox16.Checked = False And Val(Strings.Left(班別_cb16.Text, 2)) >= 17 Then : ComboBox32.Visible = False
            ElseIf CheckBox16.Checked = True Then : ComboBox32.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化17()
        If 姓名_tb17.Text <> "" Or 班別_cb17.Text <> "休" Then
            Do2 = NumericUpDown17.Value : 班條長度()
            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 : ComboBox34.Visible = True
            ElseIf CheckBox17.Checked = False And Val(Strings.Left(班別_cb17.Text, 2)) >= 17 Then : ComboBox34.Visible = False
            ElseIf CheckBox17.Checked = True Then : ComboBox34.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化18()
        If 姓名_tb18.Text <> "" Or 班別_cb18.Text <> "休" Then
            Do2 = NumericUpDown18.Value : 班條長度()
            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 : ComboBox36.Visible = True
            ElseIf CheckBox18.Checked = False And Val(Strings.Left(班別_cb18.Text, 2)) >= 17 Then : ComboBox36.Visible = False
            ElseIf CheckBox18.Checked = True Then : ComboBox36.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化19()
        If 姓名_tb19.Text <> "" Or 班別_cb19.Text <> "休" Then
            Do2 = NumericUpDown19.Value : 班條長度()
            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 : ComboBox38.Visible = True
            ElseIf CheckBox19.Checked = False And Val(Strings.Left(班別_cb19.Text, 2)) >= 17 Then : ComboBox38.Visible = False
            ElseIf CheckBox19.Checked = True Then : ComboBox38.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化20()
        If 姓名_tb20.Text <> "" Or 班別_cb20.Text <> "休" Then
            Do2 = NumericUpDown20.Value : 班條長度()
            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 : ComboBox40.Visible = True
            ElseIf CheckBox20.Checked = False And Val(Strings.Left(班別_cb20.Text, 2)) >= 17 Then : ComboBox40.Visible = False
            ElseIf CheckBox20.Checked = True Then : ComboBox40.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化21()
        If 姓名_tb21.Text <> "" Or 班別_cb21.Text <> "休" Then
            Do2 = NumericUpDown21.Value : 班條長度()
            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 : ComboBox42.Visible = True
            ElseIf CheckBox21.Checked = False And Val(Strings.Left(班別_cb21.Text, 2)) >= 17 Then : ComboBox42.Visible = False
            ElseIf CheckBox21.Checked = True Then : ComboBox42.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化22()
        If 姓名_tb22.Text <> "" Or 班別_cb22.Text <> "休" Then
            Do2 = NumericUpDown22.Value : 班條長度()
            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 : ComboBox44.Visible = True
            ElseIf CheckBox22.Checked = False And Val(Strings.Left(班別_cb22.Text, 2)) >= 17 Then : ComboBox44.Visible = False
            ElseIf CheckBox22.Checked = True Then : ComboBox44.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化23()
        If 姓名_tb23.Text <> "" Or 班別_cb23.Text <> "休" Then
            Do2 = NumericUpDown23.Value : 班條長度()
            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 : ComboBox46.Visible = True
            ElseIf CheckBox23.Checked = False And Val(Strings.Left(班別_cb23.Text, 2)) >= 17 Then : ComboBox46.Visible = False
            ElseIf CheckBox23.Checked = True Then : ComboBox46.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化24()
        If 姓名_tb24.Text <> "" Or 班別_cb24.Text <> "休" Then
            Do2 = NumericUpDown24.Value : 班條長度()
            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 : ComboBox48.Visible = True
            ElseIf CheckBox24.Checked = False And Val(Strings.Left(班別_cb24.Text, 2)) >= 17 Then : ComboBox48.Visible = False
            ElseIf CheckBox24.Checked = True Then : ComboBox48.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化25()
        If 姓名_tb25.Text <> "" Or 班別_cb25.Text <> "休" Then
            Do2 = NumericUpDown25.Value : 班條長度()
            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 : ComboBox50.Visible = True
            ElseIf CheckBox25.Checked = False And Val(Strings.Left(班別_cb25.Text, 2)) >= 17 Then : ComboBox50.Visible = False
            ElseIf CheckBox25.Checked = True Then : ComboBox50.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化26()
        If 姓名_tb26.Text <> "" Or 班別_cb26.Text <> "休" Then
            Do2 = NumericUpDown26.Value : 班條長度()
            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 : ComboBox52.Visible = True
            ElseIf CheckBox26.Checked = False And Val(Strings.Left(班別_cb26.Text, 2)) >= 17 Then : ComboBox52.Visible = False
            ElseIf CheckBox26.Checked = True Then : ComboBox52.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化27()
        If 姓名_tb27.Text <> "" Or 班別_cb27.Text <> "休" Then
            Do2 = NumericUpDown27.Value : 班條長度()
            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 : ComboBox54.Visible = True
            ElseIf CheckBox27.Checked = False And Val(Strings.Left(班別_cb27.Text, 2)) >= 17 Then : ComboBox54.Visible = False
            ElseIf CheckBox27.Checked = True Then : ComboBox54.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化28()
        If 姓名_tb28.Text <> "" Or 班別_cb28.Text <> "休" Then
            Do2 = NumericUpDown28.Value : 班條長度()
            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 : ComboBox56.Visible = True
            ElseIf CheckBox28.Checked = False And Val(Strings.Left(班別_cb28.Text, 2)) >= 17 Then : ComboBox56.Visible = False
            ElseIf CheckBox28.Checked = True Then : ComboBox56.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化29()
        If 姓名_tb29.Text <> "" Or 班別_cb29.Text <> "休" Then
            Do2 = NumericUpDown29.Value : 班條長度()
            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 : ComboBox58.Visible = True
            ElseIf CheckBox29.Checked = False And Val(Strings.Left(班別_cb29.Text, 2)) >= 17 Then : ComboBox58.Visible = False
            ElseIf CheckBox29.Checked = True Then : ComboBox58.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化30()
        If 姓名_tb30.Text <> "" Or 班別_cb30.Text <> "休" Then
            Do2 = NumericUpDown30.Value : 班條長度()
            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 : ComboBox60.Visible = True
            ElseIf CheckBox30.Checked = False And Val(Strings.Left(班別_cb30.Text, 2)) >= 17 Then : ComboBox60.Visible = False
            ElseIf CheckBox30.Checked = True Then : ComboBox60.Visible = False : End If
        End If
    End Sub
    Private Sub 進度條變化31()
        If 姓名_tb31.Text <> "" Or 班別_cb31.Text <> "休" Then
            Do2 = NumericUpDown31.Value : 班條長度()
            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 : ComboBox62.Visible = True
            ElseIf CheckBox31.Checked = False And Val(Strings.Left(班別_cb31.Text, 2)) >= 17 Then : ComboBox62.Visible = False
            ElseIf CheckBox31.Checked = True Then : 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 : 班條長度()
        ComboBox1.Location = New Point(開始位置1 + XX, 行(1)) : ComboBox2.Location = New Point(開始位置2 + XX + X1 + XXX, 行(1)) : 進度條變化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 : 班條長度()
        ComboBox3.Location = New Point(開始位置1 + XX, 行(2)) : ComboBox4.Location = New Point(開始位置2 + XX + X1 + XXX, 行(2)) : 進度條變化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 : 班條長度()
        ComboBox5.Location = New Point(開始位置1 + XX, 行(3)) : ComboBox6.Location = New Point(開始位置2 + XX + X1 + XXX, 行(3)) : 進度條變化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 : 班條長度()
        ComboBox7.Location = New Point(開始位置1 + XX, 行(4)) : ComboBox8.Location = New Point(開始位置2 + XX + X1 + XXX, 行(4)) : 進度條變化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 : 班條長度()
        ComboBox9.Location = New Point(開始位置1 + XX, 行(5)) : ComboBox10.Location = New Point(開始位置2 + XX + X1 + XXX, 行(5)) : 進度條變化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 : 班條長度()
        ComboBox11.Location = New Point(開始位置1 + XX, 行(6)) : ComboBox12.Location = New Point(開始位置2 + XX + X1 + XXX, 行(6)) : 進度條變化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 : 班條長度()
        ComboBox13.Location = New Point(開始位置1 + XX, 行(7)) : ComboBox14.Location = New Point(開始位置2 + XX + X1 + XXX, 行(7)) : 進度條變化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 : 班條長度()
        ComboBox15.Location = New Point(開始位置1 + XX, 行(8)) : ComboBox16.Location = New Point(開始位置2 + XX + X1 + XXX, 行(8)) : 進度條變化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 : 班條長度()
        ComboBox17.Location = New Point(開始位置1 + XX, 行(9)) : ComboBox18.Location = New Point(開始位置2 + XX + X1 + XXX, 行(9)) : 進度條變化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 : 班條長度()
        ComboBox19.Location = New Point(開始位置1 + XX, 行(10)) : ComboBox20.Location = New Point(開始位置2 + XX + X1 + XXX, 行(10)) : 進度條變化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 : 班條長度()
        ComboBox21.Location = New Point(開始位置1 + XX, 行(11)) : ComboBox22.Location = New Point(開始位置2 + XX + X1 + XXX, 行(11)) : 進度條變化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 : 班條長度()
        ComboBox23.Location = New Point(開始位置1 + XX, 行(12)) : ComboBox24.Location = New Point(開始位置2 + XX + X1 + XXX, 行(12)) : 進度條變化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 : 班條長度()
        ComboBox25.Location = New Point(開始位置1 + XX, 行(13)) : ComboBox26.Location = New Point(開始位置2 + XX + X1 + XXX, 行(13)) : 進度條變化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 : 班條長度()
        ComboBox27.Location = New Point(開始位置1 + XX, 行(14)) : ComboBox28.Location = New Point(開始位置2 + XX + X1 + XXX, 行(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 : 班條長度()
        ComboBox29.Location = New Point(開始位置1 + XX, 行(15)) : ComboBox30.Location = New Point(開始位置2 + XX + X1 + XXX, 行(15)) : 進度條變化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 : 班條長度()
        ComboBox31.Location = New Point(開始位置1 + XX, 行(16)) : ComboBox32.Location = New Point(開始位置2 + XX + X1 + XXX, 行(16)) : 進度條變化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 : 班條長度()
        ComboBox33.Location = New Point(開始位置1 + XX, 行(17)) : ComboBox34.Location = New Point(開始位置2 + XX + X1 + XXX, 行(17)) : 進度條變化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 : 班條長度()
        ComboBox35.Location = New Point(開始位置1 + XX, 行(18)) : ComboBox36.Location = New Point(開始位置2 + XX + X1 + XXX, 行(18)) : 進度條變化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 : 班條長度()
        ComboBox37.Location = New Point(開始位置1 + XX, 行(19)) : ComboBox38.Location = New Point(開始位置2 + XX + X1 + XXX, 行(19)) : 進度條變化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 : 班條長度()
        ComboBox39.Location = New Point(開始位置1 + XX, 行(20)) : ComboBox40.Location = New Point(開始位置2 + XX + X1 + XXX, 行(20)) : 進度條變化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 : 班條長度()
        ComboBox41.Location = New Point(開始位置1 + XX, 行(21)) : ComboBox42.Location = New Point(開始位置2 + XX + X1 + XXX, 行(21)) : 進度條變化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 : 班條長度()
        ComboBox43.Location = New Point(開始位置1 + XX, 行(22)) : ComboBox44.Location = New Point(開始位置2 + XX + X1 + XXX, 行(22)) : 進度條變化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 : 班條長度()
        ComboBox45.Location = New Point(開始位置1 + XX, 行(23)) : ComboBox46.Location = New Point(開始位置2 + XX + X1 + XXX, 行(23)) : 進度條變化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 : 班條長度()
        ComboBox47.Location = New Point(開始位置1 + XX, 行(24)) : ComboBox48.Location = New Point(開始位置2 + XX + X1 + XXX, 行(24)) : 進度條變化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 : 班條長度()
        ComboBox49.Location = New Point(開始位置1 + XX, 行(25)) : ComboBox50.Location = New Point(開始位置2 + XX + X1 + XXX, 行(25)) : 進度條變化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 : 班條長度()
        ComboBox51.Location = New Point(開始位置1 + XX, 行(26)) : ComboBox52.Location = New Point(開始位置2 + XX + X1 + XXX, 行(26)) : 進度條變化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 : 班條長度()
        ComboBox53.Location = New Point(開始位置1 + XX, 行(27)) : ComboBox54.Location = New Point(開始位置2 + XX + X1 + XXX, 行(27)) : 進度條變化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 : 班條長度()
        ComboBox55.Location = New Point(開始位置1 + XX, 行(28)) : ComboBox56.Location = New Point(開始位置2 + XX + X1 + XXX, 行(28)) : 進度條變化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 : 班條長度()
        ComboBox57.Location = New Point(開始位置1 + XX, 行(29)) : ComboBox58.Location = New Point(開始位置2 + XX + X1 + XXX, 行(29)) : 進度條變化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 : 班條長度()
        ComboBox59.Location = New Point(開始位置1 + XX, 行(30)) : ComboBox60.Location = New Point(開始位置2 + XX + X1 + XXX, 行(30)) : 進度條變化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 : 班條長度()
        ComboBox61.Location = New Point(開始位置1 + XX, 行(31)) : ComboBox62.Location = New Point(開始位置2 + XX + X1 + XXX, 行(31)) : 進度條變化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 班別圖示計算載入()
        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 個人班表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '--------------坐標系設定---------------------------
        開始位置1 = 460 : 開始位置2 = 885 : 行(0) = 27 : 標準長度 = 297
        行(1) = 44 : 行(2) = 行(1) + 行(0) : 行(3) = 行(2) + 行(0) : 行(4) = 行(3) + 行(0) : 行(5) = 行(4) + 行(0) : 行(6) = 行(5) + 行(0) : 行(7) = 行(6) + 行(0) : 行(8) = 行(7) + 行(0)
        行(9) = 行(8) + 行(0) : 行(10) = 行(9) + 行(0) : 行(11) = 行(10) + 行(0) : 行(12) = 行(11) + 行(0) : 行(13) = 行(12) + 行(0) : 行(14) = 行(13) + 行(0) : 行(15) = 行(14) + 行(0)
        行(16) = 行(15) + 行(0) : 行(17) = 行(16) + 行(0) : 行(18) = 行(17) + 行(0) : 行(19) = 行(18) + 行(0) : 行(20) = 行(19) + 行(0) : 行(21) = 行(20) + 行(0) : 行(22) = 行(21) + 行(0)
        行(23) = 行(22) + 行(0) : 行(24) = 行(23) + 行(0) : 行(25) = 行(24) + 行(0) : 行(26) = 行(25) + 行(0) : 行(27) = 行(26) + 行(0) : 行(28) = 行(27) + 行(0) : 行(29) = 行(28) + 行(0)
        行(30) = 行(29) + 行(0) : 行(31) = 行(30) + 行(0)

        人員彙總_dgv.SendToBack()
        年_lb.Text = PA : 月_lb.Text = PA1
        班別_下拉表單資料載入() : 個人班表預設()
    End Sub
    Private Sub 個人班表預設()
        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)
            Q += 1 : 姓名_tbS.Text = "" : 班別_cbS.Text = "休"
            ComboBoxs1.Visible = False : ComboBoxs2.Visible = False
            ComboBoxsS1.SelectedIndex = 0 : ComboBoxsS2.SelectedIndex = 0
        Next
        ComboBox1.Location = New Point(開始位置1 + XX, 行(1)) : ComboBox2.Location = New Point(開始位置2 + XX, 行(1))
        ComboBox3.Location = New Point(開始位置1 + XX, 行(2)) : ComboBox4.Location = New Point(開始位置2 + XX, 行(2))
        ComboBox5.Location = New Point(開始位置1 + XX, 行(3)) : ComboBox6.Location = New Point(開始位置2 + XX, 行(3))
        ComboBox7.Location = New Point(開始位置1 + XX, 行(4)) : ComboBox8.Location = New Point(開始位置2 + XX, 行(4))
        ComboBox9.Location = New Point(開始位置1 + XX, 行(5)) : ComboBox10.Location = New Point(開始位置2 + XX, 行(5))
        ComboBox11.Location = New Point(開始位置1 + XX, 行(6)) : ComboBox12.Location = New Point(開始位置2 + XX, 行(6))
        ComboBox13.Location = New Point(開始位置1 + XX, 行(7)) : ComboBox14.Location = New Point(開始位置2 + XX, 行(7))
        ComboBox15.Location = New Point(開始位置1 + XX, 行(8)) : ComboBox16.Location = New Point(開始位置2 + XX, 行(8))
        ComboBox17.Location = New Point(開始位置1 + XX, 行(9)) : ComboBox18.Location = New Point(開始位置2 + XX, 行(9))
        ComboBox19.Location = New Point(開始位置1 + XX, 行(10)) : ComboBox20.Location = New Point(開始位置2 + XX, 行(10))
        ComboBox21.Location = New Point(開始位置1 + XX, 行(11)) : ComboBox22.Location = New Point(開始位置2 + XX, 行(11))
        ComboBox23.Location = New Point(開始位置1 + XX, 行(12)) : ComboBox24.Location = New Point(開始位置2 + XX, 行(12))
        ComboBox25.Location = New Point(開始位置1 + XX, 行(13)) : ComboBox26.Location = New Point(開始位置2 + XX, 行(13))
        ComboBox27.Location = New Point(開始位置1 + XX, 行(14)) : ComboBox28.Location = New Point(開始位置2 + XX, 行(14))
        ComboBox29.Location = New Point(開始位置1 + XX, 行(15)) : ComboBox30.Location = New Point(開始位置2 + XX, 行(15))
        ComboBox31.Location = New Point(開始位置1 + XX, 行(16)) : ComboBox32.Location = New Point(開始位置2 + XX, 行(16))
        ComboBox33.Location = New Point(開始位置1 + XX, 行(17)) : ComboBox34.Location = New Point(開始位置2 + XX, 行(17))
        ComboBox35.Location = New Point(開始位置1 + XX, 行(18)) : ComboBox36.Location = New Point(開始位置2 + XX, 行(18))
        ComboBox37.Location = New Point(開始位置1 + XX, 行(19)) : ComboBox38.Location = New Point(開始位置2 + XX, 行(19))
        ComboBox39.Location = New Point(開始位置1 + XX, 行(20)) : ComboBox40.Location = New Point(開始位置2 + XX, 行(20))
        ComboBox41.Location = New Point(開始位置1 + XX, 行(21)) : ComboBox42.Location = New Point(開始位置2 + XX, 行(21))
        ComboBox43.Location = New Point(開始位置1 + XX, 行(22)) : ComboBox44.Location = New Point(開始位置2 + XX, 行(22))
        ComboBox45.Location = New Point(開始位置1 + XX, 行(23)) : ComboBox46.Location = New Point(開始位置2 + XX, 行(23))
        ComboBox47.Location = New Point(開始位置1 + XX, 行(24)) : ComboBox48.Location = New Point(開始位置2 + XX, 行(24))
        ComboBox49.Location = New Point(開始位置1 + XX, 行(25)) : ComboBox50.Location = New Point(開始位置2 + XX, 行(25))
        ComboBox51.Location = New Point(開始位置1 + XX, 行(26)) : ComboBox52.Location = New Point(開始位置2 + XX, 行(26))
        ComboBox53.Location = New Point(開始位置1 + XX, 行(27)) : ComboBox54.Location = New Point(開始位置2 + XX, 行(27))
        ComboBox55.Location = New Point(開始位置1 + XX, 行(28)) : ComboBox56.Location = New Point(開始位置2 + XX, 行(28))
        ComboBox57.Location = New Point(開始位置1 + XX, 行(29)) : ComboBox58.Location = New Point(開始位置2 + XX, 行(29))
        ComboBox59.Location = New Point(開始位置1 + XX, 行(30)) : ComboBox60.Location = New Point(開始位置2 + XX, 行(30))
        ComboBox61.Location = New Point(開始位置1 + XX, 行(31)) : ComboBox62.Location = New Point(開始位置2 + XX, 行(31))
    End Sub
    Private Sub 個人班表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        PA = 年_lb.Text & "/" & 月_lb.Text : 人員_tb.Text = PA2 : 讀取排班() : 個人班表讀取()
    End Sub
    Private Sub 個人班表讀取()
        讀取排班資料表() : 讀取星期()
        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
        Else : 個人班表預設() : End If
    End Sub
    Private Sub 截圖_bt_Click(sender As Object, e As EventArgs) Handles 截圖_bt.Click
        Dim bm = New Bitmap(Panel1.Width, Panel1.Height) : Panel1.Controls.SetChildIndex(PictureBox1, 0)
        Panel1.DrawToBitmap(bm, Panel1.ClientRectangle) : My.Computer.Clipboard.SetImage(bm) : PictureBox1.SendToBack()
        If 存檔_ch.Checked = True Then        ' 保存圖片到桌面
            Dim desktopPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
            Dim filePath As String = Path.Combine(desktopPath, 年_lb.Text & 月_lb.Text & 人員_tb.Text & ".png")
            bm.Save(filePath, ImageFormat.Png) : MsgBox("已將圖片存檔到桌面!!")
        End If
    End Sub
    Private Sub 日期上移_bt_Click(sender As Object, e As EventArgs) Handles 日期上移_bt.Click
        If 月_lb.Text <> 1 Then
            月_lb.Text = CInt(月_lb.Text) - 1
            If CInt(月_lb.Text) < 10 Then : 月_lb.Text = "0" & 月_lb.Text : End If
        Else
            年_lb.Text = CInt(年_lb.Text) - 1 : 月_lb.Text = 12
            If CInt(月_lb.Text) < 10 Then : 月_lb.Text = "0" & 月_lb.Text : End If
        End If : PA = 年_lb.Text & "/" & 月_lb.Text : PA2 = 人員_tb.Text : 個人班表讀取()
    End Sub
    Private Sub 日期下移_bt_Click(sender As Object, e As EventArgs) Handles 日期下移_bt.Click
        If 月_lb.Text <> 12 Then
            月_lb.Text = CInt(月_lb.Text) + 1
            If CInt(月_lb.Text) < 10 Then : 月_lb.Text = "0" & 月_lb.Text : End If
        Else
            年_lb.Text = CInt(年_lb.Text) + 1 : 月_lb.Text = 1
            If CInt(月_lb.Text) < 10 Then : 月_lb.Text = "0" & 月_lb.Text : End If
        End If : PA = 年_lb.Text & "/" & 月_lb.Text : PA2 = 人員_tb.Text : 個人班表讀取()
    End Sub
    Private Sub 人員向前_bt_Click(sender As Object, e As EventArgs) Handles 人員向前_bt.Click
        For I As Integer = 0 To 人員彙總_dgv.Rows.Count - 1
            If 人員_tb.Text = 人員彙總_dgv.Rows(I).Cells("姓名").Value.ToString() Then
                If I = 0 Then : MsgBox("已經是第一筆人員資料!!") : Else
                    人員_tb.Text = 人員彙總_dgv.Rows(I - 1).Cells("姓名").Value.ToString()
                    PA = 年_lb.Text & "/" & 月_lb.Text : PA2 = 人員_tb.Text : 個人班表讀取() : Exit Sub
                End If
            End If
            If I = 人員彙總_dgv.Rows.Count - 1 Then
                人員_tb.Text = 人員彙總_dgv.Rows(0).Cells("姓名").Value.ToString()
                PA = 年_lb.Text & "/" & 月_lb.Text : PA2 = 人員_tb.Text : 個人班表讀取() : Exit Sub
            End If
        Next
    End Sub
    Private Sub 人員向後_bt_Click(sender As Object, e As EventArgs) Handles 人員向後_bt.Click
        For I As Integer = 0 To 人員彙總_dgv.Rows.Count - 1
            If 人員_tb.Text = 人員彙總_dgv.Rows(I).Cells("姓名").Value.ToString() Then
                If I = 人員彙總_dgv.Rows.Count - 1 Then : MsgBox("已經是最後一筆人員資料!!") : Else
                    人員_tb.Text = 人員彙總_dgv.Rows(I + 1).Cells("姓名").Value.ToString()
                    PA = 年_lb.Text & "/" & 月_lb.Text : PA2 = 人員_tb.Text : 個人班表讀取() : Exit Sub
                End If
            End If
            If I = 人員彙總_dgv.Rows.Count - 1 Then
                人員_tb.Text = 人員彙總_dgv.Rows(I).Cells("姓名").Value.ToString()
                PA = 年_lb.Text & "/" & 月_lb.Text : PA2 = 人員_tb.Text : 個人班表讀取() : Exit Sub
            End If
        Next
    End Sub
    Private Sub 姓名1_tb_TextChanged(sender As Object, e As EventArgs) Handles 姓名_tb1.TextChanged
        If 姓名_tb1.Text = "" Or 班別_cb1.Text = "休" Then : ComboBox1.Visible = False : ComboBox2.Visible = False : Else
            ComboBox1.Visible = True : ComboBox2.Visible = True : XX = 0
            If 班別_cb1.Text = "" Or 班別_cb1.Text = "休" Then
                ComboBox1.Location = New Point(開始位置1 + XX, 行(1)) : ComboBox2.Location = New Point(開始位置2 + XX, 行(1))
            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 : ComboBox3.Visible = False : ComboBox4.Visible = False : Else
            ComboBox3.Visible = True : ComboBox4.Visible = True : XX = 0
            If 班別_cb2.Text = "" Or 班別_cb2.Text = "休" Then
                ComboBox3.Location = New Point(開始位置1 + XX, 行(2)) : ComboBox4.Location = New Point(開始位置2 + XX, 行(2))
            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 : ComboBox5.Visible = False : ComboBox6.Visible = False : Else
            ComboBox5.Visible = True : ComboBox6.Visible = True : XX = 0
            If 班別_cb3.Text = "" Or 班別_cb3.Text = "休" Then
                ComboBox5.Location = New Point(開始位置1 + XX, 行(3)) : ComboBox6.Location = New Point(開始位置2 + XX, 行(3))
            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 : ComboBox7.Visible = False : ComboBox8.Visible = False : Else
            ComboBox7.Visible = True : ComboBox8.Visible = True : XX = 0
            If 班別_cb4.Text = "" Or 班別_cb4.Text = "休" Then
                ComboBox7.Location = New Point(開始位置1 + XX, 行(4)) : ComboBox8.Location = New Point(開始位置2 + XX, 行(4))
            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 : ComboBox9.Visible = False : ComboBox10.Visible = False : Else
            ComboBox9.Visible = True : ComboBox10.Visible = True : XX = 0
            If 班別_cb5.Text = "" Or 班別_cb5.Text = "休" Then
                ComboBox9.Location = New Point(開始位置1 + XX, 行(5)) : ComboBox10.Location = New Point(開始位置2 + XX, 行(5))
            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 : ComboBox11.Visible = False : ComboBox12.Visible = False : Else
            ComboBox11.Visible = True : ComboBox12.Visible = True : XX = 0
            If 班別_cb6.Text = "" Or 班別_cb6.Text = "休" Then
                ComboBox11.Location = New Point(開始位置1 + XX, 行(6)) : ComboBox12.Location = New Point(開始位置2 + XX, 行(6))
            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 : ComboBox13.Visible = False : ComboBox14.Visible = False : Else
            ComboBox13.Visible = True : ComboBox14.Visible = True : XX = 0
            If 班別_cb7.Text = "" Or 班別_cb7.Text = "休" Then
                ComboBox13.Location = New Point(開始位置1 + XX, 行(7)) : ComboBox14.Location = New Point(開始位置2 + XX, 行(7))
            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 : ComboBox15.Visible = False : ComboBox16.Visible = False : Else
            ComboBox15.Visible = True : ComboBox16.Visible = True : XX = 0
            If 班別_cb8.Text = "" Or 班別_cb8.Text = "休" Then
                ComboBox15.Location = New Point(開始位置1 + XX, 行(8)) : ComboBox16.Location = New Point(開始位置2 + XX, 行(8))
            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 : ComboBox17.Visible = False : ComboBox18.Visible = False : Else
            ComboBox17.Visible = True : ComboBox18.Visible = True : XX = 0
            If 班別_cb9.Text = "" Or 班別_cb9.Text = "休" Then
                ComboBox17.Location = New Point(開始位置1 + XX, 行(9)) : ComboBox18.Location = New Point(開始位置2 + XX, 行(9))
            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 : ComboBox19.Visible = False : ComboBox20.Visible = False : Else
            ComboBox19.Visible = True : ComboBox20.Visible = True : XX = 0
            If 班別_cb10.Text = "" Or 班別_cb10.Text = "休" Then
                ComboBox19.Location = New Point(開始位置1 + XX, 行(10)) : ComboBox20.Location = New Point(開始位置2 + XX, 行(10))
            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 : ComboBox21.Visible = False : ComboBox22.Visible = False : Else
            ComboBox21.Visible = True : ComboBox22.Visible = True : XX = 0
            If 班別_cb11.Text = "" Or 班別_cb11.Text = "休" Then
                ComboBox21.Location = New Point(開始位置1 + XX, 行(11)) : ComboBox22.Location = New Point(開始位置2 + XX, 行(11))
            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 : ComboBox23.Visible = False : ComboBox24.Visible = False : Else
            ComboBox23.Visible = True : ComboBox24.Visible = True : XX = 0
            If 班別_cb12.Text = "" Or 班別_cb12.Text = "休" Then
                ComboBox23.Location = New Point(開始位置1 + XX, 行(12)) : ComboBox24.Location = New Point(開始位置2 + XX, 行(12))
            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 : ComboBox25.Visible = False : ComboBox26.Visible = False : Else
            ComboBox25.Visible = True : ComboBox26.Visible = True : XX = 0
            If 班別_cb13.Text = "" Or 班別_cb13.Text = "休" Then
                ComboBox25.Location = New Point(開始位置1 + XX, 行(13)) : ComboBox26.Location = New Point(開始位置2 + XX, 行(13))
            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 : ComboBox27.Visible = False : ComboBox28.Visible = False : Else
            ComboBox27.Visible = True : ComboBox28.Visible = True : XX = 0
            If 班別_cb14.Text = "" Or 班別_cb14.Text = "休" Then
                ComboBox27.Location = New Point(開始位置1 + XX, 行(14)) : ComboBox28.Location = New Point(開始位置2 + XX, 行(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 : ComboBox29.Visible = False : ComboBox30.Visible = False : Else
            ComboBox29.Visible = True : ComboBox30.Visible = True : XX = 0
            If 班別_cb15.Text = "" Or 班別_cb15.Text = "休" Then
                ComboBox29.Location = New Point(開始位置1 + XX, 行(15)) : ComboBox30.Location = New Point(開始位置2 + XX, 行(15))
            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 : ComboBox31.Visible = False : ComboBox32.Visible = False : Else
            ComboBox31.Visible = True : ComboBox32.Visible = True : XX = 0
            If 班別_cb16.Text = "" Or 班別_cb16.Text = "休" Then
                ComboBox31.Location = New Point(開始位置1 + XX, 行(16)) : ComboBox32.Location = New Point(開始位置2 + XX, 行(16))
            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 : ComboBox33.Visible = False : ComboBox34.Visible = False : Else
            ComboBox33.Visible = True : ComboBox34.Visible = True : XX = 0
            If 班別_cb17.Text = "" Or 班別_cb17.Text = "休" Then
                ComboBox33.Location = New Point(開始位置1 + XX, 行(17)) : ComboBox34.Location = New Point(開始位置2 + XX, 行(17))
            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 : ComboBox35.Visible = False : ComboBox36.Visible = False : Else
            ComboBox35.Visible = True : ComboBox36.Visible = True : XX = 0
            If 班別_cb18.Text = "" Or 班別_cb18.Text = "休" Then
                ComboBox35.Location = New Point(開始位置1 + XX, 行(18)) : ComboBox36.Location = New Point(開始位置2 + XX, 行(18))
            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 : ComboBox37.Visible = False : ComboBox38.Visible = False : Else
            ComboBox37.Visible = True : ComboBox38.Visible = True : XX = 0
            If 班別_cb19.Text = "" Or 班別_cb19.Text = "休" Then
                ComboBox37.Location = New Point(開始位置1 + XX, 行(19)) : ComboBox38.Location = New Point(開始位置2 + XX, 行(19))
            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 : ComboBox39.Visible = False : ComboBox40.Visible = False : Else
            ComboBox39.Visible = True : ComboBox40.Visible = True : XX = 0
            If 班別_cb20.Text = "" Or 班別_cb20.Text = "休" Then
                ComboBox39.Location = New Point(開始位置1 + XX, 行(20)) : ComboBox40.Location = New Point(開始位置2 + XX, 行(20))
            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 : ComboBox41.Visible = False : ComboBox42.Visible = False : Else
            ComboBox41.Visible = True : ComboBox42.Visible = True : XX = 0
            If 姓名_tb21.Text = "" Or 姓名_tb21.Text = "休" Then
                ComboBox41.Location = New Point(開始位置1 + XX, 行(21)) : ComboBox42.Location = New Point(開始位置2 + XX, 行(21))
            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 : ComboBox43.Visible = False : ComboBox44.Visible = False : Else
            ComboBox43.Visible = True : ComboBox44.Visible = True : XX = 0
            If 姓名_tb22.Text = "" Or 姓名_tb22.Text = "休" Then
                ComboBox43.Location = New Point(開始位置1 + XX, 行(22)) : ComboBox44.Location = New Point(開始位置2 + XX, 行(22))
            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 : ComboBox45.Visible = False : ComboBox46.Visible = False : Else
            ComboBox45.Visible = True : ComboBox46.Visible = True : XX = 0
            If 姓名_tb23.Text = "" Or 姓名_tb23.Text = "休" Then
                ComboBox45.Location = New Point(開始位置1 + XX, 行(23)) : ComboBox46.Location = New Point(開始位置2 + XX, 行(23))
            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 : ComboBox47.Visible = False : ComboBox48.Visible = False : Else
            ComboBox47.Visible = True : ComboBox48.Visible = True : XX = 0
            If 姓名_tb24.Text = "" Or 姓名_tb24.Text = "休" Then
                ComboBox47.Location = New Point(開始位置1 + XX, 行(24)) : ComboBox48.Location = New Point(開始位置2 + XX, 行(24))
            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 : ComboBox49.Visible = False : ComboBox50.Visible = False : Else
            ComboBox49.Visible = True : ComboBox50.Visible = True : XX = 0
            If 姓名_tb25.Text = "" Or 姓名_tb25.Text = "休" Then
                ComboBox49.Location = New Point(開始位置1 + XX, 行(25)) : ComboBox50.Location = New Point(開始位置2 + XX, 行(25))
            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 : ComboBox51.Visible = False : ComboBox52.Visible = False : Else
            ComboBox51.Visible = True : ComboBox52.Visible = True : XX = 0
            If 姓名_tb26.Text = "" Or 姓名_tb26.Text = "休" Then
                ComboBox51.Location = New Point(開始位置1 + XX, 行(26)) : ComboBox52.Location = New Point(開始位置2 + XX, 行(26))
            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 : ComboBox53.Visible = False : ComboBox54.Visible = False : Else
            ComboBox53.Visible = True : ComboBox54.Visible = True : XX = 0
            If 姓名_tb27.Text = "" Or 姓名_tb27.Text = "休" Then
                ComboBox53.Location = New Point(開始位置1 + XX, 行(27)) : ComboBox54.Location = New Point(開始位置2 + XX, 行(27))
            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 : ComboBox55.Visible = False : ComboBox56.Visible = False : Else
            ComboBox55.Visible = True : ComboBox56.Visible = True : XX = 0
            If 姓名_tb28.Text = "" Or 姓名_tb28.Text = "休" Then
                ComboBox55.Location = New Point(開始位置1 + XX, 行(28)) : ComboBox56.Location = New Point(開始位置2 + XX, 行(28))
            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 : ComboBox57.Visible = False : ComboBox58.Visible = False : Else
            ComboBox57.Visible = True : ComboBox58.Visible = True : XX = 0
            If 姓名_tb29.Text = "" Or 姓名_tb29.Text = "休" Then
                ComboBox57.Location = New Point(開始位置1 + XX, 行(29)) : ComboBox58.Location = New Point(開始位置2 + XX, 行(29))
            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 : ComboBox59.Visible = False : ComboBox60.Visible = False : Else
            ComboBox59.Visible = True : ComboBox60.Visible = True : XX = 0
            If 姓名_tb30.Text = "" Or 姓名_tb30.Text = "休" Then
                ComboBox59.Location = New Point(開始位置1 + XX, 行(30)) : ComboBox60.Location = New Point(開始位置2 + XX, 行(30))
            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 : ComboBox61.Visible = False : ComboBox62.Visible = False : Else
            ComboBox61.Visible = True : ComboBox62.Visible = True : XX = 0
            If 姓名_tb31.Text = "" Or 姓名_tb31.Text = "休" Then
                ComboBox61.Location = New Point(開始位置1 + XX, 行(31)) : ComboBox62.Location = New Point(開始位置2 + XX, 行(31))
            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 : ComboBox1.Visible = True : ComboBox2.Visible = True : 休息變化1()
        Else : 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 : ComboBox3.Visible = True : ComboBox4.Visible = True : 休息變化2()
        Else : 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 : ComboBox5.Visible = True : ComboBox6.Visible = True : 休息變化3()
        Else : 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 : ComboBox7.Visible = True : ComboBox8.Visible = True : 休息變化4()
        Else : 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 : ComboBox9.Visible = True : ComboBox10.Visible = True : 休息變化5()
        Else : 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 : ComboBox11.Visible = True : ComboBox12.Visible = True : 休息變化6()
        Else : 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 : ComboBox13.Visible = True : ComboBox14.Visible = True : 休息變化7()
        Else : 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 : ComboBox15.Visible = True : ComboBox16.Visible = True : 休息變化8()
        Else : 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 : ComboBox17.Visible = True : ComboBox18.Visible = True : 休息變化9()
        Else : 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 : ComboBox19.Visible = True : ComboBox20.Visible = True : 休息變化10()
        Else : 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 : ComboBox21.Visible = True : ComboBox22.Visible = True : 休息變化11()
        Else : 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 : ComboBox23.Visible = True : ComboBox24.Visible = True : 休息變化12()
        Else : 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 : ComboBox25.Visible = True : ComboBox26.Visible = True : 休息變化13()
        Else : 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 : ComboBox27.Visible = True : ComboBox28.Visible = True : 休息變化14()
        Else : 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 : ComboBox29.Visible = True : ComboBox30.Visible = True : 休息變化15()
        Else : 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 : ComboBox31.Visible = True : ComboBox32.Visible = True : 休息變化16()
        Else : 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 : ComboBox33.Visible = True : ComboBox34.Visible = True : 休息變化17()
        Else : 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 : ComboBox35.Visible = True : ComboBox36.Visible = True : 休息變化18()
        Else : 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 : ComboBox37.Visible = True : ComboBox38.Visible = True : 休息變化19()
        Else : 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 : ComboBox39.Visible = True : ComboBox40.Visible = True : 休息變化20()
        Else : 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 : ComboBox41.Visible = True : ComboBox42.Visible = True : 休息變化21()
        Else : 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 : ComboBox43.Visible = True : ComboBox44.Visible = True : 休息變化22()
        Else : 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 : ComboBox45.Visible = True : ComboBox46.Visible = True : 休息變化23()
        Else : 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 : ComboBox47.Visible = True : ComboBox48.Visible = True : 休息變化24()
        Else : 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 : ComboBox49.Visible = True : ComboBox50.Visible = True : 休息變化25()
        Else : 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 : ComboBox51.Visible = True : ComboBox52.Visible = True : 休息變化26()
        Else : 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 : ComboBox53.Visible = True : ComboBox54.Visible = True : 休息變化27()
        Else : 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 : ComboBox55.Visible = True : ComboBox56.Visible = True : 休息變化28()
        Else : 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 : ComboBox57.Visible = True : ComboBox58.Visible = True : 休息變化29()
        Else : 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 : ComboBox59.Visible = True : ComboBox60.Visible = True : 休息變化30()
        Else : 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 : ComboBox61.Visible = True : ComboBox62.Visible = True : 休息變化31()
        Else : 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() : ComboBox1.Visible = True : ComboBox2.Visible = True
        Else : 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() : ComboBox3.Visible = True : ComboBox4.Visible = True
        Else : 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() : ComboBox5.Visible = True : ComboBox6.Visible = True
        Else : 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() : ComboBox7.Visible = True : ComboBox8.Visible = True
        Else : 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() : ComboBox9.Visible = True : ComboBox10.Visible = True
        Else : 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() : ComboBox11.Visible = True : ComboBox12.Visible = True
        Else : 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() : ComboBox13.Visible = True : ComboBox14.Visible = True
        Else : 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() : ComboBox15.Visible = True : ComboBox16.Visible = True
        Else : 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() : ComboBox17.Visible = True : ComboBox18.Visible = True
        Else : 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() : ComboBox19.Visible = True : ComboBox20.Visible = True
        Else : 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() : ComboBox21.Visible = True : ComboBox22.Visible = True
        Else : 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() : ComboBox23.Visible = True : ComboBox24.Visible = True
        Else : 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() : ComboBox25.Visible = True : ComboBox26.Visible = True
        Else : 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() : ComboBox27.Visible = True : ComboBox28.Visible = True
        Else : 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() : ComboBox29.Visible = True : ComboBox30.Visible = True
        Else : 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() : ComboBox31.Visible = True : ComboBox32.Visible = True
        Else : 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() : ComboBox33.Visible = True : ComboBox34.Visible = True
        Else : 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() : ComboBox35.Visible = True : ComboBox36.Visible = True
        Else : 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() : ComboBox37.Visible = True : ComboBox38.Visible = True
        Else : 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() : ComboBox39.Visible = True : ComboBox40.Visible = True
        Else : 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() : ComboBox42.Visible = True
        Else : 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() : ComboBox43.Visible = True : ComboBox44.Visible = True
        Else : 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() : ComboBox45.Visible = True : ComboBox46.Visible = True
        Else : 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() : ComboBox47.Visible = True : ComboBox48.Visible = True
        Else : 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() : ComboBox49.Visible = True : ComboBox50.Visible = True
        Else : 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() : ComboBox51.Visible = True : ComboBox52.Visible = True
        Else : 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() : ComboBox53.Visible = True : ComboBox54.Visible = True
        Else : 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() : ComboBox55.Visible = True : ComboBox56.Visible = True
        Else : 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() : ComboBox57.Visible = True : ComboBox58.Visible = True
        Else : 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() : ComboBox59.Visible = True : ComboBox60.Visible = True
        Else : 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() : ComboBox61.Visible = True : ComboBox62.Visible = True
        Else : ComboBox61.Visible = False : ComboBox62.Visible = False : End If
    End Sub
    Private Sub SetComboBoxBackColor(comboBox As ComboBox, selectedIndex As Integer)
        Select Case selectedIndex
            Case 1 : comboBox.BackColor = Color.LawnGreen
            Case 2 : comboBox.BackColor = Color.LightBlue
            Case 3 : comboBox.BackColor = Color.LightCoral
            Case 4 : comboBox.BackColor = Color.LightCyan
            Case 5 : comboBox.BackColor = Color.LightGoldenrodYellow
            Case 6 : comboBox.BackColor = Color.LightGray
            Case 7 : comboBox.BackColor = Color.LightGreen
            Case 8 : comboBox.BackColor = Color.LightPink
            Case 9 : comboBox.BackColor = Color.LightSalmon
            Case 0 : comboBox.BackColor = Color.Gray
        End Select
    End Sub
    Private Sub ComboBox63_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox63.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox1, ComboBox63.SelectedIndex)
    End Sub
    Private Sub ComboBox64_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox64.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox2, ComboBox64.SelectedIndex)
    End Sub
    Private Sub ComboBox65_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox65.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox3, ComboBox65.SelectedIndex)
    End Sub
    Private Sub ComboBox66_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox66.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox4, ComboBox66.SelectedIndex)
    End Sub
    Private Sub ComboBox67_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox67.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox5, ComboBox67.SelectedIndex)
    End Sub
    Private Sub ComboBox68_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox68.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox6, ComboBox68.SelectedIndex)
    End Sub
    Private Sub ComboBox69_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox69.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox7, ComboBox69.SelectedIndex)
    End Sub
    Private Sub ComboBox70_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox70.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox8, ComboBox70.SelectedIndex)
    End Sub
    Private Sub ComboBox71_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox71.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox9, ComboBox71.SelectedIndex)
    End Sub
    Private Sub ComboBox72_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox72.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox10, ComboBox72.SelectedIndex)
    End Sub
    Private Sub ComboBox73_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox73.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox11, ComboBox73.SelectedIndex)
    End Sub
    Private Sub ComboBox74_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox74.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox12, ComboBox74.SelectedIndex)
    End Sub
    Private Sub ComboBox75_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox75.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox13, ComboBox75.SelectedIndex)
    End Sub
    Private Sub ComboBox76_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox76.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox14, ComboBox76.SelectedIndex)
    End Sub
    Private Sub ComboBox77_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox77.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox15, ComboBox77.SelectedIndex)
    End Sub
    Private Sub ComboBox78_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox78.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox16, ComboBox78.SelectedIndex)
    End Sub
    Private Sub ComboBox79_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox79.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox17, ComboBox79.SelectedIndex)
    End Sub
    Private Sub ComboBox80_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox80.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox18, ComboBox80.SelectedIndex)
    End Sub
    Private Sub ComboBox81_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox81.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox19, ComboBox81.SelectedIndex)
    End Sub
    Private Sub ComboBox82_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox82.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox20, ComboBox82.SelectedIndex)
    End Sub
    Private Sub ComboBox83_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox83.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox21, ComboBox83.SelectedIndex)
    End Sub
    Private Sub ComboBox84_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox84.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox22, ComboBox84.SelectedIndex)
    End Sub
    Private Sub ComboBox85_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox85.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox23, ComboBox85.SelectedIndex)
    End Sub
    Private Sub ComboBox86_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox86.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox24, ComboBox86.SelectedIndex)
    End Sub
    Private Sub ComboBox87_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox87.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox25, ComboBox87.SelectedIndex)
    End Sub
    Private Sub ComboBox88_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox88.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox26, ComboBox88.SelectedIndex)
    End Sub
    Private Sub ComboBox89_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox89.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox27, ComboBox89.SelectedIndex)
    End Sub
    Private Sub ComboBox90_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox90.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox28, ComboBox90.SelectedIndex)
    End Sub
    Private Sub ComboBox91_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox91.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox29, ComboBox91.SelectedIndex)
    End Sub
    Private Sub ComboBox92_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox92.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox30, ComboBox92.SelectedIndex)
    End Sub
    Private Sub ComboBox93_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox93.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox31, ComboBox93.SelectedIndex)
    End Sub
    Private Sub ComboBox94_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox94.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox32, ComboBox94.SelectedIndex)
    End Sub
    Private Sub ComboBox95_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox95.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox33, ComboBox95.SelectedIndex)
    End Sub
    Private Sub ComboBox96_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox96.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox34, ComboBox96.SelectedIndex)
    End Sub
    Private Sub ComboBox97_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox97.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox35, ComboBox97.SelectedIndex)
    End Sub
    Private Sub ComboBox98_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox98.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox36, ComboBox98.SelectedIndex)
    End Sub
    Private Sub ComboBox99_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox99.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox37, ComboBox99.SelectedIndex)
    End Sub
    Private Sub ComboBox100_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox100.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox38, ComboBox100.SelectedIndex)
    End Sub
    Private Sub ComboBox101_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox101.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox39, ComboBox101.SelectedIndex)
    End Sub
    Private Sub ComboBox102_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox102.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox40, ComboBox102.SelectedIndex)
    End Sub
    Private Sub ComboBox103_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox103.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox41, ComboBox103.SelectedIndex)
    End Sub
    Private Sub ComboBox104_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox104.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox42, ComboBox104.SelectedIndex)
    End Sub
    Private Sub ComboBox105_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox105.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox43, ComboBox105.SelectedIndex)
    End Sub
    Private Sub ComboBox106_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox106.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox44, ComboBox106.SelectedIndex)
    End Sub
    Private Sub ComboBox107_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox107.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox45, ComboBox107.SelectedIndex)
    End Sub
    Private Sub ComboBox108_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox108.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox46, ComboBox108.SelectedIndex)
    End Sub
    Private Sub ComboBox109_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox109.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox47, ComboBox109.SelectedIndex)
    End Sub
    Private Sub ComboBox110_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox110.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox48, ComboBox110.SelectedIndex)
    End Sub
    Private Sub ComboBox111_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox111.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox49, ComboBox111.SelectedIndex)
    End Sub
    Private Sub ComboBox112_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox112.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox50, ComboBox112.SelectedIndex)
    End Sub
    Private Sub ComboBox113_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox113.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox51, ComboBox113.SelectedIndex)
    End Sub
    Private Sub ComboBox114_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox114.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox52, ComboBox114.SelectedIndex)
    End Sub
    Private Sub ComboBox115_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox115.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox53, ComboBox115.SelectedIndex)
    End Sub
    Private Sub ComboBox116_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox116.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox54, ComboBox116.SelectedIndex)
    End Sub
    Private Sub ComboBox117_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox117.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox55, ComboBox117.SelectedIndex)
    End Sub
    Private Sub ComboBox118_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox118.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox56, ComboBox118.SelectedIndex)
    End Sub
    Private Sub ComboBox119_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox119.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox57, ComboBox119.SelectedIndex)
    End Sub
    Private Sub ComboBox120_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox120.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox58, ComboBox120.SelectedIndex)
    End Sub
    Private Sub ComboBox121_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox121.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox59, ComboBox121.SelectedIndex)
    End Sub
    Private Sub ComboBox122_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox122.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox60, ComboBox122.SelectedIndex)
    End Sub
    Private Sub ComboBox123_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox123.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox61, ComboBox123.SelectedIndex)
    End Sub
    Private Sub ComboBox124_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox124.SelectedIndexChanged
        SetComboBoxBackColor(ComboBox62, ComboBox124.SelectedIndex)
    End Sub
End Class