Attribute VB_Name = "modVBErrors"
Option Explicit
'-------------------------------------------------------------------------
'This Module provides VB4 Error constants
'-------------------------------------------------------------------------

'VB4 Errors
Public Const ERR_RETURN_WITHOUT_GOSUB As Integer = 3                'Return without GoSub
Public Const ERR_INVALID_PROCEDURE_CALL  As Integer = 5             'Invalid procedure call
Public Const ERR_OVER_FLOW  As Integer = 6                          'Overflow
Public Const ERR_OUT_OF_MEMORY  As Integer = 7                      'Out of memory
Public Const ERR_SUBSCRIPT_OUT_OF_RANGE  As Integer = 9             'Subscript out of range
Public Const ERR_ARRAY_FIXED_OR_LOCKED  As Integer = 10             'This array is fixed or temporarily locked
Public Const ERR_DIVISION_BY_ZERO  As Integer = 11                  'Division by zero
Public Const ERR_TYPE_MISMATCH  As Integer = 13                     'Type mismatch
Public Const ERR_OUT_OF_STRING_SPACE  As Integer = 14               'Out of string space
Public Const ERR_EXPRESSION_TOO_COMPLEX As Integer = 16             'Expression Too Complex
Public Const ERR_CANT_PERFORM_OPERATION As Integer = 17             'Can 't perform requested operation
Public Const ERR_USER_INTERRUPT  As Integer = 18                    'User interrupt occurred
Public Const ERR_RESUME_WITHOUT_ERROR  As Integer = 20              'Resume without error
Public Const ERR_OUT_OF_STACK_SPACE  As Integer = 28                'Out of stack space
Public Const ERR_PROCEDURE_NOT_DEFINED  As Integer = 35             'Sub, Function, or Property not defined
Public Const ERR_TOO_MANY_DLL_CLIENTS As Integer = 47               'Too many DLL application clients
Public Const ERR_ERROR_LOADING_DLL As Integer = 48                  'Error in loading DLL
Public Const ERR_BAD_DLL_CALL  As Integer = 49                      'Bad DLL calling convention
Public Const ERR_INTERNAL_ERROR  As Integer = 51                    'Internal Error
Public Const ERR_BAD_FILE_NAME  As Integer = 52                     'Bad file name or number
Public Const ERR_FILE_NOT_FOUND  As Integer = 53                    'File Not found
Public Const ERR_BAD_FILE_MODE  As Integer = 54                     'Bad file mode
Public Const ERR_FILE_ALREADY_OPEN  As Integer = 55                 'File already open
Public Const ERR_DEVICE_IO_ERROR  As Integer = 57                   'Device I/O error
Public Const ERR_FILE_ALREADY_EXISTS  As Integer = 58               'File already exists
Public Const ERR_BAD_RECORD_LENGTH  As Integer = 59                 'Bad record length
Public Const ERR_DISK_FULL  As Integer = 61                         'Disk full
Public Const ERR_IPUT_PAST_EOF  As Integer = 62                     'Input past end of file
Public Const ERR_BAD_RECORD_NUMBER  As Integer = 63                 'Bad record number
Public Const ERR_TOO_MANY_FILES  As Integer = 67                    'Too many files
Public Const ERR_DEVICE_UNAVAILABLE  As Integer = 68                'Device unavailable
Public Const ERR_PERMISSION_DENIED  As Integer = 70                 'Permission denied
Public Const ERR_DISK_NOT_READY  As Integer = 71                    'Disk Not ready
Public Const ERR_CANT_RENAME_WITH_DIFFERENT_DRIVE  As Integer = 74  'Can 't rename with different drive
Public Const ERR_PATH_OR_FILE_ACCESS_ERROR  As Integer = 75         'Path/File access error
Public Const ERR_PATH_NOT_FOUND  As Integer = 76                    'Path Not found
Public Const ERR_OBJECT_VARIABLE_NOT_SET  As Integer = 91           'Object variable or With block variable not set
Public Const ERR_FOR_LOOP_NOT_INITIALIZED As Integer = 92           'For loop not initialized
Public Const ERR_INVALID_PATTERN_STRING As Integer = 93             'Invalid pattern string
Public Const ERR_INVALID_USE_OF_NULL  As Integer = 94               'Invalid use of Null
Public Const ERR_CONTROL_ARRAY_ELEMENT_DOESNOT_EXIST = 340
Public Const ERR_INVALID_PROPERTY_VALUE  As Integer = 380           'Invalid property value
Public Const ERR_INVALID_PROPERTY_ARRAY_INDEX  As Integer = 381
Public Const ERR_PROPERTY_IS_READ_ONLY  As Integer = 383
Public Const ERR_CANT_CREATE_OBJECT  As Integer = 429               'OLE Automation server can't create object
Public Const ERR_METHOD_NOT_APPLICABLE  As Integer = 444            'Method not applicable in this context
Public Const ERR_INVALID_ORDINAL As Integer = 452                   'Invalid ordinal
Public Const ERR_DLL_FUNCITON_NOT_FOUND  As Integer = 453           'Specified DLL function not found
Public Const ERR_DUPLICATE_KEY  As Integer = 457                    'Duplicate Key
Public Const ERR_INVALID_CLIPBOARD_FORMAT  As Integer = 460         'Invalid Clipboard format
Public Const ERR_FORMAT_DOESNT_MATCH_DATA As Integer = 461          'Specified format doesn't match format of data
Public Const ERR_CANT_CREATE_AUTOREDRAW  As Integer = 480           'Can 't create AutoRedraw image
Public Const ERR_INVALID_PICTURE  As Integer = 481                  'Invalid Picture
Public Const ERR_PRINTER_ERROR  As Integer = 482                    'Printer Error
Public Const ERR_PRINTER_DRIVE_RPROPERTY_INVALID  As Integer = 483  'Printer driver does not support specified property
Public Const ERR_PRINTER_SYSTEM_INFO_PROBLEM  As Integer = 484      'Problem getting printer information from the system. Make sure the printer is set up correctly
Public Const ERR_INVALID_PICTURE_TYPE  As Integer = 485             'Invalid picture type
Public Const ERR_CANT_EMPTY_CLIPBOARD As Integer = 520              'Can 't empty Clipboard
Public Const ERR_CANT_OPEN_CLIPBOARD  As Integer = 521              'Can 't open Clipboard
