13 lines
334 B
VB.net
13 lines
334 B
VB.net
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 |