Private Function GetShift()
        Dim lColor As Color
        Dim sValue As String = ""
        Dim tDate As Date = "07:00:00"
 
        Select Case tDate
            Case Is < TimeSerial(6, 0, 0)
                sValue = "Nachtschicht"
                lColor = Color.Violet
            Case Is < TimeSerial(14, 0, 0)
                sValue = "Frühschicht"
                lColor = Color.Yellow
            Case Is > TimeSerial(22, 0, 0)
                sValue = "Nachtschicht"
                lColor = Color.Violet
            Case Else
                sValue = "Spätschicht"
                lColor = Color.Red
        End Select
        Label1.BackColor = lColor
        Label1.Text = sValue
 
    End Function