mcs/btests/ExceptionHandlingB.vb

   1 Imports System
   2
   3 Module ExceptionHandlingB
   4     Dim i As Integer
   5     Sub Main()
   6
   7         Try
   8
   9             Try
  10                 i = 2 / i
  11                 i = 3
  12                 Console.WriteLine(i)
  13             Catch e As Exception
  14                 Console.WriteLine(e.Message)
  15                 ' Try statement wil not handle any exceptions thrown in Catch block
  16                 Throw New Exception("FF")
  17             End Try ' inner try
  18
  19             ' Catch exception thrown by inner Try statement
  20         Catch e As Exception When e.Message = "FF"
  21             Console.WriteLine("OK")
  22         End Try  ' outer try
  23     End Sub
  24
  25 End Module
  26