Public Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, ByVal nIndex As Long) As Long
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Const LOGPIXELSX = 88 ' Logical pixels/inch in X
Public Const LOGPIXELSY = 90 ' Logical pixels/inch in Y
Dim hDC As Long
Dim n As Long
hDC = GetDC(Me.hwnd)
n = GetDeviceCaps(hDC, LOGPIXELSX)
If n = 96 Then
'小字體
ElseIf n = 120 Then
'大字體
End If