mcs/btests/PropertyD.vb

   1 Imports system
   2
   3 Module M
   4         private i as integer
   5
   6         public WriteOnly Property p() as Integer
   7                 SET (ByVal val as Integer)
   8                         i = val
   9                 End SET
  10         End Property
  11
  12         public ReadOnly Property p1() as Integer
  13                 GET
  14                         return i
  15                 END GET
  16         End Property
  17
  18
  19         Sub Main()
  20         End Sub
  21
  22 End Module