mcs/btests/ExceptionHandlingC16.vb

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