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