Hi everyone,

This is just another "easy" problem that I'm stuck with.  Basically, I
have two list box, LEFT & RIGHT.
The one on the left contains several items and I have one command button
to move multiple items that I selected by holding SHIFT or CTRL key
while clicking the left mouse button.  The problem is, I also want to
delete all the items that are moved from left to right.  As it stands
right now, I'm only copying the selected items on the left to the
right.  So my question is how can I delete all the selected items after
I moved them to the right list box?

I have tried to do:

       If lstLeft.Selected(I) Then
            lstRight.AddItem lstLeft.List(I)
            lstLeft.RemoveItem (I)
       End If

But it only deleted every other item that I selected before the program
finally crashed.  Your help would be greatly appreciated.  Thanks in
advance.

Godai

PS: This is the code I have for the command button (below):

--------------------
Private Sub cmdMoveMultiple_Click()
    Dim intNumItem, I As Integer
    intNumItem = lstLeft.ListCount

    For I = 0 To intNumItem - 1
       If lstLeft.Selected(I) Then
            lstRight.AddItem lstLeft.List(I)
       End If
    Next I
End Sub

Private Sub Command1_Click()
Dim i, z As Integer

    z = lstLeft.ListCount - 1

    For i = 0 To z
        If i > z Then
            Exit For
        End If
        If lstLeft.Selected(i) = True Then
            lstRight.AddItem List1.List(i)
            lstLeft.RemoveItem i
            z = lstLeft.ListCount - 1
        End If
    Next i
End Sub

I want to take the time to say thanks for everybody who replied to me
privately or via this newsgroup.  Some people came up with a really funky
idea how to solve it, but hey they work!  So thanks for your contribution.

Cheers,
Godai