You can force a shutdown by doing the Following:
First declare this API function and constant
public Declare Function ExitWindowsEx Lib "user32" (byval uFlags as Long, byval dwReserved as Long) as Long
public Const EWX_SHUTDOWN = 1


Then you can call it by doing this:
Call ExitWindowsEx(EWX_SHUTDOWN, 1) 'shut down the computer




Please rate this posting if you like it

F. T. W.