Fabio,

It's very interesting.

You try add this code:

	tt=SECONDS()
    loo=_SCREEN.ActiveForm
	FOR I=1 TO 1000000
	  =loo.FontName
	NEXT
	? '_SCREEN.ActiveForm II',SECONDS()-m.tt


	tt=SECONDS()
    loo=_VFP.ActiveForm
	FOR I=1 TO 100000
	  =loo.FontName
	NEXT
	? '_VFP.ActiveForm II  ',(SECONDS()-m.tt)*10

MartinJ

>Hi,
>
>Compare:
> WFONT(1),
> thisForm.FontName,
> _SCREEN.ActiveForm.FontName
> _vfp.ActiveForm.FontName
>
>

>PUBLIC o1
>o1 = CREATEOBJECT( "MyForm" )
>o1.Show()
>
>DEFINE CLASS MyForm AS Form
>FontName ="Courier New"
>PROCEDURE Click
>	tt=SECONDS()
>	FOR I=1 TO 1000000
>	  =WFONT(1)
>	NEXT
>	? 'procedure         ',SECONDS()-m.tt
>	tt=SECONDS()
>	FOR I=1 TO 1000000
>	  =thisform.FontName
>	NEXT
>	? 'thisform          ',SECONDS()-m.tt
>	tt=SECONDS()
>	FOR I=1 TO 1000000
>	  =_SCREEN.ActiveForm.FontName
>	NEXT
>	? '_SCREEN.ActiveForm',SECONDS()-m.tt
>	tt=SECONDS()
>	FOR I=1 TO 100000
>	  =_VFP.ActiveForm.FontName
>	NEXT
>	? '_VFP.ActiveForm   ',(SECONDS()-m.tt)*10
>
>PROCEDURE UnLoad
>  RELEASE o1
>ENDDEFINE
>

>
>thisForm is put only for comparation, but it reference to a specific object.
>
>Fabio