mcs/btests/IntegerLiteralTestC4.vb

   1 Imports System
   2 Module IntegerLiteralTestC4
   3     Sub Main()
   4         Try
   5             Dim A as Short
   6             Dim i As Short
   7             i = A
   8         Catch e As Exception
   9             Console.WriteLine(e.Message)
  10         End Try
  11     End Sub
  12 End Module