mcs/mbas/Test/errors/ExceptionHandlingC11.vb

   1 REM LineNo: 13\r
   2 REM ExpectedError: BC30544\r
   3 REM ErrorMessage: Method cannot contain both a 'Try' statement and an 'On Error' \r
   4 REM               or 'Resume' statement.\r
   5 \r
   6 Imports System\r
   7 \r
   8 Module ExceptionHandlingC11\r
   9 \r
  10     Sub Main()\r
  11         Resume Next\r
  12         Dim i As Integer\r
  13         Try\r
  14             i = 1 / i\r
  15             Console.WriteLine(i)\r
  16         Catch e As Exception\r
  17             Console.WriteLine(e.Message)\r
  18         End Try\r
  19     End Sub\r
  20 \r
  21 End Module\r
  22 \r