Set wnd = CreateObject("UltraMon.Window")
If wnd.GetForegroundWindow() = True Then
	If wnd.AlwaysOnTop = True Then
		wnd.AlwaysOnTop = False
	Else
		wnd.AlwaysOnTop = True
	End If
	wnd.ApplyChanges 0
End If