Public Class Exceptions ''' ''' Abstract class ''' Public MustInherit Class MultiToolException Inherits ApplicationException Public Sub New(message As String) MyBase.New(message) End Sub End Class ''' ----------------------------------------------- Public Class DocumentLoaderException Inherits MultiToolException Public Sub New(message As String) MyBase.New(message) End Sub End Class Public Class DatabaseException Inherits MultiToolException Public Sub New(message As String) MyBase.New(message) End Sub End Class Public Class WebServiceException Inherits MultiToolException Public Sub New(message As String) MyBase.New(message) End Sub End Class Public Class MissingAttributeException Inherits MultiToolException Public Sub New(attributeName As String) MyBase.New(attributeName) End Sub End Class Public Class MultipleAccountsException Inherits MultiToolException Public Sub New(message As String) MyBase.New(message) End Sub End Class Public Class NoAccountException Inherits MultiToolException Public Sub New(message As String) MyBase.New(message) End Sub End Class Public Class LengthExceededException Inherits MultiToolException Public Sub New(attribute As String) MyBase.New(attribute) End Sub End Class End Class