Sergey,

My god!
I found but that is so strange!

Place a combobox one your reportForm.
In the init Method() Put this :

LOCAL laFontName, lnCounter

DIMENSION laFontName[1 ]
= afont(laFontName)
DEFINE POPUP popFontName
FOR lnCounter = 1 TO ALEN(laFontName)
DEFINE BAR PROMPT lnCounter OF popFontName (laFontName[lnCounter ]) PROMPT (laFontName[lnCounter ])
ENDFOR

this.RowSourceType = 9
this.RowSource = " popFontName "
*----------------------------------------------------------

There is a crash VFP!
one first computer had more Font that the second.

I cannot explain...

But if I change the code

FOR lnCounter = 1 TO ALEN(laFontName)
this.AddItem(laFontName[lnCounter ])
ENDFOR

All functions well...

bernhart