1Option Strict Off
2
3Imports System.Data
4Class R
5    Shared Function Main() As Integer
6        Dim result As Integer
7        Dim a As New a
8
9        If Not a!foo Then
10            Console.WriteLine("a failed")
11            result += 1
12        End If
13
14        Return result
15    End Function
16End Class
17
18Class A
19    Default ReadOnly Property I(ByVal a As Integer) As Boolean
20        Get
21            Return False
22        End Get
23    End Property
24End Class
25