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

The Future of iOS App Development: Trends to Watch
When it launched in 2008, the Apple App Store only had 500 apps available. By the first quarter of 2022, the store had about 2.18 million iOS-exclusive apps. Average monthly app releases for the platform reached 34,000 in the first half of 2022, indicating rapid growth in iOS app development.