求助：怎样实现程序延时运行和组合键退出！

我想实现这样的功能：开机后，程序在系统“启动”项中自动加载，延时5分钟后弹出信息窗口，点击确定后倒计时5分钟关机，但是我可以用组合键退出关机的程序！
    现有代码：
    Private Sub Form_Load()
      MsgBox ("关键程序发生致命错误！")
      Shell "shutdown -s -t 300"
    End Sub
因为我是初接触VB，所以还不是很清楚，希望高手赐教。我知道退出关机程序是用“shutdown -a”，但还不知道怎么用

--------------------编程问答-------------------- 在“开始”菜单，“运行”里，输入：shutdown   -a
回车 --------------------编程问答-------------------- 你可以定义一个 sleep 的API 函数
程序运行后

        Private   Sub   Form_Load() 
            doevents
            sleep 1000*60*5                '程序等待5分钟  1000为1秒
            MsgBox   ( "关键程序发生致命错误！ ") 
            Shell   "shutdown   -s   -t   300 " 
        End   Sub 

至于通过组合键来关闭关机程序,你可以查找键盘热键定义的代码来定义组合键,如(ctrl+f12)
我的电脑里现在没有!
键盘钩子的程序有很多!

补充：VB ,  基础类