Sub GetScreenFont()
MsgBox GetDeviceCaps(GetDC(0), 88), vbOKOnly _
+ vbInformation, "Screen Font Size"
End Sub

Assuming you have already declared the GetDC and GetDeviceCaps functions to
get the screen resolution.

--

Vasant

"Tom Rudski" wrote in message
...
Need code to determine the monitor/screen setting 'small font' or 'large
font'.
I have code for screen resolution.
In Control Panel, 'Display', my 'Settings' advanced tab shows 'small font
96 dpi normal'.

TIA