Private Declare Function GetDesktopWindow Lib "user32" () As LongPrivate Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As LongPrivate Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, _    ByVal nIndex As Long) As LongPrivate Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, _    ByVal hDC As Long) As LongConst LOGPIXELSX = 88Private Function IsSystemFontSmall() As Boolean    Dim hWnd As Long, hDC As Long        ' get the handle of the desktop window    hWnd = GetDesktopWindow()    ' get its device context    hDC = GetDC(hWnd)    ' if the number of pixels per logical inch is = 96    ' then Windows is using small system font    IsSystemFontSmall = (GetDeviceCaps(hDC, LOGPIXELSX) = 96)    ' release the device context    ReleaseDC hWnd, hDC    End Function