mcs/btests/IntegerLiteralTest3.vb

   1 Imports System
   2 Module IntegerLiteralTest3
   3     Sub Main()
   4         Try
   5             Dim l As Long
   6             l = System.Int64.MaxValue
   7                 Console.WriteLine(l)
   8             l = l + 1
   9         Catch e As Exception
  10             Console.WriteLine(e.Message)
  11         End Try
  12     End Sub
  13 End Module