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.