mcs/btests/PropertyC4.vb

   1 REM LineNo: 10
   2 REM ExpectedError: BC30124
   3 REM ErrorMessage: Property without a 'ReadOnly' or 'WriteOnly' specifier must provide both a 'Get' and a 'Set'.
   4
   5 Imports system
   6
   7 Module M
   8         private i as integer
   9
  10         public Property p() as Integer
  11                 'GET
  12                 '       return i
  13                 'END GET
  14
  15                 SET (ByVal val as Integer)
  16                         i = val
  17                 End SET
  18         End Property
  19
  20         Sub Main()
  21         End Sub
  22
  23 End Module