主题：项目提示信息几秒后自动关闭如何写代码？

项目提示信息几秒后自动关闭如何写代码？
    If (dtt2-dtt1).TotalSeconds<120 Then
        Syscmd.Project.Exit(False)
        Return
    End If

在关闭项目前，有个信息提示，但不要求用户手动确定，无论用户是否手动确定最终都会关闭程序，只是用户可以知道是什么原因导致程序关闭了。