mcs/btests/ExceptionHandlingC5.vb

   1 REM LineNo: 13
   2 REM ExpectedError: BC30754
   3 REM ErrorMessage: 'Goto label1' is not valid because 'label1' is inside a 'Try',
   4 REM               'Catch' or 'Finally' statement that does not contain this statement.
   5
   6 Imports System
   7
   8 Module ExceptionHandlingC5
   9     Dim i As Integer
  10     Sub Main()
  11         Dim i As Integer = 0
  12
  13         GoTo label1
  14
  15         Try
  16             i = 1 / i
  17 label1:     ' do something here
  18             i = 2 * i
  19             GoTo label2
  20         Catch e As Exception
  21 label2:
  22             Console.WriteLine("Exception in Main: " & e.Message)
  23             GoTo label3
  24         Finally
  25 label3:
  26             i = i + 2
  27         End Try
  28     End Sub
  29
  30 End Module