Imports System

Public Module Module1

    Public Sub Main()

           ' Declare 3D array.

        ' ... Specify maximum indexes of dimensions.

        Dim threeD(2, 4, 3) As Integer

        threeD(0, 0, 0) = 1

        threeD(0, 1, 0) = 2

        threeD(0, 2, 0) = 3

        threeD(0, 3, 0) = 4

        threeD(0, 4, 0) = 5

        threeD(1, 1, 1) = 2

        threeD(2, 2, 2) = 3

        threeD(2, 2, 3) = 4

​

        ' Loop over three dimensions and display.

        For i As Integer = 0 To threeD.GetLength(2) - 1

        console.writeline(i)

    next

    For x as integer = 0

    End Sub

End Module