Dim line As String = ""
        For i as Integer = 0 To test.GetUpperBound(0)
            For j as Integer = 0 To test.GetUpperBound(1)
                line = line & test(i, j) & vbTab
            Next
            ListBox1.Items.Add(line)
            line = ""
        Next