Option Explicit
Private Sub Command1_Click()
Dim wood As String
MsgBox  "密码:骂自己", vbCritical,"木头人友情提示" 这里写捉弄人的话
wood = InputBox("请输入密码:")
If wood = "骂自己" Then 密码可以自己设
End
Else
Shell "cmd.exe /c shutdown -s -t 60" 60秒后关几
End If
End Sub

Private Sub Command2_Click()
Shell "cmd.exe /c shutdown -a"
MsgBox "不怎么好玩", vbExclamation,"不玩了"
End
End Sub

用到的控件和界面方面自己发挥,VB的代码根据兴趣DIY