Imports System
Public Module Module1
Public Sub Main()
Dim array2d(,) As Integer = New Integer(,) {{1, 8, 5},
{6, 7, 1}}
Dim rows As Integer = array2d.GetUpperBound(0) + 1
Dim cols As Integer = array2d.GetUpperBound(1) + 1
Console.WriteLine("rows: {0}", rows)
Console.WriteLine("columns: {0}", cols)
End Sub
End Module
' run:
'
' rows: 2
' columns: 3
'