Module Module1
Sub Main()
Dim arr2D(,) As Integer = {{1, 2}, {3, 4}, {5, 6}, {7, 8}, {9, 10}, {11, 12}, {13, 14}}
For i As Integer = 0 To arr2D.Rank - 1
Console.WriteLine("Dimension {0}: index from {1} to {2}",
i, arr2D.GetLowerBound(i),
arr2D.GetUpperBound(i))
Next
End Sub
End Module
' run:
'
' Dimension 0: index from 0 to 6
' Dimension 1: index from 0 To 1