parsing item between list boxes

[chxxangie]

    For n = 0 To List1(0).ListCount - 1
        report.List1(0).List(n) = List1(0).List(n)
        report.List1(1).List(n) = List1(1).List(n)
        report.List1(2).List(n) = List1(2).List(n)
        report.List1(3).List(n) = List1(3).List(n)
        report.List1(4).List(n) = List1(4).List(n)
        report.List1(5).List(n) = List1(5).List(n)
        report.List1(6).List(n) = List1(6).List(n)
        report.List1(7).List(n) = List1(7).List(n)
    Next

what I'm doing in the code is to parse the item in list1 to report.list1
but when the list is having a large number of data/items, the parsing will become slower.
is there any way can cover it?

[leinad31]

From what are you filling list1? From an array? If so then also fill report from the array.