Create your own Exception class by subclassing System.Exception : Custom Exception « Development « VB.Net Tutorial

1. VB.Net Tutorial
2. Development
3. Custom Exception

Imports System.Runtime.Serialization

Public Class CustomException
   Inherits System.Exception

   Public Sub New()
      Me.New("An error occurred in the component.", Nothing)
   End Sub

   Public Sub New(message As String)
      Me.New(message, Nothing)
   End Sub

   Public Sub New(message As String, innerException As Exception)
      MyBase.New(message, innerException)
      Source = "My_Custom_Component"
   End Sub

   Protected Sub New(info As SerializationInfo, context As StreamingContext)
      MyBase.New(info, context)
   End Sub
End Class