Private Function GetShift()
        Dim lColor As Color
        Dim sValue As String
        Dim tDate As Date
        Dim Tag As Integer
 
        Tag = DateAndTime.Weekday(Date.Now, FirstDayOfWeek.Sunday)
        If Tag <> 1 Then
            Select Case tDate
                Case Is < TimeSerial(5, 30, 0)
                    sValue = "Nachtschicht"
                    lColor = Color.Blue
                    ToolStripTextBox1.ForeColor = Color.AntiqueWhite
                Case Is < TimeSerial(13, 30, 0)
                    sValue = "Frühschicht"
                    lColor = Color.Yellow
                    ToolStripTextBox1.ForeColor = Color.Black
                Case Is > TimeSerial(21, 30, 0)
                    sValue = "Nachtschicht"
                    lColor = Color.Blue
                    ToolStripTextBox1.ForeColor = Color.AntiqueWhite
                Case Is < TimeSerial(21, 30, 0)
                    sValue = "Spätschicht"
                    lColor = Color.Red
                    ToolStripTextBox1.ForeColor = Color.AntiqueWhite
            End Select
        End If
        ToolStripTextBox1.BackColor = lColor
        ToolStripTextBox1.Text = sValue
        If Tag = 1 Then
            Select Case tDate
                Case Is < TimeSerial(5, 30, 0)
                    sValue = "Nachtschicht"
                    lColor = Color.Blue
                    ToolStripTextBox1.ForeColor = Color.AntiqueWhite
                Case Is < TimeSerial(17, 30, 0)
                    sValue = "Frühschicht"
                    lColor = Color.Yellow
                    ToolStripTextBox1.ForeColor = Color.Black
                Case Is > TimeSerial(17, 30, 0)
                    sValue = "Nachtschicht"
                    lColor = Color.Blue
                    ToolStripTextBox1.ForeColor = Color.AntiqueWhite
            End Select
        End If
        ToolStripTextBox1.BackColor = lColor
        ToolStripTextBox1.Text = sValue
    End Function