Set sys = CreateObject("UltraMon.System")
For i = 0 To 1
	Set mon = sys.Monitors(CLng(i))
	If mon.Primary = True Then
		mon.Enabled = False
	Else
		mon.Enabled = True
		mon.Primary = True
	End If
Next
sys.ApplyMonitorChanges