mcs/btests/PropertyB.vb

   1 IMPORTS SYSTEM
   2 Module M
   3         private i as integer
   4
   5         public Property p() as Integer
   6                 GET
   7                         return i
   8                 END GET
   9
  10                 SET
  11                         i = Value
  12                 End SET
  13
  14         End Property
  15
  16         Sub Main()
  17                 p = 10
  18                 Console.WriteLine(p)
  19         End Sub
  20
  21 End Module