>&& 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 > >