Const SHOWSTATE_MINIMIZED = 1

Set wnd = CreateObject("UltraMon.Window")
If wnd.GetForegroundWindow() = True Then
	wnd.ShowState = SHOWSTATE_MINIMIZED
	wnd.ApplyChanges 0
End If