Label1.Caption = CStr(1440 / Screen.TwipsPerPixelX) & "dpi"
Label2.Caption = Me.Font.Name & ", " & Me.Font.Size & "pt, Charset=" & Me.Font.Charset