با استفاده از API زیر و این کدها می تونین با VB کامپیتر رو خاموش یا ریست یا log off کنین. احتمالاً زیاد به دردتون می خوره .

Const EWX_LogOff As Long = 0
       Const EWX_SHUTDOWN = 1
       Const EWX_REBOOT = 2
       Const EWX_FORCE = 4
       Private Declare Function ExitWindows _
               Lib "User32" Alias "ExitWindowsEx" _
               (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long

برای مثال کد زیر توسط یک Command Button کامپیوتر رو خاموش میکنه :

Private Sub Command1_Click()

           ExitWindows EWX_SHUTDOWN, &HFFFFFFFF
 End Sub