Public Class B1
    Public ReadOnly Property F(ByVal i As Integer) As Integer
      Get
        F = 1
      End Get
    End Property
  End Class