mcs/mbas/Test/errors/ExceptionHandlingC7.vb

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