Namespace slt
    Public Class sltException
        Inherits ApplicationException

        Public ReadOnly ErrorType As Constants.ErrorType

        Public Sub New(pErrorType As Constants.ErrorType, pMessage As String)
            MyBase.New(pMessage)
            ErrorType = pErrorType
        End Sub
    End Class

End Namespace