public class Test
public Shared Sub Main
Throw New MyException("Unhandled Error in MyMethod")
End Sub
End class
Public Class MyException
Inherits System.ApplicationException
Private m_Source As String
Public Sub New(ByVal Message As String)
MyBase.New(Message)
Me.m_Source = "ClassLibrary1"
End Sub
End Class
Unhandled Exception: MyException: Unhandled Error in MyMethod
at Test.Main()