#define PIC_CHECKED HOME(4)+'BITMAPS\ASSORTED\delete.BMP' #define PIC_UNCHECKED HOME(4)+'BITMAPS\ASSORTED\trash.BMP' IF PEMSTATUS(_screen,'List1',5) _screen.RemoveObject('List1') ENDIF _screen.AddObject('List1','Listbox') WITH _screen.List1 .AddItem("checked item") .Picture(1) = PIC_CHECKED .AddItem("unchecked") .Picture(2) = PIC_UNCHECKED .Width = 150 .Visible = .T. ENDWITH