|
Const EWX_LogOff As Long = 0
Declare Function ExitWindows Lib "User32" Alias "ExitWindowsEx" _ (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long '2. Add this code to where you want to shut down from (eg. Command1_Click): ExitWindows EWX_LogOff, &HFFFFFFFF 'This code will only work from an EXE file. That means that you will have to 'compile this fila as an EXE, and if you want to save this project. When the 'project is compiled, close all instances of VB you have open, and probably 'all other programs you would have open. Run the EXE, and click on Command1 '(or whatever you made the trigger as). The Windows session should shut down ______________________________________________________________________ This code will be especially useful in setup programs when you want to restart the system, so that it refreshes everything, and the program becomes properly runnable. Anyway, here's the code to shut down Windows 95. 1. Place this code in the Declarations section of the Form: |