mcs/btests/PropertyA.vb

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