Visual Basic - ayuda con error

hola, alguien se podria fijar donde tenfo el error, lo que hace esto es copiar los elemento que hay en un listview en un formulario a otro listview en otro formulario en el evento load, pero copia siempre el indice., los 2 listview se llaman iguales,

For X = 1 To Frmmain.ListView1.ListItems.Count *****'recorro el listview1 del frmmain
'****los 2 lsitview se llaman iguales pero estan en diferentes formularios
ListView1.ListItems.Add , , Frmmain.ListView1.ListItems(X).Text, 0, 0
ListView1.ListItems(X).SubItems(1) = Frmmain.ListView1.ListItems(1).SubItems(1)
ListView1.ListItems(X).SubItems(2) = Frmmain.ListView1.ListItems(2).SubItems(2)
ListView1.ListItems(X).SubItems(3) = Frmmain.ListView1.ListItems(3).SubItems(3)

Next

Qué error es el que te pone....??

Intenta anteponiendo en cada listview el nombre del formulario
frmForm01.ListView1.ListItems(X).SubItems(1) = Frmmain.ListView1.ListItems(1).SubItems(1)

me pone siempre el item del primer listview en todos los subitems del segundo, osea si tengo 1- juan- perez en el segundo listview pone
1- 1 -1, se entiende???

Inténtalo así:
ListView1.ListItems(X).SubItems(1) = Frmmain.ListView1.ListItems(X).SubItems(1)
etc....
Suerte.

chabon no es mas facil que cambies el nombre del segundo list para que no se produzcan conflictos en memoria ????
sino copialos a una matriz, cerra el primer formulario y luego copias de la matriz al segundo.
suerte