&& vfp6 help The following code is associated with the Click event of the list box: FOR iItem = 5 TO THIS.ListCount && files start at the 5th item cExtension = UPPER(RIGHT(THIS.List(iItem),3)) DO CASE CASE cExtension = "DBF" THIS.Picture(iItem) = "tables.bmp" CASE cExtension = "BMP" THIS.Picture(iItem) = "other.bmp" CASE cExtension = "PRG" THIS.Picture(iItem) = "programs.bmp" CASE cExtension = "SCX" THIS.Picture(iItem) = "form.bmp" OTHERWISE THIS.Picture(iItem) = IIF("]" $ cExtension, ; "", "textfile.bmp") ENDCASE ENDFOR