>So sory, I forgot it. I post my code again. UDF is a user define functions I make in VB6. I need add 12 fonts (Vietnamese font).

I'm absolutely, positively sure the VFP code in the MSFT KB article works (I wrote it and tested it). I would recommend that you cut and paste from the article, and customize to suit your needs.