请教：关闭计算机时弹出提示信息，按“确认”按钮后才关机

强烈请教:点击关闭计算机时，弹出一个信息提示框，当点击提示框都“确定”按钮后计算机才关闭，若三秒内不点击“确认”，则自动关机。
做这个程序都目的是，在用户关机时能弹出提示信息，提示用户“记住带走移动存储设备”。哪位高人知道利用vb和api如何实现这个程序？ --------------------编程问答-------------------- 使用Messagebox实现提示功能，使用ShutDown实现关机功能 --------------------编程问答-------------------- 楼上朋友说得对，但我还是不清楚，当用户点击“关闭”计算机按钮时就弹出信息提示框，这个过程如何实现？
--------------------编程问答-------------------- shell "shutdown"

这是最简单的，没有参数，要查阅参数你可以到命令提示符中输入：shutdown /?  会给你提供很具体的用法 --------------------编程问答-------------------- 在窗体的querry unlode 事件中判断 --------------------编程问答-------------------- 我利用queryunload事件判断，用户关机时阻止程序关闭，并且调用子过程sysexit，内含一个实现关闭系统功能的api函数。
我想得到的结果是，系统不关闭，同时调用sysexit函数，实现倒计时关机。但实际执行结果是系统关闭了，同时执行倒计时关机。
代码如下，这个问题我已经想了多天了，仍然得不到合适的解决方法，请各位多多指教！

Private Declare Function InitiateSystemShutdown Lib "advapi32.dll" Alias "InitiateSystemShutdownA" (ByVal lpMachineName As String, ByVal lpMessage As String, ByVal dwTimeout As Long, ByVal bForceAppsClosed As Long, ByVal bRebootAfterShutdown As Long) As Long
Dim shut As Long

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   If UnloadMode = 2 Then
      Cancel = 1
      Call sysexit
   End If
End Sub

Private Sub sysexit()
  shut = InitiateSystemShutdown("127.0.0.1", "请记住带走您的移动存储设备！", 60, True, True)
End Sub --------------------编程问答-------------------- 可以加一个Timer控件来解决吧

补充：VB ,  API