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