mcs/btests/PropertyC11.vb

   1 Class C1
   2         'property that do not override any other
   3         'property should not be declared 'notoverridable'
   4
   5         Public NotOverridable Property p() as Integer
   6                 GET
   7                 END GET
   8
   9                 SET (val as Integer)
  10                 End SET
  11         End Property
  12
  13 End Class
  14 Module OverrideC2
  15         Sub Main()
  16         End Sub
  17 End Module