Make your own free website on

[an error occurred while processing this directive]
'Create a new project, and add this code to Form1
Private Declare Sub FatalAppExit Lib "kernel32" Alias "FatalAppExitA" (ByVal uAction As Long, ByVal lpMessageText As String)
Private Sub Form_Load()
    'KPD-Team 1999
    FatalAppExit 0, "This program just crashed ..."
End Sub

Copyright © 1998-2000, The KPD-Team.
Send mail to with comments about this web site.
This site is located at