Конечно есть одна проблемка,когда окно находится в нижней позиции.Это надо как-то пофиксить!)))

#include <GUIConstantsEx.au3>

Local $hGUI = GUICreate("", 400, 400)

Local $position_1 = GUICtrlCreateButton("<-", 0, 0, 25, 25)
Local $position_2 = GUICtrlCreateButton("->", 375, 0, 25, 25)
Local $position_3 = GUICtrlCreateButton("<-", 0, 375, 25, 25)
Local $position_4 = GUICtrlCreateButton("->", 375, 375, 25, 25)
GUISetState(@SW_SHOW, $hGUI)

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $position_1
WinMove($hGUI, "", 0, 0, 400, 400)
Case $position_2
WinMove($hGUI, "",@DesktopWidth-400 ,0 , 400, 400)
Case $position_3
WinMove($hGUI, "",0 ,@DesktopHeight-400 , 400, 400)
Case $position_4
WinMove($hGUI, "",@DesktopWidth-400,@DesktopHeight-400 , 400, 400)

EndSwitch

WEnd