mcs/mbas/Test/errors/ExceptionHandlingC10.vb

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