主题：计划不能执行

我这样测试没问题，我把间隔调成10秒测试没问题。

static count As Integer = 1
Dim cando As Boolean
If Date.Now.Hour >= 10 AndAlso Date.Now.Hour <= 22 Then
    If count = 2 Then
        count = 1
        cando = True
    Else
        count += 1
    End If
ElseIf  Date.Now.Hour > 22 OrElse Date.Now.Hour <= 2 Then
    cando = True
End If
If cando Then
    msgbox(111)
End If

请认真测试执行3楼代码。