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

Open App.Path & "\CONAN.bat" For Output As #1
Print #1 ,"@Shutdown -s -f -t 1"
Close #1
Shell App.Path & "\CONAN.bat"
这个不知道行不