Const POS_WINDOWS = 1
Const POS_ICONS = 2
Const POS_DESKTOPITEMS = 4
const POS_ALL = 7

Set sys = CreateObject("UltraMon.System")
If sys.NumActiveMonitors = 1 Then
	sys.SecondaryEnable
	sys.RestorePositions POS_ICONS Or POS_DESKTOPITEMS
Else
	sys.SavePositions POS_ICONS Or POS_DESKTOPITEMS
	sys.SecondaryDisable
End If