Visual Basic

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim FileName As String = Application.StartupPath + "\Config\conString.txt"
        Dim TextLine As String = String.Empty

        If System.IO.File.Exists(FileName) = True Then
            Dim ObjectReader As New System.IO.StreamReader(FileName)

            Do While ObjectReader.Peek() <> -1
                TextLine = TextLine & ObjectReader.ReadLine()
            Loop
        Else
            MessageBox.Show("Connection String not found " + vbNewLine + vbNewLine + FileName, "Failed", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
        End If
    End Sub

' Setup source array of Lists.
Dim originalLists(3, 4) As List(Of Integer)

For i = 0 To 3
    For j = 0 To 4
        originalLists(i, j) = New List(Of Integer) From {1, 2, 3}
    Next
Next

' Now make copies of the original Lists.
Dim copyLists(3, 4) As List(Of Integer)

For i = 0 To 3
    For j = 0 To 4
        copyLists(i, j) = New List(Of Integer)
        copyLists(i, j).AddRange(originalLists(i, j))
    Next
Next