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