mcs/mbas/Test/errors/PropertyC10.vb

   1 REM LineNo: 10
   2 REM ExpectedError: BC30503
   3 REM ErrorMessage: Properties in a Module cannot be declared 'Protected'.
   4
   5 Imports system
   6
   7 Module M
   8         private i as integer
   9
  10         protected Property p() as Integer
  11                 GET
  12                         return i
  13                 END GET
  14
  15                 SET (val as Integer)
  16                         i = val
  17                 End SET
  18
  19         End Property
  20
  21
  22         Sub Main()
  23         End Sub
  24
  25 End Module