mcs/btests/ForEachC2.vb

   1 REM LineNo: 22\r
   2 REM ExpectedError: BC30039\r
   3 REM ErrorMessage: Loop control variable cannot be a property or a late-bound indexed array.\r
   4 \r
   5 Imports System\r
   6 \r
   7 Module ForEachC2\r
   8 \r
   9     Private index As Integer = 0\r
  10     Public Property myindex() As Integer\r
  11         Get\r
  12             Return index\r
  13         End Get\r
  14         Set(ByVal Value As Integer)\r
  15             index = Value\r
  16         End Set\r
  17     End Property\r
  18 \r
  19     Sub main()\r
  20         Dim arr() As Integer = {1, 2, 3}\r
  21 \r
  22         For Each myindex In arr\r
  23             Console.WriteLine(myindex)\r
  24         Next\r
  25 \r
  26     End Sub\r
  27 \r
  28 End Module