mcs/btests/PropertyC3.vb

   1 Imports system
   2
   3 Module M
   4         private i as integer
   5
   6         public Property p() as Integer
   7                 Get
   8                         return i
   9                 END Get
  10         End Property
  11
  12         Sub Main()
  13                 p = 10
  14                 Console.WriteLine(p)
  15         End Sub
  16
  17 End Module