VB6.0 Set ErrorLevel on exit

This code will set the DOS ErrorLevel. WARNING: when you execute this process your program will end immediately you will not have a chance to close open files or connections.
Private Declare Sub ExitProcess Lib "kernel32" _ (ByVal uExitCode As Long) 'Place in General Declarations Section ExitProcess (5&) 'Exits with ErrorLevel 5
Be sure and close all your files.

Copyright © 2002 Booshway Enterprises, Inc.
You have a royalty-free right to use, modify, reproduce and distribute the Sample Application Files (and/or any modified version) in any way you find useful, provided that you agree that The Booshway Enterprises, Inc. has no warranty, obligations or liability.