CodeItBetter Programming Another VB Programming Blog

'System & API - How to Crash your application (in two ways)

'Method 1:

Option Explicit
 
Declare Sub FatalExit Lib "kernel32" (ByVal Code As Long)
 
Private Sub Main()
    FatalExit 1
End Sub
 
'Method 2:

Option Explicit
 
Declare Sub FatalAppExit Lib "kernel32" Alias "FatalAppExitA" (ByVal uAction As Long, _
    ByVal lpMessageText As String)
 
Private Sub Form_Load()
    FatalAppExit 0, "Application Crashed..."
End Sub