VS实现系统的重新启动

 '重起的函数确定
    Public Sub Rest()
        System.Threading.Thread.Sleep(5000) '延迟5秒
        Dim mc As New System.Management.ManagementClass("Win32_OperatingSystem")
        mc.Scope.Options.EnablePrivileges = True
        For Each mo As System.Management.ManagementObject In mc.GetInstances()
            mo.InvokeMethod("Win32Shutdown", New Object() {6})
        Next
        mc.Dispose()
        End
    End Sub