I have listview1 show About 10 columnheaders and its Items


I want to show only selected column header togetwith with its Listitems in the listview 2.How to do that?I try many time but still Fail .Please I really need your helps

Code:
'Listitem
        Dim strItem As String
        For Idx = 1 To colColumnIndexes.Count
  
        For Each item In ListView1.ListItems
            If colColumnIndexes(Idx) = 0 Then 'this is not a subitem,
             strItem = item.Text
             Set item = ListView2.ListItems.Add(, , strItem)
             
            Else
               item.ListSubItems.Add , , "" & strItem
            End If
        Next
    Next