Dear Experts

command button has following codes

thisform.LIST1.ROWSOURCETYPE= 2
thisform.LIST1.ROWSOURCE ="TESTP"
thisform.list1.displayvalue=1

List1 double click has following coces

IF THIS.ListIndex > 0
	thisform.liST2.AddItem(This.List(This.ListIndex))
	THIS.RemoveItem (THIS.ListIndex)
ENDIF

Problem
When I double in list1 then select item goes to list2 but not remove itself from list1. I mean

THIS.RemoveItem (THIS.ListIndex)

does not work

How to remove current list item from list1?

Please help