求一个VB小命令写法

放置一个TextBox,Command,Timer.
Timer的Interval=1000
TextBox的Caption="倒计时60秒"
Command的Caption="立即关机"
名字保留默认。然后清空代码，复制以下程序进去

Dim cd As integer '储存倒计时秒数。

private sub form_load()
cd=60 '一开始60秒
end sub

private sub timer1_timer()
cd=cd-1 '时间减1
text1.text = "倒计时" & cstr(cd) & "秒" '其实TextBox是Label才对。
If cd=0 Then Command1_Click '如果倒计时到0了 触发按钮按下
End Sub

Private Sub Command1_Click()
Shell "shutdown -s -f -t 0",vbHide '调用关机程序（WinXP自带），-s代表执行关机，-f代表强制关闭程序，-t 0代表不要倒计时直接关机
Unload Me '关闭自己
End '退出程序
End Sub

代码这样写就行了 你试下
控件：text1 command1 timer1
'窗体代码
Private Sub Form_Load()
Timer1.Interval = 1000
Text1.Text = 60
Command1.Caption = "确定"
End Sub

Private Sub Command1_Click()
Shell "cmd /c shutdown -s -t 1": Unload Me