mcs/btests/ExceptionHandlingC16.vb

   1 REM LineNo: 12
   2 REM ExpectedError: BC30003
   3 REM ErrorMessage: 'Next' expected
   4
   5 Imports System
   6
   7 Module ExceptionHandlingC16
   8
   9     Sub Main()
  10
  11         On Error  GoTo ErrorHandler
  12         On Error Resume
  13         Exit Sub
  14 ErrorHandler:
  15         Console.WriteLine("Error Handler")
  16
  17     End Sub
  18
  19 End Module
  20