mcs/btests/PropertyC2.vb

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