• Home
 · 
• Windows API Call/Explanation
 · 
• This is the easy example of Fatal Application Error Exit

This is the easy example of Fatal Application Error Exit

This is the easy example of Fatal Application Error Exit

API Declarations


Private declare sub FatalAppExit lib "kernel32" alias "FatalAppExitA"(byval uAction as long,byval lpMessageText as string)

public sub FatalError(Message as string)
on error goto Handle_Error
FatalAppExit 1,Message$
exit sub
Handle_Error:
debug.print "Error number :" , err.number
debug.print "Error description :" , err.description
debug.print "Error source :" , err.source
end sub




Rate This is the easy example of Fatal Application Error Exit

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim commands As NEW Class1
Private sub Form_Load()
commands.FatalError "Hello world !!!"
end sub