Mega Code Archive
Catch an Exception
<![CDATA[
Imports System
Imports System.Text
Imports System.Text.RegularExpressions
Public Class MainClass
Shared Sub Main(ByVal args As String())
Console.WriteLine("Enter Run...")
Func1( )
Console.WriteLine("Exit Run...")
End Sub
Shared Public Sub Func1( )
Console.WriteLine("Enter Func1...")
Func2( )
Console.WriteLine("Exit Func1...")
End Sub 'Func1
Shared Public Sub Func2( )
Console.WriteLine("Enter Func2...")
Try
Console.WriteLine("Entering Try block...")
Throw New System.Exception( )
Console.WriteLine("Exitintg Try block...")
Catch
Console.WriteLine("Exception caught and handled")
End Try
Console.WriteLine("Exit func2...")
End Sub 'Func2
End Class
]]>