All,

I am creating a mover control. When the user clicks an add or remove button my code SHOULD take the selected item or items, moves them to the proper location and removes them from the proper location. However, it sometimes works and sometimes transfers blanks between the two listboxes. My code is below, what's wrong?

LOCAL I
I = 1
DO While I <= this.Parent.lstLeft.ListCount
IF this.Parent.lstleft.Selected(I)
this.Parent.lstright.AddItem(this.Parent.lstleft.ListIndex)
this.Parent.lstleft.RemoveItem(this.Parent.lstleft.ListIndex)
ENDIF
I = I + 1
ENDDO