Пиксели, поинты, твипы и DPI!

'перевод твипов в пиксели
Public Function TwipToPixel(ByVal Twips As Long) As Long
  TwipToPixel = Twips / TwipsPerPixel()
End Function
 
'перевод пикселей в твипы
Public Function PixelToTwip(ByVal Pixels As Long) As Long
  PixelToTwip = Pixels * TwipsPerPixel()
End Function

Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
    Width As Long
    Height As Long
End Type
 
Public Const LOGPIXELSX As Long = 88
Public Const LOGPIXELSY As Long = 90
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hDC As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" ( _
        ByVal hDC As Long, _
        ByVal nIndex As Long _
    ) As Long
 
 
Sub inUse() '
      Debug.Print GetWindowRectSize(Application.hWndAccessApp).Height
End Sub
 
'=================================================================================
Public Function GetWindowRectSize(hwnWindow, Optional inpx As Boolean) As RECT
'Для визначення розмірів вікон
    Dim a As Long
        a = GetWindowRect(hwnWindow, GetWindowRectSize)
        With GetWindowRectSize
            .Height = .Right - .Left
            .Width = .Bottom - .Top
        
            If Not inpx Then
                .Left = PixelToTwip(.Left)
                .Top = PixelToTwip(.Top)
                .Right = PixelToTwip(.Right)
                .Bottom = PixelToTwip(.Bottom)
                .Width = PixelToTwip(.Width)
                .Height = PixelToTwip(.Height)
            End If
        End With
End Function
 
Private Function TwipsPerPixel(Optional ByVal Dimension As Long = LOGPIXELSX) As Long
  Const TwipsPerInch As Long = 1440
  Dim DesktopDC As Long
On Error GoTo ErrorHandle
  DesktopDC = GetDC(Application.hWndAccessApp) 'DesktopDC = GetDC(HWND_DESKTOP)
  TwipsPerPixel = TwipsPerInch / GetDeviceCaps(DesktopDC, Dimension)
ErrorHandle:
  Call ReleaseDC(Application.hWndAccessApp, DesktopDC) 'Call ReleaseDC(HWND_DESKTOP, DesktopDC)
  'Call Exception.RaiseAgain
End Function

Private Declare Function ShowWindow& Lib _
        "user32" (ByVal q&, ByVal q1&)
        
Private Declare Function SetWindowPos Lib _
    "user32" (ByVal hwnd As Long, _
     ByVal hWndInsertAfter As Long, _
     ByVal x As Long, ByVal y As Long, _
     ByVal cx As Long, ByVal cy As Long, _
     ByVal wFlags As Long) As Long
     
Private Declare Function FindWindow Lib _
    "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
    
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40
Dim hPanel As Long
Dim p As Long
 
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" ( _
    ByVal hwnd As Long, _
    ByVal hDC As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" ( _
    ByVal hDC As Long, _
    ByVal nIndex As Long) As Long
 
Const LOGPIXELSX = 88
Const LOGPIXELSY = 90
Const TWIPSPERINCH = 1440
 
Private Declare Function GetSystemMetrics Lib "user32" ( _
    ByVal nIndex As Long) As Long
 
Private Const SM_CXFULLSCREEN = 16
Private Const SM_CYFULLSCREEN = 17
 
Sub ConvertPixelsToPoints(ByRef x As Single, ByRef y As Single)
    Dim hDC As Long
    Dim RetVal As Long
    Dim XPixelsPerInch As Long
    Dim YPixelsPerInch As Long
 
    hDC = GetDC(0)
    XPixelsPerInch = GetDeviceCaps(hDC, LOGPIXELSX)
    YPixelsPerInch = GetDeviceCaps(hDC, LOGPIXELSY)
    RetVal = ReleaseDC(0, hDC)
    x = x * TWIPSPERINCH / 20 / XPixelsPerInch
    y = y * TWIPSPERINCH / 20 / YPixelsPerInch
End Sub
 
Sub Move()
    Dim Wt As Single
    Dim Ht As Single
Stop
    Wt = GetSystemMetrics(SM_CXFULLSCREEN)
    Ht = GetSystemMetrics(SM_CYFULLSCREEN)
    With UserForm1
        ConvertPixelsToPoints Wt, Ht
        .Left = Wt - .Width
        .Top = Ht - .Height  ' 1-ый вариант (выше)
        .Top = Ht               ' 2-ой вариант (ниже)
        .Show vbModeless
    End With
    
End Sub
 
Private Sub UserForm_Initialize()
    Call Move
End Sub