>>>>Didn't character MAP that comes with Windows didn't work for you?
>>>
>>>Where do I find it?
>>
>>Check my Reply, please.
>
>Thanks Naomi and Borislav. I got it.

If you want it in VFP:

oForm = CREATEOBJECT([Form1])
oForm.Show(1)

**************************************************
*-- Form:         form1 (d:\all_zapl\test.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   07/03/08 11:42:06 PM
*
DEFINE CLASS form1 AS form


    DoCreate = .T.
    Caption = "Form1"
    Name = "Form1"


    ADD OBJECT grid1 AS grid WITH ;
        ColumnCount = 2, ;
        Anchor = 15, ;
        Height = 243, ;
        Left = 17, ;
        Panel = 1, ;
        Top = 3, ;
        Width = 356, ;
        Name = "Grid1", ;
        Column1.Name = "Column1", ;
        Column2.Width = 236, ;
        Column2.Name = "Column2"

    PROCEDURE Init
        =AFONT(laFonts)
        lcChars = []
        FOR lnFor = 30 TO 255
            lcChars = lcChars + CHR(lnFor)
        NEXT
        FOR lnFor = 1 TO ALEN(laFonts)
            INSERT INTO crsTest VALUES (laFonts[lnFor], lcChars)
        NEXT
        GO TOP
        thisform.Grid1.Column2.DynamicFontName = [IIF(.t.,ALLTRIM(FontNames),"")]
    ENDPROC


    PROCEDURE Load
        CREATE CURSOR crsTest (FontNames C(50), AllChars C(200))
    ENDPROC


ENDDEFINE
*
*-- EndDefine: form1
**************************************************

:o)