Procedure.l UpdateWindowsProc(hWnd.l, *desktop.RECT)
  If IsZoomed_(hWnd)
    MoveWindow_(hWnd, *desktop\left, *desktop\top, *desktop\right-*desktop\left, *desktop\bottom-*desktop\top, #True)
  EndIf
  ProcedureReturn #True
EndProcedure

ExamineDesktops()
desktopnew.RECT
  desktopnew\left = 0
  desktopnew\right = DesktopWidth(0)
  desktopnew\top = 23
  desktopnew\bottom = DesktopHeight(0) - 23

Repeat
  Delay(500)
  SystemParametersInfo_(#SPI_SETWORKAREA,0, @desktopnew, #SPIF_SENDWININICHANGE)
  EnumWindows_(@UpdateWindowsProc(), @desktopnew)
ForEver