Module Module1
Sub Main()
Dim matrix = New Integer(3, 2) {{1, 2, 3}, {4, 5, 6}, {7, 8, 9}, {10, 11, 12}}
Console.WriteLine(matrix(0, 0))
Console.WriteLine(matrix(1, 0))
Console.WriteLine(matrix(2, 0))
Console.WriteLine(matrix(3, 0))
Console.WriteLine(matrix(0, 1))
Console.WriteLine(matrix(1, 1))
Console.WriteLine(matrix(2, 1))
Console.WriteLine(matrix(3, 1))
End Sub
End Module
' run:
'
' 1
' 4
' 7
' 10
' 2
' 5
' 8
' 11