Const SHOWSTATE_NORMAL = 2

Set wnd = CreateObject("UltraMon.Window")
If wnd.GetForegroundWindow() = True Then
	If wnd.ShowState = SHOWSTATE_NORMAL Then
		Set sys = CreateObject("UltraMon.System")
		Set mon = sys.Monitors(wnd.Monitor - 1)
		wnd.Top = mon.WorkTop
		wnd.Height = mon.WorkHeight
		wnd.ApplyChanges 0
	End If
End If