I have craeted a mover form that uses two list boxs, one to hold fields to select and another to store the fields the user selects. The problem is I have a button that lets the user chose all fields the code is as below:

WITH THISFORM
FOR I = 1 TO .lstSelect.LISTCOUNT
.mnSelectedItems = .mnSelectedItems+1
.lstSelected.additem(.lstSelect.value)
.lstSelect.removeitem(.lstSelect.topitemid)
ENDFOR
ENDWITH

The problem is the removeitem list is blowing up telling me I have an invalid count.

Two questions:
1.) Is there a better way to do this.
2.) Can the program choose a filed in the select listbox when the program activates?
Like a select on activate!!!