I wanted a method to remove all the items selected in a multi-select list. I ended up doing the following. I tried using the RemoveListItem, but since this is based on NewItemId which is constantly changing, the code became fairly convoluted.

WITH THIS.Parent.lstModelFee

	lnTotFees = .ListCount
	lnFeeSelected = 1
	FOR lnCurFee = 1 TO lnTotFees
		IF .Selected[ lnFeeSelected ]
			lnNodeId = VAL(.List[ lnFeeSelected, 4 ])
			THISFORM.mpRemoveFromList ( lnNodeId )

			.RemoveItem( lnFeeSelected )
		ELSE
			lnFeeSelected = lnFeeSelected + 1
		ENDIF	
	ENDFOR
	
ENDWITH

THIS.Enabled = .F.