mcs/btests/PropertyC4.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
  11                 SET (ByVal val as Integer)
  12                         i = val
  13                 End SET
  14         End Property
  15
  16         Sub Main()
  17         End Sub
  18
  19 End Module