انا شغال على اوفيس2016
وده الكود
Option Compare Database
Public Declare Function GetSystemMetrics Lib "user32" (ByVal Index As Long) As Long
Public Declare Function GetDesktopWindow Lib "user32" () As Long
Public Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal X As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal brepaint As Long) As Boolean
Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Public Const SM_CXSCREEN As Long = 0
Public Const SM_CYSCREEN As Long = 1
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type