#Region “NameSpace”Imports System#End RegionNamespace Abc.ErrorPublic Class CustomError#Region “Declartion”Private Shared _errorno As IntegerPrivate Shared _errorname As IntegerPrivate Shared _errordescription As StringPrivate Shared _errorsource As String
#End Region
#Region “Properties”Public Shared Property ErroNo() As IntegerGetErroNo = _errornoEnd GetSet(ByVal Value As Integer)_errorno = ValueEnd SetEnd PropertyPublic Shared Property ErrorName() As StringGetErrorName = _errornameEnd GetSet(ByVal Value As String)_errorname = ValueEnd SetEnd PropertyPublic Shared Property ErrorDescription() As StringGetErrorDescription = _errordescriptionEnd GetSet(ByVal Value As String)_errordescription = ValueEnd SetEnd PropertyPublic Shared Property ErrorSource() As StringGetErrorSource = _errorsourceEnd GetSet(ByVal Value As String)_errorsource = ValueEnd Set
End Property
#End Region
#Region “Constructors”
#End Region
#Region “Methods”
#End Region