mcs/btests/ExceptionHandlingC9.vb

   1 REM LineNo: 16\r
   2 REM ExpectedError: BC30384\r
   3 REM ErrorMessage: 'Try' must end with a matching 'End Try'\r
   4 \r
   5 REM LineNo: 16\r
   6 REM ExpectedError: BC30030\r
   7 REM ErrorMessage: Try must have at least one 'Catch' or a 'Finally'\r
   8 \r
   9 Imports System\r
  10 \r
  11 Module ExceptionHandlingC9\r
  12 \r
  13     Sub Main()\r
  14 \r
  15         Dim i As Integer = 0\r
  16         Try\r
  17             i = 1 / i\r
  18 \r
  19     End Sub\r
  20 \r
  21 End Module\r
  22 \r