Const SHOWSTATE_NORMAL = 2
Const SHOWSTATE_MAXIMIZED = 3

sites = Array("http://www.realtimesoft.com", "http://www.microsoft.com", "http://www.apple.com")
monitors = Array(1, 2, 3)
SHOW = SHOWSTATE_MAXIMIZED
Const BROWSER = "%ProgramFiles%\Internet Explorer\iexplore.exe"
Const TIMEOUT = 10 'number of seconds to wait for the browser to start

Set util = CreateObject("UltraMon.Utility")
Set wnd = CreateObject("UltraMon.Window")
For i = 0 To UBound(sites)
	If util.Run(BROWSER & " " & sites(i)) = True Then
		If wnd.GetAppMainWindow(util.ProcessId, TIMEOUT * 1000) = True Then
			wnd.Monitor = monitors(i)
			wnd.ShowState = SHOW
			wnd.ApplyChanges 0
		End If
	End If
Next