* lcck is the filename of the checked bitmap * lcunck is the filename of the unchecked bitmap. FOR lni = 1 TO ThisForm.List1.ListCount IF ThisForm.List1.Selected(lni) ThisForm.List1.Picture(lni) = lcck ELSE ThisForm.List1.Picture(lni) = lcunck ENDIF NEXTThe above code will set the selected items to the checked bitmap.