'copyright 2002 by Realtime Soft - www.realtimesoft.com

Set sys = CreateObject("UltraMon.System")
For Each mon In sys.Monitors
	If mon.Primary = False Then
		mon.Primary = True
		Exit For
	End If
Next
sys.ApplyMonitorChanges