Fatal Exit

'Fatal Exit



Private Declare Sub FatalAppExit
Lib "kernel32"
Alias "FatalAppExitA" _

(ByVal uAction As Long, ByVal lpMessageText
As String)



Private Sub Form_Load()

FatalAppExit 0, "This program CRASH ..."

End Sub



Private Declare Sub FatalExit
Lib "kernel32" (ByVal code
As Long)



Private Sub Form_Load()

FatalExit 1

End Sub