Public Const EWX_POWEROFF = 8      Private Sub Command1_Click()
         AdjustToken
         ExitWindowsEx (EWX_POWEROFF), &HFFFF
      End Sub