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


Thrilling East Windsor Mixed-Use Development
Real estate developer James Cormier, in collaboration with a partnership, has purchased 137 acres of land in Connecticut for $1.15 million with the intention of