Remover Items de ListView

oi galera !!pessoal eh assim, eu estou tentando fazer q com ao adicionar um item de uma listview para outra, entao seja eliminado da primeira listview esse item...para isso tenho o seguinte codigo:

Dim i As IntegerDim j As Integer  For i = 1 To ListView2.ListItems.Count     For j = 1 To ListView1.ListItems.Count           If ListView1.ListItems(j).Text = ListView2.ListItems(i).Text Then              ListView1.ListItems(j).ListSubItems.Remove 1              ListView1.ListItems(j).Text = ""           End If     Next j  Next ita dando erro na linha:

ListView1.ListItems(j).ListSubItems.Remove 1

e diz index out of bounds,pq ta dando erro ?como resolver este erro ? http://forum.imasters.com.br/public/style_emoticons/default/joia.gif