mcs/btests/PropertyE.vb

   1 Imports system
   2
   3 MustInherit Class C1
   4         public MustOverride Property p() as Integer
   5 End Class
   6
   7
   8 Class C2
   9         Inherits C1
  10
  11         private i as integer
  12
  13         public shadows Property p() as Integer
  14                 SET (ByVal val as Integer)
  15                         i = val
  16                 End SET
  17
  18                 GET
  19                         return i
  20                 END GET
  21         End Property
  22 End Class
  23
  24
  25 Module M
  26         Sub Main()
  27         End Sub
  28
  29 End Module