انا شغال على اوفيس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