mcs/mbas/Test/tests/PropertyC.vb

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