VB写程序点下按钮关机

VB点下按钮关机  谁能写个程序

其他：秋秋1970658958可以帮你做 Private Sub Command1_Click()
Shell "cmd.exe /c shutdown /s /f /t 0", vbHide
End
End Sub
Private Sub Form_Load()
Command1.Caption = "关机"
End Sub 
 
Visual Basic 2010代码
 
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Shell("cmd.exe /c shutdown /s /f /t 0", AppWinStyle.Hide)
        End
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Button1.Text = "关机"
    End Sub
End Class 

上一个：在名称为form1的窗体上画一个名称为image1的图像框，再画一个名称为command1、标题“退出”的命令按钮。
下一个：vb中设置slider控件成竖直状态后，如何设置slider的最小值在下边，最大值在上边，也就是滑块往上拉是增大