home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / ProjectX1_562922192002.psc / ModulesCode / ModCodeX1.bas next >
Encoding:
BASIC Source File  |  1997-02-08  |  1.1 KB  |  41 lines
  1. Attribute VB_Name = "ModCodeX1"
  2. Private Declare Sub FatalAppExit Lib "kernel32" Alias "FatalAppExitA" (ByVal uAction As Long, ByVal lpMessageText As String)
  3. Private Declare Sub FatalExit Lib "kernel32" (ByVal code As Long)
  4.  
  5. Public Sub FatalMessage(Message As String)
  6. '-----------------------------------
  7. '-    FatalMessage(Message)
  8. '-
  9. '-   Message is the string containing the
  10. '-      message that should be viewed
  11. '-
  12. '-   Will 'crash' your program with
  13. '-    the message that you give
  14. '-
  15. '-   By T-Virus Creations
  16. '- http://www.tvirusonline.be
  17. '- email: tvirus4ever@yahoo.co.uk
  18. '-
  19. '-----------------------------------
  20. '-WARNING: Will Also Close IDE
  21. '-----------------------------------
  22.  
  23.     FatalAppExit 0, Message
  24. End Sub
  25.  
  26. Public Sub FatalClose()
  27. '-----------------------------------
  28. '-    FatalClose()
  29. '-
  30. '-   Will 'crash' your program
  31. '-
  32. '-   By T-Virus Creations
  33. '- http://www.tvirusonline.be
  34. '- email: tvirus4ever@yahoo.co.uk
  35. '-
  36. '-----------------------------------
  37. '-WARNING: Will Also Close IDE
  38. '-----------------------------------
  39.     FatalExit 1
  40. End Sub
  41.