Can anybody tell why when I click my remove button on my form that I get the messagebox stating I havent select anything in the list to delete when I have prior to the item actually being removed succesfully.

with thisform.pageframe1.page6.list2
for ix=1 to .Listcount
 if .Selected[ix]
 	IF MESSAGEBOX("Are you sure you want to delete this item?",4)=6
 	 	SELECT cmscomp
 	 	DELETE
 	ENDIF
 	thisform.pageframe1.page6.list2.Requery()
 ELSE
 	MESSAGEBOX("You have not selected a composition type to remove",0)    
 endif
ENDFOR
ENDWITH