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