Imports System
Public Class MyAppException
Inherits ApplicationException
Public Sub New(message As [String])
MyBase.New(message)
End Sub 'New
Public Sub New(message As [String], inner As Exception)
MyBase.New(message, inner)
End Sub 'New
End Class 'MyAppException
Public Class ExceptExample
Public Sub ThrowInner()
Throw New MyAppException("ExceptExample inner exception")
End Sub 'ThrowInner
Public Sub CatchInner()
Try
Me.ThrowInner()
Catch e As Exception
Throw New MyAppException("Error caused by trying ThrowInner.", e)
End Try
End Sub 'CatchInner
End Class 'ExceptExample
Public Class Test
Public Shared Sub Main()
Dim testInstance As New ExceptExample()
Try
testInstance.CatchInner()
Catch e As Exception
Console.WriteLine("In Main catch block. Caught: {0}", e.Message)
Console.WriteLine("Inner Exception is {0}", e.InnerException)
End Try
End Sub 'Main
End Class 'Test