home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 40 / IOPROG_40.ISO / SOFT / NETFrameworkSDK.exe / comsdk.cab / samples.exe / exceptions / VBServer / MyCustomException.vb < prev    next >
Encoding:
Text File  |  2000-06-23  |  830 b   |  30 lines
  1. '+==========================================================================
  2. '  File:      MyCustomException.vb
  3. '
  4. '  Summary:   This file implements the MyCustomException class
  5. '
  6. '  Classes:   MyCustomException
  7. '
  8. '  Functions: 
  9. '
  10. '----------------------------------------------------------------------------
  11. '  This file is part of the Microsoft NGWS Samples.
  12. '
  13. '  Copyright (C) 1998-2000 Microsoft Corporation.  All rights reserved.
  14. '==========================================================================+
  15.  
  16. Imports System
  17.  
  18. NameSpace MyTestException
  19. Public Class MyCustomException
  20. Inherits ApplicationException
  21.  
  22. Public Sub New()
  23.     MyBase.New ("MyCustomException")
  24. '    SetErrorCode &H80040001 'This needs to be changed
  25.     SetHelpLink ("http://something.com/help.html")
  26. End Sub
  27.  
  28. End Class 
  29.  
  30. End NameSpace