mcs/btests/ExceptionHandlingC7.vb

   1 REM LineNo: 13\r
   2 REM ExpectedError: BC30201\r
   3 REM ErrorMessage: Expression expected\r
   4 \r
   5 Imports System\r
   6 \r
   7 Module ExceptionHandlingC7\r
   8 \r
   9     Sub Main()\r
  10         Dim i As Integer\r
  11         Try\r
  12             i = 1 / i\r
  13         Catch e As Exception When\r
  14             Console.WriteLine(e.Message)\r
  15         End Try\r
  16     End Sub\r
  17 \r
  18 End Module\r
  19 \r