mcs/btests/ExceptionHandlingC10.vb

   1 REM LineNo: 10\r
   2 REM ExpectedError: BC30132\r
   3 REM ErrorMessage: Label '14' is not defined\r
   4 \r
   5 Imports System\r
   6 \r
   7 Module ExceptionHandlingC10\r
   8 \r
   9     Function f1()\r
  10         On Error GoTo 14\r
  11         Dim i As Integer\r
  12         i = 1 / i\r
  13     End Function\r
  14 \r
  15     Sub Main()\r
  16         f1()\r
  17     End Sub\r
  18 \r
  19 End Module\r
  20 \r