XL 2016 VBA - Problème positionnement UserForm

Private Declare PtrSafe Function GetWindow Lib "user32" ( _
                    ByVal hwnd As LongPtr, ByVal uCmd As Long) As LongPtr

Private Const GW_OWNER As Long = 4

Function GetRealParent(hWndForm As LongPtr)
'patricktoulon collection api 2023
    Dim hwndParent As LongPtr
    GetRealParent = GetWindow(hWndForm, GW_OWNER)
End Function

Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Function GetParent Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
    Private Declare PtrSafe Function SetParent Lib "user32" (ByVal hWndChild As LongPtr, ByVal hWndNewParent As LongPtr) As LongPtr
    Private Declare PtrSafe Function GetAncestor Lib "user32" (ByVal hwnd As LongPtr, ByVal gaFlags As Long) As LongPtr
    
#Else
    Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
    Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
    Private Declare Function GetAncestor Lib "user32" (ByVal hwnd As Long, ByVal gaFlags As Long) As Long
#End If

Private Const GA_ROOTOWNER As Long = 3
Private Sub UserForm_Activate()
    Dim UserFormHandle As LongPtr
    Dim BN As Integer
    Dim x
    UserFormHandle = GetUserFormHandleByCaption(Me)
    
    BN = MsgBox("SetParent de l'ActiveWindow pour le UserForm ?", vbYesNo)
    
    If BN = vbYes Then
        Call SetParent(UserFormHandle, ActiveWindow.hwnd)
    End If
    
    MsgBox "UserForm = " & UserFormHandle & vbCrLf & _
            "ActiveWindow = " & ActiveWindow.hwnd & vbCrLf & _
            "UserForm Parent = " & GetParent(UserFormHandle) & vbCrLf & _
            "GetRealParent = " & GetAncestor(UserFormHandle, GA_ROOTOWNER) & vbCrLf & _
            x
    Application.Wait Now + TimeSerial(0, 0, 1)
    Unload Me
End Sub

Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Function GetWindow Lib "user32" _
                              (ByVal hwnd As LongPtr, ByVal uCmd As Long) As LongPtr
    Private Declare PtrSafe Function GetClassName Lib "user32" Alias "GetClassNameA" _
                              (ByVal hwnd As LongPtr, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
    Private Declare PtrSafe Function GetParent Lib "user32" _
                              (ByVal hwnd As LongPtr) As LongPtr
#Else
    Private Declare Function GetWindow Lib "user32" _
                              (ByVal hwnd As Long, ByVal uCmd As Long) As Long
    Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
                              (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
    Private Declare Function GetParent Lib "user32" _
                              (ByVal hwnd As Long) As Long
#End If

Private Const GW_CHILD As Long = 5
Private Const GW_HWNDNEXT As Long = 2


Public Function FindThunderDFrameParent(Optional ByVal hWndStart As LongPtr = 0) As LongPtr
    Dim hChild As LongPtr, cls As String * 64, l As Long
    If hWndStart = 0 Then hWndStart = Application.hwnd
    l = GetClassName(hWndStart, cls, Len(cls))
    If left$(cls, l) = "ThunderDFrame" Then
        FindThunderDFrameParent = GetParent(hWndStart)
        Exit Function
    End If
    hChild = GetWindow(hWndStart, GW_CHILD)
    Do While hChild <> 0
        FindThunderDFrameParent = FindThunderDFrameParent(hChild)
        If FindThunderDFrameParent <> 0 Then Exit Function
        hChild = GetWindow(hChild, GW_HWNDNEXT)
    Loop
End Function

Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Function GetWindow Lib "user32" _
                              (ByVal hwnd As LongPtr, ByVal uCmd As Long) As LongPtr
    Private Declare PtrSafe Function GetClassName Lib "user32" Alias "GetClassNameA" _
                              (ByVal hwnd As LongPtr, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
    Private Declare PtrSafe Function GetParent Lib "user32" _
                              (ByVal hwnd As LongPtr) As LongPtr
#Else
    Private Declare Function GetWindow Lib "user32" _
                              (ByVal hwnd As Long, ByVal uCmd As Long) As Long
    Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
                              (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
    Private Declare Function GetParent Lib "user32" _
                              (ByVal hwnd As Long) As Long
#End If

Private Const GW_CHILD As Long = 5
Private Const GW_HWNDNEXT As Long = 2


Public Function FindThunderDFrameParent(hWndStart As LongPtr, hwndForm As LongPtr) As LongPtr
    Dim hChild As LongPtr, cls As String * 64, l As Long
    If hWndStart = 0 Then hWndStart = Application.hwnd
    l = GetClassName(hWndStart, cls, Len(cls))
    If left$(cls, l) = "ThunderDFrame" And hWndStart = hwndForm Then
        FindThunderDFrameParent = GetParent(hWndStart)
        Exit Function
    End If
    hChild = GetWindow(hWndStart, GW_CHILD)
    Do While hChild <> 0
        FindThunderDFrameParent = FindThunderDFrameParent(hChild, hwndForm)
        If FindThunderDFrameParent <> 0 Then Exit Function
        hChild = GetWindow(hChild, GW_HWNDNEXT)
    Loop
End Function