DECLARE Long ReleaseDC IN WIN32API Long HWND, Long HDC DECLARE Long GetDC IN WIN32API Long HWND DECLARE Long GetDeviceCaps IN WIN32API Long HDC, Long nIndex nHDC = GetDC(0) cnLOGPIXELSX = 88 *cnLOGPIXELSY = 90 lnLogPixX = GetDeviceCaps(lnHDC, cnLOGPIXELSX ) *lnLogPixY = GetDeviceCaps(lnHDC, cnLOGPIXELSY ) = ReleaseDC(0, lnHDC ) DO CASE CASE lnLogPixX < 96 lcReturn ="Windows is using smaller than Small Fonts" CASE lnLogPixX = 96 lcReturn ="Windows is using Small Fonts" CASE lnLogPixX < 120 lcReturn ="Windows is using between Small Fonts and Large Fonts" CASE lnLogPixX = 120 lcReturn ="Windows is using Large Fonts" OTHERWISE lcReturn = "Windows is using larger than Large Fonts" ENDCASE ? lcReturnThe code is based on mskb #Q137556.