Determine Error Handling State

Is there any way to determine what the current error handling is in vb6?

Default error handling crashes the program displaying the error message.

If you use:

ON ERROR GOTO Label

Select all Open in new window

The program goes to the point in the code with the label and continues executing (presumably, you have defined what to do here to mitigate the error)

If you use:

ON ERROR RESUME NEXT

Select all Open in new window

The program will continue ignoring errors until it either can't run at all, you handle the errors, or you disable the resume next option.  I often (but not always) use ON ERROR RESUME NEXT to allow the program to continue and then I explicitly check for an error number and handle the error there.  For example:

ON ERROR RESUME NEXT
X = 5
IF X = "bob" THEN X = "Bob"
IF ERR.NUMBER <> 0 THEN
   'Handle the error
END IF 

Select all Open in new window

And to disable graceful error handling, you use

ON ERROR GOTO 0

Select all Open in new window

But is there any way to tell if graceful error handling is on?  Any way to tell that the last time an ON ERROR statement executed it was set to go to a label, resume next, or goto 0?