Move ListItem from 1 ListView to another

[Angus Ching]

Hi,


I'm using 2 buttons to control the movement of ListItems from 1 ListView to

another. I would like to know how it is done.


Private Sub cmdAdd_Click()



Dim itmListItem As ListItem

Dim temp1, temp2 As String



With ListView2

Set itmListItem = ListView1.SelectedItem.ListSubItems(0)

itmListItem = ListView1.SelectedItem.ListSubItems(1)

temp1 = itmListItem.SubItems(0)

temp2 = itmListItem.SubItems(1)



End With



MsgBox "temp1 = " & temp1 & " temp2 = " & temp2



End Sub


The error message is 'Index out of bounds'. What's wrong with the above code??