mcs/btests/ExceptionHandlingB.vb

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