mcs/btests/Array1.vb

   1 'Unhandled Exception: System.ArrayTypeMismatchException: 'ReDim' can \r
   2 ' only change the rightmost dimension.\r
   3 \r
   4 Imports System\r
   5
   6 Module Array1\r
   7
   8     Sub Main()
   9         Dim arr As Integer(,) = {{1, 2}, {3, 4}}
  10         ReDim Preserve arr(3, 3)
  11         arr(2, 2) = 12
  12     End Sub
  13 End Module
  14