1Imports System
2Imports System.Collections
3Imports System.Reflection
4Imports System.Reflection.Emit
5
6Namespace MethodInvocation23
7    Class Test
8        Shared Function F(ByVal vals As Object()) As String
9            Return vals(0).GetType.Name
10        End Function
11
12        Shared Function Main() As Integer
13            Dim objs() As Object
14            objs = New Object() {System.Diagnostics.DebuggableAttribute.DebuggingModes.DisableOptimizations Or Diagnostics.DebuggableAttribute.DebuggingModes.Default}
15            If F(objs) <> "DebuggingModes" Then
16                Return -1
17            End If
18
19            Return 0
20        End Function
21    End Class
22End Namespace