[learning.net]

تفضل اخى الكريم

كود :

Dim lstgrup As List(Of ListView) = {ListView1, ListView2, ListView3, ListView4, ListView5, ListView6, ListView7, ListView8}.ToList
        Dim Items(ListView9.Items.Count - 1) As ListViewItem
        Dim b As Integer = 0
        Do
            For s As Integer = 0 To lstgrup.Count - 1
                Items(b) = CType(ListView9.Items(b).Clone, ListViewItem)
                lstgrup(s).Items.Add(Items(b))
                b += 1
            Next
        Loop Until b = ListView9.Items.Count