Module Module1
Sub Main()
Dim arr2D As Array = Array.CreateInstance(GetType(Integer), 6, 3)
Console.WriteLine("dimension(0) = {0}", arr2D.GetLongLength(0))
Console.WriteLine("dimension(1) = {0}", arr2D.GetLongLength(1))
End Sub
End Module
' run:
'
' dimension(0) = 6
' dimension(1) = 3