Shared Function _ GetDesktopWindow() As IntegerEnd Function Shared Function GetDC _ (ByVal hWnd As Integer) As IntegerEnd Function Shared Function _ GetDeviceCaps(ByVal hDC As Integer, ByVal nIndex As Integer) As IntegerEnd Function Shared Function ReleaseDC _ (ByVal hWnd As Integer, ByVal hDC As Integer) As IntegerEnd Function ' Returns a boolean indicating whether ths system is using small fontsFunction IsSystemFontSmall() As Boolean Const LOGPIXELSX = 88 ' get its device context Dim hDC As Integer = GetDC(GetDesktopWindow()) ' 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(GetDesktopWindow(), hDC)End Function


Top Software Development Companies
Looking for the best in software development? Our list of Top Software Development Companies is your gateway to finding the right tech partner. Dive in