我是使用XP系统的shutdown加参数来实现的
Private Sub Command1_Click()
Shell "shutdown -S -t 0"
End Sub

Private Sub Command2_Click()
Shell "shutdown -R -t 0"
End Sub

Private Sub Command3_Click()
Shell "shutdown -l"
End Sub

Private Sub Command4_Click()
Unload Me
End Sub