Microsoft Access 掲示板

いつもお世話になります。

タイトルの件、hatena様が過去に公開されています以下コードで
作成してみました。
私のPC(Win10、office2010）では正常（画面ほぼ真ん中）に動作しますが、
他のPC(Win10、office2013）では画面左上に位置した状態です。

標準モジュール

Option Compare Database
Option Explicit

#If VBA7 Then
    Public Declare PtrSafe Function SetWindowPos Lib "user32" _
                                    (ByVal hwnd As LongPtr, _
                                     ByVal hWndInsertAfter As LongPtr, _
                                     ByVal X As Long, ByVal Y As Long, _
                                     ByVal cx As Long, ByVal cy As Long, _
                                     ByVal wFlags As Long) As Long
    Public Declare PtrSafe Function GetSystemMenu Lib "user32" _
                                    (ByVal hwnd As LongPtr, _
                                     ByVal bRevert As Long) As LongPtr
    Public Declare PtrSafe Function RemoveMenu Lib "user32" _
                                    (ByVal hMenu As LongPtr, _
                                     ByVal nPosition As Long, _
                                     ByVal wFlags As Long) As Long
#Else
    Public Declare PtrSafe 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
    Public Declare PtrSafe Function GetSystemMenu Lib "user32" _
                            (ByVal hwnd As Long, ByVal fRever As Long) As Long
    Public Declare PtrSafe Function RemoveMenu Lib "user32" _
                            (ByVal hMenu As Long, ByVal nPosition As Long, _
                             ByVal wFlags As Long) As Long
#End If

Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const HWND_TOP = &H0
Public Const SC_SIZE = &HF000
Public Const SC_MAXIMIZE = &HF030
Public Const SC_CLOSE = &HF060
Public Const SC_RESTORE = &HF120
Public Const MF_BYCOMMAND = &H0&

フォームを開く時
Private Sub Form_Open(Cancel As Integer)
    #If VBA7 Then
        Dim hwnd As LongPtr
    #Else
        Dim hwnd As Long
    #End If
 
    hwnd = Application.hWndAccessApp
    SetWindowPos hwnd, HWND_TOP, 0, 0, 800, 600, SWP_NOMOVE
    hwnd = GetSystemMenu(hwnd, 0)
    RemoveMenu hwnd, SC_SIZE, MF_BYCOMMAND
 
    'ナビゲーションウィンドウを閉じる
    DoCmd.NavigateTo "acNavigationCategoryObjectType", ""
    DoCmd.RunCommand acCmdDocMinimize
 
End Sub

オフィスの問題でしょうか？
ご教授のほどよろしくお願い致します。