Private Sub CheckTime()
        Dim dayOfWeek As DayOfWeek = us.Calendar.GetDayOfWeek(Date.Today)   ' 
        ' Dagens nummer eks. 3
        Dim d As String = us.DateTimeFormat.GetDayName(dayOfWeek)           ' 
        ' Det engelske navn for dagen eks. Wednesday
        'Dim t As String = Now.ToShortTimeString                             ' _
          Tid f.eks. 17.30
        Dim tsStart As TimeSpan
        Dim tsEnd As TimeSpan
        Dim count As Integer = 0
 
        actOnMotion = False
 
        For Each itm As String In lstOnTimes
            If itm.Contains(d) Then count += 1
        Next
 
        For i = 0 To lstOnTimes.Count - 1
            Dim sStr As String() = lstOnTimes(i).ToString.Split("-")
            If sStr(0) = d Then
                If i = 0 Then tsEnd = TimeSpan.Parse(sStr(1))   ' Listen vender 
                ' modsat derfor tsEnd = id 0
                If i = count Then tsStart = TimeSpan.Parse(sStr(1))
                If DateTime.Now.TimeOfDay >= tsStart AndAlso _
                  DateTime.Now.TimeOfDay <= tsEnd Then
                    actOnMotion = True
                End If
            End If
        Next
 
        Debug.Print(actOnMotion)
    End Sub