CLEAR oFont = CREATEOBJECT("StdFont") WITH oFont ? "Name = ", .Name, "Size = ", .Size, "VarType = ", VARTYPE(.Size) FOR nValue = 6 TO 40 .Size = nValue ? "Size = ", .Size NEXT ENDWITH RELEASE oFont RETURN