Dim numbers = New List(Of Integer) From {1, 2, 3, 4}
        Dim words = New List(Of String) From {"one", "two", "three", "foure"}
        Dim numbersAndWords As Dictionary(Of Integer, String)
        numbersAndWords = numbers.Zip(words,
            Function(k, v) New With {k, v}).ToDictionary(
                Function(anony) anony.k,
                Function(anony) anony.v
        )

        For Each item In numbersAndWords
            Console.WriteLine("{0}_{1}", item.Key, item.Value)
        Next