List of  all  avalable fonts in Visual FoxPro

Recently I noticed someone was creating a combobox with all available fonts in VFP, this is normaly done by creating an array with getfont() an set the controlsource of your combobox to this array. How nice would it be to mimic the getfont combobox in e.g. MSword, which shows the MRU fonts on top of this inmense list of fonts?

I still have on my HD this algorithm, code, in VFP to produce exactly that. Unfortunately I have lost the name of the author, so if anyone can help me with that I will certainly give him/here the credit.
Meanwhile enjoy, you may download here link.
Any suggestions, bugs etc. please let me know.

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