VB关机代码

看到网上很多关机的代码，大多是用API，但我试用发现用API关机有时候不成功，后来只有自己改用CMD命令来做到这点了，相比API，CMD关机有以下优点：不用链接API和CMD可以指定时间关机，示例代码如下：

Private Sub Command1_Click()
Shell "shutdown -l"   '-l  是shutdown 的一个参数 意思是注销用户
End Sub

Private Sub Command2_Click()
Shell "shutdown -R -t 0" '-r 是重启 等待时间为0秒
End Sub

Private Sub Command3_Click()
Shell "shutdown -S -t 0"  '-s 是关闭系统
End Sub

Private Sub Command4_Click()
Unload Me  '卸载窗体
End Sub