Const MOVEMONITOR_NEXT = -1
Const SHOWSTATE_MAXIMIZED = 3
Const WNDCHANGE_CLIP_TO_WORKSPACE = 2

Set wnd = CreateObject("UltraMon.Window")
If wnd.GetForegroundWindow() = True Then
	wnd.Monitor = MOVEMONITOR_NEXT
	wnd.ShowState = SHOWSTATE_MAXIMIZED
	wnd.ApplyChanges WNDCHANGE_CLIP_TO_WORKSPACE
End If