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