Fontlist in Visual Foxpro  (VFP)

Recently a Visual Foxpro user had the need to make a combobox with available fonts. Usualy this is done to load all fonts with Getfont() into an array which should populate the combobox. However it would be nice to show the MRU (Most Recently Used) fonts on top of the list.
Somewhere on my HD I found this algorithm doing exactly that, in fact it mimics the font selector you find in MSOffice (Word, Excel a.s.o.) The coding is not mine, somehow I lost the author's name so if anyone can give that to me I am happy to give this man/woman the credits.
Meanwhile enjoy it. You may download at: download