在公共标准模块中声明WIN API： 
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long 

在按钮事件中用如下代码可关机： 
Private Sub Command1_Click() 
ExitWindowsEx 1, 0 
End Sub 

自己再加一个Timer就好了

楼上的代码在NT下没用，因为没有提升进程的权限，是不能关机的

简单点的，XP以上：
Shell "shutdown -s -t 0"

刚学，你这个  Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long 是什么意思呀？可以解释一下吗？
能给我一个完整的代码吗？我再仔细分析一下好吗？

[quote]刚学，你这个  Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long 是什么意思呀？可以解释一下吗？
能给我一个完整的代码吗？我再仔细分析一下好吗？


[/quote]
这个是WINAPI的API函数声明