'константы для функций API

Private Const LOGPIXELSX = 88 ' Logical pixels/inch in X
Private Const LOGPIXELSY = 90 ' Logical pixels/inch in Y
'Функции API, применяемые для поиска окна и изменения его стиля
#If VBA7 Then
    Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDc As LongPtr, ByVal nIndex As LongPtr) As LongPtr
    Private Declare Function GetDC Lib "user32.dll" (ByVal hwnd As LongPtr) As LongPtr
    Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As LongPtr, ByVal hDc As Long) As LongPtr
#Else
    Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDc As Long, ByVal nIndex As Long) As Long
    Private Declare Function GetDC Lib "user32.dll" (ByVal hwnd As Long) As Long
    Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hDc As Long) As Long
#End If

Private Sub UserForm_Initialize()

    Dim hDc As Long
    Dim lngRetVal As Long
    Dim varPixToInchX As Variant
    Dim varPixToInchY As Variant
     
    hDc = GetDC(0)
        varPixToInchX = GetDeviceCaps(hDc, LOGPIXELSX)
        varPixToInchY = GetDeviceCaps(hDc, LOGPIXELSY)
     
    lngRetVal = ReleaseDC(0, hDc)

    frmHourglass.Top = 1 / varPixToInchY * 72
    frmHourglass.Left = 5 / varPixToInchX * 72

End Sub

Sub test()

        Dim form
    
        frmHourglass.Show vbModeless

        Set form = frmHourglass
        DoEvents
        
        Unload frmHourglass

End Sub