```visual-basic
^!Up::
WinGetPos,X,Y,W,H,A
increment := 40
newh := (H + increment)
newy := (Y - increment)
WinMove,A,,%X%,%newy%,W,%newh%
return
^!Down::
WinGetPos,X,Y,W,H,A
increment := 40
newh := (H - increment)
newy := (Y + increment)
WinMove,A,,%X%,%newy%,W,%newh%
return
```