mcs/btests/PropertyC.vb

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