mcs/btests/IntegerLiteralTest1.vb

   1 Imports System
   2
   3 Module IntegerLiteralTest1\r
   4     Sub Main()\r
   5         Try\r
   6             Dim i As Integer\r
   7             i = System.Int32.MaxValue\r
   8             i = i + 1\r
   9         Catch e As Exception\r
  10             Console.WriteLine(e.Message)\r
  11         End Try\r
  12     End Sub\r
  13 \r
  14 End Module\r