Const WND_CHANGE_MODE = 3 'WNDCHANGE_RESIZE_TO_FIT + WNDCHANGE_CLIP_TO_WORKSPACE

Set wnd = CreateObject("UltraMon.Window")
If wnd.GetForegroundWindow() = True Then
	activeMon = wnd.Monitor

	Set wnds = wnd.GetAppWindows(False)
	For Each w In wnds
		If w.Monitor <> activeMon Then
			wnd.Monitor = w.Monitor
			w.Monitor = activeMon
			wnd.ApplyChanges WND_CHANGE_MODE
			w.ApplyChanges WND_CHANGE_MODE
			w.Activate
			Exit For
		End If
	Next
End If