' Collection of code snippets by Arne Vajhøj ' posted to eksperten.dk, usenet and other places (2002-now) Imports System Imports System.Collections Module Main Sub Main() Dim arrayList As New ArrayList Dim i As Integer Dim astrTmp(1, 1) As String astrTmp(0, 0) = "0" astrTmp(0, 1) = "1" astrTmp(1, 0) = "2" astrTmp(1, 1) = "3" For i = 0 To astrTmp.GetUpperBound(0) Dim arr(1) As String arr(0) = astrTmp(i, 0) arr(1) = astrTmp(i, 1) arrayList.Add(arr) Next Dim arr1(1) As String Dim objectArray() As Object = arrayList.ToArray(arr1.GetType()) 'Dim dobbeltArr(,) As String = CType(objectArray, String(,)) Dim jigsawArray()() As String = CType(objectArray, String()()) Console.WriteLine(jigsawArray(0)(0)) Console.WriteLine(jigsawArray(0)(1)) Console.WriteLine(jigsawArray(1)(0)) Console.WriteLine(jigsawArray(1)(1)) End Sub End Module