>No, I think you are also right, I believe pictures can only be added if the rowsource type is 1 and he was asking "depending on the record status", but I'm not sure.

I also think you are also right :)

The workaround, I guess, is to manually populate the listbox

LOCAL loForm

loForm		= NEWOBJECT("form1")
loForm.Show(1)
RETURN

DEFINE CLASS form1 AS form


	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT list1 AS listbox WITH ;
		Anchor = 15, ;
		ColumnWidths = "100", ;
		Height = 228, ;
		Left = 12, ;
		Top = 12, ;
		Width = 349, ;
		Name = "List1"


	PROCEDURE Load
		CREATE CURSOR C_Countries (PK I AutoInc, Name C(20), MAP C(120))

		INSERT INTO C_Countries ( Name, Map ) VALUES ('France', HOME(4) + 'Icons\Flags\CTRFRAN.ICO')
		INSERT INTO C_Countries ( Name, Map ) VALUES ('Canada', HOME(4) + 'Icons\Flags\CTRCAN.ICO')
		INSERT INTO C_Countries ( Name, Map ) VALUES ('Germany', HOME(4) + 'Icons\Flags\CTRGERM.ICO')
		INSERT INTO C_Countries ( Name, Map ) VALUES ('Italy', HOME(4) + 'Icons\Flags\CTRITALY.ICO')
		INSERT INTO C_Countries ( Name, Map ) VALUES ('Japan', HOME(4) + 'Icons\Flags\CTRJAPAN.ICO')
		INSERT INTO C_Countries ( Name, Map ) VALUES ('Mexico', HOME(4) + 'Icons\Flags\CTRMEX.ICO')
		INSERT INTO C_Countries ( Name, Map ) VALUES ('Spain', HOME(4) + 'Icons\Flags\CTRSPAIN.ICO')
		
		INDEX on Name TAG Name
	ENDPROC


	PROCEDURE list1.Init
		LOCAL lnItem

		SELECT C_Countries
		lnItem = 0
		SCAN
			lnItem = lnItem + 1 
			this.AddListItem(ALLTRIM(C_Countries.Name), C_Countries.PK)
			this.Picture(lnItem) = ALLTRIM(C_Countries.Map)
		ENDSCAN
	ENDPROC


ENDDEFINE