Imports System
Public Class Program
Public Shared Sub Main()
Dim array2d As Integer(,) = {
{4, 6},
{5, 7},
{0, 1},
{9, 12},
{8, 16},
{69, 98}}
Dim index As Integer = 0
Dim rows As Integer = array2d.GetLength(0)
Dim cols As Integer = array2d.GetLength(1)
Dim arr As Integer() = New Integer(rows * cols - 1) {}
For i As Integer = 0 To cols - 1
For j As Integer = 0 To rows - 1
arr(index) = array2d(j, i)
index += 1
Next
Next
For Each n As Integer In arr
Console.Write(n & " ")
Next
End Sub
End Class
' run:
'
' 4 5 0 9 8 69 6 7 1 12 16 98
'