Exempel:' Startar om datorn, tvingar öppna program att stängas
Dim retval As Long ' returvärdet

retval = ExitWindowsEx(EWX_REBOOT Or EWX_FORCE, 0)
If retval = 0 Then Debug.Print "Omstarten misslyckades."