请教两个问题：

 1：30秒内无操作，自动关闭系统。目前是，鼠键无动作，自动关闭，如何改为，系统无操作自动关闭？

If LastInputTickCount > 30000 Then
    Syscmd.Project.Exit()
End If

2：左下角信息栏，时间如何设置走动的？ 

1、

static ts As Date = Date.Now
If Windows.Forms.Form.ActiveForm IsNot Nothing Then
    ts = Date.now
Else
    Dim sp As TimeSpan = Date.now - ts
    If sp.TotalSeconds > 3 Then
        msgbox("要关闭系统了")
        ts = Date.now
    End If
End If

2、直接写代码

    StatusBar.Message1 = Date.now

就是这样写的，但是时间不会走动，怎样时间会一直走动着的，只要打开着项目

一直显示msg弹框，点确定还是叉叉关了又出来，关了又出，而且项目也没什么反应。。

汗，你把msgbox的代码改成关闭项目的代码啊

写到事件里，测试没问题

StatusBar.Message1 = Date.now

要不你就多加一句

StatusBar.Refresh

你好，如果在关闭系统之后，留下窗口提示，该怎么加代码呢？

加了msgbox不行，不点确定，项目也不关闭

static ts As Date = Date.Now
If Windows.Forms.Form.ActiveForm IsNot Nothing Then
    ts = Date.now
Else
    Dim sp As TimeSpan = Date.now - ts
    If sp.TotalSeconds > 1 Then
        Syscmd.Project.Exit()
        ts = Date.now
    End If
MessageBox.show("长时间未操作系统,未免资源浪费,已强制性关闭系统!可选择重新登录!
End If

关闭项目后不可能还有提示窗口。你可以先提示，然后再关闭