用VB如何做关机的.命令按钮？

就是一点击那个按钮电脑就关机的, 麻烦帮我一下 我是初学者

---

Private Sub Command1_Click()
Shell "shutdown -s "End Sub可以还在 -s后面加个空格-t 空格秒数可以指定几秒后关机比如Shell "shutdown -s -t 10"10秒后关默认是30秒取虚冲消关机是孝兆开始 运行 输入差慎歼shutdown -a

---

第丛模梁一种方法码念：Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Command1_Click()
ExitWindowsEx (EXW_POWEROFF)
End Sub
（注意区分大渗运小写）第二种方法：Private Sub Command1_Click()
Shell "shutdowm -t 1"
End Sub

---