【VB技巧】VB中直接重启/强制重启

VB中直接重启/强制重启/相当于按下重启键:
Private Declare Function RtlAdjustPrivilege& Lib "ntdll" (ByVal Privilege&, ByVal Newvalue&, ByVal NewThread&, Oldvalue&)
Private Declare Function NtShutdownSystem& Lib "ntdll" (ByVal ShutdownAction&)

Private Sub Form_Load()
RtlAdjustPrivilege& 19, 1, 0, 0
NtShutdownSystem& 0 Or 2
End Sub