(RegisterObject): Throw ArgumentOutOfRangeException if the objectID
[mono.git] / mcs / btests / IntegerLiteralC1.vb
1 Imports System
2 Module IntegerLiteral
3         Sub Main()
4         Try
5                 Dim a As Integer
6                 a=&H
7         Catch e As Exception
8                 Console.WriteLine(e.Message)
9         End Try
10         End Sub
11 End Module