主题：关于SystemIdle事件的问题

我现在的代码是这样：

If (baseMainform.visible) = True Then
    If LastInputTickCount > 300000 Then
        If Windows.Forms.Form.ActiveForm IsNot Nothing Then
            If Forms("登陆窗口").Opened = False Then
                Forms("登陆窗口").show
            End If
        End If
    End If
End If

所以当程序缩小到任务栏时，就算过了5份钟也不会弹出登陆窗口。

如果变成这样：

If (baseMainform.visible) = True Then
    If LastInputTickCount > 300000 Then       
            If Forms("登陆窗口").Opened = False Then
                Forms("登陆窗口").show
            End If
            End If
End If

就算程序缩小到任务栏是，超过5分钟，登陆窗口还是会弹出。这种显然是不友好的，因为可能别人在做别的事。

我现在想实现的是，当程序缩小时，计时一样开始。如果超过5分钟，当再选择这个程序时，要重新登陆。如果能知道程序重新获得焦点呢？因为已经在计时，后面的都很容易，就是重新获得焦点时怎么判断搞不懂。请指点。多谢！

static ptime As Date = Date.Now
static leave As Boolean = False

If Windows.Forms.Form.ActiveForm Is Nothing AndAlso leave = False Then
    ptime = Date.Now
    leave = True
ElseIf Windows.Forms.Form.ActiveForm IsNot Nothing Then
    If leave = True Then
        leave = False
        Dim sp As TimeSpan = Date.Now - cdate(ptime)
        If sp.TotalSeconds > 10  Then
            If Forms("登陆窗口").Opened = False Then
                Forms("登陆窗口").show
            End If
        End If
    End If
    If LastInputTickCount > 10000 Then
        If Forms("登陆窗口").Opened = False Then
            Forms("登陆窗口").show
        End If
    End If
   
End If