>>>>>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)

Borisslav,
many thanks for the code. I there are many times I would have loved to have it and it goes into my tool bin right now.