xojo updating the code again
added IconForFileType