mcs/mbas/Test/errors/ArrayC4.vb

   1 REM LineNo: 18
   2 REM ExpectedError: BC30526
   3 REM ErrorMessage: Property 'myprop' is 'ReadOnly'
   4
   5 Imports System
   6
   7 Module ArrayC4
   8
   9     Dim a As Integer() = {1, 2, 3, 4}
  10
  11     Public ReadOnly Property myprop() As Integer()
  12         Get
  13             Return a
  14         End Get
  15     End Property
  16
  17     Sub main()
  18         ReDim Preserve myprop(6)
  19         myprop(4) = 10
  20         myprop(5) = 12
  21     End Sub
  22
  23 End Module