Show selected Columnheader and Listitems

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 :cry: .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

---