Imports System
Public Module Module1
Public Sub Main()
Dim arr(,) = New Integer(,) {
{1, 2, 3, 5},
{4, 5, 6, 5},
{7, 8, 9, 5}
}
Dim rows As Integer = arr.GetLength(0)
Dim cols As Integer = arr.GetLength(1)
Console.WriteLine("rows = {0}", rows)
Console.WriteLine("cols = {0}", cols)
End Sub
End Module
' run
'
' rows = 3
' cols = 4
'