| 开机关机 代码 
Private Sub Command1_Click() 
Shell "shutdown -S -t 0" '-s 是关闭系统 
End Sub
 
Private Sub Command2_Click() 
Shell "shutdown -R -t 0" '-r 是重启 等待时间为0秒 
End Sub
 
Private Sub Command3_Click() 
Shell "shutdown -l" '-l 是shutdown 的一个参数 意思是注销用户 
End Sub
 
Private Sub Command4_Click() 
End '退出 
End Sub |