請vb代碼大神指教，如何打開壹個窗體後，讓電腦壹分鐘之內自動關機？請幫忙寫出源代碼吧。

如下代碼：

Shell("shutdown?/s?/f?/t?60")

End?Sub

或者在窗體上放置壹個Timer控件，並設置其Interval屬性為60000，如下代碼：

Timer1.Enabled?=?True?

End?Sub

Private?Sub?Timer1_Timer()

Shell("shutdown?/s")

End?Sub