Prova con:
codice:
Dim Litem As ListViewItem
For i As Integer = 1 To ListView1.Items.Count
       Litem = Form4.ListView1.Items.Add(ListView1.Items(i).Text)
       'Litem.SubItems.Add("SubItems")'per aggiungere un SubItems, nel caso in cui ti serva
Next
Form4.Show()